6-Dec-87 22:51:31-MST,1389;000000000000 Return-Path: Received: from SUMEX-AIM.Stanford.EDU by SIMTEL20.ARPA with TCP; Sun, 6 Dec 87 22:51:18 MST Return-Path: Received: from NMFECC.ARPA by SUMEX-AIM.STANFORD.EDU with TCP; Mon, 23 Nov 87 09:01:00 PST Received: from ccc.mfenet by ccc.mfenet with Tell via MfeNet ; Mon, 23 Nov 87 09:00:10 PST Date: Mon, 23 Nov 87 09:00:10 PST From: PUGH@NMFECC.ARPA Message-Id: <871123090010.03q@NMFECC.ARPA> Subject: PopUpMenu Script To: INFO-MAC@SUMEX-AIM.STANFORD.EDU Comment: From PUGH@CCC.MFENET on 23-NOV-1987 08:59:57.65 PST ReSent-Date: Sun, 6 Dec 87 21:51:31 PST ReSent-From: Lance Nakata ReSent-To: info-mac-redist: ; ReSent-Message-ID: <12356483577.23.INFO-MAC-REQUEST@SUMEX-AIM.Stanford.EDU> Here is a sample script to use the PopUpMenu XCMD that was recently posted. on mouseDown global lastItem if lastItem is empty then put 0 into lastItem get the rect of card window put "(Pick a Number,(-,One,Two,Three,Four" into choices put PopUpMenu(choices, lastItem,- (the mouseV + item 2 of it),- (the mouseH + item 1 of it)) into junk if junk is not 0 then put junk into lastItem put "Why does everyone pick" && item lastItem of choices & "?" into msg wait 1 secs hide msg end if end mouseDown Jon