Changeset 1263

Timestamp:

Jan 5, 2009 10:01:29 AM (15 years ago)

Author:

dkearney

Message:

fix for bug regarding loader where <new> option no longer loads the new file.

Location:

trunk

Files:

• ChangeLog (modified) (1 diff)
• gui/scripts/loader.tcl (modified) (2 diffs)

trunk/ChangeLog

@@ +1 @@
+
+ * Fixed bug regarding loaders using <new> tag where file was not loading
+ * Fixes for Octave 3.0's print_help function
+ * Adding rappture to OCTAVE_LOADPATH environment variable for octave 3.01
+
+2008-12-10: nanovis 20081207 released
+2008-12-10: Rappture 20081205 released
+
 2008-11-25:
 

trunk/gui/scripts/loader.tcl

@@ -94 +94 @@
         if {[file exists $fname]} {
             set newfile $fname
+
             if {[catch {set obj [Rappture::library $fname]} result]} {
                 puts stderr "WARNING: can't load example file \"$fname\""
                 puts stderr "  $result"
             } else {
-                $itk_component(combo) choices insert end $obj "New"
+                set label "New"
+                $itk_component(combo) choices insert end $obj $label
+
+                # if this is new, add it to the label->file hash
+                if {![info exists entries($label)]} {
+                    set entries($label) $obj
+                    set _label2file($label) [file tail $fname]
+                }
+
                 # translate default file name => default label
                 if {[string equal $defval [file tail $fname]]} {
@@ -199 +208 @@
                     }
 
-                    # if this is new, add it
+                    # if this is new, add it to the label->file hash
                     if {![info exists entries($label)]} {
                         set entries($label) $obj