grass-gui 6.4.3-3 / usr / lib / grass64 / etc / gm / gmtool1.tcl

This file is indexed.

/usr/lib/grass64/etc/gm/gmtool1.tcl is in grass-gui 6.4.3-3.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
###############################################################
# gmtool1.tcl - upper toolbar file for GRASS GIS Manager main window
# January 2006 Michael Barton, Arizona State University
###############################################################

namespace eval GmToolBar1 {
    variable toolbar
}

proc GmToolBar1::create { tb } {
    global iconpath
    global mon
    global bgcolor
    variable toolbar

    set toolbar $tb



    # Raster Layers
    set bbox0 [ButtonBox $toolbar.bbox0 -spacing 0]
    
    # add monitor
    $bbox0 add -image [image create photo -file "$iconpath/gui-startmon.gif"] \
        -command "Gm::startmon" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Start new map display monitor"]

    pack $bbox0 -side left -anchor w

    set sep0 [Separator $toolbar.sep0 -orient vertical -background $bgcolor ]
    pack $sep0 -side left -fill y -padx 5 -anchor w

    set bbox1 [ButtonBox $toolbar.bbox1 -spacing 0 ]
    
    # add raster
    $bbox1 add -image [image create photo -file "$iconpath/element-cell.gif"] \
        -command "GmTree::add raster" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add raster layer"]

    # add RGB or HIS layer
    $bbox1 add -image [image create photo -file "$iconpath/channel-rgb.gif"] \
        -command "GmTree::add rgbhis" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add RGB or HIS layer"]

    # add histogram layer
    $bbox1 add -image [image create photo -file "$iconpath/module-d.histogram.gif"] \
        -command "GmTree::add hist" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add histogram layer"]

    # add cell values layer
    $bbox1 add -image [image create photo -file "$iconpath/module-d.rast.num.gif"] \
        -command "GmTree::add rnums" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add cell values layer"]

    # add cell values layer
    $bbox1 add -image [image create photo -file "$iconpath/module-d.rast.arrow.gif"] \
        -command "GmTree::add arrows" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add directional arrows layer"]

    # add legend
    $bbox1 add -image [image create photo -file "$iconpath/module-d.legend.gif"] \
    	-command "GmTree::add legend" -highlightthickness 0 -takefocus 0 \
        -highlightbackground $bgcolor -activebackground $bgcolor \
    	-relief link -borderwidth 1 -helptext [G_msg "Add raster legend layer"]

    pack $bbox1 -side left -anchor w

    set sep1 [Separator $toolbar.sep1 -orient vertical -background $bgcolor ]
    pack $sep1 -side left -fill y -padx 5 -anchor w


    # VECTOR LAYERS
    set bbox2 [ButtonBox $toolbar.bbox2 -spacing 0 ]

    # add vector
    $bbox2 add -image [image create photo -file "$iconpath/element-vector.gif"] \
        -command "GmTree::add vector" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add vector layer"]

    # add thematic
    $bbox2 add -image [image create photo -file "$iconpath/module-d.vect.thematic.gif"] \
        -command "GmTree::add thematic" \
        -highlightthickness 0 -activebackground $bgcolor -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor \
        -helptext [G_msg "Add thematic map layer"]

    pack $bbox2 -side left -anchor w

    # add chart
    $bbox2 add -image [image create photo -file "$iconpath/module-d.vect.chart.gif"] \
        -command "GmTree::add chart" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add thematic charts layer"]

    set sep2 [Separator $toolbar.sep2 -orient vertical -background $bgcolor ]
    pack $sep2 -side left -fill y -padx 5 -anchor w

    # Text Layers
    set bbox3 [ButtonBox $toolbar.bbox3 -spacing 0 ]

    # add raster labels
    $bbox3 add -image [image create photo -file "$iconpath/module-d.labels.gif"] \
        -command "GmTree::add labels" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add raster labels layer (using v.labels file)"]

    # add text
    $bbox3 add -image [image create photo -file "$iconpath/module-d.text.gif"] \
        -command "GmTree::add dtext" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add text layer"]

    # add TclTk labels
    $bbox3 add -image [image create photo -file "$iconpath/gui-maplabels.gif"] \
        -command "GmTree::add clabels" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add postscript labels layer (using v.labels file)"]

    # add postscript text
    $bbox3 add -image [image create photo -file "$iconpath/gui-maptext.gif"] \
        -command "GmTree::add ctext" \
        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1  \
        -highlightbackground $bgcolor -activebackground $bgcolor \
        -helptext [G_msg "Add postscript text layer"]

    pack $bbox3 -side left -anchor w

}

APT Browse - Built by Thomas Orozco.