Changeset 267

Timestamp:

Jun 2, 2007, 6:53:34 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

COM関係を名前空間に入れた

Location:

Include/com

Files:

• bstring.ab (modified) (2 diffs)
• currency.ab (modified) (2 diffs)
• decimal.ab (modified) (2 diffs)
• variant.ab (modified) (4 diffs)
• vbobject.ab (modified) (2 diffs)

Include/com/bstring.ab

@@ -3 +3 @@
 #require <ole2.ab>
 #require <oleauto.ab>
+
+Namespace ActiveBasic
+Namespace COM
 
 Class BString
@@ -141 +144 @@
 End Class
 
+End Namespace 'COM
+End Namespace 'ActiveBasic

Include/com/currency.ab

@@ -5 +5 @@
 #ifndef _COM_CURRENCY_AB
 #define _COM_CURRENCY_AB
+
+Namespace ActiveBasic
+Namespace COM
 
 Class Currency
@@ -214 +217 @@
 End Class
 
+End Namespace 'COM
+End Namespace 'ActiveBasic
+
 #endif '_COM_CURRENCY_AB

Include/com/decimal.ab

@@ -4 +4 @@
 #require <com/variant.ab>
 #require <com/currency.ab>
+
+Namespace ActiveBasic
+Namespace COM
 
 Class Decimal
@@ -369 +372 @@
     dec As DECIMAL
 End Class
+
+End Namespace 'COM
+End Namespace 'ActiveBasic

Include/com/variant.ab

@@ -7 +7 @@
 #require <oleauto.ab>
 #require <com/index.ab>
+
+Namespace ActiveBasic
+Namespace COM
 
 Class Variant
@@ -376 +379 @@
 
     Override Function ToString() As String
-        Dim tmp = ChangeType(VT_BSTR)
+        Dim tmp = ChangeType(VT_BSTR, VARIANT_ALPHABOOL)
         Dim bs = ((tmp.v.val As ULONG_PTR) As BSTR)
         Return New String(bs As PCWSTR, SysStringLen(bs) As Long)
@@ -534 +537 @@
     Const Function ValStr() As BString
         Dim r As VARIANT
-        ChangeType(r, 0, VT_BSTR)
+        ChangeType(r, VARIANT_ALPHABOOL, VT_BSTR)
         Dim bs = New BString
         bs.Attach(GetPointer(VarPtr(r.val)) As BSTR)
@@ -634 +637 @@
 */
 
+End Namespace 'COM
+End Namespace 'ActiveBasic
+
 #endif '_COM_VARIANT_AB

Include/com/vbobject.ab

@@ -5 +5 @@
 
 #include <com/variant.ab>
+
+Namespace ActiveBasic
+Namespace COM
 
 Class VBObject
@@ -366 +369 @@
 End Function
 
+End Namespace 'COM
+End Namespace 'ActiveBasic
+
 #endif '_COM_VBIBJECT_AB