-- SELECT BRUSH --
--
----------------------------------------------------------------------
-- For use with the Paint behavior.
--
-- Drop this on any graphic sprite which can act as a button.
----------------------------------------------------------------------



property pBrush



on beginSprite(me)
  tSprite = sprite(me.spriteNum)
  tMember = tSprite.member
  tType   = tMember.type
  
  case tType of
    #bitmap, #flash, #text:
      pBrush = tMember.image
      
    #OSbevelButton:
      pBrush = value(tSprite.iconMember).image
      
    otherwise:
      pBrush = image(1, 1, 32)
  end case
end beginSprite



on mouseUp(me)
  sendAllSprites(#Paint_SetBrushImage, pBrush)
end mouseUp