Changeset 5984


Ignore:
Timestamp:
Feb 9, 2016, 11:51:17 AM (8 years ago)
Author:
gah
Message:

add -appname switch for testing

Location:
branches/1.4
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/1.4/gui/apps/launcher.tcl

    r5981 r5984  
    4343set params(input) ""
    4444
    45 set _rapptureCwd [pwd]
     45set rapptureInfo(cwd) [pwd]
     46set rapptureInfo(appName) ""
    4647
    4748if {[info exists env(TOOL_PARAMETERS)]} {
     
    182183            -simset {
    183184                lappend alist $opt [lindex $argv 0]
     185                set argv [lrange $argv 1 end]
     186            }
     187            -appname {
     188                global rapptureInfo
     189                set rapptureInfo(appName) $opt [lindex $argv 0]
    184190                set argv [lrange $argv 1 end]
    185191            }
  • branches/1.4/gui/scripts/analyzer.tcl

    r5983 r5984  
    174174
    175175    # if there's a hub url, then add "About" and "Questions" links
    176     set _appName [$_tool xml get tool.id]
     176    global rapptureInfo
     177    if { $rapptureInfo(appName) == "" } {
     178        set _appName [$_tool xml get tool.id]
     179    } else {
     180        set _appName $rapptureInfo(appName)
     181    }
    177182    set url [Rappture::Tool::resources -huburl]
    178183
     
    199204   
    200205    if 0 {
     206        # To be eliminated with menu changes.
    201207    itk_component add about {
    202208        button $itk_component(hubcntls).about \
     
    15671573        set state normal
    15681574    }
    1569         set state normal
    15701575    $m add command -label "About this tool" \
    15711576        -command [list Rappture::filexfer::webpage "$url/tools/$_appName"] \
  • branches/1.4/gui/scripts/main.tcl

    r5983 r5984  
    267267if 0 {
    268268# The be elimimated with the menu changes
    269 if {"" != $url && "" != $app} {
     269if { "" != $url && "" != $app } {
    270270    set f [$win.pager component breadcrumbarea]
    271271    frame $f.hubcntls
     
    309309if { $url != "" && $app != "" } {
    310310    $f.hubcntls.about configure -state normal
    311     $f.hubcntls.about configure -state normal
     311    $f.hubcntls.questions configure -state normal
    312312}
    313313
  • branches/1.4/lang/tcl/scripts/task.tcl

    r5982 r5984  
    219219
    220220    # write out the driver.xml file for the tool
    221     global _rapptureCwd
    222     set file [file join $_rapptureCwd "driver[pid].xml"]
     221    global rapptureInfo
     222    set file [file join $rapptureInfo(cwd) "driver[pid].xml"]
    223223    set status [catch {
    224224        set fid [open $file w]
     
    580580                set rdir $_resources(-resultdir)
    581581            } else {
    582                 global _rapptureCwd
    583                 set rdir $_rapptureCwd
     582                global rapptureInfo
     583                set rdir $rapptureInfo(cwd)
    584584            }
    585585        } elseif {$resultdir ne ""} {
Note: See TracChangeset for help on using the changeset viewer.