瀏覽代碼

drop redundant Initialize()

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6792 8c9fc860-2736-0410-a75d-ab315db34111
eth.hunzikerp 9 年之前
父節點
當前提交
6fec75e12d
共有 1 個文件被更改,包括 4 次插入14 次删除
  1. 4 14
      source/WMGrids.Mod

+ 4 - 14
source/WMGrids.Mod

@@ -151,14 +151,10 @@ TYPE
 			NEW(onClickSelected, SELF, GSonClickSelected, GSonClickSelectedInfo, SELF.StringToCompCommand); events.Add(onClickSelected);
 		END Init;
 
-	PROCEDURE Initialize*; (*to do: drop this altogether*)
-		BEGIN
-			Initialize^;
-			(*RecacheAllProperties*)
-		END Initialize;
-
-		PROCEDURE RecacheAllProperties;
+		PROCEDURE RecacheProperties;
 		BEGIN
+			RecacheProperties^;
+			
 			defaultColWidthC := defaultColWidth.Get();
 			defaultRowHeightC := defaultRowHeight.Get();
 			fixedColsC := fixedCols.Get();
@@ -176,17 +172,11 @@ TYPE
 			alwaysShowScrollYC := alwaysShowScrollY.Get();
 			CheckScrollbarsNeeded;
 			AlignSubComponents
-		END RecacheAllProperties;
-
-		PROCEDURE RecacheProperties;
-		BEGIN
-			RecacheProperties^;
-			RecacheAllProperties
 		END RecacheProperties;
 
 		PROCEDURE PropertyChanged*(sender, property : ANY);
 		BEGIN
-			RecacheAllProperties;
+			RecacheProperties;
 			Invalidate;
 			PropertyChanged^(sender, property)
 		END PropertyChanged;