[GRASS-dev] gui/tcltk/gis.m/*.tcl: wrong `variable' syntax
Ivan Shmakov
ivan at theory.asu.ru
Fri Mar 28 13:24:36 EDT 2008
The lines marked ``>'' below seem nonsensical to me. For what
reason, e. g., would one need to assign to an `array' variable
thrice, let alone introducing the `#' variable?
barscale.tcl 12 namespace eval GmBarscale {
barscale.tcl 13 > variable array opt # barscale current options
barscale.tcl 14 variable count 1
barscale.tcl 15 > variable array lfile # scale
barscale.tcl 16 > variable array lfilemask # scale
barscale.tcl 17 variable optlist
barscale.tcl 18 variable first
barscale.tcl 19 > variable array dup # layer
barscale.tcl 20 > variable placement #LabelEntry widget for scale bar placment coordinates
barscale.tcl 21 };
chart.tcl 12 namespace eval GmChart {
chart.tcl 13 > variable array opt # chart options
chart.tcl 14 variable count 1
chart.tcl 15 > variable array lfile # vector
chart.tcl 16 > variable array lfilemask # vector
chart.tcl 17 variable optlist
chart.tcl 18 > variable array dup # vector
chart.tcl 19 }
cmd.tcl 12 namespace eval GmCmd {
cmd.tcl 13 > variable array opt # cmd current options
cmd.tcl 14 variable count 1
cmd.tcl 15 > variable array tree # mon
cmd.tcl 16 > variable array lfile # command
cmd.tcl 17 > variable array lfilemask # command
cmd.tcl 18 variable optlist
cmd.tcl 19 > variable array dup # layer
cmd.tcl 20 }
dtext.tcl 12 namespace eval GmDtext {
dtext.tcl 13 > variable array opt # d.text options
dtext.tcl 14 variable count 1
dtext.tcl 15 > variable array lfile
dtext.tcl 16 > variable array lfilemask
dtext.tcl 17 variable optlist
dtext.tcl 18 variable first
dtext.tcl 19 > variable array dup
dtext.tcl 20 variable placement
dtext.tcl 21 variable optlist
dtext.tcl 22 global env
dtext.tcl 23
dtext.tcl 24 }
frames.tcl 12 namespace eval GmDframe {
frames.tcl 13 > variable array opt # frame current options
frames.tcl 14 variable count 1
frames.tcl 15 > variable array tree # mon
frames.tcl 16 > variable array lfile # frame
frames.tcl 17 > variable array lfilemask # frame
frames.tcl 18 variable optlist
frames.tcl 19 variable first
frames.tcl 20 > variable array dup # layer
frames.tcl 21 }
georect.tcl 26 namespace eval GRMap {
georect.tcl 27 > variable displayrequest # true if it wants to get displayed.
georect.tcl 28
georect.tcl 29 # Something's modified the canvas or view
georect.tcl 30 # Degree of modification 0 - none, 1 - zoom, 2 - canvas
georect.tcl 31 > variable array grcanmodified
georect.tcl 32 # The canvas widget of the georectify monitor
georect.tcl 1199 > variable array gcpline #array to store gcp coordinates as text for output
gm.tcl 121 namespace eval Gm {
gm.tcl 122 variable gm_mainframe
gm.tcl 123 variable status
gm.tcl 124 > variable array tree # mon
gm.tcl 125 variable rcfile
gmtree.tcl 18 variable legend_height 20
gmtree.tcl 19 variable legend_width 30
gmtree.tcl 20 variable treeht 6
gmtree.tcl 21 > global array tree # mon
gmtree.tcl 22 > global array filename # mon
gmtree.tcl 23 > variable array pg # mon
gmtree.tcl 24
gmtree.tcl 25 }
gridline.tcl 11 namespace eval GmGridline {
gridline.tcl 12 > variable array opt # grid current options
gridline.tcl 13 variable count 1
gridline.tcl 14 > variable array tree # mon
gridline.tcl 15 > variable array lfile # raster
gridline.tcl 16 > variable array lfilemask # raster
gridline.tcl 17 variable optlist
gridline.tcl 18 variable first
gridline.tcl 19 > variable array dup # vector
gridline.tcl 20 }
group.tcl 7 namespace eval GmGroup {
group.tcl 8 variable array opt
group.tcl 9 variable count 1
group.tcl 10 > variable array tree # mon
group.tcl 11 variable nvelev ""
group.tcl 12 variable nvcolor ""
group.tcl 13 variable nvpoints ""
group.tcl 14 variable nvlines ""
group.tcl 15 }
histogram.tcl 11 namespace eval GmHist {
histogram.tcl 12 > variable array opt # hist current options
histogram.tcl 13 variable count 1
histogram.tcl 14 > variable array tree # mon
histogram.tcl 15 > variable array lfile # histogram
histogram.tcl 16 > variable array lfilemask # histogram
histogram.tcl 17 variable optlist
histogram.tcl 18 variable first
histogram.tcl 19 > variable array dup # layer
histogram.tcl 20 }
labels.tcl 12 namespace eval GmLabels {
labels.tcl 13 > variable array opt # labels current options
labels.tcl 14 variable count 1
labels.tcl 15 > variable array tree # mon
labels.tcl 16 > variable array lfile # labels
labels.tcl 17 > variable array lfilemask # labels
labels.tcl 18 variable optlist
labels.tcl 19 > variable array dup # layer
labels.tcl 20 }
legend.tcl 12 namespace eval GmLegend {
legend.tcl 13 > variable array opt # legend current options
legend.tcl 14 variable count 1
legend.tcl 15 > variable array lfile # raster
legend.tcl 16 > variable array lfilemask # raster
legend.tcl 17 variable optlist
legend.tcl 18 > variable array dup # vector
legend.tcl 19 variable llcorner
legend.tcl 20 }
mapcanvas.tcl 27 namespace eval MapCanvas {
mapcanvas.tcl 28 > variable array displayrequest # Indexed by mon, true if it wants to get displayed.
mapcanvas.tcl 29
mapcanvas.tcl 30 # Something's modified the canvas or view, indexed by mon.
mapcanvas.tcl 31 # Degree of modification 0 - none, 1 - zoom, 2 - canvas
mapcanvas.tcl 32 > variable array canmodified
mapcanvas.tcl 33
mapcanvas.tcl 34 > variable array can # The canvas widgets of the monitors, indexed by mon
mapcanvas.tcl 35 > variable array mapframe # Frame widgets, indexed by mon
mapcanvas.tcl 36 > variable array canvas_w # Width and height of canvas. Indexed by mon
mapcanvas.tcl 37 > variable array canvas_h # mon
mapcanvas.tcl 38 > variable array driver_w # Actual width and height used while drawing / compositing. Indexed by mon
mapcanvas.tcl 39 > variable array driver_h # Actual width and height used while drawing / compositing. Indexed by mon
mapcanvas.tcl 40 > variable array exploremode # Whether or not to change regions to match monitor, indexed by mon
mapcanvas.tcl 41 > variable array map_ind # Indicator widgets, indexed by mon
mapcanvas.tcl 42 > variable array msg # status message, indexed by mon
mapcanvas.tcl 43 > variable b1north # capture north coordinate on clicking mouse
mapcanvas.tcl 44 > variable b1east # capture east coordinate on clicking mouse
mapcanvas.tcl 45
mapcanvas.tcl 46
mapcanvas.tcl 47 # zoom box corners indexed by mon
mapcanvas.tcl 48 > variable array areaX1
mapcanvas.tcl 49 > variable array areaY1
maptext.tcl 12 namespace eval GmCtext {
maptext.tcl 13 > variable array opt # ctext options
maptext.tcl 14 > variable placement #entry widget for x,y coordinates
maptext.tcl 15 variable count 1
maptext.tcl 16 variable optlist
maptext.tcl 17 }
profile.tcl 36 variable liney2 0.0
profile.tcl 37 > variable array psegment len #
profile.tcl 38 variable elevrange 0.0
rastarrows.tcl 12 namespace eval GmArrows {
rastarrows.tcl 13 > variable array opt # arrows current options
rastarrows.tcl 14 variable count 1
rastarrows.tcl 15 > variable array tree # mon
rastarrows.tcl 16 > variable array lfile # raster
rastarrows.tcl 17 > variable array lfilemask # raster
rastarrows.tcl 18 variable optlist
rastarrows.tcl 19 > variable array dup # vector
rastarrows.tcl 20 }
raster.tcl 12 namespace eval GmRaster {
raster.tcl 13 > variable array opt # raster current options
raster.tcl 14 variable count 1
raster.tcl 15 > variable array tree # mon
raster.tcl 16 > variable array lfile # raster
raster.tcl 17 > variable array lfilemask # raster
raster.tcl 18 variable optlist
raster.tcl 19 > variable array dup # vector
raster.tcl 20 }
rastnums.tcl 12 namespace eval GmRnums {
rastnums.tcl 13 > variable array opt # rnums current options
rastnums.tcl 14 variable count 1
rastnums.tcl 15 > variable array tree # mon
rastnums.tcl 16 > variable array lfile # raster
rastnums.tcl 17 > variable array lfilemask # raster
rastnums.tcl 18 variable optlist
rastnums.tcl 19 > variable array dup # vector
rastnums.tcl 20 }
rgbhis.tcl 12 namespace eval GmRgbhis {
rgbhis.tcl 13 > variable array opt # rgbhis current options
rgbhis.tcl 14 variable count 1
rgbhis.tcl 15 > variable array lfile # rgbhis
rgbhis.tcl 16 > variable array lfilemask # rgbhis
rgbhis.tcl 17 variable optlist
rgbhis.tcl 18 > variable array dup # vector
rgbhis.tcl 19 }
thematic.tcl 12 namespace eval GmThematic {
thematic.tcl 13 > variable array opt # thematic current options
thematic.tcl 14 > variable array tlegend # mon id
thematic.tcl 15 > variable array tlegcan # mon id
thematic.tcl 16 variable count 1
thematic.tcl 17 > variable array lfile # raster
thematic.tcl 18 > variable array lfilemask # raster
thematic.tcl 19 variable optlist
thematic.tcl 20 > variable array dup # vector
thematic.tcl 21 }
vector.tcl 12 namespace eval GmVector {
vector.tcl 13 > variable array opt # vector current options
vector.tcl 14 variable count 1
vector.tcl 15 > variable array lfile # vector
vector.tcl 16 > variable array lfilemask # vector
vector.tcl 17 variable optlist
vector.tcl 18 > variable array dup # vector
vector.tcl 19 }
More information about the grass-dev
mailing list