extra/windows/comdlg32/comdlg32.factor

   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 ;
   6
   7 IN: windows.comdlg32
   8
   9 << "comdlg32" "comdlg32.dll" stdcall add-library >>
  10
  11 LIBRARY: comdlg32
  12
  13 CONSTANT: OFN_OVERWRITEPROMPT 2
  14
  15 STRUCT: OPENFILENAME
  16     { lStructSize DWORD }
  17     { hwndOwner HWND }
  18     { hInstance HINSTANCE }
  19     { lpstrFilter LPCTSTR }
  20     { lpstrCustomFilter LPTSTR }
  21     { nMaxCustFilter DWORD }
  22     { nFilterIndex DWORD }
  23     { lpstrFile LPTSTR }
  24     { nMaxFile DWORD }
  25     { lpstrFileTitle LPTSTR }
  26     { nMaxFileTitle DWORD }
  27     { lpstrInitialDir LPCTSTR }
  28     { lpstrTitle LPCTSTR }
  29     { Flags DWORD }
  30     { nFileOffset WORD }
  31     { nFileExtension WORD }
  32     { lpstrDefExt LPCTSTR }
  33     { lCustData LPARAM }
  34     { lpfnHook PVOID }
  35     { lpTemplateName LPCTSTR } ;
  36
  37 TYPEDEF: OPENFILENAME* LPOPENFILENAME
  38
  39 FUNCTION: BOOL GetSaveFileNameW ( LPOPENFILENAME lpofn )
  40 ALIAS: GetSaveFileName GetSaveFileNameW