[Win32forth-cvs] win32forth/apps/ForthForm FileLister.f,1.4,1.5

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

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 )