[GRASS-SVN] r43844 - grass/branches/releasebranch_6_4/visualization/nviz/scripts

[svn_grass at osgeo.org]

Author: hamish
Date: 2010-10-09 17:09:34 -0700 (Sat, 09 Oct 2010)
New Revision: 43844

Modified:
   grass/branches/releasebranch_6_4/visualization/nviz/scripts/config.tcl
   grass/branches/releasebranch_6_4/visualization/nviz/scripts/widgets.tcl
Log:
desert color scheme (merge from devbr6)

Modified: grass/branches/releasebranch_6_4/visualization/nviz/scripts/config.tcl
===================================================================
--- grass/branches/releasebranch_6_4/visualization/nviz/scripts/config.tcl	2010-10-09 23:53:12 UTC (rev 43843)
+++ grass/branches/releasebranch_6_4/visualization/nviz/scripts/config.tcl	2010-10-10 00:09:34 UTC (rev 43844)
@@ -83,7 +83,7 @@
 option add *font -*-helvetica-medium-r-normal-*-12-*-iso8859-1 widgetDefault
 option add *Label.font -*-helvetica-bold-r-normal-*-12-*-iso8859-1
 option add *label.font -*-helvetica-medium-r-normal-*-12-*-iso8859-1
-option add *Label.foreground "medium blue"
+option add *Label.foreground "khaki4"
 option add *label.foreground "black"
 option add *Radiobutton.relief flat
 option add *Checkbutton.relief flat
@@ -106,6 +106,3 @@
 option add *menubutton.borderwidth 1
 option add *button.borderWidth 1
 
-
-
-

Modified: grass/branches/releasebranch_6_4/visualization/nviz/scripts/widgets.tcl
===================================================================
--- grass/branches/releasebranch_6_4/visualization/nviz/scripts/widgets.tcl	2010-10-09 23:53:12 UTC (rev 43843)
+++ grass/branches/releasebranch_6_4/visualization/nviz/scripts/widgets.tcl	2010-10-10 00:09:34 UTC (rev 43844)
@@ -29,7 +29,7 @@
 	set y [$c canvasy $y]
 	if { $item == "puck"} {
 	$c delete line
-	$c create line $x $y [expr $w/2] [expr $h/2] -fill green3 -arrow last -tags line
+	$c create line $x $y [expr $w/2] [expr $h/2] -fill gray70 -arrow last -tags line
 	}
 	$c move $item [expr $x-$lastx] [expr $y-$lasty]
 	St_set $info lastx $x
@@ -72,14 +72,14 @@
 		$C create text [expr $width/2] 2 -text N -fill black -anchor n
 		$C create text [expr $width/2] $height -text S -fill black -anchor s
 		$C create line $x $y [expr $width/2] [expr $height/2] -tags line \
-		   -fill green3 -arrow last
-		$C create oval $x1 $y1 $x2 $y2 -width 1 -outline green3 -fill green3 \
+		   -fill gray70 -arrow last
+		$C create oval $x1 $y1 $x2 $y2 -width 1 -outline gray70 -fill LightGoldenrod \
 			-tags puck
 	} else {
 		$C create line [expr 0 -$width] $x [expr 2 * $width] $x \
-			-width 1 -tags cross -fill green3
+			-width 1 -tags cross -fill gray70
 		$C create line $y [expr 0 - $height] $y [expr 2*$height] \
-			-width 1 -tags cross -fill green3
+			-width 1 -tags cross -fill gray70
 	}
 	if {[string compare $name null] == 0} {set name $C.item}
 	set Nv_($name) [St_create {item lastx lasty width height} $type $x $y $width $height]