50 lines
1.5 KiB
Plaintext
50 lines
1.5 KiB
Plaintext
# Property of Four Js*
|
|
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
|
|
# * Trademark of Four Js Development Tools Europe Ltd
|
|
# in the United States and elsewhere
|
|
#
|
|
# Four Js and its suppliers do not warrant or guarantee that these
|
|
# samples are accurate and suitable for your purposes. Their inclusion is
|
|
# purely for information purposes only.
|
|
|
|
IMPORT FGL filedlg
|
|
|
|
MAIN
|
|
DEFINE cname STRING
|
|
DEFINE r1 FILEDLG_RECORD
|
|
DEFINE r2 FILEDLG_RECORD
|
|
|
|
OPTIONS INPUT WRAP
|
|
|
|
DISPLAY "Try options in the action panel" AT 5,5
|
|
|
|
MENU "File dialog"
|
|
|
|
COMMAND "Choose .per"
|
|
-- get back an existing .per filename
|
|
LET r1.title="Please choose a form"
|
|
LET r1.defaultfilename="filedlg.per"
|
|
LET r1.types[1].description="Form files (*.per)"
|
|
LET r1.types[1].suffixes="*.per"
|
|
LET r1.types[2].description="All files (*)"
|
|
LET r1.types[2].suffixes="*"
|
|
LET r1.opt_delete_files=TRUE
|
|
LET cname= filedlg_open(r1.*)
|
|
MESSAGE ">>>>chosen file:",cname
|
|
|
|
COMMAND "New .per"
|
|
-- get back a name for a file not existing yet
|
|
LET r2.title="Please enter a filename for save"
|
|
LET r2.defaultfilename="spong"
|
|
LET r2.types[1].description="All files (*.*)"
|
|
LET r2.types[1].suffixes="*.*"
|
|
LET cname= filedlg_save(r2.*)
|
|
MESSAGE ">>>>new file:",cname
|
|
|
|
COMMAND "Quit"
|
|
EXIT MENU
|
|
|
|
END MENU
|
|
|
|
END MAIN
|