Date: Mon, 23 Oct 2006 11:47:34 +0100
From: Alex Bond <AlexBond@quintessa.org>
Subject: [GRASS-user] Thematic Vector Problem 6.2RC2
To: grassuser@grass.itc.it
Message-ID: <453C9DC6.9060009@quintessa.org>
Content-Type: text/plain; charset=ISO-8859-1; format=flowedHi,
I'm having problems with using thematic maps in Grass 6.2RC2. If I try
to display *any* vector thematically (including the spearfish dataset),
then I get the following error:can't read "lineht": no such variable
can't read "lineht": no such variable
while executing
"expr {$lineht * 2}"
(procedure "GmThematic::tleg_item" line 19)
invoked from within
"GmThematic::tleg_item $mon $id"
(procedure "GmThematic::display" line 73)
invoked from within
"GmThematic::display $node $mod"
("thematic" arm line 2)
invoked from within
"switch $type {
group {
GmGroup::display $node $mod
}
raster {
GmRaster::display $node $mod
}
labels {
GmLabels::disp..."
(procedure "GmTree::display_node" line 7)
invoked from within
"GmTree::display_node $n $mod"
(procedure "GmGroup::display" line 22)
invoked from within
"GmGroup::display "root" $mod"
(procedure "MapCanvas::runprograms" line 63)
invoked from within
"MapCanvas::runprograms $mon [expr {$mymodified != 0}]"
(procedure "MapCanvas::drawmap" line 38)
invoked from within
"MapCanvas::drawmap $mon"
(procedure "MapCanvas::display_server" line 9)
invoked from within
"MapCanvas::display_server"
("after" script)Anybody got any ideas or workarounds? I think this may have already
been posted under grass 6.3 development - apologies if this is a
mis-posting, but I could really use a quick fix!
This is fixed in RC3 which was just released, but if you need to do it
locally, the fix is in grass/etc/gm/thematic.tcl:
Index: thematic.tcl
RCS file: /grassrepository/grass6/gui/tcltk/gis.m/thematic.tcl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- thematic.tcl 21 Oct 2006 12:03:13 -0000 1.21
+++ thematic.tcl 21 Oct 2006 19:28:53 -0000 1.22
@@ -82,9 +82,10 @@
set opt($count,1,math) 0
set opt($count,1,psmap) ""
set opt($count,1,border) 1
- set opt($count,1,titlefont) introfont
- set opt($count,1,subtitlefont) bolddefault
- set opt($count,1,labelfont) default
+ # keep font names here to make sure that all fonts used are in proper
TclTk format
+ set opt($count,1,titlefont) "{times} 14 bold"
+ set opt($count,1,subtitlefont) "{times} 12 bold"
+ set opt($count,1,labelfont) "{times} 12"
set opt($count,1,tfontcolor) \#000000
set opt($count,1,lfontcolor) \#000000
set opt($count,1,mod) 1
Moritz