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

on new me
  
  return me
end new


on mInitSprite me,helpText
  set pHelpText = helpText
  set pCursor = [the number of member "cur1" of castLib "comm",the number of member "cur2" of castLib mm"]
  mSetActive(me)
end mInitSprite


on mSetPause me
  set the cursor of sprite pSprite to -1
  set pActive = FALSE
end mSetPause


on mSetActive me
  set the cursor of sprite pSprite to pCursor
  set pActive = TRUE
end mSetActive


on mouseEnter me
  Global gHelpObj
  
  if pActive then
    mOpenHelp(gHelpObj,pHelpText,pSprite,pCursor)
  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
