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 |
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 |