range重新设计

utils/Collection.tsf

@@ -19,18 +19,12 @@ private
 	fp_;	// 函数指针 -- 用来比较
 	activation_; // 激活的对象
 
-public
-	class Function GetInstance(value);
-
-private
-	static collection_;
-
 End;
 
 // ============== 实现 ================= //
 Function Collection.Create();
 Begin
-	container_ := ContainerList();
+	container_ := new LinkList();
 	ignorecase_ := false;
 	fp_ := FindFunction("CompareFunction", self);
 End;
@@ -66,14 +60,6 @@ Begin
 	return name;
 End;
 
-class Function Collection.GetInstance(value);
-Begin
-	if not istable(collection_) then collection_ := array();
-	if not collection_[value] then
-		collection_[value] := new Collection();
-	return collection_[value];
-End;
-
 Function Collection.AddCollection(obj, name);
 Begin
 	data := new Data();

utils/LinkList.tsf

@@ -1,8 +1,3 @@
-Function ContainerList();
-Begin
-	return new LinkList();
-End;
-
 Type LinkList = class
 
 private

utils/TSVbaBase.tsf

@@ -4,9 +4,9 @@ public
 	Function Create(app, cre, par);
 
 private
-	application_;
-	creator_;
-	parent_;
+	[weakref]application_;
+	[weakref]parent_;
+	[autoref]creator_;
 
 public
 	property Application read ReadApplication;
@@ -26,7 +26,7 @@ Begin
 	parent_ := par;
 End;
 
-// property
+// Properties
 Function TSVbaBase.ReadApplication();
 Begin
 	return application_;