- Timestamp:
- Oct 4, 2005 5:25:14 PM (18 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/booleanentry.tcl
r56 r82 72 72 # 73 73 set str [$_owner xml get $path.default] 74 if {"" != $str != ""} { $itk_component(switch) value $str } 74 if {"" != $str} { 75 $itk_component(switch) value $str 76 } else { 77 $itk_component(switch) value off 78 } 75 79 } 76 80 -
trunk/gui/scripts/controls.tcl
r74 r82 299 299 set w $_name2info($name-value) 300 300 301 if { [winfo class $w] != "GroupEntry"} {301 if {$w == "--" || [winfo class $w] != "GroupEntry"} { 302 302 # something other than a group? then fall back on hlabels 303 303 set scheme hlabels … … 382 382 } 383 383 384 set frame [winfo parent $wv] 385 grid rowconfigure $frame $row -weight 0 386 grid rowconfigure $frame $row -weight 0 384 grid rowconfigure $_frame $row -weight 0 385 grid rowconfigure $_frame $row -weight 0 387 386 388 387 switch -- [winfo class $wv] { … … 391 390 grid $wl -sticky n -pady 4 392 391 grid $wv -sticky nsew 393 grid rowconfigure $ frame $row -weight 1394 grid columnconfigure $ frame 1 -weight 1392 grid rowconfigure $_frame $row -weight 1 393 grid columnconfigure $_frame 1 -weight 1 395 394 } 396 395 } … … 399 398 } 400 399 } 401 grid columnconfigure $ frame 1 -weight 1400 grid columnconfigure $_frame 1 -weight 1 402 401 } elseif {$wv == "--"} { 403 grid rowconfigure $ frame $row -minsize 10402 grid rowconfigure $_frame $row -minsize 10 404 403 } 405 404 406 405 incr row 407 grid rowconfigure [winfo parent $w] $row \ 408 -minsize $itk_option(-padding) 406 grid rowconfigure $_frame $row -minsize $itk_option(-padding) 409 407 incr row 410 408 } -
trunk/gui/scripts/deviceViewer1D.tcl
r69 r82 325 325 326 326 foreach {zmin zmax} [$itk_component(layout) limits] { break } 327 if {$zmin != "" && $zmin < $zmax} { 328 $graph axis configure x -min $zmin -max $zmax 329 } 330 327 331 if {$_device != ""} { 328 332 set units [$_device get units] 329 if {$units != "arbitrary" && $zmax > $zmin} { 330 $graph axis configure x -hide no -min $zmin -max $zmax \ 331 -title "Position ($units)" 333 if {$units != "arbitrary"} { 334 $graph axis configure x -hide no -title "Position ($units)" 332 335 } else { 333 336 $graph axis configure x -hide yes 334 337 } 335 338 } else { 336 $graph axis configure x -hide no -min $zmin -max $zmax \ 337 -title "Position" 339 $graph axis configure x -hide no -title "Position" 338 340 } 339 341
Note: See TracChangeset
for help on using the changeset viewer.