home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 144 / DPCS0200.iso / Business / Helpme / _SETUP.1 / helpme.dxr / problemsolving_1_troublesolving.ls < prev    next >
Encoding:
Text File  |  1999-11-12  |  1.2 KB  |  69 lines
  1. property pSpriteList, pMemberList, pPressed
  2.  
  3. on getPropertyDescriptionList me
  4.   list = [:]
  5.   addProp(list, #pSpriteList, [#comment: "Sprite List", #format: #list, #default: []])
  6.   return list
  7. end
  8.  
  9. on beginSprite me
  10.   pMemberList = [:]
  11.   repeat with i in pSpriteList
  12.     addProp(pMemberList, i, sprite(i).member.name)
  13.   end repeat
  14.   hidePopup(me)
  15. end
  16.  
  17. on mouseDown me
  18.   pPressed = 1
  19. end
  20.  
  21. on mouseUp me
  22.   liftUp(me)
  23. end
  24.  
  25. on mouseUpOutSide me
  26.   liftUp(me)
  27. end
  28.  
  29. on liftUp me
  30.   pPressed = 0
  31.   hidePopup(me)
  32.   select(me)
  33. end
  34.  
  35. on showPopup me
  36.   repeat with i in pSpriteList
  37.     sprite(i).member = member(pMemberList.getProp(i))
  38.   end repeat
  39. end
  40.  
  41. on hidePopup me
  42.   repeat with i = 1 to pSpriteList.count
  43.     sprite(pSpriteList[i]).memberNum = 0
  44.   end repeat
  45. end
  46.  
  47. on exitFrame me
  48.   if pPressed then
  49.     showPopup(me)
  50.     s = the rollOver
  51.     if pSpriteList.getOne(s) then
  52.       sprite(s).member = member(pMemberList.getProp(s) && "hilite")
  53.     end if
  54.   end if
  55. end
  56.  
  57. on select me
  58.   s = the rollOver
  59.   if pSpriteList.getOne(s) then
  60.     if s = 20 then
  61.       go("Internetproblem1")
  62.       play frame member("internet")
  63.     end if
  64.     if s = 23 then
  65.       gotoNetPage("http://www.computerjunkie.com")
  66.     end if
  67.   end if
  68. end
  69.