[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdTabControl.f, 1.19, 1.20

[Dirk B. <db...@us...>]

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 ----