Changeset 6107 for branches/1.5


Ignore:
Timestamp:
Mar 8, 2016 9:34:42 AM (7 years ago)
Author:
gah
Message:

fix menu disable/enable items

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.5/gui/scripts/analyzer.tcl

    r6103 r6107  
    113113    private method LoadSimulations { runfiles }
    114114    private method Ok {}
    115     private method PostMenu {}
     115    private method PostMenu { menu }
    116116    private method ReadSimsetFile { fileName }
    117117    private method SaveSimulations {}
     
    15381538}
    15391539
    1540 itcl::body Rappture::Analyzer::PostMenu {} {
    1541     set m $itk_component(help).menu
     1540itcl::body Rappture::Analyzer::PostMenu { m } {
    15421541    if { [FindSimsetsForApp $_appName] == 0 } {
    15431542        $m entryconfigure "Load Simulations" -state disable
     
    15621561    menu $m \
    15631562        -tearoff 0 \
    1564         -postcommand [itcl::code $this PostMenu]
     1563        -postcommand [itcl::code $this PostMenu $m]
    15651564    if { $appName == "" || $url == "" } {
    15661565        set state disabled
     
    15681567        set state normal
    15691568    }
     1569    set webcmd Rappture::filexfer::webpage
     1570    set group "app-$_appName"
    15701571    $m add command -label "About this tool" \
    1571         -command [list Rappture::filexfer::webpage "$url/tools/$appName"] \
     1572        -command [list $webcmd "$url/tools/$appName"] \
    15721573        -state $state
    15731574    $m add command -label "Questions?" \
    1574         -command [list Rappture::filexfer::webpage \
    1575                       "$url/resources/$_appName/questions"] \
     1575        -command [list $wmdcmd "$url/resources/$_appName/questions"] \
    15761576        -state $state
    1577     $m add command -label "Wish List" -state $state
    1578     $m add command -label "Tickets" -state $state
     1577    $m add command -label "Tickets" -state $state \
     1578        -command [list $webcmd "$url/feedback/report_problems?group=$group"]
     1579    $m add command -label "Wish List" -state disabled
    15791580    $m add separator
    15801581    $m add command -label "Save Simulations" \
Note: See TracChangeset for help on using the changeset viewer.