X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/2d56c40cb9008f8a235bf1dfec4bc2ca98ee7406..e555720e8e5157017ff6ae6e68a550a84b9a22db:/res/whead.tcl

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