- Timestamp:
- Oct 1, 2013, 8:11:18 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkimageviewer.tcl
r3968 r3971 228 228 outline 0 229 229 saveOpacity 100 230 saveOutline 0231 230 stretchToFit 0 232 231 view3D 0 … … 1453 1452 if { $bool } { 1454 1453 set _settings(opacity) $_settings(saveOpacity) 1455 set _settings(outline) 01456 1454 } else { 1457 1455 set _settings(opacity) 100 1458 set _settings(outline) $_settings(saveOutline)1459 1456 } 1460 1457 AdjustSetting opacity 1461 AdjustSetting outline 1462 if { $bool } { 1458 if { $bool } { 1463 1459 $itk_component(opacity) configure -state normal 1464 1460 $itk_component(opacity_l) configure -state normal 1465 $itk_component(outline) configure -state disabled1466 1461 if {$_view(ortho)} { 1467 1462 SendCmd "camera mode ortho" … … 1472 1467 $itk_component(opacity) configure -state disabled 1473 1468 $itk_component(opacity_l) configure -state disabled 1474 $itk_component(outline) configure -state normal1475 1469 SendCmd "camera mode image" 1476 1470 } … … 1523 1517 } 1524 1518 "outline" { 1525 if { $_settings(view3D) } { 1526 SendCmd "outline visible 0" 1527 } else { 1528 set _settings(saveOutline) $_settings(outline) 1529 set bool $_settings(outline) 1530 SendCmd "outline visible $bool" 1531 } 1519 set bool $_settings(outline) 1520 SendCmd "outline visible $bool" 1532 1521 } 1533 1522 "stretchToFit" { … … 1697 1686 -font "Arial 9" 1698 1687 1699 itk_component add outline { 1700 checkbutton $inner.outline \ 1701 -text "Outline" \ 1702 -variable [itcl::scope _settings(outline)] \ 1703 -command [itcl::code $this AdjustSetting outline] \ 1704 -font "Arial 9" 1705 } { 1706 ignore -font 1707 } 1688 checkbutton $inner.outline \ 1689 -text "Outline" \ 1690 -variable [itcl::scope _settings(outline)] \ 1691 -command [itcl::code $this AdjustSetting outline] \ 1692 -font "Arial 9" 1708 1693 1709 1694 checkbutton $inner.backing \
Note: See TracChangeset
for help on using the changeset viewer.