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