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

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

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:00 1999 UTC revision 1.2 by camm, Sun May 1 20:17:31 2005 UTC
# Line 26  proc mkFloor {{w .cfloor}} { Line 26  proc mkFloor {{w .cfloor}} {
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
# Line 38  proc mkFloor {{w .cfloor}} { Line 38  proc mkFloor {{w .cfloor}} {
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

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