26 |
|
|
27 |
scrollbar $w.frame2.vscroll -relief sunken -command "$c yview" |
scrollbar $w.frame2.vscroll -relief sunken -command "$c yview" |
28 |
scrollbar $w.frame2.hscroll -orient horiz -relief sunken -command "$c xview" |
scrollbar $w.frame2.hscroll -orient horiz -relief sunken -command "$c xview" |
29 |
canvas $c -width 900 -height 500 -xscroll "$w.frame2.hscroll set" \ |
canvas $c -width 900 -height 500 -xscrollcommand "$w.frame2.hscroll set" \ |
30 |
-yscroll "$w.frame2.vscroll set" |
-yscrollcommand "$w.frame2.vscroll set" |
31 |
pack $w.frame2.hscroll -side bottom -fill x |
pack $w.frame2.hscroll -side bottom -fill x |
32 |
pack $w.frame2.vscroll -side right -fill y |
pack $w.frame2.vscroll -side right -fill y |
33 |
pack $c -in $w.frame2 -expand yes -fill both |
pack $c -in $w.frame2 -expand yes -fill both |
38 |
|
|
39 |
# Choose colors, then fill in the floorplan. |
# Choose colors, then fill in the floorplan. |
40 |
|
|
41 |
if {[tk colormodel $c] == "color"} { |
if {[winfo depth $c] > 1} { |
42 |
set colors(bg1) #c0a3db55dc28 |
set colors(bg1) #c0a3db55dc28 |
43 |
set colors(outline1) #70207f868000 |
set colors(outline1) #70207f868000 |
44 |
set colors(bg2) #aeb8c6eec7ad |
set colors(bg2) #aeb8c6eec7ad |