fullscreen on bessar

diff --git a/hostside/gui b/hostside/gui
index ae99e756d9b86706938a196ee94b5033c4ca48f2..50976842275f41b3885a538981644487409606e6 100755 (executable)
--- 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 c84623a6120abb810e4f8106ac0b91976944860b..e0872d737f5f66370b8a2bf2d82b7d2a52f31f81 100644 (file)
--- 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"