浏览代码

path Window.Resizing()

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7605 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore 7 年之前
父节点
当前提交
fd94fc1c68
共有 1 个文件被更改,包括 8 次插入5 次删除
  1. 8 5
      source/WMWindowManager.Mod

+ 8 - 5
source/WMWindowManager.Mod

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