modules/win95.dialogbox.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.dialogbox :win95.dialogbox)
   5
   6 (cl:in-package cl-w32api.module.win95.dialogbox)
   7
   8 (require-and-inherit-module "win95.~")
   9 (require-and-inherit-module "win95.window")
  10
  11 (defbitfield-extended (DIALOG-STYLES DWORD) WINDOW-STYLES
  12   (:3DLOOK 4)
  13   (:ABSALIGN 1)
  14   (:CENTER #x800)
  15   (:CENTERMOUSE 4096)
  16   (:CONTEXTHELP #x2000)
  17   (:CONTROL #x400)
  18   (:FIXEDSYS 8)
  19   (:LOCALEDIT 32)
  20   (:MODALFRAME 128)
  21   (:NOFAILCREATE 16)
  22   (:NOIDLEMSG 256)
  23   (:SETFONT 64)
  24   (:SETFOREGROUND 512)
  25   (:SYSMODAL 2)
  26   (:SHELLFONT #.(cl:logior 64 8)))
  27
  28 (defcstructex-exported DLGITEMTEMPLATE
  29         (style :unsigned-long)
  30         (dwExtendedStyle :unsigned-long)
  31         (x :short)
  32         (y :short)
  33         (cx :short)
  34         (cy :short)
  35         (id :unsigned-short))
  36
  37
  38
  39 (defcstructex-exported DLGTEMPLATE
  40         (style :unsigned-long)
  41         (dwExtendedStyle :unsigned-long)
  42         (cdit :unsigned-short)
  43         (x :short)
  44         (y :short)
  45         (cx :short)
  46         (cy :short))
  47
  48
  49 (defcfunex-exported ("CreateDialogIndirectParamA" CreateDialogIndirectParamA :convention :stdcall) HWND
  50   (|hInstance|  HINSTANCE)
  51   (arg1 :pointer)
  52   (|hWndParent| HWND)
  53   (arg3 :pointer)
  54   (arg4 :int32))
  55
  56 (defcfunex-exported ("CreateDialogIndirectParamW" CreateDialogIndirectParamW :convention :stdcall) HWND
  57   (arg0 :pointer)
  58   (arg1 :pointer)
  59   (arg2 :pointer)
  60   (arg3 :pointer)
  61   (arg4 :int32))
  62
  63 (defcfunex-exported ("CreateDialogParamA" CreateDialogParamA :convention :stdcall) :pointer
  64   (arg0 :pointer)
  65   (arg1 :string)
  66   (arg2 :pointer)
  67   (arg3 :pointer)
  68   (arg4 :int32))
  69
  70 (defcfunex-exported ("CreateDialogParamW" CreateDialogParamW :convention :stdcall) :pointer
  71   (arg0 :pointer)
  72   (arg1 :pointer)
  73   (arg2 :pointer)
  74   (arg3 :pointer)
  75   (arg4 :int32))
  76
  77 (defcfunex-exported ("GetDialogBaseUnits" GetDialogBaseUnits :convention :stdcall) :int32)
  78
  79 (defcfunex-exported ("GetDlgCtrlID" GetDlgCtrlID :convention :stdcall) :int
  80   (arg0 :pointer))
  81
  82 (defcfunex-exported ("GetDlgItem" GetDlgItem :convention :stdcall) :pointer
  83   (arg0 :pointer)
  84   (arg1 :int))
  85
  86 (defcfunex-exported ("GetDlgItemInt" GetDlgItemInt :convention :stdcall) :unsigned-int
  87   (arg0 :pointer)
  88   (arg1 :int)
  89   (arg2 :pointer)
  90   (arg3 :int))
  91
  92 (defcfunex-exported ("GetDlgItemTextA" GetDlgItemTextA :convention :stdcall) :unsigned-int
  93   (arg0 :pointer)
  94   (arg1 :int)
  95   (arg2 :string)
  96   (arg3 :int))
  97
  98 (defcfunex-exported ("GetDlgItemTextW" GetDlgItemTextW :convention :stdcall) :unsigned-int
  99   (arg0 HWND)
 100   (arg1 :int)
 101   (arg2 :pointer)
 102   (arg3 :int))
 103
 104
 105 (defbitfield (MESSAGEBOX-FLAGS UINT)
 106   (:USERICON 128) (:ICONASTERISK 64) (:ICONEXCLAMATION
 107   #x30) (:ICONWARNING #x30) (:ICONERROR 16) (:ICONHAND 16)
 108   (:ICONQUESTION 32) (:OK 0) (:ABORTRETRYIGNORE 2) (:APPLMODAL 0) (:DEFAULT_DESKTOP_ONLY #x20000) (:HELP #x4000)
 109   (:RIGHT #x80000) (:RTLREADING #x100000) (:TOPMOST #x40000) (:DEFBUTTON1 0) (:DEFBUTTON2 256) (:DEFBUTTON3 512)
 110   (:DEFBUTTON4 #x300) (:ICONINFORMATION 64) (:ICONSTOP 16) (:OKCANCEL 1) (:RETRYCANCEL 5) (:SERVICE_NOTIFICATION #x00200000)
 111   (:SERVICE_NOTIFICATION_NT3X #x00040000) (:SETFOREGROUND #x10000) (:SYSTEMMODAL 4096) (:TASKMODAL #x2000) (:YESNO 4)
 112   (:YESNOCANCEL 3) (:ICONMASK 240) (:DEFMASK 3840) (:MODEMASK #x00003000) (:MISCMASK #x0000C000) (:NOFOCUS #x00008000)
 113   (:TYPEMASK 15) )
 114
 115 (defcenum (DIALOGBOX-RETCODE :int)
 116   (:OK 1) (:CANCEL 2) (:ABORT 3) (:RETRY 4) (:IGNORE 5)
 117   (:YES 6) (:NO 7) (:CLOSE 8) (:HELP 9))
 118
 119 (defcfunex-exported ("MessageBoxA" MessageBoxA :convention :stdcall) DIALOGBOX-RETCODE
 120   (|hWnd|      HWND)
 121   (|lpText|    ASTRING)
 122   (|lpCaption| ASTRING)
 123   (|uType|     MESSAGEBOX-FLAGS))
 124
 125 (defcfunex-exported ("MessageBoxW" MessageBoxW :convention :stdcall) DIALOGBOX-RETCODE
 126   (|hWnd|      HWND)
 127   (|lpText|    WSTRING)
 128   (|lpCaption| WSTRING)
 129   (|uType|     MESSAGEBOX-FLAGS))
 130
 131 (define-abbrev-exported MessageBox MessageBoxW)
 132
 133 (defcfunex-exported ("MessageBoxExA" MessageBoxExA :convention :stdcall) :int
 134   (arg0 :pointer)
 135   (arg1 :string)
 136   (arg2 :string)
 137   (arg3 :unsigned-int)
 138   (arg4 :unsigned-short))
 139
 140 (defcfunex-exported ("MessageBoxExW" MessageBoxExW :convention :stdcall) :int
 141   (arg0 :pointer)
 142   (arg1 :pointer)
 143   (arg2 :pointer)
 144   (arg3 :unsigned-int)
 145   (arg4 :unsigned-short))
 146
 147 (defcfunex-exported ("MessageBoxIndirectA" MessageBoxIndirectA :convention :stdcall) :int
 148   (arg0 :pointer))
 149
 150 (defcfunex-exported ("MessageBoxIndirectW" MessageBoxIndirectW :convention :stdcall) :int
 151   (arg0 :pointer))
 152
 153 (defcfunex-exported ("SendDlgItemMessageA" SendDlgItemMessageA :convention :stdcall) :int32
 154   (arg0 :pointer)
 155   (arg1 :int)
 156   (arg2 :unsigned-int)
 157   (arg3 :unsigned-int)
 158   (arg4 :int32))
 159
 160 (defcfunex-exported ("SendDlgItemMessageW" SendDlgItemMessageW :convention :stdcall) :int32
 161   (arg0 :pointer)
 162   (arg1 :int)
 163   (arg2 :unsigned-int)
 164   (arg3 :unsigned-int)
 165   (arg4 :int32))
 166
 167 (defcfunex-exported ("SetDlgItemInt" SetDlgItemInt :convention :stdcall) :int
 168   (arg0 :pointer)
 169   (arg1 :int)
 170   (arg2 :unsigned-int)
 171   (arg3 :int))
 172
 173 (defcfunex-exported ("SetDlgItemTextA" SetDlgItemTextA :convention :stdcall) :int
 174   (arg0 :pointer)
 175   (arg1 :int)
 176   (arg2 :string))
 177
 178 (defcfunex-exported ("SetDlgItemTextW" SetDlgItemTextW :convention :stdcall) :int
 179   (arg0 :pointer)
 180   (arg1 :int)
 181   (arg2 :pointer))
 182
 183