Changeset 303 for trunk/Include/Classes/ActiveBasic/Windows/Windows.ab

Timestamp:

Aug 24, 2007, 11:14:46 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

フルコンパイルでのミスあぶり出し。註：修正は全て@300や@301以前に行われた。

File:

• trunk/Include/Classes/ActiveBasic/Windows/Windows.ab (modified) (1 diff)

trunk/Include/Classes/ActiveBasic/Windows/Windows.ab

@@ -27 +27 @@
     Return GetFolderPath(0, folder)
 End Function
+/*
+Function MessageBox(hw As HWND, s As PCSTR, t As PCSTR, b As DWord) As DWord
+    Return MessageBoxA(hw, s, t, b)
+End Function
+
+Function MessageBox(hw As HWND, s As PCWSTR, t As PCWSTR, b As DWord) As DWord
+    Return MessageBoxW(hw, s, t, b)
+End Function
+*/
+
+Namespace Detail
+Function _System_MessageBox(hw As HWND, s As PCSTR, t As PCSTR, b As DWord) As DWord
+    Return MessageBoxA(hw, s, t, b)
+End Function
+
+Function _System_MessageBox(hw As HWND, s As PCWSTR, t As PCWSTR, b As DWord) As DWord
+    Return MessageBoxW(hw, s, t, b)
+End Function
+End Namespace
 
 End Namespace 'Widnows