[Sumover-dev] [svn commit] r3990 - rat/trunk

[sumover-dev at cs.ucl.ac.uk]

Author: piers
Date: Tue Apr 17 19:20:32 2007
New Revision: 3990

Modified:
   rat/trunk/uicomponent_chart.tcl

Log:
Modified the chart to use -highlightbackground so that one sees colour on AquaTcl, and made the buttons slightly wider to one can read the text.


Modified: rat/trunk/uicomponent_chart.tcl
==============================================================================
--- rat/trunk/uicomponent_chart.tcl	(original)
+++ rat/trunk/uicomponent_chart.tcl	Tue Apr 17 19:20:32 2007
@@ -78,11 +78,11 @@
 		pack   .chart.c.f.$ssrc   -expand 1 -anchor n -fill x -side top
 		foreach s [pack slaves .chart.c.f] {
 			regsub {.chart.c.f.(.*)} $s {\1} s
-			button .chart.c.f.$s.f.$ssrc -width 4 -text "" -background white -padx 0 -pady 0 -command "mtrace $s $ssrc"
+			button .chart.c.f.$s.f.$ssrc -width 5 -text "" -background white -padx 0 -pady 0 -command "mtrace $s $ssrc"
 			pack   .chart.c.f.$s.f.$ssrc -expand 0 -side left
 			chart::popup_add .chart.c.f.$s.f.$ssrc $s $ssrc
 			if {![winfo exists .chart.c.f.$ssrc.f.$s]} {
-				button .chart.c.f.$ssrc.f.$s -width 4 -text "" -background white -padx 0 -pady 0 -command "mtrace $ssrc $s"
+				button .chart.c.f.$ssrc.f.$s -width 5 -text "" -background white -padx 0 -pady 0 -command "mtrace $ssrc $s"
 				pack   .chart.c.f.$ssrc.f.$s -expand 0 -side left
 				chart::popup_add .chart.c.f.$ssrc.f.$s $ssrc $s
 			}
@@ -119,7 +119,7 @@
 			set colour white
 			set txtval { }
 		}
-		.chart.c.f.$src.f.$dst configure -background $colour -text "$txtval"
+		.chart.c.f.$src.f.$dst configure -highlightbackground $colour -bg $colour -text "$txtval"
 	}
 
 	proc show {} {