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