property pSprite,pOrgName,pRoName,pDoName,pHelpText,pActive

on new me
  
  return me
end new


on mInitSprite me,helpText
  set pHelpText = helpText
  mSetActive(me)
end mInitSprite


on mSetPause me
  set pActive = FALSE
end mSetPause


on mSetActive me
  set pActive = TRUE
end mSetActive


on mouseEnter me
  Global gHelpObj
  
  if pActive then
    mOpenHelp(gHelpObj,pHelpText,pSprite,[])
  end if
end mouseEnter


on mouseLeave me
  Global gHelpObj
  
  if pActive then
    mCloseHelp(gHelpObj)
  end if
end mouseLeave


on mouseWithin me
  Global gHelpObj
  
  if pActive then
    mShowHelp(gHelpObj)
  end if
end mouseWithin
