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"