Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19337
Modified Files:
EdTabControl.f
Log Message:
Hanging of the IDE Fixed when openning to mutch files.
Index: EdTabControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** EdTabControl.f 28 Apr 2008 05:17:16 -0000 1.19
--- EdTabControl.f 11 Aug 2008 17:46:18 -0000 1.20
***************
*** 68,76 ****
\ Find a file in the list view.
\ addr is the object address of the mdi child window
- cr ." FindFile: " dup h.
LVFI_PARAM SetFlags: LvFindInfo
SetlParam: LvFindInfo
Addr: LvFindInfo -1 FindItem: self
- ." returns " dup .
;M
--- 68,74 ----
***************
*** 139,148 ****
Enable_Notify?
if dup GetNotifyCode LVN_ITEMCHANGED =
! if
! cr ." Handle_Notify: enter"
! false to Enable_Notify?
LVN_GetNotifyParam OnSelect
true to Enable_Notify?
- cr ." Handle_Notify: exit"
else drop
then
--- 137,143 ----
Enable_Notify?
if dup GetNotifyCode LVN_ITEMCHANGED =
! if false to Enable_Notify?
LVN_GetNotifyParam OnSelect
true to Enable_Notify?
else drop
then
***************
*** 415,419 ****
UpdateFileName: cFileList ;M
-
:M FindFile: ( addr -- f )
FindFile: cFileList ;M
--- 410,413 ----
|
