Path: utzoo!mnetor!uunet!lll-winken!lll-tis!ames!pasteur!ucbvax!BRILLIG.UMD.EDU!don
From: don@BRILLIG.UMD.EDU (Don Hopkins)
Newsgroups: comp.windows.news
Subject: OOPS! Fix for piemenu.ps!
Message-ID: <8803311909.AA10248@brillig.umd.edu>
Date: 31 Mar 88 19:11:50 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 25

I stupidly made a tiny little change to piemenu.ps, and distributed
the code without testing it... Here's the fix!

In the definitions of /flipstyle, line 217:
change:
	getmenuaction % fixed to use getmenuaction!
to:
	dup getmenuaction % fixed to use getmenuaction!

Then it will be REALLY fixed.
The whole function should read:

/flipstyle { % - => newmenu
    0 1 MenuActions length 1 sub {
	dup getmenuaction % fixed to use getmenuaction!
	dup type /dicttype eq {
	    /flipstyle exch send	% i menu'
	    MenuActions 3 1 roll put	% -
	} {pop pop} ifelse
    } for
    MenuKeys MenuActions /new DefaultMenu send
} def

SORRY!!

	-Don