modules/win95.wndclass.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.wndclass :win95.wndclass)
   5
   6 (cl:in-package cl-w32api.module.win95.wndclass)
   7
   8 (require-and-inherit-module "win95.~")
   9
  10 (defbitfield (WNDCLASS-STYLES UINT)
  11   (:BYTEALIGNCLIENT 4096)
  12   (:BYTEALIGNWINDOW 8192)
  13   (:KEYCVTWINDOW 4)
  14   (:NOKEYCVT 256)
  15   (:CLASSDC 64)
  16   (:DBLCLKS 8)
  17   (:GLOBALCLASS 16384)
  18   (:HREDRAW 2)
  19   (:NOCLOSE 512)
  20   (:OWNDC 32)
  21   (:PARENTDC 128)
  22   (:SAVEBITS 2048)
  23   (:VREDRAW 1)
  24   (:IME #x10000))
  25
  26 (defcstructex-exported WNDCLASSA
  27         (style         WNDCLASS-STYLES)
  28         (lpfnWndProc   :pointer)
  29         (cbClsExtra    :int)
  30         (cbWndExtra    :int)
  31         (hInstance     HINSTANCE)
  32         (hIcon         HICON)
  33         (hCursor       HCURSOR)
  34         (hbrBackground HBRUSH)
  35         (lpszMenuName  ASTRING)
  36         (lpszClassName ASTRING))
  37
  38 (defcstructex-exported WNDCLASSW
  39         (style         WNDCLASS-STYLES)
  40         (lpfnWndProc   :pointer)
  41         (cbClsExtra    :int)
  42         (cbWndExtra    :int)
  43         (hInstance     HINSTANCE)
  44         (hIcon         HICON)
  45         (hCursor       HCURSOR)
  46         (hbrBackground HBRUSH)
  47         (lpszMenuName  WSTRING)
  48         (lpszClassName WSTRING))
  49
  50 (defcstructex-exported WNDCLASSEXA
  51         (cbSize        UINT)
  52         (style         WNDCLASS-STYLES)
  53         (lpfnWndProc   :pointer)
  54         (cbClsExtra    :int)
  55         (cbWndExtra    :int)
  56         (hInstance     HINSTANCE)
  57         (hIcon         HICON)
  58         (hCursor       HCURSOR)
  59         (hbrBackground HBRUSH)
  60         (lpszMenuName  ASTRING)
  61         (lpszClassName ASTRING)
  62         (hIconSm       HICON))
  63
  64 (defcstructex-exported WNDCLASSEXW
  65         (cbSize        UINT)
  66         (style         WNDCLASS-STYLES)
  67         (lpfnWndProc   :pointer)
  68         (cbClsExtra    :int)
  69         (cbWndExtra    :int)
  70         (hInstance     HINSTANCE)
  71         (hIcon         HICON)
  72         (hCursor       HCURSOR)
  73         (hbrBackground HBRUSH)
  74         (lpszMenuName  WSTRING)
  75         (lpszClassName WSTRING)
  76         (hIconSm       HICON))
  77
  78 (defcfunex-exported ("GetClassInfoA" GetClassInfoA :convention :stdcall) :int
  79   (arg0 :pointer)
  80   (arg1 :string)
  81   (arg2 :pointer))
  82
  83 (defcfunex-exported ("GetClassInfoExA" GetClassInfoExA :convention :stdcall) :int
  84   (arg0 :pointer)
  85   (arg1 :string)
  86   (arg2 :pointer))
  87
  88 (defcfunex-exported ("GetClassInfoW" GetClassInfoW :convention :stdcall) :int
  89   (arg0 :pointer)
  90   (arg1 :pointer)
  91   (arg2 :pointer))
  92
  93 (defcfunex-exported ("GetClassInfoExW" GetClassInfoExW :convention :stdcall) :int
  94   (arg0 :pointer)
  95   (arg1 :pointer)
  96   (arg2 :pointer))
  97
  98 (defcfunex-exported ("GetClassLongA" GetClassLongA :convention :stdcall) :unsigned-long
  99   (arg0 :pointer)
 100   (arg1 :int))
 101
 102 (defcfunex-exported ("GetClassLongW" GetClassLongW :convention :stdcall) :unsigned-long
 103   (arg0 :pointer)
 104   (arg1 :int))
 105
 106 ;; TESTED
 107 (defcfunex-exported ("GetClassNameA" GetClassNameA :convention :stdcall) :int
 108   (hWnd :pointer)
 109   (lpClassName :string)
 110   (nMaxCount :int))
 111
 112 (defcfunex-exported ("GetClassNameW" GetClassNameW :convention :stdcall) :int
 113   (arg0 :pointer)
 114   (arg1 :pointer)
 115   (arg2 :int))
 116
 117 (defcfunex-exported ("GetClassWord" GetClassWord :convention :stdcall) :unsigned-short
 118   (arg0 :pointer)
 119   (arg1 :int))
 120
 121 (defcfunex-exported ("RegisterClassA" RegisterClassA :convention :stdcall) ATOM_T
 122   (arg0 :pointer))
 123
 124 (defcfunex-exported ("RegisterClassW" RegisterClassW :convention :stdcall) ATOM_T
 125   (arg0 :pointer))
 126
 127 (defcfunex-exported ("RegisterClassExA" RegisterClassExA :convention :stdcall) ATOM_T
 128   (arg0 WNDCLASSEXA))
 129
 130 (defcfunex-exported ("RegisterClassExW" RegisterClassExW :convention :stdcall) ATOM_T
 131   (arg0 WNDCLASSEXW))
 132
 133 (define-abbrev-exported RegisterClassEx RegisterClassExW)
 134
 135 (defcfunex-exported ("SetClassLongA" SetClassLongA :convention :stdcall) :unsigned-long
 136   (arg0 :pointer)
 137   (arg1 :int)
 138   (arg2 :int32))
 139
 140 (defcfunex-exported ("SetClassLongW" SetClassLongW :convention :stdcall) :unsigned-long
 141   (arg0 :pointer)
 142   (arg1 :int)
 143   (arg2 :int32))
 144
 145 (defcfunex-exported ("SetClassWord" SetClassWord :convention :stdcall) :unsigned-short
 146   (arg0 :pointer)
 147   (arg1 :int)
 148   (arg2 :unsigned-short))
 149
 150 (defcfunex-exported ("SetWindowWord" SetWindowWord :convention :stdcall) :unsigned-short
 151   (arg0 :pointer)
 152   (arg1 :int)
 153   (arg2 :unsigned-short))
 154
 155 (defcfunex-exported ("UnregisterClassA" UnregisterClassA :convention :stdcall) :int
 156   (arg0 :string)
 157   (arg1 :pointer))
 158
 159 (defcfunex-exported ("UnregisterClassW" UnregisterClassW :convention :stdcall) :int
 160   (arg0 :pointer)
 161   (arg1 :pointer))
 162