Changeset 1685

Timestamp:

Apr 1, 2010 11:50:21 AM (14 years ago)

Author:

gah

Message:

 

File:

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

branches/blt4/gui/scripts/filechoiceentry.tcl

@@ -214 +214 @@
     }
     set first ""
+    set tail ""
     foreach file $allfiles {
         set tail [file tail $file]
@@ -225 +226 @@
     }
     $itk_component(choice) configure -width $max
-    #
     $itk_component(choice) value $tail
 }