(FILECREATED "20-Nov-84 13:40:38" ("compiled on " {AZTEC}BIRTHDAY84>RERELEASE>TRI-CREATE.;3) " 8-Jun-84 11:17:20" recompiled exprs: ACQUIRE.CLASS.NAME GET.BITMAP.NAME.MENU in WORK dated "21-Jun-84 10:50:28") (FILECREATED "20-Nov-84 13:38:01" {AZTEC}BIRTHDAY84>RERELEASE>TRI-CREATE.;3 28994 changes to: (FNS GET.BITMAP.NAME.MENU ACQUIRE.CLASS.NAME) previous date: "19-Nov-84 18:53:33" {AZTEC}BIRTHDAY84>RERELEASE>TRI-CREATE.;2) ACQUIRE.CLASS.NAME D1 (P 10Q FRAME P 2 CLASS P 1 CLASS.MENU P 0 CLASSES I 0 INTERFACE) P0@g #dOg ]NM_^OXdd Xd Hoh X`dodHdi didg dgjdndhdK Yd Zddggg oL  ^M|(256Q LAST 252Q PROMPT.READ 246Q PRIN1 235Q GET.TRILLIUM.PRINTOUT.WINDOW 212Q MENU 112Q \NCONC2 100Q SORT 73Q INTERSECTION 36Q COPY 33Q LISTGET 14Q LISTGET) (232Q NEW.BLOCK 227Q PROMPTWINDOW 220Q $$NEW.CLASS$$ 161Q DEFAULTMENUHELDFN 152Q CLRPROMPT 116Q MENUTYPE# 30Q CLASSES 11Q FRAMES) ( 242Q "New class name for frame: " 124Q "Frame classes" 105Q ("New class" (QUOTE $$NEW.CLASS$$))) ACQUIRE.FRAME.NAME D1 (I 0 INTERFACE) !`@g gog  (36Q KEYWORD.MENU.INVOKE 30Q KEYWORD.MENU.CREATE 13Q LISTGET) (33Q FRAME.NAME.MENU 25Q FRAME.NAME 16Q FRAME.CLASSES 10Q FRAMES 2 FRAME.NAME.MENU) ( 22Q (TITLE "Frames" CENTERFLG T)) ACQUIRE.INTERFACE.NAME D1 NIL E`d`dodi didg dgjdndhHdI  (102Q MENU) (47Q DEFAULTMENUHELDFN 40Q CLRPROMPT 7 INTERFACES 2 MENUTYPE#) ( 17Q "Interfaces") ACQUIRE.ITEM D1 (P 1 DONE P 0 ITEM I 3 ITYPE I 2 FROM.SUPERFRAMES.TOO I 1 PROMPT I 0 FRAME) i0Agg AJ @BC IJ`kj@BC X@BC iY@BC` ` @BC iYH(140Q FLIP.ALL.ITEMS 131Q ACQUIRE.ITEM.FROM 125Q LASTMOUSEY 117Q LASTMOUSEX 105Q WAITNOBUG 75Q FLIP.ALL.ITEMS 64Q ACQUIRE.NAMED.ITEM.FROM 44Q WAITBUG 40Q WAITNOBUG 32Q FLIP.ALL.ITEMS 23Q PRIN1 15Q GET.TRILLIUM.PRINTOUT.WINDOW) (122Q CURRENT.DSP 114Q CURRENT.DSP 50Q LASTMOUSEBUTTONS 12Q NEW.BLOCK 7 PROMPTWINDOW) () ACQUIRE.ITEM.FROM D1 (P 5 BOX P 4 MINBOX P 3 MINITEM P 2 TOPITEM P 1 ITEM I 4 YCOORD I 3 XCOORD I 2 ITYPE I 1 FROM.SUPERFRAMES.TOO I 0 FRAME) H@ABCD aHKY JIZLM IMHXML gg oN J(104Q PRIN1 73Q GET.TRILLIUM.PRINTOUT.WINDOW 60Q STRICTLY.ENCLOSESP 41Q STRICTLY.ENCLOSESP 26Q BOUNDING.BOX 10Q HITS.IN.FRAME) (70Q NEW.BLOCK 65Q TRILLIUM.WARNINGS) ( 100Q "More than one indicated; taking the top one") ACQUIRE.ITEM.TYPE D1 (I 1 CLASSLIST I 0 PROMPT) /@gg @H ``go  (54Q KEYWORD.MENU.INVOKE 46Q KEYWORD.MENU.CREATE 23Q PRIN1 13Q GET.TRILLIUM.PRINTOUT.WINDOW) (51Q ITEM.TYPE.MENU 37Q ITEM.TYPE.CLASSES 34Q ITEM.TYPES 27Q ITEM.TYPE.MENU 10Q NEW.BLOCK 5 PROMPTWINDOW) ( 43Q (TITLE "Item types" CENTERFLG T)) ACQUIRE.ITEM.TYPE.SIMPLE D1 (I 0 FRAME) ``gog  (32Q KEYWORD.MENU.INVOKE 24Q KEYWORD.MENU.CREATE) (27Q ITEM.TYPE.MENU 21Q ITEM.TYPE.MENU.ITEM 12Q ITEM.TYPE.CLASSES 7 ITEM.TYPES 2 ITEM.TYPE.MENU) ( 16Q (TITLE "Item types" CENTERFLG T)) ACQUIRE.MOVED.LOCATION D1 (P 10Q PREVIOUSY P 7 PREVIOUSX P 6 LASTY P 5 LASTX P 4 MARKY P 3 MARKX P 2 OFFSETY P 1 OFFSETX P 0 BOX I 1 REFERENCE.LOCATION I 0 ITEM) o @ `A`[`A`\HKYHLZH KL jt` ```۽` ```۾MONOKL H `M`ػ`N`ؼHKIHLJH KL M_N_KL H MN(277Q WAITNOBUG 274Q FLIP.BOX 270Q FLIP.SPOT 250Q FLIP.SPOT 242Q FLIP.BOX 174Q FLIP.BOX 167Q FLIP.SPOT 132Q LASTMOUSEY 107Q LASTMOUSEX 75Q MOUSEBUTTONS 72Q FLIP.SPOT 65Q FLIP.BOX 15Q COPYALL 12Q COERCE.BOUNDING.BOX 6 OBS) (216Q TRILLIUM.GRID.DY 212Q TRILLIUM.GRID.Y0 204Q TRILLIUM.GRID.DX 200Q TRILLIUM.GRID.X0 145Q TRILLIUM.GRID.DY 141Q TRILLIUM.GRID.Y0 135Q TRILLIUM.GRID.HALF.DY 127Q CURRENT.DSP 122Q TRILLIUM.GRID.DX 116Q TRILLIUM.GRID.X0 112Q TRILLIUM.GRID.HALF.DX 104Q CURRENT.DSP 43Q TRILLIUM.GRID.DY 36Q TRILLIUM.GRID.Y0 30Q TRILLIUM.GRID.DX 23Q TRILLIUM.GRID.X0) ( 3 "No more grid stuff!") ACQUIRE.MOVED.PLACEMENT D1 (P 4 NEW.POSITION P 3 REFERENCE.POINT P 2 CENTER.OF.BOUNDING.BOX P 1 BOUNDING.BOX P 0 ITYPE I 1 PROMPT I 0 ITEM) +`Agg AM @ Yd [I \KL (50Q VECTOR/FROM.TO 42Q ACQUIRE.POSITION 35Q REGION/CENTER 30Q COERCE.BOUNDING.BOX 23Q PRIN1 15Q GET.TRILLIUM.PRINTOUT.WINDOW) (12Q NEW.BLOCK 7 PROMPTWINDOW) () ACQUIRE.MOVED.POSITION D1 (P 17Q GRID.DRAWN P 16Q DONE P 15Q DOWN P 14Q PREVIOUSKEY P 13Q PREVIOUSY P 12Q PREVIOUSX P 11Q LASTKEY P 10Q LASTY P 7 LASTX P 6 OFFSETYG P 5 OFFSETXG P 4 OFFSETY P 3 OFFSETX P 2 MARKY P 1 MARKX P 0 BOX I 1 REFERENCE.POINT I 0 ITEM) o @ XAYAddAZHI[HJ\H`I````]H`J````^H IJ O` _` _`l@j_4`O````_`O````_`njOiOh_OOOOOODIJ H OOHIOMKHJONLH IJ O_O_O_`lji_O`lji_IJ H OOMKONLOO(573Q FLIP.BOX 567Q FLIP.SPOT 537Q GETMOUSESTATE 505Q GETMOUSESTATE 501Q MOUSEBUTTONS 456Q FLIP.SPOT 450Q FLIP.BOX 406Q FLIP.BOX 401Q FLIP.SPOT 344Q DRAW.GRID 333Q DRAW.GRID 205Q LASTMOUSEY 174Q LASTMOUSEX 160Q FLIP.SPOT 153Q FLIP.BOX 23Q COPYALL 20Q COERCE.BOUNDING.BOX 6 OBS) (543Q LASTMOUSEBUTTONS 511Q LASTMOUSEBUTTONS 313Q \EM.KBDAD2 303Q TRILLIUM.GRID.DY 277Q TRILLIUM.GRID.DY 273Q TRILLIUM.GRID.Y0 267Q TRILLIUM.GRID.HALF.DY 262Q TRILLIUM.GRID.Y0 252Q TRILLIUM.GRID.DX 246Q TRILLIUM.GRID.DX 242Q TRILLIUM.GRID.X0 236Q TRILLIUM.GRID.HALF.DX 231Q TRILLIUM.GRID.X0 213Q \EM.KBDAD2 202Q CURRENT.DSP 171Q CURRENT.DSP 143Q TRILLIUM.GRID.DY 137Q TRILLIUM.GRID.DY 133Q TRILLIUM.GRID.Y0 127Q TRILLIUM.GRID.HALF.DY 123Q TRILLIUM.GRID.Y0 111Q TRILLIUM.GRID.DX 105Q TRILLIUM.GRID.DX 101Q TRILLIUM.GRID.X0 75Q TRILLIUM.GRID.HALF.DX 71Q TRILLIUM.GRID.X0) ( 3 "Superseded by new ACQUIRE.POSITION") ACQUIRE.NAME D1 (I 0 MESSAGE) #@gg @H oH (40Q PROMPT.READ 34Q PRIN1 23Q PRIN1 13Q GET.TRILLIUM.PRINTOUT.WINDOW) (10Q NEW.BLOCK 5 PROMPTWINDOW) ( 30Q ": ") ACQUIRE.NAMED.ITEM.FROM D1 (P 7 ITEM P 2 NAME.MENU P 1 MENU.ITEMS P 0 NAME I 2 ITYPE I 1 SUPERFRAMES.TOO I 0 FRAME) @0@g LdBBO1Og Xd%Oddidd gOhhh\M&L^]NYd dg Ydo Zd  ]Lgg oK h(225Q WAITNOBUG 221Q PRIN1 210Q GET.TRILLIUM.PRINTOUT.WINDOW 172Q LAST 166Q CHUNK.MENU.INVOKE 161Q CHUNK.MENU.CREATE 150Q SORT 45Q LISTGET 14Q LISTGET) (205Q NEW.BLOCK 202Q TRILLIUM.WARNINGS 145Q MENU.ITEM.GREATER 102Q QUOTE 42Q NAME 11Q ITEMS) ( 215Q "This frame has no named items" 156Q (TITLE "Named items" CENTERFLG T)) ACQUIRE.PLACEMENT D1 (P 16Q PARAMETER P 7 PVAL P 6 PNAME P 5 CREATE.FN P 4 TRANSLATE.FN P 3 PTYPE P 2 DESCRIPTION P 1 ITYPE P 0 SUB.PROMPT I 1 PROMPT I 0 ITEM) o Agg _AO @YdgZ0 Jg dOg [dtg Kg \`Og Kg H gg _HO NO hXgg _oO NO KkM_NOh_OO__gO _O(325Q LAST 250Q PRIN1 241Q PRIN1 225Q GET.TRILLIUM.PRINTOUT.WINDOW 207Q PRIN1 200Q PRIN1 167Q GET.TRILLIUM.PRINTOUT.WINDOW 152Q FUNCTION.FOR.PTYPE 141Q LISTGET 126Q FUNCTION.FOR.PTYPE 114Q FUNCTION.FOR.PTYPE 100Q LISTGET 60Q LISTGET 33Q PRIN1 22Q GET.TRILLIUM.PRINTOUT.WINDOW) (222Q SAME.LINE 217Q PROMPTWINDOW 164Q NEW.BLOCK 161Q PROMPTWINDOW 147Q CREATE 136Q NAME 123Q TRANSLATE 111Q LTRANSLATE 75Q TYPE 55Q PARAMETERS 44Q TYPE.DESCRIPTION 17Q NEW.BLOCK 14Q PROMPTWINDOW) ( 234Q ", " 3 "Indicate values for the following characteristics: ") ACQUIRE.POSITION D1 (P 24Q CLIPPING.REGION P 23Q GRID.DRAWN P 22Q BOX P 21Q YOFFSET P 20Q XOFFSET P 17Q YMIN P 16Q XMIN P 15Q YMAX P 14Q XMAX P 13Q MARKY P 12Q MARKX P 11Q PREVIOUSKEY P 10Q LASTKEY P 7 PREVIOUSY P 6 LASTY P 5 PREVIOUSX P 4 LASTX P 3 Y0 P 2 X0 P 1 NEWPOS P 0 DSP I 2 WINDOW I 1 BANDFLG I 0 OLDPOS) ?B `bB PhH _(d_O(O(k_O(_O(O(k_@H H Yk @ A^II[U@ G@ _$jO$_ jO$_"OO _OO _OO"_OO"_O$ Yo@ I\I^OOL \OON ^ILINjIH jH H `l@j_.`L````ؼ`N````ؾOOL OON `njO&iO&h_&LMNOOOkO]L_N_IOIOJ5O$OO LN_O_8OO O$OO"O$ KOOkg` O JO$O$ KOOkg` OO JO$ O&I KOOkg` (1072Q DRAWLINE 1047Q FLIP.BOX 1042Q DRAW.GRID 1025Q FLIP.SPOT 1012Q DRAWLINE 767Q FLIP.BOX 752Q FLIP.SPOT 742Q DRAWLINE 717Q FLIP.BOX 652Q FLIP.SPOT 557Q DRAW.GRID 546Q DRAW.GRID 522Q MIN 517Q MAX 506Q MIN 503Q MAX 400Q LASTMOUSEY 373Q LASTMOUSEX 361Q MOUSEBUTTONS 356Q CURSORPOSITION 345Q MOUSEBUTTONS 333Q MIN 330Q MAX 317Q MIN 314Q MAX 275Q HELP 263Q REGION/CENTER 164Q COPYALL 156Q REGIONP 136Q COPYALL 131Q POSITIONP 122Q LASTMOUSEY 116Q LASTMOUSEX 111Q MOUSEBUTTONS 33Q DSPCLIPPINGREGION 16Q \INSUREWINDOW 3 WINDOWP) (1066Q CURRENT.DSP 1063Q INVERT 1006Q CURRENT.DSP 1003Q INVERT 736Q CURRENT.DSP 733Q INVERT 526Q \EM.KBDAD2 470Q TRILLIUM.GRID.DY 464Q TRILLIUM.GRID.DY 460Q TRILLIUM.GRID.Y0 454Q TRILLIUM.GRID.HALF.DY 450Q TRILLIUM.GRID.Y0 442Q TRILLIUM.GRID.DX 436Q TRILLIUM.GRID.DX 432Q TRILLIUM.GRID.X0 426Q TRILLIUM.GRID.HALF.DX 422Q TRILLIUM.GRID.X0 404Q \EM.KBDAD2 7 CURRENT.INTERFACE.WINDOW) ( 271Q "Bad type: ") ACQUIRE.REGION D1 (P 13Q GETREGIONFNARG P 12Q OLDBOX P 11Q GRID.DRAWN P 10Q MAXREGION P 7 MAXHEIGHT P 6 MAXWIDTH P 5 MINBOTTOM P 4 MINLEFT P 3 NEW.REGION P 2 CLIPPING.REGION P 1 WINDOW.OUTLINE P 0 WINDOW.BORDER I 3 WINDOW I 2 INITREGION I 1 MINHEIGHT I 0 MINWIDTH) C `bC ,C hC  HIJ\HIJ]J^J_LMNOh_OOOh_l@j blAj bB gO [O_,O_KLKM@K AK h (262Q FLIP.BOX 251Q MAX 240Q MAX 216Q DRAW.GRID 174Q GETREGION 163Q REGIONP 155Q MAX 142Q MAX 40Q DSPCLIPPINGREGION 33Q \INSUREWINDOW 24Q \INSUREWINDOW 16Q \INSUREWINDOW 3 WINDOWP) (166Q ACQUIRE.REGION.GETREGIONFN 7 CURRENT.INTERFACE.WINDOW) () ACQUIRE.REGION.GETREGIONFN D1 (P 15Q Y2 P 14Q X2 P 13Q Y1 P 12Q X1 P 11Q YMAX P 10Q YMIN P 7 Y P 6 XMAX P 5 XMIN P 4 X P 3 MAXREGION P 2 OLDBOX P 1 GRID.DRAWN P 0 PT I 2 GETREGIONFNARG I 1 MOVINGPT I 0 FIXEDPT) A@BBBd H\H_K]KKk^K_KKk_`l@jCM`jLM ````ؼO`jOO ````_`njIiIJXhZHMNL HOOO I,@)A&@@HH OMOOOMOOJ ZBIBJH (365Q FLIP.BOX 347Q FLIP.ENCLOSED.BOX 273Q MAX 270Q MIN 255Q MAX 252Q MIN 237Q DRAW.GRID 224Q DRAW.GRID 155Q MAX 114Q MAX) (205Q \EM.KBDAD2 174Q TRILLIUM.GRID.DY 170Q TRILLIUM.GRID.DY 164Q TRILLIUM.GRID.Y0 160Q TRILLIUM.GRID.HALF.DY 144Q TRILLIUM.GRID.Y0 133Q TRILLIUM.GRID.DX 127Q TRILLIUM.GRID.DX 123Q TRILLIUM.GRID.X0 117Q TRILLIUM.GRID.HALF.DX 105Q TRILLIUM.GRID.X0 70Q \EM.KBDAD2) () CREATE.COLOR.NAME D1 (P 6 ITEM P 0 COLOR.NAMES) 00`g g .dNgNg Ng h[LVK]\MX`ggH i i dIdi didg dgjdndhdJ  \K(224Q LAST 220Q MENU 136Q MERGEINSERT 132Q MERGEINSERT 126Q SORT 64Q GET.PARAM.DEFAULT 53Q LISTGET 24Q LISTGET 16Q FIND.FRAME) (171Q DEFAULTMENUHELDFN 162Q CLRPROMPT 122Q WHITE 117Q BLACK 113Q MENUTYPE# 61Q NAME 50Q NAME 41Q COLOR 21Q ITEMS 13Q COLORS 10Q CURRENT.INTERFACE) () CREATE.INTEGER D1 (I 0 PTYPE) (2 RNUMBER) NIL () CREATE.ITEM D1 (I 0 ITEM.TYPE) !gg oH @H @ (36Q NEW.ITEM 31Q PRIN1 23Q PRIN1 10Q GET.TRILLIUM.PRINTOUT.WINDOW) (5 NEW.BLOCK 2 TRILLIUM.TRACE) ( 17Q "Creation of a new ") CREATE.LIST D1 (I 0 ITEM.TYPE) f@o gg oH dhgg oH @H 0o @ I JhYJ&H(122Q CREATE.OBJECT 114Q CONFIRM 101Q PRIN1 73Q PRIN1 60Q GET.TRILLIUM.PRINTOUT.WINDOW 41Q PROMPT.READ 35Q PRIN1 22Q GET.TRILLIUM.PRINTOUT.WINDOW 7 EQUAL) (55Q NEW.BLOCK 52Q TRILLIUM.TRACE 17Q NEW.BLOCK 14Q PROMPTWINDOW) ( 111Q "Done with list?" 67Q "Gathering a LIST of " 31Q "Type in a list of strings: " 4 (STRING)) CREATE.OBJECT D1 (P 0 CREATE.FN I 2 ITEM I 1 PARAMETER.NAME I 0 OTYPE) =@l@  @g Xd@ABlHgg oI  (72Q EVAL 67Q PROMPT.READ 63Q PRIN1 52Q GET.TRILLIUM.PRINTOUT.WINDOW 25Q FUNCTION.FOR.PTYPE 11Q CREATE.ITEM) (47Q NEW.BLOCK 44Q PROMPTWINDOW 22Q CREATE) ( 57Q "CREATE: Enter an expression to be eval'd to get the object: ") CREATE.ONEOF D1 (I 0 TYPES) C`dod@di didg dgjdndhHdI  (100Q MENU) (45Q DEFAULTMENUHELDFN 36Q CLRPROMPT 2 MENUTYPE#) ( 10Q "Choose one of") CREATE.STRUCTURE D1 (P 4 ELEMENT I 0 ELEMENTS) 3P@)dgg LK L IHhZH&J(37Q CREATE.OBJECT 30Q PRIN1 21Q GET.TRILLIUM.PRINTOUT.WINDOW) (16Q NEW.BLOCK 13Q PROMPTWINDOW) () FLIP.ENCLOSED.BOX D1 (P 4 BOX P 3 TOP P 2 RIGHT P 1 BOTTOM P 0 LEFT I 4 OLDBOX I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) @BzACu@B AC @B AC DodndhD*HLILJHLKIL'DD LHLILJHLKIL Lh(172Q FLIP.BOX 133Q FLIP.BOX 35Q MAX 30Q MAX 23Q MIN 16Q MIN) NIL ( 44Q -37777Q) GET.BITMAP.NAME.MENU D1 (P 0 COLUMNS I 1 RETURN.TO.CLASS.MENU I 0 BITMAP.NAMES) q0@ bd `@ Wd lk @`Ah@H dIdi didHdg dgjdndhdJ `(61Q \APPEND2 56Q VERTICAL.SORT 40Q MAX 31Q LENGTH 23Q EQUAL 6 SORT) (155Q BITMAP.NAME.MENU 151Q BITMAP.NAME.MENU 121Q DEFAULTMENUHELDFN 112Q CLRPROMPT 45Q MENUTYPE# 16Q BITMAP.NAME.MENU) () GETPOINTONGRID D1 (L (1 DELTAS 0 PT)) ;`@A````A`@A````ANIL (62Q TRILLIUM.GRID.DY 56Q TRILLIUM.GRID.DY 52Q TRILLIUM.GRID.Y0 45Q TRILLIUM.GRID.HALF.DY 36Q TRILLIUM.GRID.Y0 26Q TRILLIUM.GRID.DX 22Q TRILLIUM.GRID.DX 16Q TRILLIUM.GRID.X0 11Q TRILLIUM.GRID.HALF.DX 2 TRILLIUM.GRID.X0) () GETREGIONONGRID D1 (I 2 DELTAS I 1 MOVINGPOINT I 0 FIXEDPOINT) A@B (7 GETPOINTONGRID) NIL () HITS.IN.FRAME D1 (P 2 ITEM P 1 SUPERFRAME.NAME P 0 HITS I 4 YCOORD I 3 XCOORD I 2 ITYPE I 1 FROM.SUPERFRAMES.TOO I 0 FRAME) YA)@g d`I ABCD H X@g dBBJJ CD JHH(113Q INSIDEP 106Q BOUNDING.BOX 63Q LISTGET 46Q \NCONC2 42Q HITS.IN.FRAME 32Q FIND.FRAME 14Q LISTGET) (60Q ITEMS 26Q CURRENT.INTERFACE 11Q SUPERFRAMES) () MENU.ITEM.GREATER D1 (I 1 MENU.ITEM.2 I 0 MENU.ITEM.1) @A (6 ALPHORDER) NIL () VERTICAL.SORT D1 (P 6 ITEM P 4 COLUMN# P 3 POINTER P 2 LEFTOVER P 1 ROWS P 0 #ITEMS I 1 COLUMNS I 0 MENU.ITEMS) q P@ XdAYHAZk[Hk2 NMS@Nkk)KIJkA kNA\JkLjkjH[djH _OOh__Nk^O&_O(115Q NTH 54Q EQP 6 LENGTH) NIL () (PRETTYCOMPRINT TRI-CREATECOMS) (RPAQQ TRI-CREATECOMS ((FNS ACQUIRE.CLASS.NAME ACQUIRE.FRAME.NAME ACQUIRE.INTERFACE.NAME ACQUIRE.ITEM ACQUIRE.ITEM.FROM ACQUIRE.ITEM.TYPE ACQUIRE.ITEM.TYPE.SIMPLE ACQUIRE.MOVED.LOCATION ACQUIRE.MOVED.PLACEMENT ACQUIRE.MOVED.POSITION ACQUIRE.NAME ACQUIRE.NAMED.ITEM.FROM ACQUIRE.PLACEMENT ACQUIRE.POSITION ACQUIRE.REGION ACQUIRE.REGION.GETREGIONFN CREATE.COLOR.NAME CREATE.INTEGER CREATE.ITEM CREATE.LIST CREATE.OBJECT CREATE.ONEOF CREATE.STRUCTURE FLIP.ENCLOSED.BOX GET.BITMAP.NAME.MENU GETPOINTONGRID GETREGIONONGRID HITS.IN.FRAME MENU.ITEM.GREATER VERTICAL.SORT))) (PUTPROPS TRI-CREATE COPYRIGHT ("Xerox Corporation" 1984)) NIL