X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/a0e770d2a006aa9d6c2703960c68fb607a378039..753d72ecb98f0d5f0543851fda4d246b4cc97ce9:/res/wmap.tcl?ds=inline

diff --git a/res/wmap.tcl b/res/wmap.tcl
index b497c35..f6504f0 100644
--- a/res/wmap.tcl
+++ b/res/wmap.tcl
@@ -232,6 +232,30 @@ bind $win.topframe.overlays.m <Alt-Key> {tk_traverseToMenu %W %A}
     -value 13\
     -command "SetMapState $win 13"
 
+button $win.topframe.hide\
+  -text {Hide Map}\
+  -font [Font $win Medium]\
+  -borderwidth 1\
+  -command "HideMap $win" \
+  -relief flat
+LinkWindow $win.hide $win.topframe.hide
+tk_bindForTraversal $win.topframe.hide
+
+proc HideMap {win} {
+  pack unpack $win.centerframe
+  $win.topframe.hide configure \
+    -text {Show Map}\
+    -command "ShowMap $win"
+}
+
+proc ShowMap {win} {
+  pack append $win\
+    $win.centerframe		{top frame center fill}
+  $win.topframe.hide configure \
+    -text {Hide Map}\
+    -command "HideMap $win"
+}
+
 label $win.topframe.legend\
   -bitmap "@images/legendn.xpm" \
   -font [Font $win Medium]
@@ -240,6 +264,7 @@ LinkWindow $win.legend $win.topframe.legend
 pack append $win.topframe\
   $win.topframe.zones		{left frame nw} \
   $win.topframe.overlays	{left frame nw} \
+  $win.topframe.hide		{left frame nw} \
   $win.topframe.legend		{right frame ne}
 
 pack append $win\