modules/win95.comdlg.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.comdlg :win95.comdlg)
   5
   6 (cl:in-package cl-w32api.module.win95.comdlg)
   7
   8 (defcfunex-exported ("ChooseColorA" ChooseColorA :convention :stdcall) :int
   9   (arg0 :pointer))
  10
  11 (defcfunex-exported ("ChooseColorW" ChooseColorW :convention :stdcall) :int
  12   (arg0 :pointer))
  13
  14 (defcfunex-exported ("ChooseFontA" ChooseFontA :convention :stdcall) :int
  15   (arg0 :pointer))
  16
  17 (defcfunex-exported ("ChooseFontW" ChooseFontW :convention :stdcall) :int
  18   (arg0 :pointer))
  19
  20 (defcfunex-exported ("CommDlgExtendedError" CommDlgExtendedError :convention :stdcall) :unsigned-long)
  21
  22 (defcfunex-exported ("FindTextA" FindTextA :convention :stdcall) :pointer
  23   (arg0 :pointer))
  24
  25 (defcfunex-exported ("FindTextW" FindTextW :convention :stdcall) :pointer
  26   (arg0 :pointer))
  27
  28 (defcfunex-exported ("GetFileTitleA" GetFileTitleA :convention :stdcall) :short
  29   (arg0 :string)
  30   (arg1 :string)
  31   (arg2 :unsigned-short))
  32
  33 (defcfunex-exported ("GetFileTitleW" GetFileTitleW :convention :stdcall) :short
  34   (arg0 :pointer)
  35   (arg1 :pointer)
  36   (arg2 :unsigned-short))
  37
  38 (defcfunex-exported ("GetOpenFileNameA" GetOpenFileNameA :convention :stdcall) :int
  39   (arg0 :pointer))
  40
  41 (defcfunex-exported ("GetOpenFileNameW" GetOpenFileNameW :convention :stdcall) :int
  42   (arg0 :pointer))
  43
  44 (defcfunex-exported ("GetSaveFileNameA" GetSaveFileNameA :convention :stdcall) :int
  45   (arg0 :pointer))
  46
  47 (defcfunex-exported ("GetSaveFileNameW" GetSaveFileNameW :convention :stdcall) :int
  48   (arg0 :pointer))
  49
  50 (defcfunex-exported ("PageSetupDlgA" PageSetupDlgA :convention :stdcall) :int
  51   (arg0 :pointer))
  52
  53 (defcfunex-exported ("PageSetupDlgW" PageSetupDlgW :convention :stdcall) :int
  54   (arg0 :pointer))
  55
  56 (defcfunex-exported ("PrintDlgA" PrintDlgA :convention :stdcall) :int
  57   (arg0 :pointer))
  58
  59 (defcfunex-exported ("PrintDlgW" PrintDlgW :convention :stdcall) :int
  60   (arg0 :pointer))
  61
  62 (defcfunex-exported ("ReplaceTextA" ReplaceTextA :convention :stdcall) :pointer
  63   (arg0 :pointer))
  64
  65 (defcfunex-exported ("ReplaceTextW" ReplaceTextW :convention :stdcall) :pointer
  66   (arg0 :pointer))
  67