← Back to branch summary

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

« back to all changes in this revision

Viewing changes to visualization/nviz/scripts/panel_main.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/panel_main.tcl
83
83
 
84
84
        #  Initialize panel info
85
85
        if [catch {set Nv_($BASE)}] {
86
 
                set panel [St_create {window name size priority} $BASE "Main" 1 10]
 
86
                set panel [St_create {window name size priority} $BASE [G_msg "Main"] 1 10]
87
87
        } else {
88
88
                set panel $Nv_($BASE)
89
89
        }
101
101
        pack [frame $BASE.redrawf.f11 -relief flat -bd 0] -side top -fill x -expand 1
102
102
 
103
103
        #Execute buttons
104
 
        set drawbtn [button $BASE.redrawf.f2.exec -text DRAW -bd 1 -fg "darkgreen"]
 
104
        set drawbtn [button $BASE.redrawf.f2.exec -text [G_msg "DRAW"] -bd 1 -fg "darkgreen"]
105
105
        bind $drawbtn <1> "Nset_cancel 0"
106
106
        bind $drawbtn <B1-ButtonRelease> {Ndraw_all}
107
 
        help $drawbtn balloon "Draw selected features"
108
 
 
109
 
        set clearbtn [button $BASE.redrawf.f2.clear -text Clear  -bd 1 -command {do_clear}]
110
 
        help $clearbtn balloon "Clear NVIZ display"
111
 
 
112
 
        set cancelbtn [button $BASE.redrawf.f2.cancel -text Cancel -bd 1 -command {Nset_cancel 1}]
113
 
        help $cancelbtn balloon "Cancel current draw"
 
107
        help $drawbtn balloon [G_msg "Draw selected features"]
 
108
 
 
109
        set clearbtn [button $BASE.redrawf.f2.clear -text [G_msg "Clear"]        -bd 1 -command {do_clear}]
 
110
        help $clearbtn balloon [G_msg "Clear NVIZ display"]
 
111
 
 
112
        set cancelbtn [button $BASE.redrawf.f2.cancel -text [G_msg "Cancel"] -bd 1 -command {Nset_cancel 1}]
 
113
        help $cancelbtn balloon [G_msg "Cancel current draw"]
114
114
 
115
115
        pack $drawbtn  $clearbtn $cancelbtn \
116
116
                -side left -expand 1 -fill x
117
117
 
118
118
        # Auto check boxes
119
 
        set labl1 [label $BASE.redrawf.f1.label1 -text "Automatically render display:" -anchor w]
 
119
        set labl1 [label $BASE.redrawf.f1.label1 -text [G_msg "Automatically render display:"] -anchor w]
120
120
        set auto_d [checkbutton $BASE.redrawf.f1.autodraw \
121
121
                -onvalue 1 -offvalue 0 -variable Nauto_draw \
122
122
                -justify left  -anchor center -padx 5]
123
 
        help $BASE.redrawf.f1.autodraw balloon "Automatically render display after changing parameters"
 
123
        help $BASE.redrawf.f1.autodraw balloon [G_msg "Automatically render display after changing parameters"]
124
124
        $auto_d select
125
125
        pack $labl1 $auto_d -side left -expand 0 -fill x -pady 3
126
126
        
127
127
        #checkbuttons for features to draw
128
 
        set labl2 [label $BASE.redrawf.f11.label1 -text "Show features:" -anchor w]
 
128
        set labl2 [label $BASE.redrawf.f11.label1 -text [G_msg "Show features:"] -anchor w]
129
129
 
130
130
        menubutton $BASE.redrawf.f11.m1 -menu $BASE.redrawf.f11.m1.m \
131
 
                -text "Main features..." -underline 0 -justify left \
 
131
                -text [G_msg "Main features..."] -underline 0 -justify left \
132
132
                -indicator on -anchor center -relief raised -bd 1
133
133
        #help $BASE.redrawf.f11.m1 balloon "Select main draw features"
134
134
 
135
135
        menubutton $BASE.redrawf.f11.m2 -menu $BASE.redrawf.f11.m2.m \
136
 
                -text "Decorations..." -underline 0      -justify left \
 
136
                -text [G_msg "Decorations..."] -underline 0      -justify left \
137
137
                -indicator on -anchor center -relief raised -bd 1
138
138
        #help $BASE.redrawf.f11.m2 balloon "Select misc. draw features"
139
139
 
140
140
        menu $BASE.redrawf.f11.m1.m
141
141
 
142
 
        $BASE.redrawf.f11.m1.m add checkbutton -label "Surface" \
 
