Explorar el Código

path Window.Resizing()

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7605 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore hace 7 años
padre
commit
fd94fc1c68
Se han modificado 1 ficheros con 8 adiciones y 5 borrados
  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) *)