From: ian <ian>
Date: Mon, 14 Jul 2008 19:57:54 +0000 (+0000)
Subject: fullscreen on bessar
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=4364f94bc74235a79e2c58c3853a1cb3edafed22;p=trains.git

fullscreen on bessar
---

diff --git a/hostside/gui b/hostside/gui
index ae99e75..5097684 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -28,6 +28,13 @@ proc widgets-dgram {} {
     pack $w
 }
 
+proc widgets-fullscreen-nowm {} {
+    pack propagate . false
+    foreach wh {width height} {
+	. configure -$wh [winfo screen$wh .]
+    }
+}
+
 proc bgerror {emsg} {
     global errorCode errorInfo
     catch {
diff --git a/hostside/gui-bessar.config b/hostside/gui-bessar.config
index c84623a..e0872d7 100644
--- a/hostside/gui-bessar.config
+++ b/hostside/gui-bessar.config
@@ -1,2 +1,3 @@
+widgets-fullscreen-nowm
 bind-input 0003 04fc 05d8 0100 ebwikeb
 bind-input 0003 045e 0084 0111 wheelmouse "wheel mouse"