struct HSlideBar =[
  HSLBchannel :  Chn,
  HSLBObj2D :    Obj2D,
  HSLBbitmap :   ObjBitmap,
  HSLBwork :     ObjBitmap,
  HSLBleftOffset :   I,
  HSLBbarOffset :    I,
  HSLBrightOffset :  I,
  HSLBcursorOffset : I,
  HSLBbarWidth  :    I,
  HSLBcursorWidth  : I,
  HSLBflags : I,
  HSLBleftState :    I,
  HSLBbarState :     I,
  HSLBrightState :   I,
  HSLBcursorState :  I,
  HSLBtransp : I,
  HSLBvalue :  F,
  HSLBcursorPos : I,
  HSLBmini :   F,
  HSLBmaxi :   F,
  HSLBstep :   F,
  HSLBtimer :  Timer,
  HSLBClickReflex : fun [HSlideBar F] HSlideBar
] MkHSlideBar;;

proto HSLB_New = fun [Chn ContainerType Obj2D [I I] I S ObjBitmap [I I I I] [I I] F F] HSlideBar;;
proto HSLB_Del = fun [HSlideBar] HSlideBar;;
proto HSLB_SetClickReflex = fun [HSlideBar fun [HSlideBar F u0] HSlideBar u0] HSlideBar;;
proto HSLB_SetValue = fun [HSlideBar F] HSlideBar;;
proto HSLB_GetObject = fun [HSlideBar] Obj2D;;
proto HSLB_ChangeDisplayFlags = fun [HSlideBar I I I] HSlideBar;;
proto HSLB_ChangeCoordinates = fun [HSlideBar [I I] I I] HSlideBar;;
proto HSLB_GetCoordinates = fun [HSlideBar] [I I];;