]> www.wagner.pp.ru Git - oss/fgis.git/blob - tcl/draw.tcl
The second attempt to automate building :-) A lot of work here should be
[oss/fgis.git] / tcl / draw.tcl
1 package require Fgis
2 set layer [layer create raster -file lesras.epp -title "ðÏÄÚÏÎÁ"\
3    -legfile lesras.leg]
4 option add *font -cronyx-times-bold-r-normal--10-*
5 label .status
6 planchet .test -width 640 -height 480 -status .status
7 toolbar .tool .test
8 pack .tool -expand y -fill x
9 pack .test
10 pack .status
11 .test show $layer
12 .test look add $layer
13 bind .test <Button-2> {destroy .test}
14 wm protocol . WM_DELETE_WINDOW exit