SimpleGui: ScrollBox fix

Programs/Examples/Game/GameEngine.Mod

@@ -33,7 +33,7 @@ BEGIN
   map.w := w; map.h := h;
   FOR y := 0 TO h - 1 DO
     FOR x := 0 TO w - 1 DO
-      map.cells[y, x].kind := Random.Int(4)
+      map.cells[y, x].kind := 0 (*Random.Int(4)*)
     END
   END
 END MakeRandomMap;
@@ -68,7 +68,7 @@ RETURN bmp END LoadBitmap;
 
 PROCEDURE InitGame*(VAR game: Game);
 BEGIN
-  MakeRandomMap(game.map, 96, 96)
+  MakeRandomMap(game.map, 128, 128)
 END InitGame;
 
 PROCEDURE Init*(): BOOLEAN;

Programs/Examples/Game/MapEditor.Mod

@@ -256,6 +256,7 @@ RETURN TRUE END InitInterface;
 PROCEDURE Init(): BOOLEAN;
 VAR ok: BOOLEAN;
 BEGIN ok := TRUE;
+  (*G.Settings(320, 200, {});*)
   IF window THEN G.Settings(640, 480, {G.window(*, G.maximized*)}) END;
   G.Init;
   IF ~G.Done THEN ok := FALSE END;

Programs/Examples/Game/SimpleGui.Mod

@@ -1042,8 +1042,8 @@ END ScrollBoxHandler;
 PROCEDURE ScrollBoxSetInnerSize*(c: ScrollBox; w, h: INTEGER);
 BEGIN
   Resize(c.inner, w, h);
-  c.scbHorz.max := w - c.w - 16;
-  c.scbVert.max := h - c.h - 16;
+  c.scbHorz.max := w - c.w + 16;
+  c.scbVert.max := h - c.h + 16;
 
   IF (c.scbHorz.max > 0) & (w > 0) THEN
     SetVisible(c.scbHorz, TRUE);
@@ -1064,10 +1064,10 @@ BEGIN
   c.scbHorz.w := c.outer.w;
 
   IF w > 0 THEN
-    ScrollBarSetHandleSize(c.scbHorz, c.outer.w * (c.outer.w - 28) DIV w)
+    ScrollBarSetHandleSize(c.scbHorz, c.outer.w * (c.outer.w - 30) DIV w)
   END;
   IF h > 0 THEN
-    ScrollBarSetHandleSize(c.scbVert, c.outer.h * (c.outer.h - 28) DIV h)
+    ScrollBarSetHandleSize(c.scbVert, c.outer.h * (c.outer.h - 30) DIV h)
   END;
 
   Redraw(c)