Changeset 478 for trunk/Include/basic

Timestamp:

Mar 13, 2008, 9:06:43 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

現在向けに修正（参照型のポインタの排除など）

File:

• trunk/Include/basic/command.sbp (modified) (2 diffs)

trunk/Include/basic/command.sbp

@@ -4 +4 @@
 #ifndef _INC_COMMAND
 #define _INC_COMMAND
-
-#require <windows.sbp>
-#require <Classes/System/Environment.ab>
-#require <Classes/ActiveBasic/Windows/Windows.ab>
 
 Const _System_Type_SByte = 1
@@ -67 +63 @@
 
 Macro MSGBOX(hwnd As HWND, str As String)(title As String, boxType As DWord, ByRef retAns As DWord)
-    Dim ret = ActiveBasic.Windows.Detail._System_MessageBox(hwnd, ToSCStr(str), ToSCStr(title), boxType)
-    If VarPtr(retAns) Then
-        retAns = ret
-    End If
+'   Dim ret = MessageBox(hwnd, ToTCStr(str), ToTCStr(title), boxType)
+'   If VarPtr(retAns) Then
+'       retAns = ret
+'   End If
 End Macro