colour-fixes.diff

diff --git a/lib/cnet.tcl b/lib/cnet.tcl
index 77f3da1..3adf62c 100644
--- a/lib/cnet.tcl
+++ b/lib/cnet.tcl
@@ -129,7 +129,7 @@ proc initworld {topology bg mapx mapy gflag maxspeed procs
 	-background $framebg \
 	-activebackground $canvasbg
 
-    set m [menu .cnet.mb.cnet  -background $framebg -tearoff 0]
+    set m [menu .cnet.mb.cnet -tearoff 0]
     $m add command -label "$gflag" \
 	    -command "[lindex $procs 1] run" \
 	    -accelerator "space"
@@ -145,7 +145,7 @@ proc initworld {topology bg mapx mapy gflag maxspeed procs
 	    -accelerator "$modifier-q"
     .cnet.mb add cascade -menu $m -label "Run"
 
-    set m [menu .cnet.mb.setspeed  -background $framebg -tearoff 0]
+    set m [menu .cnet.mb.setspeed -tearoff 0]
     $m add radio -label "tortoise"	-command "scheduler_speed 1"
     $m add radio -label "1/8"		-command "scheduler_speed 2"
     $m add radio -label "1/4"		-command "scheduler_speed 3"
@@ -162,7 +162,7 @@ proc initworld {topology bg mapx mapy gflag maxspeed procs
     }
     .cnet.mb add cascade -menu .cnet.mb.setspeed -label "Run-speed"
 
-    set m [menu .cnet.mb.setupdate  -background $framebg -tearoff 0]
+    set m [menu .cnet.mb.setupdate  -tearoff 0]
     $m add radio -label "100usec" 	-command "update_speed 100u"
     $m add radio -label "1msec" 	-command "update_speed 1ms"
     $m add radio -label "100msec" 	-command "update_speed 100ms"
@@ -173,7 +173,7 @@ proc initworld {topology bg mapx mapy gflag maxspeed procs
 
     .cnet.mb add cascade -menu .cnet.mb.setupdate -label "Update-freq"
 
-    set m [menu .cnet.mb.subwindows  -background $framebg -tearoff 0]
+    set m [menu .cnet.mb.subwindows  -tearoff 0]
     $m add command -label "events" \
 		-command "toggleEvents $topology $nevents" \
 		-accelerator "e"