modules/win95.cursor.lisp

   1 (cl:in-package w32apimod)
   2
   3 (define-w32api-module win95.cursor :win95.cursor)
   4
   5 (cl:in-package cl-w32api.module.win95.cursor)
   6
   7 (require-and-inherit-module "win95.~")
   8
   9 (defconstant-exported IDC_ARROW (MAKEINTRESOURCE 32512))
  10 (defconstant-exported IDC_IBEAM (MAKEINTRESOURCE 32513))
  11 (defconstant-exported IDC_WAIT (MAKEINTRESOURCE 32514))
  12 (defconstant-exported IDC_CROSS (MAKEINTRESOURCE 32515))
  13 (defconstant-exported IDC_UPARROW (MAKEINTRESOURCE 32516))
  14 (defconstant-exported IDC_SIZENWSE (MAKEINTRESOURCE 32642))
  15 (defconstant-exported IDC_SIZENESW (MAKEINTRESOURCE 32643))
  16 (defconstant-exported IDC_SIZEWE (MAKEINTRESOURCE 32644))
  17 (defconstant-exported IDC_SIZENS (MAKEINTRESOURCE 32645))
  18 (defconstant-exported IDC_SIZEALL (MAKEINTRESOURCE 32646))
  19 (defconstant-exported IDC_NO (MAKEINTRESOURCE 32648))
  20 (defconstant-exported IDC_HAND (MAKEINTRESOURCE 32649))
  21 (defconstant-exported IDC_APPSTARTING (MAKEINTRESOURCE 32650))
  22 (defconstant-exported IDC_HELP (MAKEINTRESOURCE 32651))
  23 (defconstant-exported IDC_ICON (MAKEINTRESOURCE 32641))
  24 (defconstant-exported IDC_SIZE (MAKEINTRESOURCE 32640))
  25
  26 (defcfunex-exported ("ClipCursor" ClipCursor :convention :stdcall) :int
  27   (arg0 :pointer))
  28
  29 (defcfunex-exported ("CreateCursor" CreateCursor :convention :stdcall) :pointer
  30   (arg0 :pointer)
  31   (arg1 :int)
  32   (arg2 :int)
  33   (arg3 :int)
  34   (arg4 :int)
  35   (arg5 :pointer)
  36   (arg6 :pointer))
  37
  38 (defcfunex-exported ("DestroyCursor" DestroyCursor :convention :stdcall) :int
  39   (arg0 :pointer))
  40
  41 (defcfunex-exported ("GetClipCursor" GetClipCursor :convention :stdcall) :int
  42   (arg0 :pointer))
  43
  44 (defcfunex-exported ("GetCursor" GetCursor :convention :stdcall) :pointer)
  45
  46 (defcfunex-exported ("GetCursorPos" GetCursorPos :convention :stdcall) :int
  47   (lpPOINT :pointer))
  48
  49 (defcfunex-exported ("LoadCursorA" LoadCursorA :convention :stdcall) HCURSOR
  50   (|hInstance| HINSTANCE)
  51   (|lpCursorName| ASTRING))
  52
  53 (defcfunex-exported ("LoadCursorW" LoadCursorW :convention :stdcall) HCURSOR
  54   (|hInstance| HINSTANCE)
  55   (|lpCursorName| WSTRING))
  56
  57 (define-abbrev-exported LoadCursor LoadCursorW)
  58
  59 (defcfunex-exported ("LoadCursorFromFileA" LoadCursorFromFileA :convention :stdcall) :pointer
  60   (arg0 :string))
  61
  62 (defcfunex-exported ("LoadCursorFromFileW" LoadCursorFromFileW :convention :stdcall) :pointer
  63   (arg0 :pointer))
  64
  65 (defcfunex-exported ("SetCursor" SetCursor :convention :stdcall) :pointer
  66   (arg0 :pointer))
  67
  68 (defcfunex-exported ("SetCursorPos" SetCursorPos :convention :stdcall) :int
  69   (arg0 :int)
  70   (arg1 :int))
  71
  72 (defcfunex-exported ("SetSystemCursor" SetSystemCursor :convention :stdcall) :int
  73   (arg0 :pointer)
  74   (arg1 :unsigned-long))
  75
  76 (defcfunex-exported ("ShowCursor" ShowCursor :convention :stdcall) :int
  77   (arg0 :int))
  78