- Timestamp:
- May 26, 2010, 7:21:24 PM (14 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/analyzer.tcl
r1663 r1742 24 24 option add *Analyzer.simControlActiveBackground #ffffcc widgetDefault 25 25 option add *Analyzer.simControlActiveOutline black widgetDefault 26 option add *Analyzer.notebookpage "about" widgetDefault27 26 28 27 option add *Analyzer.font \ … … 47 46 itk_option define -simcontrolactivebackground simControlActiveBackground Background "" 48 47 itk_option define -holdwindow holdWindow HoldWindow "" 49 itk_option define -notebookpage notebookPage NotebookPage " "48 itk_option define -notebookpage notebookPage NotebookPage "about" 50 49 51 50 constructor {tool args} { # defined below } -
trunk/gui/scripts/histogram.tcl
r1550 r1742 67 67 itcl::delete object $_hist 68 68 # don't destroy the _xmlobj! we don't own it! 69 blt::vector destroy $_widths $_heights $_locations 69 if {"" != $_widths} { 70 blt::vector destroy $_widths 71 } 72 if {"" != $_heights} { 73 blt::vector destroy $_heights 74 } 75 if {"" != $_locations} { 76 blt::vector destroy $_locations 77 } 70 78 } 71 79 … … 155 163 error "bad option \"$which\": should be x, xlin, xlog, y, ylin, ylog" 156 164 } 165 } 166 167 if {"" == $vname} { 168 return {0 1} 157 169 } 158 170 $vname dup tmp -
trunk/gui/scripts/historesult.tcl
r1402 r1742 626 626 set yv [$xydata heights] 627 627 set zv [$xydata widths] 628 629 if {"" == $xv} { 630 continue 631 } 628 632 629 633 if {[info exists _histo2color($xydata)]} { -
trunk/gui/scripts/scroller.tcl
r1728 r1742 307 307 set h [winfo reqheight $_frame.f] 308 308 $_frame configure -scrollregion [list 0 0 $w $h] 309 _fixframe outer 309 310 _lock reset x 310 311 _lock reset y
Note: See TracChangeset
for help on using the changeset viewer.