Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5310/src/lib
Modified Files:
multiopen.f
Log Message:
Increased the file buffer
Index: multiopen.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/multiopen.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** multiopen.f 1 May 2005 06:27:42 -0000 1.2
--- multiopen.f 1 Oct 2005 16:57:26 -0000 1.3
***************
*** 8,11 ****
--- 8,13 ----
\- ofn-struct create ofn-struct 19 cells , 22 CELLS allot \ OPENFILENAME struct
+ 12048 constant /szFile \ Was 2048
+
#ifndef fdlg-filter
***************
*** 28,32 ****
ofn-struct 11 cells+ ! \ save initial dir
ofn-struct 7 cells+ ! \ save initial filename
! 2048 ofn-struct 8 cells+ ! \ file length
ofn-struct 6 cells+ ! \ filterindex
[ OFN_PATHMUSTEXIST OFN_FILEMUSTEXIST OR nostack1
--- 30,34 ----
ofn-struct 11 cells+ ! \ save initial dir
ofn-struct 7 cells+ ! \ save initial filename
! /szFile ofn-struct 8 cells+ ! \ file length
ofn-struct 6 cells+ ! \ filterindex
[ OFN_PATHMUSTEXIST OFN_FILEMUSTEXIST OR nostack1
***************
*** 55,59 ****
:Class MultiFileOpenDialog <Super Object
! 2048 bytes szFile
int fcnt \ number of selected files
int filterndx
--- 57,61 ----
:Class MultiFileOpenDialog <Super Object
! /szFile bytes szFile
int fcnt \ number of selected files
int filterndx
***************
*** 65,69 ****
ClassInit: super
0 szDir !
! szfile 2048 erase
1 to filterndx
0 to fcnt
--- 67,71 ----
ClassInit: super
0 szDir !
! szfile /szFile erase
1 to filterndx
0 to fcnt
***************
*** 154,156 ****
;Class
! MODULE |