142
        $BASE.redrawf.f11.m1.m add checkbutton -label [G_msg "Surface"] \
143
143
                 -onvalue 1 -offvalue 0 -variable surface
144
144
 
145
 
        $BASE.redrawf.f11.m1.m add checkbutton -label "Vectors" \
 
145
        $BASE.redrawf.f11.m1.m add checkbutton -label [G_msg "Vectors"] \
146
146
                 -onvalue 1 -offvalue 0 -variable vector
147
147
 
148
 
        $BASE.redrawf.f11.m1.m add checkbutton -label "Sites" \
 
148
        $BASE.redrawf.f11.m1.m add checkbutton -label [G_msg "Sites"] \
149
149
                 -onvalue 1 -offvalue 0 -variable sites
150
150
 
151
 
        $BASE.redrawf.f11.m1.m add checkbutton -label "Volumes" \
 
151
        $BASE.redrawf.f11.m1.m add checkbutton -label [G_msg "Volumes"] \
152
152
                 -onvalue 1 -offvalue 0 -variable volume
153
153
 
154
154
        menu $BASE.redrawf.f11.m2.m
155
155
 
156
 
        $BASE.redrawf.f11.m2.m add checkbutton -label "Legend" \
 
156
        $BASE.redrawf.f11.m2.m add checkbutton -label [G_msg "Legend"] \
157
157
                 -onvalue 1 -offvalue 0 -variable legend
158
 
        $BASE.redrawf.f11.m2.m add checkbutton -label "Labels" \
 
158
        $BASE.redrawf.f11.m2.m add checkbutton -label [G_msg "Labels"] \
159
159
                 -onvalue 1 -offvalue 0 -variable labels
160
 
        $BASE.redrawf.f11.m2.m add checkbutton -label "North Arrow" \
 
160
        $BASE.redrawf.f11.m2.m add checkbutton -label [G_msg "North Arrow"] \
161
161
                 -onvalue 1 -offvalue 0 -variable n_arrow
162
 
        $BASE.redrawf.f11.m2.m add checkbutton -label "Scale Bar" \
 
162
        $BASE.redrawf.f11.m2.m add checkbutton -label [G_msg "Scale Bar"] \
163
163
                 -onvalue 1 -offvalue 0 -variable scalebar
164
 
        $BASE.redrawf.f11.m2.m add checkbutton -label "Fringe" \
 
164
        $BASE.redrawf.f11.m2.m add checkbutton -label [G_msg "Fringe"] \
165
165
                 -onvalue 1 -offvalue 0 -variable fringe
166
166
 
167
167
        pack $labl2      $BASE.redrawf.f11.m1 $BASE.redrawf.f11.m2 -side left \
172
172
        pack [frame $BASE.midf -relief flat -bd 0] -side left -expand 1 -padx 5
173
173
 
174
174
        # set view method radiobuttons
175
 
        set draw_lab [label $BASE.midt.lablev1 -text "View method:" -anchor w]
 
175
        set draw_lab [label $BASE.midt.lablev1 -text [G_msg "View method:"] -anchor w]
176
176
 
