Browse Source

path Window.Resizing()

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7605 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore 7 years ago
parent
commit
fd94fc1c68
1 changed files with 8 additions and 5 deletions
  1. 8 5
      source/WMWindowManager.Mod

+ 8 - 5
source/WMWindowManager.Mod

@@ -295,11 +295,14 @@ TYPE
 		BEGIN
 			IF FlagNoResizing IN flags THEN
 				width := GetWidth(); height := GetHeight();
-			ELSIF width < SizeMinWidth THEN
-				width := GetWidth();
-			ELSIF height < SizeMinHeight THEN
-				height := GetHeight();
-			END
+			ELSE
+				IF width < SizeMinWidth THEN
+					width := GetWidth();
+				END;
+				IF height < SizeMinHeight THEN
+					height := GetHeight();
+				END;
+			END;
 		END Resizing;
 
 		(** May replace the back-image, if needed. MUST check if requested size is reasonable (0 < x * y < memory) *)