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      }

_______________________________________________
grass-dev mailing list
[email protected]
http://lists.osgeo.org/mailman/listinfo/grass-dev

Reply via email to