Changeset 1034 for trunk


Ignore:
Timestamp:
Oct 31, 2010 9:54:34 AM (10 years ago)
Author:
toby
Message:

return required exiled code (2 box x scroll)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    r1025 r1034  
    23072307    pack $bx.a.files $bx.a.dates -side left -fill both -expand yes
    23082308    pack [entry $bx.c -textvariable expgui(FileMenuEXPNAM)] -side top
     2309}
     2310proc sync2boxesX {master slave scroll args} {           
     2311    $slave xview moveto [lindex [$master xview] 0]               
     2312    eval $scroll set $args               
     2313}               
     2314proc move2boxesX {boxlist args} {               
     2315    foreach listbox $boxlist {                   
     2316        eval $listbox xview $args               
     2317    }           
    23092318}
    23102319proc sync2boxesY {master slave scroll args} {
Note: See TracChangeset for help on using the changeset viewer.