X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=_src%2FTest%2Fvbsool_test%2FT_GetObject%2Fobjs%2FClassA_obj.vbs;fp=_src%2FTest%2Fvbsool_test%2FT_GetObject%2Fobjs%2FClassA_obj.vbs;h=1a62931dea368af969c99d0fecae4207ee65c0ce;hb=8cd319a3714156b275c5e3809401dfccfa472e29;hp=0000000000000000000000000000000000000000;hpb=96594a1f7f4a7fcb1ef2b3641e65c63a0a98635c;p=vbslib%2Fmain.git

diff --git a/_src/Test/vbsool_test/T_GetObject/objs/ClassA_obj.vbs b/_src/Test/vbsool_test/T_GetObject/objs/ClassA_obj.vbs
new file mode 100644
index 0000000..1a62931
--- /dev/null
+++ b/_src/Test/vbsool_test/T_GetObject/objs/ClassA_obj.vbs
@@ -0,0 +1,46 @@
+Option Explicit 
+
+Dim  g_SrcPath
+
+Class  ClassA_vbs : Public FullPath : End Class
+Dim  g_ClassA_vbs
+Set  g_ClassA_vbs =_
+   new ClassA_vbs
+With g_ClassA_vbs
+  .FullPath = g_SrcPath
+End With
+
+
+Sub  get_StaticObjects( InterfaceName, out_Obj )
+  If IsEmpty( InterfaceName ) or  InterfaceName = "ClassI" Then
+    Set  out_Obj = get_ClassA()
+  End If
+End Sub
+
+
+'-------------------------------------------------------------------------
+' ### <<<< [ClassA] Class >>>>
+'-------------------------------------------------------------------------
+Dim  g_ClassA
+
+Function    get_ClassA()  '// has_interface_of ClassI
+  If IsEmpty( g_ClassA ) Then _
+    Set g_ClassA = new ClassA
+  Set get_ClassA =   g_ClassA
+End Function
+
+
+Class ClassA  '// has_interface_of ClassI
+  Public  Property Get  Name()     : Name     = TypeName(Me) : End Property
+  Public  Property Get  TrueName() : TrueName = TypeName(Me) : End Property
+  Public Sub  Validate() : End Sub
+  '--- Name is factory pattern.
+
+  Public Property Get  DefineInfo() : Set DefineInfo = g_ClassA_vbs : End Property
+
+  Public  Value
+  Public Function  Method1() : Method1 = "ClassA.Method1" : End Function
+End Class
+
+
+