Changeset 258 for Include/Classes/System/Threading/WaitHandle.ab

Timestamp:

May 21, 2007, 1:03:21 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

Prompt.sbp内を名前空間に入れた。EnvironmentのMachineName, UserName, GetFolderPathを実装。

File:

• Include/Classes/System/Threading/WaitHandle.ab (modified) (3 diffs)

Include/Classes/System/Threading/WaitHandle.ab

@@ -3 +3 @@
 #ifndef __SYSTEM_THREADING_WAITHANDLE_AB__
 #define __SYSTEM_THREADING_WAITHANDLE_AB__
+
+'Namespace System
+'Namespace Threading
+
+Namespace Detail
+    TypeDef PFNSignalObjectAndWait = *Function(hObjectToSignal As HANDLE, hObjectToWaitOn As HANDLE, dwMilliseconds As DWord, bAlertable As DWord) As DWord
+End Namespace
 
 Class WaitHandle
@@ -62 +69 @@
     End Function
 
+Public
     Static Function SignalAndWait(ByRef toSignal As WaitHandle, ByRef toWaitOn As WaitHandle, millisecondsTimeout As Long, exitContext As BOOL) As BOOL
-        TypeDef PFNSignalObjectAndWait = *Function(hObjectToSignal As HANDLE, hObjectToWaitOn As HANDLE, dwMilliseconds As DWord, bAlertable As DWord) As DWord
-        Dim pSignalObjectAndWait = GetProcAddress(GetModuleHandle("Kernel32.dll"), "SignalObjectAndWait") As PFNSignalObjectAndWait
+        Dim pSignalObjectAndWait = GetProcAddress(GetModuleHandle("Kernel32.dll"), "SignalObjectAndWait") As Detail.PFNSignalObjectAndWait
         If pSignalObjectAndWait = 0 Then
             ' PlatformNotSupportedException
@@ -105 +112 @@
 End Class
 
+'End Namespace 'Threading
+'End Namespace 'System
+
 #endif '__SYSTEM_THREADING_WAITHANDLE_AB__