Changeset 6103 for branches/1.5/gui/scripts/analyzer.tcl

Timestamp:

Mar 4, 2016, 8:21:03 AM (9 years ago)

Author:

gah

Message:

fix help menu with phases

File:

• branches/1.5/gui/scripts/analyzer.tcl (modified) (5 diffs)

branches/1.5/gui/scripts/analyzer.tcl

@@ -68 +68 @@
     public method clear {{xmlobj "all"}}
     public method download {option args}
+    public method buildMenu { w url appName }
 
     protected method _plot {args}
@@ -104 +105 @@
     private variable _wait_uq 0
 
-    private method BuildMenu { url }
     private method BuildSimulationTable { w }
     private method Cancel {}
@@ -201 +201 @@
     }
     pack $itk_component(help) -side left
-    BuildMenu $url
+    buildMenu $itk_component(help).menu $url $_appName
     
     if 0 {
@@ -1559 +1559 @@
 # Build Help menu 
 #
-itcl::body Rappture::Analyzer::BuildMenu { url } {
-    set m $itk_component(help).menu 
-    itk_component add helpmenu {
-        menu $itk_component(help).menu \
-            -tearoff 0 \
-            -postcommand [itcl::code $this PostMenu]
-    } {
-        ignore -tearoff
-    }
-    if { $_appName == "" || $url == "" } {
+itcl::body Rappture::Analyzer::buildMenu { m url appName } {
+    menu $m \
+        -tearoff 0 \
+        -postcommand [itcl::code $this PostMenu]
+    if { $appName == "" || $url == "" } {
         set state disabled
     } else {
@@ -1574 +1569 @@
     }
     $m add command -label "About this tool" \
-        -command [list Rappture::filexfer::webpage "$url/tools/$_appName"] \
+        -command [list Rappture::filexfer::webpage "$url/tools/$appName"] \
         -state $state
     $m add command -label "Questions?" \