Changeset 1728 for trunk/gui/scripts/scroller.tcl
- Timestamp:
- May 23, 2010, 6:58:09 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/scroller.tcl
r1641 r1728 147 147 frame $_frame.f 148 148 $_frame create window 0 0 -anchor nw -window $_frame.f -tags frame 149 bind $_frame.f <Map> \ 150 [itcl::code $_dispatcher event -idle !fixframe-inner] 149 151 bind $_frame.f <Configure> \ 150 152 [itcl::code $_dispatcher event -idle !fixframe-inner] … … 302 304 switch -- $which { 303 305 inner { 304 $_frame configure -scrollregion [$_frame bbox all] 306 set w [winfo reqwidth $_frame.f] 307 set h [winfo reqheight $_frame.f] 308 $_frame configure -scrollregion [list 0 0 $w $h] 309 _lock reset x 310 _lock reset y 305 311 $_dispatcher event -idle !fixsize 306 312 }
Note: See TracChangeset
for help on using the changeset viewer.