]> git.zerfleddert.de Git - micropolis/commitdiff
Add "Pause" to Priority menu
authorMichael Gernoth <michael@gernoth.net>
Sat, 26 Jan 2008 13:13:36 +0000 (14:13 +0100)
committerMichael Gernoth <michael@gernoth.net>
Sat, 26 Jan 2008 13:13:36 +0000 (14:13 +0100)
res/micropolis.tcl
res/whead.tcl

index dc7d352e5123107f4c808ce54f2b265e99bac4d4..773ceb3024ee1b14a95430295abea95f6b21f5d2 100644 (file)
@@ -97,6 +97,7 @@ set DemandCom 0
 set DemandInd 0
 set Priority 2
 set Time 3
 set DemandInd 0
 set Priority 2
 set Time 3
+set Pause 0
 set AutoGoto 1
 set AutoBudget 1
 set Disasters 1
 set AutoGoto 1
 set AutoBudget 1
 set Disasters 1
@@ -4917,12 +4918,14 @@ proc oops {} {
 
 
 proc TogglePause {} {
 
 
 proc TogglePause {} {
-  global State
+  global State Pause
 
   if {"$State" != "play" || [sim Speed]} {
     sim Speed 0
 
   if {"$State" != "play" || [sim Speed]} {
     sim Speed 0
+    set Pause 1
   } else {
     sim Speed 3
   } else {
     sim Speed 3
+    set Pause 0
   }
   MakeRunningSound
 }
   }
   MakeRunningSound
 }
index e782f90130539da131150a62b1e507127f7a4918..5432324df52a1ec7becd98fd66f4cbd9cac89e80 100644 (file)
@@ -324,6 +324,10 @@ bind $win.col1.w1.f1.priority.m <Alt-Key> {tk_traverseToMenu %W %A}
     -command {SetPriority 0}\
     -value {0}\
     -variable Priority
     -command {SetPriority 0}\
     -value {0}\
     -variable Priority
+  $win.col1.w1.f1.priority.m add checkbutton\
+    -label {Pause}\
+    -command {TogglePause}\
+    -variable Pause
 
 SetHelp $win.col1.w1.f1.windows Head.WindowsMenu
 
 
 SetHelp $win.col1.w1.f1.windows Head.WindowsMenu
 
Impressum, Datenschutz