var TSB_MASK         = 0b00001000000000;;
var TSB_TRANSPARENCY = 0b00010000000000;;

struct TSButton=[
  TSBObj2D:Obj2D,
  TSBbitmap:ObjBitmap,
  TSBflags:I,
  TSBstate:I,
  TSBtransp : I,
  TSBClickReflex:fun [TSButton I I I I] TSButton,
  TSBCursorMoveInReflex:fun [TSButton I I I] TSButton,
  TSBCursorMoveOutReflex:fun [TSButton I I I] TSButton,
  TSBdestroyReflex : fun [] I
] MkTSButton;;

proto rectInBmpTSB = fun [TSButton] [I I I I];;
proto PaintTSB = fun [TSButton] [ObjBitmap I I I I I];;
proto PaintPartOfTSB = fun [Rectangle2D TSButton] [ObjBitmap I I I I I];;
proto IsMouseOnTSB = fun [I I TSButton] I;;
proto MoveOutTSB = fun [I I I TSButton] I;;
proto MoveInTSB = fun [I I I TSButton] I;;
proto MoveOutPushedTSB = fun [u0 u1 u2 TSButton] I;;
proto MoveInPushedTSB = fun [u0 u1 u2 TSButton] I;;
proto ClickOutTSB = fun [u0 u1 u2 TSButton] I;;
proto ClickInTSB = fun [u0 u1 I TSButton] I;;
proto UnClickInTSB = fun [I I I TSButton] I;;
proto UnClickOutTSB = fun [u0 u1 u2 TSButton] I;;
proto IsUserClickAllowedInTSB = fun [] I;;
proto IsUserUnClickAllowedInTSB = fun [] I;;
proto DsTSB = fun [TSButton] I;;
proto TSB_New = fun [u0 ContainerType Obj2D [I I] S ObjBitmap I [I I]] TSButton;;
proto TSB_Del = fun [TSButton] TSButton;;
proto TSB_SetClickReflex = fun [TSButton fun [TSButton I I I I u0] TSButton u0] TSButton;;
proto TSB_SetCursorMoveInReflex = fun [TSButton fun [TSButton I I I u0] TSButton u0] TSButton;;
proto TSB_SetCursorMoveOutReflex = fun [TSButton fun [TSButton I I I u0] TSButton u0] TSButton;;
proto TSB_SetDestroyReflex = fun [TSButton fun [u0] I u0] TSButton;;
proto TSB_GetObject = fun [TSButton] Obj2D;;
proto TSB_ChangeDisplayFlags = fun [TSButton I I I] TSButton;;
proto TSB_ChangeCoordinates = fun [TSButton [I I] I I] TSButton;;
proto TSB_GetCoordinates = fun [TSButton] [I I];;
proto TSB_SetState = fun [TSButton I] TSButton;;
proto TSB_GetState = fun [TSButton] I;;