(FILECREATED "20-Mar-85 11:03:06" ("compiled on " {PHYLUM}BIRTHDAY84>SOURCES>TRI-EDITINTERFACE.;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:48:35") (FILECREATED "19-Nov-84 18:23:56" {AZTEC}BIRTHDAY84>RERELEASE>TRI-EDITINTERFACE.;2 16537 changes to: (FNS COPY.INTERFACE CREATE.NEW.INTERFACE RENAME.INTERFACE) (VARS TRI-EDITINTERFACECOMS) previous date: "24-Aug-84 15:46:08" {AZTEC}BIRTHDAY84>RERELEASE>TRI-EDITINTERFACE.;1) ADD.NEW.INTERFACE D1 (P 0 NEW.NAME I 0 NEW.INTERFACE) @g Hg@ H h(25Q REGISTER.INTERFACE.NAME 21Q PUTDEF.INTERFACE 6 LISTGET) (15Q INTERFACES 3 NAME) () COPY.INTERFACE D1 (P 7 BACKGROUND.COLOR P 6 PROFILE P 5 REGION P 4 FIRST.FRAME P 3 FRAMES P 2 NEW.INTERFACE P 1 NEW.NAME P 0 NAME I 0 INTERFACE) : @g Xgg _oO HO gg _oO Ydgg _oO hlgg _oO hI *gg _oO IO oO h0@g d _O Oh_O&_O@g @g @g @g _gggIgKgLgMgNgOhZ Ji I(466Q MARK.INTERFACE 460Q ADD.NEW.INTERFACE 373Q COPYALL 370Q LISTGET 360Q COPYALL 355Q LISTGET 345Q COPY 342Q LISTGET 332Q LISTGET 267Q COPY.FRAME 260Q LISTGET 244Q PRIN1 232Q PRIN1 223Q PRIN1 207Q GET.TRILLIUM.PRINTOUT.WINDOW 174Q FIND.INTERFACE 166Q PRIN1 152Q GET.TRILLIUM.PRINTOUT.WINDOW 131Q PRIN1 115Q GET.TRILLIUM.PRINTOUT.WINDOW 100Q PROMPT.READ 74Q PRIN1 60Q GET.TRILLIUM.PRINTOUT.WINDOW 46Q PRIN1 37Q PRIN1 23Q GET.TRILLIUM.PRINTOUT.WINDOW 11Q LISTGET) (433Q BACKGROUND.COLOR 427Q PROFILE 423Q REGION 417Q FIRST.FRAME 413Q FRAMES 407Q NAME 404Q INTERFACE 401Q \TYPE 365Q BACKGROUND.COLOR 352Q PROFILE 337Q REGION 327Q FIRST.FRAME 255Q FRAMES 204Q NEW.BLOCK 201Q TRILLIUM.WARNINGS 147Q NEW.BLOCK 144Q TRILLIUM.WARNINGS 112Q NEW.BLOCK 107Q TRILLIUM.WARNINGS 55Q NEW.BLOCK 52Q PROMPTWINDOW 20Q NEW.BLOCK 15Q TRILLIUM.TRACE 6 NAME) ( 237Q " is already in use" 216Q "The name " 161Q "Name must be one word" 124Q "Copy command aborted" 67Q "Name of copy: " 32Q "Copying interface ") CREATE.NEW.INTERFACE D1 (P 2 BITMAP.ITEM P 1 NEW.INTERFACE P 0 NEW.NAME) k `gg oK Xddlgg oL h %gg oM HM oM hgggHggggghggggg`l B NzOhggggggggl dggglgnhhhhggghgghY Ii H_gggOlgOgOhOOl _J_OOh__N^6O&_(415Q MARK.INTERFACE 407Q ADD.NEW.INTERFACE 134Q PRIN1 123Q PRIN1 115Q PRIN1 104Q GET.TRILLIUM.PRINTOUT.WINDOW 71Q FIND.INTERFACE 64Q PRIN1 53Q GET.TRILLIUM.PRINTOUT.WINDOW 30Q PROMPT.READ 24Q PRIN1 13Q GET.TRILLIUM.PRINTOUT.WINDOW) (501Q BITMAP 452Q BITMAP 444Q NAME 434Q PLACEMENT 431Q BITMAP 426Q \TYPE 366Q WHITE 363Q BACKGROUND.COLOR 357Q COLOR.MAP.INTENSITIES 354Q BEGIN 351Q FIRST.FRAME 313Q REPRESENTATIVE.GRAY 306Q COLOR 303Q GRAY 300Q NAME 271Q PLACEMENT 266Q COLOR 263Q \TYPE 260Q ITEMS 255Q COLORS 252Q NAME 247Q FRAME 244Q \TYPE 216Q INITIAL.BITMAPS 213Q ITEMS 210Q BITMAPS 205Q NAME 202Q FRAME 177Q \TYPE 167Q BEGIN 164Q NAME 161Q FRAME 156Q \TYPE 153Q FRAMES 147Q NAME 144Q INTERFACE 141Q \TYPE 101Q NEW.BLOCK 76Q TRILLIUM.WARNINGS 50Q NEW.BLOCK 45Q TRILLIUM.WARNINGS 10Q NEW.BLOCK 5 PROMPTWINDOW) ( 130Q " is already in use" 111Q "The name " 60Q "Name must be one word" 20Q "Creating new interface; Name of new interface: ") DELETE.INTERFACE D1 (I 0 INTERFACE.NAME) @ @g @g (21Q DELDEF.INTERFACE 12Q UNMARKASCHANGED 3 UNREGISTER.INTERFACE.NAME) (16Q INTERFACES 7 INTERFACES) () FREEZE.INTERFACE D1 (P 3 FRAME P 2 WAS.FROZEN P 1 FRAME.NAME P 0 FROZEN.FRAMES I 1 FROZEN.INTERFACE I 0 INTERFACE) hh!@g `dKg Kg ZK@ HgggIgKg gKg gih JK@ AgH Ag@g Ag@g Ag@g i(250Q LISTPUT 245Q COPYALL 242Q LISTGET 227Q LISTPUT 224Q COPY 221Q LISTGET 206Q LISTPUT 203Q LISTGET 170Q LISTPUT 151Q THAW.FRAME 141Q TCONC 117Q COPYALL 114Q LISTGET 102Q COPY 77Q LISTGET 51Q FREEZE.FRAME 42Q LISTGET 32Q LISTGET 14Q LISTGET) (237Q PROFILE 233Q PROFILE 216Q REGION 212Q REGION 200Q FIRST.FRAME 174Q FIRST.FRAME 163Q FRAMES 122Q FROZEN 111Q ITEMS 105Q ITEMS 74Q SUPERFRAMES 70Q SUPERFRAMES 64Q NAME 61Q FRAME 56Q \TYPE 37Q FROZEN 27Q NAME 11Q FRAMES) () GET.EDIT.INTERFACE.WINDOW.COMMAND.MENU D1 NIL K`F`dododi didg dgjdndhHdI NIL (110Q INTERFACE.WINDOW.EDITOR.COMMAND.MENU 55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 7 MENUTYPE# 2 INTERFACE.WINDOW.EDITOR.COMMAND.MENU) ( 25Q "Window/frame alignment commands" 15Q (SET.INTERFACE.LOCATION SET.WINDOW.FROM.INTERFACE CENTER.FRAME.IN.WINDOW FIT.WINDOW.AROUND.FRAME ALIGN.FRAME.WITH.WINDOW QUIT)) GET.MANIPULATE.INTERFACE.COMMAND.MENU D1 NIL K`F`dododi didg dgjdndhHdI NIL (110Q MANIPULATE.INTERFACE.COMMAND.MENU 55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 7 MENUTYPE# 2 MANIPULATE.INTERFACE.COMMAND.MENU) ( 25Q "Interface manipulation" 15Q (ANALYZE.INTERFACE ANALYZE.INTERFACE.WHERE.NECESSARY RESET.INTERFACE HARDCOPY.INTERFACE USED.ITEM.TYPES UNDEFINED.ITEM.TYPES SET.FIRST.FRAME SET.BACKGROUND.COLOR EDIT.COLOR.MAP INSPECT.MACHINE.STATE (" " NIL) SET.INTERFACE.LOCATION SET.WINDOW.FROM.INTERFACE CENTER.FRAME.IN.WINDOW FIT.WINDOW.AROUND.FRAME ALIGN.FRAME.WITH.WINDOW (" " NIL) QUIT)) INTERACT&FREEZE.INTERFACEA0001 D1 (NAME ERRORSET L (0 NIL) F 1 FROZEN.INTERFACE F 2 INTERFACE F 3 MACROY F 4 INTERFACE.NAME F 5 FROZEN.INTERFACE.NAME) ERQ ;Qi gg oH TH oH UH oH ci(76Q PRIN1 65Q PRIN1 57Q PRIN1 46Q PRIN1 40Q PRIN1 25Q GET.TRILLIUM.PRINTOUT.WINDOW 13Q MARK.INTERFACE 4 FREEZE.INTERFACE) (22Q NEW.BLOCK 17Q TRILLIUM.TRACE) ( 72Q " !" 53Q " frozen into " 34Q "Interface ") INTERACT&FREEZE.INTERFACE D1 (P 13Q RESETSTATE P 12Q MACROY P 10Q OLDVALUE P 3 FROZEN.INTERFACE.NAME P 2 FROZEN.INTERFACE P 1 INTERFACE.NAME P 0 INTERFACE F 14Q RESETVARSLST F 15Q TRILLIUM.CURSOR) " YI Xgg oL g 'gg oM IM oM oI [ ZHoIoKo  gggKgihZ .gg oN hoKo QJg hW 1 gOhhWc_og g_OcgO Ohgg _oO h(436Q PRIN1 422Q GET.TRILLIUM.PRINTOUT.WINDOW 407Q ERROR! 377Q APPLY 347Q INTERACT&FREEZE.INTERFACEA0001 310Q SWAP.CURSOR.AUX 301Q LISTPUT 270Q CONFIRM 265Q CONCAT 247Q PRIN1 236Q GET.TRILLIUM.PRINTOUT.WINDOW 223Q ADD.NEW.INTERFACE 170Q CONFIRM 165Q CONCAT 140Q FIND.INTERFACE 134Q MKATOM 131Q CONCAT 115Q PRIN1 104Q PRIN1 76Q PRIN1 65Q GET.TRILLIUM.PRINTOUT.WINDOW 52Q LISTGET 40Q PRIN1 27Q GET.TRILLIUM.PRINTOUT.WINDOW 13Q FIND.INTERFACE 5 ACQUIRE.INTERFACE.NAME) (417Q NEW.BLOCK 414Q TRILLIUM.WARNINGS 367Q SWAP.CURSOR.AUX 353Q ERROR 344Q INTERNAL 316Q SWAP.CURSOR.AUX 276Q FRAMES 233Q NEW.BLOCK 230Q TRILLIUM.WARNINGS 207Q FROZEN 203Q NAME 200Q INTERFACE 175Q \TYPE 62Q NEW.BLOCK 57Q TRILLIUM.WARNINGS 47Q FROZEN 24Q NEW.BLOCK 21Q TRILLIUM.WARNINGS) ( 431Q "FREEZE.INTERFACE aborted." 341Q (INTERACT&FREEZE.INTERFACEA0001) 262Q "?" 255Q "Overwrite current " 243Q "FREEZE.INTERFACE aborted." 161Q "?" 154Q " into " 147Q "Freezing " 125Q "Frozen." 111Q " already frozen!" 72Q "Interface " 34Q "FREEZE.INTERFACE aborted.") MANIPULATE.INTERFACE D1 (P 24Q ITYPE P 5 COLOR.NAME P 4 FRAME.NAME P 3 ITYPES P 2 INTERFACE.NAME P 1 COMMAND P 0 COMMAND.MENU I 0 INTERFACE) 7PX@g ZH IgIdgJgg oN JN @ gg _oO JO oO gOgg _oO JO @i gg _oO JO oO JIdgBoJ 2@i gg _oO JO oO g@ IdgV@ gg _oO JO O K$dgg _O(O khO ݱg@ ` [Pgg _oO JO O K$dgg _O(O khO ݱ6gg _oO JO oO Idg5@ \@gL gg _ oO LO g@ Idg ]`gM ` g-`g`  gg _"oO" mIdg` Xg` `@g :Idggg _$oO$ ggg _&oO& Ig@` h(1457Q SHOULDNT 1450Q INTERFACE.WINDOW.LOWERLEFT 1427Q PRIN1 1413Q GET.TRILLIUM.PRINTOUT.WINDOW 1370Q PRIN1 1354Q GET.TRILLIUM.PRINTOUT.WINDOW 1326Q SHAPEW 1323Q LISTGET 1310Q LOWERLEFTW 1270Q INSPECTW.REDISPLAY 1265Q TRILLIUM.TRACE.MACHINE.WINDOW 1243Q PRIN1 1227Q GET.TRILLIUM.PRINTOUT.WINDOW 1215Q LISTPUT 1210Q \INSUREWINDOW 1162Q DISPLAY.FRAME 1153Q LISTPUT 1134Q CREATE.COLOR.NAME 1114Q EDIT.COLOR.MAP 1077Q PRIN1 1070Q PRIN1 1054Q GET.TRILLIUM.PRINTOUT.WINDOW 1042Q LISTPUT 1025Q ACQUIRE.FRAME.NAME 1004Q PRIN1 772Q PRIN1 763Q PRIN1 747Q GET.TRILLIUM.PRINTOUT.WINDOW 726Q TAB 716Q PRIN1 704Q GET.TRILLIUM.PRINTOUT.WINDOW 662Q TERPRI 654Q PRIN1 645Q PRIN1 631Q GET.TRILLIUM.PRINTOUT.WINDOW 615Q LDIFFERENCE 607Q USED.ITEM.TYPES 563Q TAB 553Q PRIN1 541Q GET.TRILLIUM.PRINTOUT.WINDOW 517Q TERPRI 511Q PRIN1 502Q PRIN1 466Q GET.TRILLIUM.PRINTOUT.WINDOW 454Q USED.ITEM.TYPES 433Q HARDCOPY.INTERFACE 416Q PRIN1 404Q PRIN1 375Q PRIN1 361Q GET.TRILLIUM.PRINTOUT.WINDOW 347Q RESET.INTERFACE 336Q CONFIRM 333Q CONCAT 306Q PRIN1 274Q PRIN1 265Q PRIN1 251Q GET.TRILLIUM.PRINTOUT.WINDOW 237Q ANALYZE.INTERFACE 231Q PRIN1 222Q PRIN1 206Q GET.TRILLIUM.PRINTOUT.WINDOW 164Q PRIN1 152Q PRIN1 143Q PRIN1 127Q GET.TRILLIUM.PRINTOUT.WINDOW 115Q ANALYZE.INTERFACE 110Q PRIN1 102Q PRIN1 71Q GET.TRILLIUM.PRINTOUT.WINDOW 31Q TRILLIUM.CLEAR.ALL.PROMPTING 25Q MENU 20Q LISTGET 10Q GET.MANIPULATE.INTERFACE.COMMAND.MENU) (1445Q CURRENT.INTERFACE.WINDOW 1437Q ALIGN.FRAME.WITH.WINDOW 1410Q NEW.BLOCK 1405Q TRILLIUM.WARNINGS 1377Q FIT.WINDOW.AROUND.FRAME 1351Q NEW.BLOCK 1346Q TRILLIUM.WARNINGS 1337Q CENTER.FRAME.IN.WINDOW 1320Q REGION 1314Q CURRENT.INTERFACE.WINDOW 1305Q CURRENT.INTERFACE.WINDOW 1277Q SET.WINDOW.FROM.INTERFACE 1262Q CURRENT.INTERFACE.WINDOW 1254Q INSPECT.MACHINE.STATE 1224Q NEW.BLOCK 1221Q TRILLIUM.TRACE 1205Q CURRENT.INTERFACE.WINDOW 1202Q REGION 1177Q CURRENT.INTERFACE 1171Q SET.INTERFACE.LOCATION 1157Q CURRENT.FRAME 1147Q BACKGROUND.COLOR 1144Q CURRENT.INTERFACE 1125Q SET.BACKGROUND.COLOR 1106Q EDIT.COLOR.MAP 1051Q NEW.BLOCK 1046Q TRILLIUM.TRACE 1036Q FIRST.FRAME 1015Q SET.FIRST.FRAME 744Q NEW.BLOCK 741Q TRILLIUM.DESCRIPTIONS 701Q SAME.LINE 676Q TRILLIUM.DESCRIPTIONS 626Q NEW.BLOCK 623Q TRILLIUM.DESCRIPTIONS 612Q ITEM.TYPES 576Q UNDEFINED.ITEM.TYPES 536Q SAME.LINE 533Q TRILLIUM.DESCRIPTIONS 463Q NEW.BLOCK 460Q TRILLIUM.DESCRIPTIONS 444Q USED.ITEM.TYPES 425Q HARDCOPY.INTERFACE 356Q NEW.BLOCK 353Q TRILLIUM.TRACE 317Q RESET.INTERFACE 246Q NEW.BLOCK 243Q TRILLIUM.TRACE 203Q NEW.BLOCK 200Q TRILLIUM.TRACE 172Q ANALYZE.INTERFACE.WHERE.NECESSARY 124Q NEW.BLOCK 121Q TRILLIUM.TRACE 66Q NEW.BLOCK 63Q TRILLIUM.TRACE 54Q ANALYZE.INTERFACE 42Q QUIT 15Q NAME) ( 1422Q "Command not implemented yet" 1363Q "Command not implemented yet" 1236Q "Location of the interface set from the current window" 1063Q "First frame is now " 777Q " are defined" 756Q "All item types used in interface " 640Q "Item types used but not defined in interface " 475Q "Item types used in interface " 411Q " reset." 370Q "Interface " 327Q "Reset interface " 301Q " fully analyzed." 260Q "Interface " 215Q "Analyzing unanalyzed frames in interface " 157Q " fully re-analyzed." 136Q "Interface " 76Q "Analyzing all frames in interface ") MARK.INTERFACE D1 (P 1 TYPE P 0 NAME I 1 NEW I 0 INTERFACE) D@g g`2HI *gg oJ HJ oJ HIA h(100Q MARKASCHANGED 71Q PRIN1 60Q PRIN1 52Q PRIN1 41Q GET.TRILLIUM.PRINTOUT.WINDOW 26Q MARKASCHANGEDP 6 LISTGET) (36Q NEW.BLOCK 33Q TRILLIUM.TRACE 17Q TRILLIUM.MARKFLG 11Q INTERFACES 3 NAME) ( 65Q " as changed" 46Q "Marking interface ") MERGE.INTERFACE D1 (P 4 P.FRAME P 2 FRAME.NAME P 1 W.FRAME P 0 W.FRAMES I 1 PART.INTERFACE I 0 WHOLE.INTERFACE) i@Ai @g XAg EdLg @J Y$gg oK JK oK HL h Hg h(145Q SORT 131Q \NCONC2 124Q COPYALL 116Q PRIN1 105Q PRIN1 77Q PRIN1 66Q GET.TRILLIUM.PRINTOUT.WINDOW 52Q FIND.FRAME 44Q LISTGET 26Q LISTGET 16Q LISTGET 7 RESET.INTERFACE) (142Q SORT.FRAMES 63Q NEW.BLOCK 60Q TRILLIUM.WARNINGS 41Q NAME 23Q FRAMES 13Q FRAMES) ( 112Q " already defined; no change made" 73Q "Frame ") REGISTER.INTERFACE.NAME D1 (I 0 NAME) `@h dd d (27Q SORT 20Q INTERSECTION 10Q \NCONC2) (23Q INTERFACES 13Q INTERFACES 2 INTERFACES) () RENAME.INTERFACE D1 (P 3 REDISPLAY P 2 NEW.NAME P 1 OLD.NAME P 0 INTERFACE) Yd Xd]gg oL Zddlgg oM h %gg oN JN oN hgg _oO IO oO JO `g HHgJ JgH Hi I K` gg _oO O oO (361Q PRIN1 350Q TERPRI 343Q PRIN1 327Q GET.TRILLIUM.PRINTOUT.WINDOW 315Q DISPLAY.FRAME 306Q INTERFACE.WINDOW.CHANGE.TITLE 300Q DELETE.INTERFACE 273Q MARK.INTERFACE 265Q PUTDEF.INTERFACE 254Q LISTPUT 241Q GETWINDOWUSERPROP 227Q PRIN1 220Q PRIN1 206Q PRIN1 177Q PRIN1 163Q GET.TRILLIUM.PRINTOUT.WINDOW 150Q PRIN1 137Q PRIN1 131Q PRIN1 120Q GET.TRILLIUM.PRINTOUT.WINDOW 105Q FIND.INTERFACE 100Q PRIN1 67Q GET.TRILLIUM.PRINTOUT.WINDOW 44Q PROMPT.READ 40Q PRIN1 27Q GET.TRILLIUM.PRINTOUT.WINDOW 12Q FIND.INTERFACE 5 ACQUIRE.INTERFACE.NAME) (324Q NEW.BLOCK 321Q PROMPTWINDOW 312Q CURRENT.FRAME 261Q INTERFACES 250Q NAME 236Q INTERFACE 233Q CURRENT.INTERFACE.WINDOW 160Q NEW.BLOCK 155Q PROMPTWINDOW 115Q NEW.BLOCK 112Q PROMPTWINDOW 64Q NEW.BLOCK 61Q PROMPTWINDOW 24Q NEW.BLOCK 21Q PROMPTWINDOW) ( 354Q "Don't forget to refile the interface!" 336Q "Done!" 213Q " to " 172Q "Renaming interface " 144Q " is already in use" 125Q "The name " 74Q "Name must be one word" 34Q "Enter new name of interface: ") RESET.INTERFACE D1 (I 1 RESET.ITEMS I 0 INTERFACE) @g A @ (16Q COMPRESS.PROPLIST 12Q RESET.FRAMES 6 LISTGET) (3 FRAMES) () UNREGISTER.INTERFACE.NAME D1 (I 0 NAME) @` (6 DREMOVE) (11Q INTERFACES 3 INTERFACES) () (PRETTYCOMPRINT TRI-EDITINTERFACECOMS) (RPAQQ TRI-EDITINTERFACECOMS ((FNS ADD.NEW.INTERFACE COPY.INTERFACE CREATE.NEW.INTERFACE DELETE.INTERFACE FREEZE.INTERFACE GET.EDIT.INTERFACE.WINDOW.COMMAND.MENU GET.MANIPULATE.INTERFACE.COMMAND.MENU INTERACT&FREEZE.INTERFACE MANIPULATE.INTERFACE MARK.INTERFACE MERGE.INTERFACE REGISTER.INTERFACE.NAME RENAME.INTERFACE RESET.INTERFACE UNREGISTER.INTERFACE.NAME) ( VARS (MANIPULATE.INTERFACE.COMMAND.MENU)))) (RPAQQ MANIPULATE.INTERFACE.COMMAND.MENU NIL) (PUTPROPS TRI-EDITINTERFACE COPYRIGHT ("Xerox Corporation" 1984)) NIL