struct VSlideBar =[
  VSLBchannel :  Chn,
  VSLBObj2D :    Obj2D,
  VSLBbitmap :   ObjBitmap,
  VSLBwork :     ObjBitmap,
  VSLBleftOffset :   I,
  VSLBbarOffset :    I,
  VSLBrightOffset :  I,
  VSLBcursorOffset : I,
  VSLBbarWidth  :    I,
  VSLBcursorWidth  : I,
  VSLBflags :        I,
  VSLBleftState :    I,
  VSLBbarState :     I,
  VSLBrightState :   I,
  VSLBcursorState :  I,
  VSLBtransp :       I,
  VSLBvalue :        F,
  VSLBcursorPos :    I,
  VSLBmini :   F,
  VSLBmaxi :   F,
  VSLBstep :   F,
  VSLBtimer :  Timer,
  VSLBClickReflex : fun [VSlideBar F] VSlideBar
] MkVSlideBar;;

proto VSLB_New = fun [Chn ContainerType Obj2D [I I] I S ObjBitmap [I I I I] [I I] F F] VSlideBar;;
proto VSLB_Del = fun [VSlideBar] VSlideBar;;
proto VSLB_SetClickReflex = fun [VSlideBar fun [VSlideBar F u0] VSlideBar u0] VSlideBar;;
proto VSLB_SetValue = fun [VSlideBar F] VSlideBar;;
proto VSLB_GetObject = fun [VSlideBar] Obj2D;;
proto VSLB_ChangeDisplayFlags = fun [VSlideBar I I I] VSlideBar;;
proto VSLB_ChangeCoordinates = fun [VSlideBar [I I] I I] VSlideBar;;
proto VSLB_GetCoordinates = fun [VSlideBar] [I I];;