Changeset 1159 for trunk/gui/scripts/analyzer.tcl
- Timestamp:
- Sep 22, 2008, 5:41:59 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/analyzer.tcl
r1124 r1159 24 24 option add *Analyzer.simControlActiveBackground #ffffcc widgetDefault 25 25 option add *Analyzer.simControlActiveOutline black widgetDefault 26 option add *Analyzer.notebookpage "about" widgetDefault 26 27 27 28 option add *Analyzer.font \ … … 46 47 itk_option define -simcontrolactivebackground simControlActiveBackground Background "" 47 48 itk_option define -holdwindow holdWindow HoldWindow "" 49 itk_option define -notebookpage notebookPage NotebookPage "" 48 50 49 51 constructor {tool args} { # defined below } … … 62 64 protected method _fixSize {} 63 65 protected method _fixSimControl {} 66 protected method _fixNotebook {} 64 67 protected method _simState {state args} 65 68 protected method _simOutput {message} … … 820 823 # Used internally to change the "Simulation" button on or off. 821 824 # If the <boolean> is on, then any <message> and <settings> are 822 # displayed as well. The <message> is a note to the user about 825 # displayed as well. If the <boolean> is off, then only display 826 # the message. The <message> is a note to the user about 823 827 # what will be simulated, and the <settings> are a list of 824 828 # tool parameter settings of the form {path1 val1 path2 val2 ...}. … … 893 897 $itk_component(simstatus) configure -state normal 894 898 $itk_component(simstatus) delete 1.0 end 895 $itk_component(simstatus) configure -state disabled 896 Rappture::Tooltip::for $itk_component(simstatus) "" 899 set mesg [lindex $args 0] 900 if {"" != $mesg} { 901 $itk_component(simstatus) insert end $mesg 902 } 897 903 } 898 904 } … … 1025 1031 1026 1032 # ---------------------------------------------------------------------- 1033 # USAGE: _fixNotebook 1034 # 1035 # Used internally to switch the active notebook page 1036 # ---------------------------------------------------------------------- 1037 itcl::body Rappture::Analyzer::_fixNotebook {} { 1038 switch -- $itk_option(-notebookpage) { 1039 about { 1040 $itk_component(notebook) current about 1041 } 1042 simulate { 1043 $itk_component(notebook) current simulate 1044 } 1045 analyze { 1046 $itk_component(notebook) current analyze 1047 } 1048 default { 1049 error "bad value \"$itk_option(-notebookpage)\": should be about, simulate, analyze" 1050 } 1051 } 1052 } 1053 1054 # ---------------------------------------------------------------------- 1027 1055 # CONFIGURATION OPTION: -simcontrol 1028 1056 # … … 1033 1061 _fixSimControl 1034 1062 } 1063 1064 # ---------------------------------------------------------------------- 1065 # CONFIGURATION OPTION: -notebookpage 1066 # 1067 # Controls which page of the analyzer notebook is shown. It is 1068 # particularly needed when using rerun, when you don't want to 1069 # "simulate -ifneeded" because an actual simulation might be 1070 # kicked off due to differences between tool.xml and run.xml 1071 # ---------------------------------------------------------------------- 1072 itcl::configbody Rappture::Analyzer::notebookpage { 1073 _fixNotebook 1074 }
Note: See TracChangeset
for help on using the changeset viewer.