← Back to branch summary

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

« back to all changes in this revision

Viewing changes to visualization/nviz/scripts/panel_fringe.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_fringe.tcl
40
40
        global fringe_nw fringe_ne fringe_sw fringe_se
41
41
        global fringe_color fringe_elev
42
42
 
43
 
    set panel [St_create {window name size priority} $BASE "Fringe" 2 5]
 
43
    set panel [St_create {window name size priority} $BASE [G_msg "Fringe"] 2 5]
44
44
    frame $BASE -relief flat -borderwidth 0
45
 
    Nv_mkPanelname $BASE "Fringe Panel"
 
45
    Nv_mkPanelname $BASE [G_msg "Fringe Panel"]
46
46
 
47
47
    set rbase1 [frame $BASE.edges]
48
 
    Label $rbase1.lbl -text "Edges with fringe: " -fg black
 
48
    Label $rbase1.lbl -text [G_msg "Edges with fringe: "] -fg black
49
49
    checkbutton $rbase1.nwc -width 0 \
50
50
        -variable fringe_nw -onvalue 1 -offvalue 0 \
51
 
        -text "N&W"
 
51
        -text [G_msg "N&W"]
52
52
    checkbutton $rbase1.nec -width 0 \
53
53
        -variable fringe_ne -onvalue 1 -offvalue 0 \
54
 
        -text "N&E"
 
54
        -text [G_msg "N&E"]
55
55
    checkbutton $rbase1.swc -width 0 \
56
56
        -variable fringe_sw -onvalue 1 -offvalue 0 \
57
 
        -text "S&W"
 
57
        -text [G_msg "S&W"]
58
58
    checkbutton $rbase1.sec -width 0 \
59
59
        -variable fringe_se -onvalue 1 -offvalue 0 \
60
 
        -text "S&E"
 
60
        -text [G_msg "S&E"]
61
61
    pack $rbase1.lbl $rbase1.nwc $rbase1.nec $rbase1.swc \
62
62
        $rbase1.sec -side left -expand yes -fill none -anchor w
63
63
    pack $rbase1 -side top -expand yes -fill both -padx 3 -pady 4
65
65
    set rbase2 [frame $BASE.color_elev]
66
66
    LabelEntry $rbase2.entry -width 8 -relief sunken \
67
67
                -entrybg white -textvariable fringe_elev \
68
 
                -label "Elevation of fringe bottom: "
69
 
    Button $rbase2.color -text "Color" \
 
68
                -label [G_msg "Elevation of fringe bottom: "]
 
69
    Button $rbase2.color -text [G_msg "Color"] \
70
70
                -bg "#aaaaaa" -width 8 -bd 1 \
71
71
                -command "change_fringe_color $rbase2.color" \
72
72
                -fg "#000000"
77
77
        pack $rbase2 -side top -expand yes -fill both -padx 3 -pady 4
78
78
 
79
79
    set rbase3 [frame $BASE.button]
80
 
    Button $rbase3.draw -text "Draw Fringe" -command "draw_fringe" -bd 1
 
80
    Button $rbase3.draw -text [G_msg "Draw Fringe"] -command "draw_fringe" -bd 1
81
81
    # close panel section
82
 
    button $rbase3.close -text "Close" -command "Nv_closePanel $BASE" \
 
82
    button $rbase3.close -text [G_msg "Close"] -command "Nv_closePanel $BASE" \
83
83
                -anchor se -bd 1
84
84
    pack $rbase3.draw -side left -expand yes -fill none -anchor w
85
85
    pack $rbase3.close -side right -fill none -expand yes -anchor e