FILENAME for open file

Can someone explain what I am missing as described=20
below ? ( Mike ?)

Following is a stripped down section to get a filename=20
for opening the file. It works fine, using=20
   try pad zcount r/o open-file

However if I remove the "pad zcount zplace" from "try"
and let FILENAME leave the addr on the stack , it does=20
not work.=20

Alternately; as is, " try pad zcount type " types the=20
name correctly, but with "pad...." removed,=20
" try zcount type" prints junk.

The code follows:
Thanks, Anil

PACKAGE OFN-DIALOGS ( Re-open Package )

FILENAME-DIALOG SUBCLASS MY-OFN-DIALOG

   : ACTION ( addr -- bool ) :: GetOpenFileName ;

END-CLASS

PUBLIC
MY-OFN-DIALOG SUBCLASS MFDclass

END-CLASS
END-PACKAGE

: TRY ( -- )=20
   [OBJECTS MFDclass MAKES MFD OBJECTS]
   MFD CHOOSE
   IF MFD FILENAME ( zStr ) zcount pad zplace=20
                             \ ^ remove these words
   THEN ;
----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Mon Jun 13 2005 - 12:38:56 PDT