1 ! Copyright (C) 2017 Alexander Ilin.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors alien alien.c-types alien.libraries
4 alien.syntax classes.struct destructors kernel libc math
5 sequences strings windows windows.types ;
9 << "comdlg32" "comdlg32.dll" stdcall add-library >>
13 CONSTANT: OFN_OVERWRITEPROMPT 2
18 { hInstance HINSTANCE }
19 { lpstrFilter LPCTSTR }
20 { lpstrCustomFilter LPTSTR }
21 { nMaxCustFilter DWORD }
22 { nFilterIndex DWORD }
25 { lpstrFileTitle LPTSTR }
26 { nMaxFileTitle DWORD }
27 { lpstrInitialDir LPCTSTR }
28 { lpstrTitle LPCTSTR }
31 { nFileExtension WORD }
32 { lpstrDefExt LPCTSTR }
35 { lpTemplateName LPCTSTR } ;
37 TYPEDEF: OPENFILENAME* LPOPENFILENAME
39 FUNCTION: BOOL GetSaveFileNameW ( LPOPENFILENAME lpofn )
40 ALIAS: GetSaveFileName GetSaveFileNameW