← Back to branch summary

~ubuntu-branches/ubuntu/precise/grass/precise

« back to all changes in this revision

Viewing changes to visualization/nviz/scripts/mapBrowser.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Francesco Paolo Lovergine
  • Date: 2011-04-13 17:08:41 UTC
  • mfrom: (8.1.7 sid)
  • Revision ID: james.westby@ubuntu.com-20110413170841-ss1t9bic0d0uq0gz
Tags: 6.4.1-1
* New upstream version.
* Now build-dep on libjpeg-dev and current libreadline6-dev.
* Removed patch swig: obsolete.
* Policy bumped to 3.9.2, without changes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
visualization/nviz/scripts/mapBrowser.tcl
138
138
    global nviztxtfont
139
139
 
140
140
    toplevel $w
141
 
    wm title $w "Map Browser"
 
141
    wm title $w [G_msg "Map Browser"]
142
142
    tkwait visibility $w
143
143
 
144
144
    #puts "BROWSER: $w TYPE: $type MODE: $mode"
147
147
    bind $w.filename <Return> "set_selection_from_map_browser_filename $w"
148
148
    frame $w.main
149
149
    frame     $w.main.mapsets
150
 
    label     $w.main.mapsets.label -text "MAPSETS"
 
150
    label     $w.main.mapsets.label -text [G_msg "MAPSETS"]
151
151
    frame     $w.main.mapsets.f
152
152
    listbox   $w.main.mapsets.f.list -bd 2 -relief sunken -bg white \
153
153
                -exportselection no \
165
165
                "map_browser_select_mapset  %W %y $w"
166
166
 
167
167
    frame     $w.main.files
168
 
    label     $w.main.files.label -text FILES
 
168
    label     $w.main.files.label -text [G_msg "FILES"]
169
169
    frame     $w.main.files.f
170
170
    listbox   $w.main.files.f.list -bd 2 -relief sunken -bg white \
171
171
                -exportselection no                   \
201
201
    }
202
202
 
203
203
    if [string compare $type all] {
204
 
                Label $w.element.menu -text "Map type:" -fg black -font $nviztxtfont
 
204
                Label $w.element.menu -text [G_msg "Map type:"] -fg black -font $nviztxtfont
205
205
    } else {
206
206
                set name ""
207
 
                menubutton $w.element.menu -text {Map Type} -menu $w.element.menu.m -relief raised -bd 1
 
207
                menubutton $w.element.menu -text [G_msg "Map Type"] -menu $w.element.menu.m -relief raised -bd 1
208
208
                menu $w.element.menu.m
209
209
                $w.element.menu.m add command \
210
 
                        -label {Raster} -command "set_map_browser_element  $w Raster"
211
 
                $w.element.menu.m add command \
212
 
                        -label {Vector} -command "set_map_browser_element  $w Vector"
213
 
                $w.element.menu.m add command \
214
 
                        -label {Site} -command "set_map_browser_element  $w Site"
215
 
                $w.element.menu.m add command \
216
 
                        -label {Surf} -command "set_map_browser_element $w Surf"
217
 
                $w.element.menu.m add command \
218
 
                        -label {3d.view} -command "set_map_browser_element $w 3d.view"
219
 
                $w.element.menu.m add command \
220
 
                        -label {Regions} -command "set_map_browser_element  $w windows"
221
 
                $w.element.menu.m add command \
222
 
                        -label {Labels} -command "set_map_browser_element  $w\
 
210
                        -label [G_msg "Raster"] -command "set_map_browser_element  $w Raster"
 
211
                $w.element.menu.m add command \
 
212
                        -label [G_msg "Vector"] -command "set_map_browser_element  $w Vector"
 
213
                $w.element.menu.m add command \
 
214
                        -label [G_msg "Site"] -command "set_map_browser_element  $w Site"
 
215
                $w.element.menu.m add command \
 
216
                        -label [G_msg "Surf"] -command "set_map_browser_element $w Surf"
 
217
                $w.element.menu.m add command \
 
218
                        -label [G_msg "3d.view"] -command "set_map_browser_element $w 3d.view"
 
219
                $w.element.menu.m add command \
 
220
                        -label [G_msg "Regions"] -command "set_map_browser_element  $w windows"
 
221
                $w.element.menu.m add command \
 
222
                        -label [G_msg "Labels"] -command "set_map_browser_element  $w\
223
223
                                paint/labels"
224
224
            $w.element.menu.m add command \
225
 
                -label {Icons} -command "set_map_browser_element  $w icons"
 
225
                -label [G_msg "Icons"] -command "set_map_browser_element  $w icons"
226
226
    }
227
 
    button $w.accept -text "Accept" -command "mapBrowser_accept_cmd $w" -bd 1 \
 
227
    button $w.accept -text [G_msg "Accept"] -command "mapBrowser_accept_cmd $w" -bd 1 \
228
228
        -default active
229
 
    button $w.cancel -text "Cancel" -command "mapBrowser_cancel_cmd $w" -bd 1
 
229
    button $w.cancel -text [G_msg "Cancel"] -command "mapBrowser_cancel_cmd $w" -bd 1
230
230
        
231
231
        bind $w <Return> "mapBrowser_accept_cmd $w"
232
232