Fixed problem reported by Ed Greenberg about -g param not working.

simhacker · simhacker · commit 71419f5d9ad5 · 2009-02-28T16:14:38.000Z
diff --git a/micropolis-activity/res/micropolis.tcl b/micropolis-activity/res/micropolis.tcl
@@ -3108,7 +3108,7 @@ proc ShowSplashOf {head} {
 
 
 proc WithdrawSplashOf {head} {
-  set win WindowLink $head.splash]
+  set win [WindowLink $head.splash]
   if {$win != {}} {
     wm withdraw $win
   }

Original file line number	Diff line number	Diff line change
`@@ -3108,7 +3108,7 @@ proc ShowSplashOf {head} {`
`3108`	`3108`
`3109`	`3109`
`3110`	`3110`	`proc WithdrawSplashOf {head} {`
`3111`		`- set win WindowLink $head.splash]`
	`3111`	`+ set win [WindowLink $head.splash]`
`3112`	`3112`	`if {$win != {}} {`
`3113`	`3113`	`wm withdraw $win`
`3114`	`3114`	`}`