(FILECREATED " 9-SEP-83 16:52:56" ("compiled on " {PHYLUM}INMENU.;5) " 8-SEP-83 19:22:13" tcompl'd in {PHYLUM}FUGUE>DEMO.SYSOUT dated " 9-SEP-83 14:01:30") (FILECREATED "18-FEB-83 10:05:58" {IVY}LISPUSERS>INMENU.;5 3406 changes to: (FNS INMENU) previous date: "16-FEB-83 13:55:31" {IVY}LISPUSERS>INMENU.;3) INMENU D1 (P 12Q yPos P 11Q xPos P 10Q item P 7 items P 6 window P 5 menu P 4 questionMark P 3 pointers P 2 bellFlash P 1 NotSet P 0 dismissTime I 3 noShiftFlg I 2 helpStr I 1 goodList I 0 promptStr) þ A§@ABC n,ggogu BšA Lh €A_¿`dO¿dg¿d@¿dl¿dg ¿dg¿jdnÿdh_¿dO ¿½h` h` Ô_¿h` `g ØM ÈÙ_¿MhOO ¿M ^gI ¿J@K ¿INg _ðšH ¿N °êOLðžB ¿NgI °ÖMi ¿O(371Q PROMPT 365Q DELETEMENU 356Q PUTWINDOWPROP 345Q PROMPT 332Q TOTOPW 325Q DISMISS 315Q GETWINDOWPROP 304Q PROMPT 301Q CONCAT 272Q PUTWINDOWPROP 262Q WFROMMENU 255Q ADDMENU 232Q CHECK/MENU/IMAGE 221Q GETWINDOWPROP 210Q DSPYOFFSET 172Q DSPCLIPPINGREGION 163Q DSPXOFFSET 50Q \NCONC2 42Q COPY 10Q INTTY) (352Q MenuValue 312Q MenuValue 266Q MenuValue 235Q BITMAP 216Q REGION 213Q PROMPTWINDOW 205Q PROMPTWINDOW 167Q PROMPTWINDOW 160Q PROMPTWINDOW 124Q DEFAULTMENUHELDFN 115Q CLRPROMPT 73Q InMenuWhenSelectedFn 60Q MENUTYPE# 31Q ? 22Q  17Q **NotSetYet**) (26Q " Use menu --->>") InMenuWhenSelectedFn D1 (P 0 window I 2 key I 1 menu I 0 item) A Xdg@ @(17Q PUTWINDOWPROP 6 WFROMMENU) (13Q MenuValue) NIL (PRETTYCOMPRINT INMENUCOMS) (RPAQQ INMENUCOMS ((* Copyright (c) 1983 by Xerox Corporation.) (* INMENU package. Functions to support interactive menus for program interaction. Similar to the standard pop-up menus except that arguments are compatible with INTTY and does not lock out other processes.) (* Written by Mark Stefik. ) (FNS INMENU InMenuWhenSelectedFn))) NIL