/[gcl]/gcl/gcl-tk/demos/mkScroll.tcl
ViewVC logotype

Diff of /gcl/gcl-tk/demos/mkScroll.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:01 1999 UTC revision 1.2 by camm, Sun May 1 20:17:31 2005 UTC
# Line 24  proc mkScroll {{w .cscroll}} { Line 24  proc mkScroll {{w .cscroll}} {
24      pack $w.frame -side top -expand yes -fill both      pack $w.frame -side top -expand yes -fill both
25    
26      canvas $c -scrollregion {-10c -10c 50c 20c} \      canvas $c -scrollregion {-10c -10c 50c 20c} \
27              -xscroll "$w.frame.hscroll set" -yscroll "$w.frame.vscroll set"              -xscrollcommand "$w.frame.hscroll set" -yscrollcommand "$w.frame.vscroll set"
28      scrollbar $w.frame.vscroll  -relief sunken -command "$c yview"      scrollbar $w.frame.vscroll  -relief sunken -command "$c yview"
29      scrollbar $w.frame.hscroll -orient horiz -relief sunken -command "$c xview"      scrollbar $w.frame.hscroll -orient horiz -relief sunken -command "$c xview"
30      pack $w.frame.vscroll -side right -fill y      pack $w.frame.vscroll -side right -fill y
# Line 56  proc scrollEnter canvas { Line 56  proc scrollEnter canvas {
56          set id [expr $id-1]          set id [expr $id-1]
57      }      }
58      set oldFill [lindex [$canvas itemconfig $id -fill] 4]      set oldFill [lindex [$canvas itemconfig $id -fill] 4]
59      if {[tk colormodel $canvas] == "color"} {      if {[winfo depth $canvas] > 1} {
60          $canvas itemconfigure $id -fill SeaGreen1          $canvas itemconfigure $id -fill SeaGreen1
61      } else {      } else {
62          $canvas itemconfigure $id -fill black          $canvas itemconfigure $id -fill black

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26