-- SHOW BRUSH COLOR --
--
----------------------------------------------------------------------
-- For use with the Paint behavior.
--
-- Drop this behavior on a #shape sprite or a black #bitmap sprite.
----------------------------------------------------------------------



-- PROPERTY DECLARATIONS --

property pSprite
property pColor



-- EVENT HANDLERS --

on beginSprite(me)
  pSprite = sprite(me.spriteNum)
  pColor  = pSprite.color
end beginSprite



on Paint_ShowBrushColor(me, aColor)
  pSprite.color = aColor
end Paint_ShowBrushColor



on Paint_SetBrushColor(me, aColor, isUndo)
  if pColor = aColor then
    exit
  end if
  
  if not isUndo then
    tUndoData = [:]
    tUndoData[#before] = pColor
    tUndoData[#after]  = aColor
    UndoAction("Select Color Undo", tUndoData)
  end if
  
  pColor = aColor
  sprite(me.spriteNum).color = pColor
end Paint_ShowBrushColor