Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32232/apps/ForthForm
Modified Files:
FileLister.f
Log Message:
- Changed the TreeViewControl back into a child-window. As a quick bugfix for problems with the FileLister class.
Index: FileLister.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FileLister.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** FileLister.f 11 Jun 2006 07:37:26 -0000 1.4
--- FileLister.f 12 Jun 2006 16:22:56 -0000 1.5
***************
*** 554,566 ****
['] 0> to sortorder ;M
! : null-check ( a1 -- a1 )
! ?win-error-enabled 0=
! if dup 0=
! if drop ['] noop \ convert null to NOOP
! exit \ and exit
! then
! then
! dup 0= s" Attempt to execute a NULL function" ?TerminateBox
! ;
: dosortorder ( n -- f )
--- 554,566 ----
['] 0> to sortorder ;M
! \ : null-check ( a1 -- a1 )
! \ ?win-error-enabled 0=
! \ if dup 0=
! \ if drop ['] noop \ convert null to NOOP
! \ exit \ and exit
! \ then
! \ then
! \ dup 0= s" Attempt to execute a NULL function" ?TerminateBox
! \ ;
: dosortorder ( n -- f )
|
