This repository is a base of Eos.
リビジョン | 42e160759d29092fafc2ba415b36b123dae7a0ca (tree) |
---|---|
日時 | 2016-04-09 19:21:00 |
作者 | Takuo Yasunaga <yasunaga@bio....> |
コミッター | Takuo Yasunaga |
Display2 update: hidden angleLock
modified: bin/wish/Display2/Display2InfoROI.wish
modified: bin/wish/Display2/Display2MenuROI.wish
modified: src/Tools/Integration/Display2/src/wish/Display2InfoROI.wish
modified: src/Tools/Integration/Display2/src/wish/Display2MenuROI.wish
@@ -62,7 +62,9 @@ proc roiInformationWinCreate { } { | ||
62 | 62 | pack $f -side top |
63 | 63 | pack $f.multi -side left |
64 | 64 | pack $f.sizeLock -side left |
65 | - pack $f.angleLock -side left | |
65 | + if { $Roi(SizeLock) == "On" } { | |
66 | + pack $f.angleLock -side left | |
67 | + } | |
66 | 68 | pack $f.analysis -side left |
67 | 69 | |
68 | 70 | switch $Roi(Shape) { |
@@ -72,12 +72,14 @@ proc menuRoiCreate { } { | ||
72 | 72 | roiRelatedObjectRecreate |
73 | 73 | } |
74 | 74 | |
75 | - $m add check -variable Roi(AngleLock) \ | |
76 | - -onvalue On -offvalue Off -label "AngleLock" \ | |
77 | - -command { | |
78 | - roiRelatedObjectRecreate | |
79 | - } | |
80 | - | |
75 | + if { $Roi(SizeLock) == "On" } { | |
76 | + $m add check -variable Roi(AngleLock) \ | |
77 | + -onvalue On -offvalue Off -label "AngleLock" \ | |
78 | + -command { | |
79 | + roiRelatedObjectRecreate | |
80 | + } | |
81 | + } | |
82 | + $m add separator | |
81 | 83 | $m add com -label "ROIInfo" -command roiInformationWinCreate |
82 | 84 | } |
83 | 85 |
@@ -62,7 +62,9 @@ proc roiInformationWinCreate { } { | ||
62 | 62 | pack $f -side top |
63 | 63 | pack $f.multi -side left |
64 | 64 | pack $f.sizeLock -side left |
65 | - pack $f.angleLock -side left | |
65 | + if { $Roi(SizeLock) == "On" } { | |
66 | + pack $f.angleLock -side left | |
67 | + } | |
66 | 68 | pack $f.analysis -side left |
67 | 69 | |
68 | 70 | switch $Roi(Shape) { |
@@ -72,12 +72,14 @@ proc menuRoiCreate { } { | ||
72 | 72 | roiRelatedObjectRecreate |
73 | 73 | } |
74 | 74 | |
75 | - $m add check -variable Roi(AngleLock) \ | |
76 | - -onvalue On -offvalue Off -label "AngleLock" \ | |
77 | - -command { | |
78 | - roiRelatedObjectRecreate | |
79 | - } | |
80 | - | |
75 | + if { $Roi(SizeLock) == "On" } { | |
76 | + $m add check -variable Roi(AngleLock) \ | |
77 | + -onvalue On -offvalue Off -label "AngleLock" \ | |
78 | + -command { | |
79 | + roiRelatedObjectRecreate | |
80 | + } | |
81 | + } | |
82 | + $m add separator | |
81 | 83 | $m add com -label "ROIInfo" -command roiInformationWinCreate |
82 | 84 | } |
83 | 85 |