Path: utzoo!attcan!uunet!ns-mx!iowasp!ceres!zaphod.mps.ohio-state.edu!usc!elroy.jpl.nasa.gov!ames!amdahl!rtech!hoptoad!tim
From: tim@hoptoad.uucp (Tim Maroney)
Newsgroups: comp.sys.mac.hypercard
Subject: Re: disabling 'Quit'
Message-ID: <10511@hoptoad.uucp>
Date: 28 Feb 90 09:38:40 GMT
References: <4097@hub.UUCP>
Reply-To: tim@hoptoad.UUCP (Tim Maroney)
Organization: Eclectic Software, San Francisco
Lines: 34

In article <4097@hub.UUCP> 73747.1257@compuserve.com writes:
>I'm no HyperCard wizard, but it strikes me that something like disabling
>the 'Quit' menu item would be a pretty strange and difficult thing to do.
>If anyone has addressed the problem, let me know, or a friend of mine
>(who's the one typing this posting) will have to try and figure out how
>to write some nasty deceptive XCMD for me. Save him from this torture
>and send me the solution to my problem!

-- in stack script, background script, card script, or home script

on doMenu cmd
  if cmd is "Quit HyperCard" then
    play "Boing"
    answer "You're stuck here, me bucko!" with "Oh no!"
    exit doMenu
  end if
  pass doMenu
end doMenu

In my opinion, most stacks should have scripts like this to intercept
such menu commands as Next, Prev, Top, Home, and Help, and at the least
perform the appropriate graphics.  Generally the best way to do this is
with code like:

  if cmd is "Next" then
    send mouseUp to bkgnd button "Next"
    exit doMenu
  end if

And so on for other commands that move between cards and stacks.
-- 
Tim Maroney, Mac Software Consultant, sun!hoptoad!tim, tim@toad.com

"Gorbachev is returning to the heritage of the great Lenin" - Ronald Reagan