[GRASS-SVN] r33799 - grass/branches/develbranch_6/gui/tcltk/gis.m

[svn_grass at osgeo.org]

Author: cmbarton
Date: 2008-10-09 23:55:10 -0400 (Thu, 09 Oct 2008)
New Revision: 33799

Modified:
   grass/branches/develbranch_6/gui/tcltk/gis.m/runandoutput.tcl
Log:
Cosmetic fix to gronsole buttons for better appearance in Mac aqua TclTk

Modified: grass/branches/develbranch_6/gui/tcltk/gis.m/runandoutput.tcl
===================================================================
--- grass/branches/develbranch_6/gui/tcltk/gis.m/runandoutput.tcl	2008-10-10 01:30:00 UTC (rev 33798)
+++ grass/branches/develbranch_6/gui/tcltk/gis.m/runandoutput.tcl	2008-10-10 03:55:10 UTC (rev 33799)
@@ -113,22 +113,26 @@
 	set gronsole [Gronsole $where.gronsole -clickcmd "gronsole_history $cmdwin.text"]
 	set cmdtext [text $cmdwin.text -height 2 -width 80] 
 	$cmdwin setwidget $cmdtext
-	set runbutton [button $cmdpane.run -text [G_msg "Run"] -width 14 -wraplength 90 -default active -bd 1 \
+	set runbutton [button $cmdpane.run -text [G_msg "Run"] -width 17 -wraplength 100 -default active -bd 1 \
+		-highlightbackground $bgcolor \
 		-command "run_disabled $gronsole $cmdpane.run \[string trim \[$cmdtext get 1.0 end\]\]"]
-	set run2button [button $cmdpane.run2 -text [G_msg "Run (background)"] -width 14 -wraplength 90 -bd 1 \
+	set run2button [button $cmdpane.run2 -text [G_msg "Run (background)"] -width 17 -wraplength 100 -bd 1 \
+		-highlightbackground $bgcolor \
 		-command "$gronsole run \[string trim \[$cmdtext get 1.0 end\]\] {} {}"]
-	set runuibutton [button $cmdpane.runui -text [G_msg "Run (GUI)"] -width 14 -wraplength 90 -bd 1 \
+	set runuibutton [button $cmdpane.runui -text [G_msg "Run (GUI)"] -width 17 -wraplength 100 -bd 1 \
+		-highlightbackground $bgcolor \
 		-command "run_ui \[string trim \[$cmdtext get 1.0 end\]\]"]
-	set runxterm [button $cmdpane.xterm -text [G_msg "Run (in Xterm)"] -width 14 -wraplength 90 -bd 1 \
+	set runxterm [button $cmdpane.xterm -text [G_msg "Run (in Xterm)"] -width 17 -wraplength 100 -bd 1 \
+		-highlightbackground $bgcolor \
 		-command "$gronsole run_xterm \[string trim \[$cmdtext get 1.0 end\]\] {}"]
 	set outpane [frame $where.output -bg $bgcolor]
 	set savebutton [button $outpane.save -text [G_msg "Save"] -command "$gronsole save" \
-		-bd 1 -padx 10]
+		-bd 1 -padx 10 -highlightbackground $bgcolor]
 	set clearbutton [button $outpane.clear -text [G_msg "Clear"] -command "$gronsole clear" \
-		-bd 1 -padx 10]
+		-bd 1 -padx 10 -highlightbackground $bgcolor]
 
 	pack $runbutton $run2button $runuibutton $runxterm \
-		-side left -expand yes -padx 5 -pady 5
+		-side left -expand yes -padx 2 -pady 5
 	pack $savebutton $clearbutton \
 		-side left -expand yes -padx 5 -pady 5