home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 18 / MacAddict_018_1998_02.iso / MEDIA / Software.dxr / LingoLib_6.ls < prev    next >
Encoding:
Text File  |  1997-12-04  |  923 b   |  34 lines
  1. on doPopMenu spriteNum, h, v
  2.   set the visible of sprite spriteNum to 1
  3.   set the locH of sprite spriteNum to h
  4.   set the locV of sprite spriteNum to v
  5.   updateStage()
  6.   set cNum to the castNum of sprite spriteNum
  7.   set lastSelection to 0
  8.   set len to the number of lines in field cNum
  9.   repeat while the stillDown
  10.     set mc to the mouseLine
  11.     if (0 < mc) and (mc <= len) and rollOver(spriteNum) then
  12.       if mc <> lastSelection then
  13.         set lastSelection to mc
  14.         hilite line mc of field cNum
  15.         updateStage()
  16.       end if
  17.       next repeat
  18.     end if
  19.     if mc <> lastSelection then
  20.       set lastSelection to -1
  21.       hilite line len + 1 of field cNum
  22.       updateStage()
  23.     end if
  24.   end repeat
  25.   set the visible of sprite spriteNum to 0
  26.   set the visible of sprite 47 to 0
  27.   updateStage()
  28.   if line lastSelection of field cNum <> EMPTY then
  29.     return lastSelection
  30.   else
  31.     return -1
  32.   end if
  33. end
  34.