Changeset 1681 for branches/blt4/gui/scripts/filechoiceentry.tcl

Timestamp:

Apr 1, 2010, 10:58:58 AM (15 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/filechoiceentry.tcl (modified) (4 diffs)

branches/blt4/gui/scripts/filechoiceentry.tcl

@@ -185 +185 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::FileChoiceEntry::_rebuild {} {
-    puts stderr "filechoiceentry rebuild"
     set _rebuildPending 0
     # get rid of any existing choices
@@ -199 +198 @@
         set glob [string trim [$_owner xml get $_path.$cname]]
         # Successively replace each template with its value.
-        puts stderr "before glob=$glob"
         while { [regexp -indices {@@[^@]*@@} $glob range] } {
             foreach {first last} $range break
@@ -206 +204 @@
             set cpath [string range $glob $i1 $i2]
             set value [$_owner xml get $cpath.current]
-            puts stderr "$cpath.current: value=$value"
             if { $value == "" } {
-                puts stderr "$_owner xml get $cpath.default"
                 set value [$_owner xml get $cpath.default]
-                puts stderr "$cpath.default: value=$value"
             }
             set glob [string replace $glob $first $last $value]
@@ -252 +247 @@
 itcl::body Rappture::FileChoiceEntry::_tooltip {} {
     set tip [string trim [$_owner xml get $_path.about.description]]
-    puts stderr "tip=$tip, $_owner=$_owner path=$_path.about.description"
     # get the description for the current choice, if there is one
     set str [$itk_component(choice) value]