modules/win95.window.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.window :win95.window)
   5
   6 (cl:in-package cl-w32api.module.win95.window)
   7
   8 (require-and-inherit-module "win95.~")
   9
  10 (defcfunex-exported ("AdjustWindowRect" AdjustWindowRect :convention :stdcall) :int
  11   (arg0 :pointer)
  12   (arg1 :unsigned-long)
  13   (arg2 :int))
  14
  15 (defcfunex-exported ("AdjustWindowRectEx" AdjustWindowRectEx :convention :stdcall) :int
  16   (arg0 :pointer)
  17   (arg1 :unsigned-long)
  18   (arg2 :int)
  19   (arg3 :unsigned-long))
  20
  21 (defcfunex-exported ("ArrangeIconicWindows" ArrangeIconicWindows :convention :stdcall) :unsigned-int
  22   (arg0 :pointer))
  23
  24 (defcfunex-exported ("BeginDeferWindowPos" BeginDeferWindowPos :convention :stdcall) :pointer
  25   (arg0 :int))
  26
  27 (defcfunex-exported ("BringWindowToTop" BringWindowToTop :convention :stdcall) :int
  28   (arg0 :pointer))
  29
  30 (defcfunex-exported ("CascadeWindows" CascadeWindows :convention :stdcall) :unsigned-short
  31   (arg0 :pointer)
  32   (arg1 :unsigned-int)
  33   (arg2 :pointer)
  34   (arg3 :unsigned-int)
  35   (arg4 :pointer))
  36
  37 (defcfunex-exported ("ChildWindowFromPoint" ChildWindowFromPoint :convention :stdcall) :pointer
  38   (arg0 :pointer)
  39   (arg1 (:inline POINT)))
  40
  41 (defcfunex-exported ("ChildWindowFromPointEx" ChildWindowFromPointEx :convention :stdcall) :pointer
  42   (arg0 :pointer)
  43   (arg1 (:inline POINT))
  44   (arg2 :unsigned-int))
  45
  46 (defcfunex-exported ("CloseWindow" CloseWindow :convention :stdcall) BOOL
  47   (|hWnd| HWND))
  48
  49 (defbitfield (WINDOW-STYLES DWORD)
  50   (:BORDER #x800000)
  51   (:CAPTION #xc00000)
  52   (:CHILD #x40000000)
  53   (:CHILDWINDOW #x40000000)
  54   (:CLIPCHILDREN #x2000000)
  55   (:CLIPSIBLINGS #x4000000)
  56   (:DISABLED #x8000000)
  57   (:DLGFRAME #x400000)
  58   (:GROUP #x20000)
  59   (:HSCROLL #x100000)
  60   (:ICONIC #x20000000)
  61   (:MAXIMIZE #x1000000)
  62   (:MAXIMIZEBOX #x10000)
  63   (:MINIMIZE #x20000000)
  64   (:MINIMIZEBOX #x20000)
  65   (:OVERLAPPED 0)
  66   (:OVERLAPPEDWINDOW #xcf0000)
  67   (:POPUP #x80000000)
  68   (:POPUPWINDOW #x80880000)
  69   (:SIZEBOX #x40000)
  70   (:SYSMENU #x80000)
  71   (:TABSTOP #x10000)
  72   (:THICKFRAME #x40000)
  73   (:TILED 0)
  74   (:TILEDWINDOW #xcf0000)
  75   (:VISIBLE #x10000000)
  76   (:VSCROLL #x200000))
  77 (export 'WINDOW-STYLES)
  78
  79 (defcfunex-exported ("CreateWindowExA" CreateWindowExA :convention :stdcall) :pointer
  80   (|dwExStyle|    DWORD)
  81   (|lpClassName|  ASTRING)
  82   (|lpWindowName| ASTRING)
  83   (|dwStyle|      WINDOW-STYLES)
  84   (|x|            :int)
  85   (|y|            :int)
  86   (|nWidth|       :int)
  87   (|nHeight|      :int)
  88   (|hWndParent|   HWND)
  89   (|hMenu|        HMENU)
  90   (|hInstance|    HINSTANCE)
  91   (|lpParam|      :pointer))
  92
  93
  94 (defcfunex-exported ("CreateWindowExW" CreateWindowExW :convention :stdcall) HWND
  95   (|dwExStyle|    DWORD)
  96   (|lpClassName|  WSTRING)
  97   (|lpWindowName| WSTRING)
  98   (|dwStyle|      WINDOW-STYLES)
  99   (|x|            :int)
 100   (|y|            :int)
 101   (|nWidth|       :int)
 102   (|nHeight|      :int)
 103   (|hWndParent|   HWND)
 104   (|hMenu|        HMENU)
 105   (|hInstance|    HINSTANCE)
 106   (|lpParam|      :pointer))
 107
 108 (define-abbrev-exported CreateWindowEx CreateWindowExW)
 109
 110 (defmacro-exported CreateWindow
 111     (&whole form |lpClassName| |lpWindowName| |dwStyle| |x| |y| |nWidth| |nHeight|
 112             |hWndParent| |hMenu| |hInstance| |lpParam|)
 113   (declare (ignore |lpClassName| |lpWindowName| |dwStyle| |x| |y| |nWidth| |nHeight|
 114                    |hWndParent| |hMenu| |hInstance| |lpParam| ))
 115   `(CreateWindowEx ,@(cdr form)))
 116
 117 (defcfunex-exported ("DeferWindowPos" DeferWindowPos :convention :stdcall) :pointer
 118   (arg0 :pointer)
 119   (arg1 :pointer)
 120   (arg2 :pointer)
 121   (arg3 :int)
 122   (arg4 :int)
 123   (arg5 :int)
 124   (arg6 :int)
 125   (arg7 :unsigned-int))
 126
 127 (defcfunex-exported ("DestroyWindow" DestroyWindow :convention :stdcall) :int
 128   (arg0 :pointer))
 129
 130 (defcfunex-exported ("EnableWindow" EnableWindow :convention :stdcall) :int
 131   (arg0 :pointer)
 132   (arg1 :int))
 133
 134 (defcfunex-exported ("EndDeferWindowPos" EndDeferWindowPos :convention :stdcall) :int
 135   (arg0 :pointer))
 136
 137 (defcfunex-exported ("EnumWindows" EnumWindows :convention :stdcall) :int
 138   (lpEnumFunc :pointer)
 139   (lParam :int32))
 140
 141 (defcfunex-exported ("FindWindowA" FindWindowA :convention :stdcall) :pointer
 142   (arg0 :string)
 143   (arg1 :string))
 144
 145 (defcfunex-exported ("FindWindowW" FindWindowW :convention :stdcall) :pointer
 146   (arg0 :pointer)
 147   (arg1 :pointer))
 148
 149 (defcfunex-exported ("FindWindowExA" FindWindowExA :convention :stdcall) :pointer
 150   (arg0 :pointer)
 151   (arg1 :pointer)
 152   (arg2 :string)
 153   (arg3 :string))
 154
 155 (defcfunex-exported ("FindWindowExW" FindWindowExW :convention :stdcall) :pointer
 156   (arg0 :pointer)
 157   (arg1 :pointer)
 158   (arg2 :pointer)
 159   (arg3 :pointer))
 160
 161 (defcfunex-exported ("GetClientRect" GetClientRect :convention :stdcall) :int
 162   (arg0 :pointer)
 163   (arg1 :pointer))
 164
 165 (defcfunex-exported ("GetDesktopWindow" GetDesktopWindow :convention :stdcall) :pointer)
 166
 167 (defcfunex-exported ("GetForegroundWindow" GetForegroundWindow :convention :stdcall) :pointer)
 168
 169 (defcfunex-exported ("GetLastActivePopup" GetLastActivePopup :convention :stdcall) :pointer
 170   (arg0 :pointer))
 171
 172 (defcfunex-exported ("GetTopWindow" GetTopWindow :convention :stdcall) :pointer
 173   (arg0 :pointer))
 174
 175 (defcfunex-exported ("GetWindowTextA" GetWindowTextA :convention :stdcall) :int
 176   (hWnd :pointer)
 177   (lpString :string)
 178   (nMaxCount :int))
 179
 180 (defcfunex-exported ("GetWindowTextW" GetWindowTextW :convention :stdcall) :int
 181   (arg0 :pointer)
 182   (arg1 :pointer)
 183   (arg2 :int))
 184
 185 (defcfunex-exported ("GetWindowTextLengthA" GetWindowTextLengthA :convention :stdcall) :int
 186   (arg0 :pointer))
 187
 188 (defcfunex-exported ("GetWindowTextLengthW" GetWindowTextLengthW :convention :stdcall) :int
 189   (arg0 :pointer))
 190
 191 (defcfunex-exported ("GetWindowThreadProcessId" GetWindowThreadProcessId :convention :stdcall) :unsigned-long
 192   (arg0 :pointer)
 193   (arg1 :pointer))
 194
 195 (defcfunex-exported ("IsWindow" IsWindow :convention :stdcall) :int
 196   (arg0 :pointer))
 197
 198 (defcfunex-exported ("IsWindowUnicode" IsWindowUnicode :convention :stdcall) :int
 199   (arg0 :pointer))
 200
 201 (defcfunex-exported ("IsWindowVisible" IsWindowVisible :convention :stdcall) :int
 202   (arg0 :pointer))
 203
 204 (defcfunex-exported ("MoveWindow" MoveWindow :convention :stdcall) :int
 205   (arg0 :pointer)
 206   (arg1 :int)
 207   (arg2 :int)
 208   (arg3 :int)
 209   (arg4 :int)
 210   (arg5 :int))
 211
 212 (defcfunex-exported ("OpenIcon" OpenIcon :convention :stdcall) :int
 213   (arg0 :pointer))
 214
 215 (defcfunex-exported ("SetParent" SetParent :convention :stdcall) :pointer
 216   (arg0 :pointer)
 217   (arg1 :pointer))
 218
 219 (defcfunex-exported ("SetWindowLongA" SetWindowLongA :convention :stdcall) :int32
 220   (arg0 :pointer)
 221   (arg1 :int)
 222   (arg2 :int32))
 223
 224 (defcfunex-exported ("SetWindowLongW" SetWindowLongW :convention :stdcall) :int32
 225   (arg0 :pointer)
 226   (arg1 :int)
 227   (arg2 :int32))
 228
 229 (defcfunex-exported ("SetWindowPlacement" SetWindowPlacement :convention :stdcall) :int
 230   (hWnd :pointer)
 231   (arg1 :pointer))
 232
 233 (defcfunex-exported ("SetWindowPos" SetWindowPos :convention :stdcall) :int
 234   (arg0 :pointer)
 235   (arg1 :pointer)
 236   (arg2 :int)
 237   (arg3 :int)
 238   (arg4 :int)
 239   (arg5 :int)
 240   (arg6 :unsigned-int))
 241
 242 (defcfunex-exported ("SetWindowTextA" SetWindowTextA :convention :stdcall) :int
 243   (arg0 :pointer)
 244   (arg1 :string))
 245
 246 (defcfunex-exported ("SetWindowTextW" SetWindowTextW :convention :stdcall) :int
 247   (arg0 :pointer)
 248   (arg1 :pointer))
 249
 250 (defcfunex-exported ("ShowOwnedPopups" ShowOwnedPopups :convention :stdcall) :int
 251   (arg0 :pointer)
 252   (arg1 :int))
 253
 254 (defcenum (SHOWWINDOW-FLAGS :int)
 255   (:HIDE 0)
 256   (:NORMAL 1)
 257   (:SHOWNORMAL 1)
 258   (:SHOWMINIMIZED 2)
 259   (:MAXIMIZE 3)
 260   (:SHOWMAXIMIZED 3)
 261   (:SHOWNOACTIVATE 4)
 262   (:SHOW 5)
 263   (:MINIMIZE 6)
 264   (:SHOWMINNOACTIVE 7)
 265   (:SHOWNA 8)
 266   (:RESTORE 9)
 267   (:SHOWDEFAULT 10)
 268   (:FORCEMINIMIZE 11)
 269   (:MAX 11))
 270
 271 (defcfunex-exported ("ShowWindow" ShowWindow :convention :stdcall) BOOL
 272   (|hWnd|     HWND)
 273   (|nCmdShow| SHOWWINDOW-FLAGS))
 274
 275 (defcfunex-exported ("ShowWindowAsync" ShowWindowAsync :convention :stdcall) BOOL
 276   (|hWnd|     HWND)
 277   (|nCmdShow| SHOWWINDOW-FLAGS))
 278
 279 (defcfunex-exported ("TileWindows" TileWindows :convention :stdcall) :unsigned-short
 280   (arg0 :pointer)
 281   (arg1 :unsigned-int)
 282   (arg2 :pointer)
 283   (arg3 :unsigned-int)
 284   (arg4 :pointer))
 285
 286 (defcfunex-exported ("WindowFromPoint" WindowFromPoint :convention :stdcall) :pointer
 287               (point (:inline POINT)))
 288
 289 (defcfunex-exported ("WinMain" WinMain :convention :stdcall) :int
 290   (arg0 :pointer)
 291   (arg1 :pointer)
 292   (arg2 :string)
 293   (arg3 :int))
 294
 295 (defcfunex-exported ("wWinMain" wWinMain :convention :stdcall) :int
 296   (arg0 :pointer)
 297   (arg1 :pointer)
 298   (arg2 :pointer)
 299   (arg3 :int))
 300
 301
 302 ;;obsolete
 303 (defcfunex-exported ("AnyPopup" AnyPopup :convention :stdcall) :int)
 304