extra/windows/comdlg32/comdlg32.factor

   1 ! Copyright (C) 2017 Alexander Ilin.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.libraries alien.syntax classes.struct
   4 windows.types ;
   5
   6 IN: windows.comdlg32
   7
   8 << "comdlg32" "comdlg32.dll" stdcall add-library >>
   9
  10 LIBRARY: comdlg32
  11
  12 CONSTANT: OFN_OVERWRITEPROMPT 2
  13
  14 STRUCT: OPENFILENAME
  15     { lStructSize DWORD }
  16     { hwndOwner HWND }
  17     { hInstance HINSTANCE }
  18     { lpstrFilter LPCTSTR }
  19     { lpstrCustomFilter LPTSTR }
  20     { nMaxCustFilter DWORD }
  21     { nFilterIndex DWORD }
  22     { lpstrFile LPTSTR }
  23     { nMaxFile DWORD }
  24     { lpstrFileTitle LPTSTR }
  25     { nMaxFileTitle DWORD }
  26     { lpstrInitialDir LPCTSTR }
  27     { lpstrTitle LPCTSTR }
  28     { Flags DWORD }
  29     { nFileOffset WORD }
  30     { nFileExtension WORD }
  31     { lpstrDefExt LPCTSTR }
  32     { lCustData LPARAM }
  33     { lpfnHook PVOID }
  34     { lpTemplateName LPCTSTR } ;
  35
  36 TYPEDEF: OPENFILENAME* LPOPENFILENAME
  37
  38 FUNCTION: BOOL GetSaveFileNameW ( LPOPENFILENAME lpofn )
  39 ALIAS: GetSaveFileName GetSaveFileNameW