[Win32forth-cvs] win32forth/apps/Win32ForthIDE ClassBrowser.f, 1.6, 1.7 EdCompile.f, 1.3, 1.4

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6548/apps/Win32ForthIDE

Modified Files:
	ClassBrowser.f EdCompile.f 
Log Message:
- Fixed this nasty Win32ForthIDE F12 bug :-)

Index: EdCompile.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCompile.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** EdCompile.f	13 Oct 2006 03:55:11 -0000	1.3
--- EdCompile.f	12 May 2007 07:51:19 -0000	1.4
***************
*** 51,56 ****
          version# ((version)) Win32ForthName +place
          Win32ForthName +NULL
!         base !
!         ;
  
  : GetForthWindow ( -- ) \ get the handle of the forth console window
--- 51,55 ----
          version# ((version)) Win32ForthName +place
          Win32ForthName +NULL
!         base ! ;
  
  : GetForthWindow ( -- ) \ get the handle of the forth console window
***************
*** 73,77 ****
          then
  
!         hWndForthWindow 0<>
          if   \ if we have a valid window handle to the forth console
               \ we can just send the message directly
--- 72,76 ----
          then
  
!         hWndForthWindow call IsWindow
          if   \ if we have a valid window handle to the forth console
               \ we can just send the message directly
***************
*** 80,84 ****
          then ;
  
- 
  \ -----------------------------------------------------------------------------
  \ Start the Forth console if needed
--- 79,82 ----

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ClassBrowser.f	16 Apr 2007 08:29:05 -0000	1.6
--- ClassBrowser.f	12 May 2007 07:51:19 -0000	1.7
***************
*** 158,161 ****
--- 158,163 ----
  
  : AddVocabularies ( -- )          \ add the vocabularies to the treeview
+                 false SetRedraw: self
+ 
                  -1 z" Vocabularies" TVI_LAST TVI_ROOT 1 true AddItem
  
***************
*** 165,169 ****
  
                  to hRoot ['] sys-addr? AddVoc
!                 to hRoot ['] app-addr? AddVoc ;
  
  
--- 167,174 ----
  
                  to hRoot ['] sys-addr? AddVoc
!                 to hRoot ['] app-addr? AddVoc
! 
!                 true SetRedraw: self
!                 ;
  
  
***************
*** 209,212 ****
--- 214,219 ----
  
  : AddClasses    (  -- )           \ add the classes to the treeview
+                 false SetRedraw: self
+ 
                  -1 z" Classes" TVI_LAST TVI_ROOT 1 true AddItem
                  hPrev >R
***************
*** 219,223 ****
                        else drop
                        then @ dup 0=
!                 until drop r>drop ;
  
  
--- 226,233 ----
                        else drop
                        then @ dup 0=
!                 until drop r>drop
! 
!                 true SetRedraw: self
!                 ;