[Win32forth-cvs] win32forth/src/lib FileLister.f,1.1,1.2

[Rod O. <rod...@us...>]

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 )