Changeset 1034

Timestamp:

Oct 31, 2010 9:54:34 AM (12 years ago)

Author:

toby

Message:

return required exiled code (2 box x scroll)

File:

• trunk/gsascmds.tcl (modified) (1 diff)

trunk/gsascmds.tcl

@@ -2307 +2307 @@
     pack $bx.a.files $bx.a.dates -side left -fill both -expand yes
     pack [entry $bx.c -textvariable expgui(FileMenuEXPNAM)] -side top
+}
+proc sync2boxesX {master slave scroll args} {            
+    $slave xview moveto [lindex [$master xview] 0]               
+    eval $scroll set $args               
+}                
+proc move2boxesX {boxlist args} {                
+    foreach listbox $boxlist {                   
+        eval $listbox xview $args                
+    }            
 }
 proc sync2boxesY {master slave scroll args} {