##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: November 2016 # Modified: 2016-11-09/01:10-0500 ##+ # # WinSaveDialog.icn, open a native Windows file save dialog box. # # procedure main() w := open("WinSaveDialog", "g") fn := WinSaveDiaglog(w, "Save to", "NewFile.dat", 24, "Dat files(*.dat)|*.dat|All (*.*)|*.*|", 1 "../data") close(w) end