From e555720e8e5157017ff6ae6e68a550a84b9a22db Mon Sep 17 00:00:00 2001
From: Michael Gernoth <michael@gernoth.net>
Date: Sat, 26 Jan 2008 14:13:36 +0100
Subject: [PATCH] Add "Pause" to Priority menu
---
res/micropolis.tcl | 5 ++++-
res/whead.tcl | 4 ++++
2 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index dc7d352..773ceb3 100644
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -97,6 +97,7 @@ set DemandCom 0
set DemandInd 0
set Priority 2
set Time 3
+set Pause 0
set AutoGoto 1
set AutoBudget 1
set Disasters 1
@@ -4917,12 +4918,14 @@ proc oops {} {
proc TogglePause {} {
- global State
+ global State Pause
if {"$State" != "play" || [sim Speed]} {
sim Speed 0
+ set Pause 1
} else {
sim Speed 3
+ set Pause 0
}
MakeRunningSound
}
diff --git a/res/whead.tcl b/res/whead.tcl
index e782f90..5432324 100644
--- a/res/whead.tcl
+++ b/res/whead.tcl
@@ -324,6 +324,10 @@ bind $win.col1.w1.f1.priority.m <Alt-Key> {tk_traverseToMenu %W %A}
-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
--
2.39.5