home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / popupmen < prev    next >
Text File  |  1987-12-13  |  1KB  |  39 lines
  1.  6-Dec-87 22:51:31-MST,1389;000000000000
  2. Return-Path: <INFO-MAC-REQUEST@SUMEX-AIM.Stanford.EDU>
  3. Received: from SUMEX-AIM.Stanford.EDU by SIMTEL20.ARPA with TCP; Sun, 6 Dec 87 22:51:18 MST
  4. Return-Path: <PUGH@NMFECC.ARPA>
  5. Received: from NMFECC.ARPA by SUMEX-AIM.STANFORD.EDU with TCP; Mon, 23 Nov 87 09:01:00 PST
  6. Received: from ccc.mfenet by ccc.mfenet with Tell via MfeNet ;
  7.     Mon, 23 Nov 87 09:00:10 PST
  8. Date:      Mon, 23 Nov 87 09:00:10 PST
  9. From:     PUGH@NMFECC.ARPA
  10. Message-Id: <871123090010.03q@NMFECC.ARPA>
  11. Subject:   PopUpMenu Script
  12. To:       INFO-MAC@SUMEX-AIM.STANFORD.EDU
  13. Comment: From PUGH@CCC.MFENET on 23-NOV-1987 08:59:57.65 PST
  14. ReSent-Date: Sun, 6 Dec 87 21:51:31 PST
  15. ReSent-From: Lance Nakata <INFO-MAC-REQUEST@SUMEX-AIM.Stanford.EDU>
  16. ReSent-To: info-mac-redist: ;
  17. ReSent-Message-ID: <12356483577.23.INFO-MAC-REQUEST@SUMEX-AIM.Stanford.EDU>
  18.  
  19. Here is a sample script to use the PopUpMenu XCMD that was recently posted.
  20.  
  21. on mouseDown
  22.   global lastItem
  23.   if lastItem is empty then put 0 into lastItem
  24.   get the rect of card window
  25.   put "(Pick a Number,(-,One,Two,Three,Four" into choices
  26.   put PopUpMenu(choices, lastItem,-
  27.   (the mouseV + item 2 of it),-
  28.   (the mouseH + item 1 of it)) into junk
  29.   if junk is not 0 then
  30.     put junk into lastItem
  31.     put "Why does everyone pick" && item lastItem of choices & "?" into msg
  32.     wait 1 secs
  33.     hide msg
  34.   end if
  35. end mouseDown
  36.  
  37. Jon
  38.  
  39.