Maximized Free Oberon windows stay maximized on resize

src/FreeOberon.Mod

@@ -70,6 +70,8 @@ VAR
   terminalNeedRedraw: BOOLEAN; (* Used when a compiled program is running *)
   terminalMouseShown: BOOLEAN; (* Same *)
 
+  lastW, lastH: INTEGER; (* Last screen size *)
+
 (* Language Dialog *)
 
 PROCEDURE LanguageButtonClick*(c: OV.Control);
@@ -695,12 +697,27 @@ BEGIN
   END
 END EditCutClipboard;
 
+PROCEDURE OnResize(w, h: INTEGER);
+VAR o, br: OV.Window;
+BEGIN
+  o := app.windows; br := o;
+  REPEAT
+    IF (o.w = lastW) & (o.h = lastH - 2) & (o.x = 0) & (o.y = 1) THEN
+      o.x := 0; o.y := 1; o.w := w; o.h := h - 2
+    END;
+    o := o.next(OV.Window)
+  UNTIL o = br;
+  lastW := w; lastH := h
+END OnResize;
+
 PROCEDURE InitIDE;
 VAR w: OV.Window;
   m, m2: OV.Menu;
   s, q: FoStrings.String;
 BEGIN
   app := OV.NewApp();
+  T.Size(lastW, lastH);
+  OV.SetOnResize(app, OnResize);
   FileNew(app.menu);
 
   FoStrings.Get('menuFile', s);

src/Graph.Mod

@@ -464,7 +464,7 @@ BEGIN scaled := FALSE;
       IF wasTarget THEN Target(NIL) END
     ELSE opt := {Al.convertBitmap};
       IF smooth IN W.options THEN
-      	opt := opt + {Al.minLinear, Al.magLinear}
+        opt := opt + {Al.minLinear, Al.magLinear}
       END;
       Al.set_new_bitmap_flags(opt);
       W.bmp := Al.create_bitmap(w, h);
@@ -932,6 +932,8 @@ BEGIN isCurTarget := target = W;
     W.winW := Al.get_display_width(W.display);
     W.winH := Al.get_display_height(W.display);
     W.w := w; W.h := h;
+    ApplySizeStep(W, w, h);
+    W.lastW := W.w; W.lastH := W.h;
     ResetWindowBitmap(W);
     Al.register_event_source(queue, Al.get_display_event_source(W.display));
     IF isCurTarget THEN Target(W) END;

src/OV.Mod

@@ -681,6 +681,7 @@ TYPE
     cur*: Control;
     dragged*: Control;
     dragX*, dragY*: INTEGER;
+    onResize: PROCEDURE (w, h: INTEGER);
     lastMouseDownTime*: INTEGER;
     quit*: BOOLEAN;
     needRedraw*: BOOLEAN;
@@ -2279,6 +2280,7 @@ BEGIN app.windows := NIL;
   app.statusbar := NewMenu('ROOT', '', 0, NIL); app.statusbar.app := app;
   app.statusText[0] := 0X;
   app.dragged := NIL; app.dragX := 0; app.dragY := 0;
+  app.onResize := NIL;
   app.cur := NIL;
   app.lastMouseDownTime := 0;
   app.quit := FALSE;
@@ -2292,6 +2294,10 @@ VAR a: App;
 BEGIN NEW(a); InitApp(a); RETURN a
 END NewApp;
 
+PROCEDURE SetOnResize*(a: App; p: PROCEDURE (w, h: INTEGER));
+BEGIN a.onResize := p
+END SetOnResize;
+
 PROCEDURE RefreshAppMenu*(menu: Menu);
 VAR p, br: Control;
   x, y: INTEGER;
@@ -2506,7 +2512,8 @@ END OnMouse;
 
 PROCEDURE OnResize(app: App; E: T.Event);
 BEGIN
-  app.needRedraw := TRUE
+  app.needRedraw := TRUE;
+  IF app.onResize # NIL THEN app.onResize(E.w, E.h) END
 END OnResize;
 
 PROCEDURE RunApp*(app: App);