177
 
        set draw_var1 [radiobutton $BASE.midt.b1 -text "eye" \
 
177
        set draw_var1 [radiobutton $BASE.midt.b1 -text [G_msg "eye"] \
178
178
                -variable draw_option -value 0 -width 8 \
179
179
                -command "change_display 1" ]
180
180
 
181
 
        set draw_var2 [radiobutton $BASE.midt.b2 -text "center" \
 
181
        set draw_var2 [radiobutton $BASE.midt.b2 -text [G_msg "center"] \
182
182
                -variable draw_option -value 1 -width 8 \
183
183
                -command "change_display 0" ]
184
184
        $draw_var1 select
185
185
 
186
 
        help $BASE.midt.b1 balloon "Change view by moving eye position"
187
 
        help $BASE.midt.b2 balloon "Change view by moving scene center position"
 
186
        help $BASE.midt.b1 balloon [G_msg "Change view by moving eye position"]
 
187
        help $BASE.midt.b2 balloon [G_msg "Change view by moving scene center position"]
188
188
 
189
189
 
190
190
        if {$Nv_(FlyThrough)} {
193
193
                # original code
194
194
                pack $draw_lab $draw_var1 $draw_var2 -side left -expand 0
195
195
        }
196
 
        help $BASE.midt.b3 balloon "Change view using mouse to control fly-through"
 
196
        help $BASE.midt.b3 balloon [G_msg "Change view using mouse to control fly-through"]
197
197
 
198
198
        # make  position "widget"
199
199
        set XY [Nv_mkXYScale $BASE.midf.pos puck XY_POS 125 125 105 105 update_eye_position]
202
202
        set H [mk_hgt_slider $BASE.midf]
203
203
        set E [mk_exag_slider $BASE.midf]
204
204
        
205
 
        help $E.scale balloon "Set vertical exaggeration"
206
 
        help $E.entry balloon "Set vertical exaggeration"
207
 
        help $H.scale balloon "Set eye height"
208
 
        help $H.entry balloon "Set eye height"
 
205
        help $E.scale balloon [G_msg "Set vertical exaggeration"]
 
206
        help $E.entry balloon [G_msg "Set vertical exaggeration"]
 
207
        help $H.scale balloon [G_msg "Set eye height"]
 
208
        help $H.entry balloon [G_msg "Set eye height"]
209
209
        
210
210
        # make lookat buttons
211
211
        frame $BASE.midf.lookat -relief flat -borderwidth 0
212
212
 
213
 
        Label $BASE.midf.lookat.l -text "Look"
214
 
        Button $BASE.midf.lookat.here -text "here" -bd 1 \
215
 
                -helptext "Center view at point marked with mouse click" \
 
213
        Label $BASE.midf.lookat.l -text [G_msg "Look"]
 
214
        Button $BASE.midf.lookat.here -text [G_msg "here"] -bd 1 \
 
215
                -helptext [G_msg "Center view at point marked with mouse click"] \
216
216
                -command {bind $Nv_(TOP).canvas <Button> {look_here %W %x %y
217
217
                if {$Nauto_draw == 1} {Ndraw_all}
218
218
                }}
219
219
                
220
 
        Button $BASE.midf.lookat.center -text "center" -bd 1 \
221
 
                -helptext "Center view at center of displayed surface" \
 
220
        Button $BASE.midf.lookat.center -text [G_msg "center"] -bd 1 \
 
221
                -helptext [G_msg "Center view at center of displayed surface"] \
222
222
                -command { look_center
223
223
                        if {$Nauto_draw == 1} {Ndraw_all} 
224
224
                        }
225
 
        Button $BASE.midf.lookat.top -text "top" -bd 1 \
226
 
                -helptext "View directly from above" \
 
225
        Button $BASE.midf.lookat.top -text [G_msg "top"] -bd 1 \
 
226
                -helptext [G_msg "View directly from above"] \
227
227
                -command {
228
228
                        # Nv_itemDrag $Nv_(main_BASE).midf.pos $Nv_(XY_POS) 62.5 62.5
229
229
                        # note: below value is somewhat strange, but with 0.5 0.5 the map rotates:
246
246
        set P [Nv_mkScale $BASE.bframe.cframe.pers h perspective 120 3 40 Nchange_persp 0]
247
247
        set T [Nv_mkScale $BASE.bframe.cframe.tw h twist -180 180 0 Nchange_twist 0]
248
248
 
249
 
        help $BASE.bframe.cframe.pers balloon "Set field of view size (degrees)"
250
 
        help $BASE.bframe.cframe.tw balloon "Set twist angle (degrees)"
 
249
        help $BASE.bframe.cframe.pers balloon [G_msg "Set field of view size (degrees)"]
 
250
        help $BASE.bframe.cframe.tw balloon [G_msg "Set twist angle (degrees)"]
251
251
 
252
252
        # reset button goes here so it can reference P
253
 
        Button $BASE.midf.lookat.reset -text "reset" \
 
253
        Button $BASE.midf.lookat.reset -text [G_msg "reset"] \
254
254
                -bd 1 -command "do_reset $XY $H $E $P $T" \
255
 
                -helptext "Reset view to default"
 
255
                -helptext [G_msg "Reset view to default"]
256
256
 
257
257
        pack $BASE.midf.lookat.l $BASE.midf.lookat.here \
258
258
                $BASE.midf.lookat.center $BASE.midf.lookat.top \
514
514
        
515
515
        if {$flag == 1} {
516
516
                #draw eye position
517
 
                inform "Set eye position"
 
517
                inform [G_msg "Set eye position"]
518
518
                set XY [Nv_mkXYScale $NAME puck XY_POS 125 125 105 105 update_eye_position]
519
519
                
520
520
        } elseif {$flag == 0} {
521
521
                #draw center position
522
 
                inform "Set center of view position"
 
522
                inform [G_msg "Set center of view position"]
523
523
                set XY [Nv_mkXYScale $NAME cross XY_POS 125 125 109 109 update_center_position]
524
524
        }
525
525