Changeset 6107 for branches

Timestamp:

Mar 8, 2016 9:34:42 AM (8 years ago)

Author:

gah

Message:

fix menu disable/enable items

File:

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

branches/1.5/gui/scripts/analyzer.tcl

@@ -113 +113 @@
     private method LoadSimulations { runfiles }
     private method Ok {}
-    private method PostMenu {}
+    private method PostMenu { menu }
     private method ReadSimsetFile { fileName }
     private method SaveSimulations {}
@@ -1538 +1538 @@
 }
 
-itcl::body Rappture::Analyzer::PostMenu {} {
-    set m $itk_component(help).menu 
+itcl::body Rappture::Analyzer::PostMenu { m } {
     if { [FindSimsetsForApp $_appName] == 0 } {
         $m entryconfigure "Load Simulations" -state disable
@@ -1562 +1561 @@
     menu $m \
         -tearoff 0 \
-        -postcommand [itcl::code $this PostMenu]
+        -postcommand [itcl::code $this PostMenu $m]
     if { $appName == "" || $url == "" } {
         set state disabled
@@ -1568 +1567 @@
         set state normal
     }
+    set webcmd Rappture::filexfer::webpage
+    set group "app-$_appName"
     $m add command -label "About this tool" \
-        -command [list Rappture::filexfer::webpage "$url/tools/$appName"] \
+        -command [list $webcmd "$url/tools/$appName"] \
         -state $state
     $m add command -label "Questions?" \
-        -command [list Rappture::filexfer::webpage \
-                      "$url/resources/$_appName/questions"] \
+        -command [list $wmdcmd "$url/resources/$_appName/questions"] \
         -state $state
-    $m add command -label "Wish List" -state $state 
-    $m add command -label "Tickets" -state $state
+    $m add command -label "Tickets" -state $state \
+        -command [list $webcmd "$url/feedback/report_problems?group=$group"]
+    $m add command -label "Wish List" -state disabled
     $m add separator
     $m add command -label "Save Simulations" \