Changeset 724 for trunk/gui/scripts/tool.tcl

Timestamp:

May 10, 2007, 7:53:32 PM (17 years ago)

Author:

mmc

Message:

Fixed the bugreport component to automatically register all "Oops!"
errors with the ticketing system on the hosting hub. When the
RAPPTURE_VERSION environment variable is set to "current", the
dialog automatically registers errors. Otherwise, it pops up a
dialog showing the error to the developer. It also registers errors
that come from launching jobs ("Problem launching job" messages).

Fixed the Makefile to install all scripts/*.tcl files, so we don't
have to modify configure each time a file is added.

File:

• trunk/gui/scripts/tool.tcl (modified) (5 diffs)

trunk/gui/scripts/tool.tcl

@@ -24 +24 @@
     } { # defined below }
 
-    public method get {{option ""}}
     public method installdir {} { return $_installdir }
 
@@ -37 +36 @@
     private common jobnum 0          ;# counter for unique job number
 
-    # resources file tells us the application name
-    public common _appname ""
-    public proc setAppName {name} { set _appname $name }
+    # get global resources for this tool session
+    public proc resources {{option ""}}
+
+    public common _resources
+    public proc setAppName {name} { set _resources(-appname) $name }
+    public proc setHubName {name} { set _resources(-hubname) $name }
+    public proc setHubURL {name}  { set _resources(-huburl) $name }
+    public proc setSession {name} { set _resources(-session) $name }
 }
 
@@ -45 +49 @@
 proc tool_init_resources {} {
     Rappture::resources::register \
-        application_name Rappture::Tool::setAppName
+        application_name Rappture::Tool::setAppName \
+        application_id   Rappture::Tool::setAppId \
+        hub_name         Rappture::Tool::setHubName \
+        hub_url          Rappture::Tool::setHubURL \
+        session_token    Rappture::Tool::setSession
 }
                                                                                 
@@ -66 +74 @@
 
 # ----------------------------------------------------------------------
-# USAGE: get ?-option?
+# USAGE: resources ?-option?
 #
 # Clients use this to query information about the tool.
 # ----------------------------------------------------------------------
-itcl::body Rappture::Tool::get {{option ""}} {
-    set values(-name) $_appname
+itcl::body Rappture::Tool::resources {{option ""}} {
     if {$option == ""} {
-        return [array get values]
-    }
-    if {![info exists values]} {
-        error "bad option \"$option\": should be [join [array names values] {, }]"
-    }
-    return $values($option)
+        return [array get _resources]
+    }
+    if {![info exists _resources($option)]} {
+        error "bad option \"$option\": should be [join [array names _resources] {, }]"
+    }
+    return $_resources($option)
 }
 
@@ -114 +121 @@
     # tool name from the resources config file.
     #
-    if {"" != $_appname && "" == [$_xmlobj get tool.name]} {
-        $_xmlobj put tool.name $_appname
+    if {"" != $_resources(-appname) && "" == [$_xmlobj get tool.name]} {
+        $_xmlobj put tool.name $_resources(-appname)
     }