Changeset 127 for Include/basic/prompt.sbp

Timestamp:

Mar 3, 2007, 6:14:57 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

#68デバック用コードの除去し忘れを修正

File:

• Include/basic/prompt.sbp (modified) (5 diffs)

Include/basic/prompt.sbp

@@ -11 +11 @@
 Dim _PromptSys_hWnd As HWND
 Dim _PromptSys_dwThreadID As DWord
-Dim _PromptSys_bInitFinish As BOOL
+Dim _PromptSys_hInitFinish As HANDLE
 
 'text
@@ -47 +47 @@
 Dim _PromptSys_GlobalPos As POINTAPI
 
-CreateEvent(0, FALSE, FALSE, 0)
-_PromptSys_bInitFinish = 0
+_PromptSys_hInitFinish = CreateEvent(0, FALSE, FALSE, 0)
 CreateThread(0, 0, AddressOf(PromptMain) As LPTHREAD_START_ROUTINE, 0, 0, _PromptSys_dwThreadID)
-Do
-    Sleep(20)
-Loop Until _PromptSys_bInitFinish
+WaitForSingleObject(_PromptSys_hInitFinish, INFINITE)
 
 Sub DrawPromptBuffer(hDC As HDC, StartLine As Long, EndLine As Long)
@@ -85 +82 @@
 
             Dim sz As SIZE
-            i3 = lstrlen(_PromptSys_TextLine[i].Text) '_PromptSys_TextLine[i].Length
-            If i3 <> 0 Then
-                OutputDebugString(Str$(i3) + ":" + Str$(_PromptSys_TextLine[i].Length) + Ex"\r\n")
-            End If
+            i3 = _PromptSys_TextLine[i].Length
             GetTextExtentPoint32(hDC, _PromptSys_TextLine[i].Text, i3, sz)
 
@@ -250 +244 @@
     DrawPromptBuffer(hdc, -1, 0)
     EndPaint(hwnd, ps)
-
-    _PromptSys_bInitFinish = TRUE
 End Sub
 
@@ -447 +439 @@
     ShowWindow(_PromptSys_hWnd, SW_SHOW)
     UpdateWindow(_PromptSys_hWnd)
-
+    SetEvent(_PromptSys_hInitFinish)
     Dim msg As MSG
     Do