[comp.windows.news] OOPS! Fix for piemenu.ps!

don@BRILLIG.UMD.EDU (Don Hopkins) (04/01/88)

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