Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17001/src/lib
Modified Files:
FileLister.f
Log Message:
Rod: Added null-check definition which is not present in TreeView class when derived from Control.
Index: FileLister.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/FileLister.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FileLister.f 14 Jun 2006 05:55:17 -0000 1.1
--- FileLister.f 15 Jun 2006 18:48:46 -0000 1.2
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+
\ FileLister.f List Files in a Folder
\ Thursday, August 19 2004 - Ezra Boyce
***************
*** 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 )
--- 556,568 ----
['] 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 )
|
