Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!samsung!brutus.cs.uiuc.edu!psuvax1!rutgers!mephisto!ncsuvx!mcnc!ecsvax.uncecs.edu!dlugose
From: dlugose@uncecs.edu (Dan Dlugose)
Newsgroups: comp.sys.mac.hypercard
Subject: Re: disabling command-q
Message-ID: <1989Dec6.222756.27291@uncecs.edu>
Date: 6 Dec 89 22:27:56 GMT
References: <EZTGqLG00WB5Q382YJ@andrew.cmu.edu>
Reply-To: dlugose@ecsvax.uncecs.edu.UUCP (Dan Dlugose)
Organization: UNC Educational Computing Service
Lines: 21

In article <EZTGqLG00WB5Q382YJ@andrew.cmu.edu> jk4i+@andrew.cmu.edu (John McCall Kingsley, III) writes:
>
>is there anyway to trap the command-q and return to the card that you
>were on at the time of the command-q

on domenu x
   global readytoquit
   if (x is not "quit hypercard") or (readytoquit is true) then 
       pass domenu
   end if
end domenu

on mouseup -- button to handle quitting
   global readytoquit
   -- do preparations
   put true into readytoquit
   domenu "quit hypercard"
end mouseup

Dan Dlugose
UNC Educational Computing Service