← Back to branch summary

~ubuntu-branches/ubuntu/karmic/grass/karmic

« back to all changes in this revision

Viewing changes to gui/tcltk/gis.m/vector.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Francesco Paolo Lovergine
  • Date: 2009-07-13 13:34:03 UTC
  • mfrom: (3.1.15 karmic)
  • Revision ID: james.westby@ubuntu.com-20090713133403-0x81m7hb1q06zu13
Tags: 6.4.0~rc5-2
http://bugs.debian.org/503371
http://bugs.debian.org/533738
* Added a grass menu item (Hamish).
* Added a grass.menu.in template with related icon.
* Added a simple x-grass wrapper to allow running grass without a pre-running
  controlling terminal. At least it works within ordinary WMs launchers.
  (closes: #503371)
* Added newlocation.dpatch patch to manage correctly new locations.
  (closes: #533738)

Show diffs side-by-side

added added

removed removed

Lines of Context:
gui/tcltk/gis.m/vector.tcl
10
10
##########################################################################
11
11
 
12
12
namespace eval GmVector {
13
 
    variable array opt # vector current options
 
13
    variable array opt ;# vector current options
14
14
    variable count 1
15
 
    variable array lfile # vector
16
 
    variable array lfilemask # vector
 
15
    variable array lfile ;# vector
 
16
    variable array lfilemask ;# vector
17
17
    variable optlist
18
 
    variable array dup # vector
 
18
    variable array dup ;# vector
19
19
}
20
20
 
21
21
###############################################################################
25
25
   
26
26
    set lh $GmTree::legend_height
27
27
    set lw $GmTree::legend_width
28
 
    set mar 0
 
28
    set mar 2
29
29
    set leg $opt($id,1,_legend)
30
30
 
31
31
    $leg delete all
66
66
    }
67
67
 
68
68
    # point 
69
 
    set maxpsize  [expr {$lw / 3 - 2} ]
 
69
    set maxpsize  [expr {$lw / 2} ]
70
70
    set size $opt($id,1,size)
71
71
    if { $size > $maxpsize } { set size $maxpsize }
72
72
 
78
78
    set py2 [expr {$yc + $size / 2 } ]
79
79
 
80
80
    if { $opt($id,1,type_point) || $opt($id,1,type_centroid) } {
81
 
        set lwidth  $opt($id,1,lwidth)
82
 
        if { $lwidth == 0 } { set lwidth 1 }
 
81
        set lwidth  $opt($id,1,lwidth)
 
82
        if { $lwidth == 0 } { set lwidth 1 }
83
83
        $leg create line $px1 $yc $px2 $yc -fill $opt($id,1,color) -width $lwidth
84
 
        $leg create line $xc $py1 $xc $py2 -fill $opt($id,1,color) -width $lwidth
 
84
        $leg create line $xc $py1 $xc $py2 -fill $opt($id,1,color) -width $lwidth
85
85
    }
86
86
 
87
87
 
442
442
    set row [ frame $frm.label3 ]
443
443
    LabelEntry $row.a -label [G_msg "     Layer for labels"] \
444
444
                -textvariable GmVector::opt($id,1,lfield) -width 3 
445
 
    LabelEntry $row.b -label [G_msg "   Attribute col for labels"] \
 
445
    LabelEntry $row.b -label [G_msg "   Attribute column for labels"] \
446
446
                -textvariable GmVector::opt($id,1,attribute) -width 23
447
447
    pack $row.a $row.b -side left
448
448
    pack $row -side top -fill both -expand yes