modules/win95.scrollbar.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.scrollbar :win95.scrollbar)
   5
   6 (cl:in-package cl-w32api.module.win95.scrollbar)
   7
   8 (defcfunex-exported ("EnableScrollBar" EnableScrollBar :convention :stdcall) :int
   9   (arg0 :pointer)
  10   (arg1 :unsigned-int)
  11   (arg2 :unsigned-int))
  12
  13 (defcfunex-exported ("GetScrollInfo" GetScrollInfo :convention :stdcall) :int
  14   (arg0 :pointer)
  15   (arg1 :int)
  16   (arg2 :pointer))
  17
  18 (defcfunex-exported ("GetScrollPos" GetScrollPos :convention :stdcall) :int
  19   (arg0 :pointer)
  20   (arg1 :int))
  21
  22 (defcfunex-exported ("GetScrollRange" GetScrollRange :convention :stdcall) :int
  23   (arg0 :pointer)
  24   (arg1 :int)
  25   (arg2 :pointer)
  26   (arg3 :pointer))
  27
  28 (defcfunex-exported ("ScrollDC" ScrollDC :convention :stdcall) :int
  29   (arg0 :pointer)
  30   (arg1 :int)
  31   (arg2 :int)
  32   (arg3 :pointer)
  33   (arg4 :pointer)
  34   (arg5 :pointer)
  35   (arg6 :pointer))
  36
  37 (defcfunex-exported ("ScrollWindow" ScrollWindow :convention :stdcall) :int
  38   (arg0 :pointer)
  39   (arg1 :int)
  40   (arg2 :int)
  41   (arg3 :pointer)
  42   (arg4 :pointer))
  43
  44 (defcfunex-exported ("ScrollWindowEx" ScrollWindowEx :convention :stdcall) :int
  45   (arg0 :pointer)
  46   (arg1 :int)
  47   (arg2 :int)
  48   (arg3 :pointer)
  49   (arg4 :pointer)
  50   (arg5 :pointer)
  51   (arg6 :pointer)
  52   (arg7 :unsigned-int))
  53
  54 (defcfunex-exported ("SetScrollInfo" SetScrollInfo :convention :stdcall) :int
  55   (arg0 :pointer)
  56   (arg1 :int)
  57   (arg2 :pointer)
  58   (arg3 :int))
  59
  60 (defcfunex-exported ("SetScrollPos" SetScrollPos :convention :stdcall) :int
  61   (arg0 :pointer)
  62   (arg1 :int)
  63   (arg2 :int)
  64   (arg3 :int))
  65
  66 (defcfunex-exported ("SetScrollRange" SetScrollRange :convention :stdcall) :int
  67   (arg0 :pointer)
  68   (arg1 :int)
  69   (arg2 :int)
  70   (arg3 :int)
  71   (arg4 :int))
  72
  73 (defcfunex-exported ("ShowScrollBar" ShowScrollBar :convention :stdcall) :int
  74   (arg0 :pointer)
  75   (arg1 :int)
  76   (arg2 :int))
  77
  78
  79