(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "13-Dec-2020 16:25:27" ("compiled on " {DSK}arunwelch>Documents>unix>lisp>lde>docs>sybalsky>IMINDEX.;1) " 9-Apr-2000 18:01:32" tcompl'd in "Medley 3.5 Full Sysout 11-Dec-2020 ..." dated "11-Dec-2020 18:51:10") (FILECREATED "12-Feb-92 12:28:48" {DSK}sybalsky>PUBS>IMINDEX.;2 37264 changes to%: (FNS IM.CHAP.DISPLAYFN) previous date%: " 8-Dec-91 15:46:22" {DSK}sybalsky>PUBS>IMINDEX.;1) IM.INDEX.CLOSEF :D8 (P 0 PTRFILE I 0 TEXTSTREAM F 1 PROMPTWINDOW) b@ ÉFg'Hd²H ´AoQ ¿H Q ¿oQ ¿H ¿oQ ¿Q h(94 TERPRI 87 PRIN1 75 CLOSEF 68 PRIN1 56 PRIN1 50 FULLNAME 43 PRIN1 30 OPENP 5 TEXTOBJ) (17 IM.INDEX.PTRFILE 10 TEXTOBJ) ( 81 "done" 62 "..." 37 "Closing index pointer file: ") IM.INDEX.COPYFN :D8 (I 2 TARGET I 1 SOURCE I 0 OBJ) @g (20 IM.INDEX.CREATEOBJ 15 COPYALL 10 IMAGEOBJPROP) (5 OBJECTDATUM) () IM.INDEX.CREATEOBJ :D8 (I 0 DATA F 0 IM.INDEX.OBJECT.IMAGEFNS F 1 IM.INDEX.DEFAULT.SUBSEC) ]@´l@ ñ¡@ŒhdddQhdPµ8gggggggddddddg c (90 IMAGEOBJCREATE 83 IMAGEFNSCREATE 11 LENGTH) (77 IM.INDEX.OBJECT 66 NILL 61 IM.INDEX.BUTTONEVENTFN 56 IM.INDEX.COPYFN 51 IM.INDEX.GETFN 46 IM.INDEX.PUTFN 41 IM.INDEX.SIZEFN 36 IM.INDEX.DISPLAYFN) () IM.INDEX.DISPLAY.STRING :D8 (P 0 NAM I 0 OBJ) 0@g l H ñ‘HHklg (45 CONCAT 35 SUBATOM 22 NCHARS 10 IMAGEOBJPROP) (40 |...| 5 OBJECTDATUM) () IM.INDEX.DISPLAYFN :D8 (P 12 $$PROPLST$$ P 11 $$TEXTOBJ$$ P 10 TXTFILE P 9 PTRFILENAME P 8 PTRFILE P 7 *READTABLE* P 6 RIGHT P 5 TOP P 4 REGION P 3 BOTTOM P 2 LEFT P 1 STRING.REGION P 0 STRING I 3 HOSTSTREAM I 2 STREAMTYPE I 1 STREAM I 0 OBJ F 13 PROMPTWINDOW F 14 IM.INDEX.OBJECT.DISPLAY.FONT F 15 TEXTOBJ F 16 *TEDIT-FILE-READTABLE* F 17 FORMATTINGSTATE) ] A ¢±ÃWA @ HA IkØIkØJKIlØIlØhLLØmÿØLLØmÿØHLAJKJMkÙkgA JMNkÙMkgA NMNKkØkgA NKJkØKkgA @gLg ´‚±nWbÃ´‚±_W 1 C ÉFg'_d™d ’±æC ÉFg'_³=C É,_¿ggghgOµ‚±g _¿gOgi _¿oW ¿OW ¿oW ¿Ogg_¿oW ¿W ¿C OÉF_µjOgOhF@g W"@g C ÉFg'h@g O O hgO°Ÿ ±þÿ(600 FULLNAME 593 LISTPUT 579 TERPRI 572 PRIN4 565 IMAGEOBJPROP 538 TEXTOBJ 528 IMAGEOBJPROP 508 IMAGEOBJPROP 461 TEXTOBJ 454 TERPRI 446 PRIN1 431 OPENSTREAM 413 PRIN1 400 PRIN1 390 PRIN1 375 PACKFILENAME 370 DIRECTORYNAME 349 PACKFILENAME 299 TEXTOBJ 276 TEXTOBJ 266 OPENP 243 TEXTOBJ 211 BOUNDP 200 IMAGEOBJPROP 188 DRAWLINE 169 DRAWLINE 150 DRAWLINE 131 DRAWLINE 112 CENTERPRINTINREGION 33 STRINGREGION 23 IM.INDEX.DISPLAY.STRING 17 DSPFONT 5 DISPLAYSTREAMP) (586 IM.INDEX.PTRFILE 560 OBJECTDATUM 550 INDEXING-CHAPTER 543 TEXTOBJ 523 OBJECTDATUM 503 OBJECTDATUM 489 IM.INDEX.PTRFILE 484 TEXTOBJ 471 TEXTOBJ 426 NEW 421 OUTPUT 364 BODY 357 BODY 343 NONAME 330 BODY 324 VERSION 319 IMPTR 314 EXTENSION 304 TEXTOBJ 288 IM.INDEX.PTRFILENAME 281 TEXTOBJ 255 IM.INDEX.PTRFILE 248 TEXTOBJ 226 TEXTOBJ 206 TEXTOBJ 194 REGION 181 INVERT 162 INVERT 143 INVERT 124 INVERT) ( 439 "done" 406 "..." 383 "Opening index pointer file: ") IM.INDEX.EDIT :D8 (P 9 ITEM P 7 OBJ.DATA P 6 OBJ.DATA.PROPLIST P 5 TEDIT.REGION P 4 TEDIT.WINDOW P 3 REGION P 0 W I 1 TEXTSTREAM I 0 OBJ F 10 IM.INDEX.OBJ.FREEMENU.SPECS) ï W !H A ÉLd” !Hg@¿HgA¿@g _¾Hg OµL¢±sHMKÕYjó¢±DI±A_Ã’O‹oO Égð¢±OdÃ’O‹oO Édgð–¿O±Údgðœ¿O ±Ådgð˜¿O±´dgðž¿O ±dgðŸ¿O ±…dgðš¿O°qdgð˜¿Ng°_dgðž¿Ng' °Idgð˜¿Ng°7dgð˜¿Ng°&dgð¿Ng' Žgð´ Ng'H¿O_±þªjMMØmÿØKÕZjó‘J€j¿H h(491 OPENW 484 MOVEW 444 FM.CHANGESTATE 422 IM.INDEX.STRING.FROM.LIST 365 IM.INDEX.STRING.FROM.LIST 305 IM.INDEX.STRING.FROM.LIST 281 IM.INDEX.STRING.FROM.LIST 241 IM.INDEX.STRING.FROM.LIST 201 ERROR 160 ERROR 103 GETWINDOWUSERPROP 83 IMAGEOBJPROP 71 PUTWINDOWPROP 58 PUTWINDOWPROP 43 WINDOWREGION 24 TEXTOBJ 15 WINDOWREGION 6 FREEMENU) (437 SUBSUBTEXT 428 IM.INDEX.SUBSUBTEXT 416 SUBSUBTYPE 407 IM.INDEX.SUBSUBTYPE 399 SUBSUBNAME 390 IM.INDEX.SUBSUBNAME 382 SUBTEXT 373 IM.INDEX.SUBTEXT 359 SUBTYPE 350 IM.INDEX.SUBTYPE 342 SUBNAME 333 IM.INDEX.SUBNAME 314 IM.INDEX.PAGE 290 IM.INDEX.SUBSEC 267 IM.INDEX.INFO 250 IM.INDEX.TEXT 229 IM.INDEX.TYPE 214 IM.INDEX.NAME 206 FREEMENUITEM 185 FREEMENUITEM 172 EDIT 165 FREEMENUITEM 144 FREEMENUITEM 98 FM.ITEMS 78 OBJECTDATUM 65 IM.INDEX.TEXTSTREAM 52 IM.INDEX.OBJ 29 TEXTOBJ) ( 194 "Arg must be FreeMenuItem" 153 "Arg must be FreeMenuItem") IM.INDEX.LIST.FROM.STRING :D8 (P 4 N P 2 C P 1 CLIST P 0 ELIST I 0 STR) m@oô¡@¡h0@ kLKó³7@L Zl ð¬Jl ð§Jdl ð²¿I²I H¸hI¹LkÔ\°ÉIµ H H°î(103 PACKC 98 DREVERSE 92 DREVERSE 68 PACKC 63 DREVERSE 36 NTHCHARCODE 20 NCHARS) NIL ( 5 "") IM.INDEX.SIZEFN :D8 (I 3 RIGHTMARGIN I 2 CURX I 1 STREAM I 0 OBJ F 0 IM.INDEX.OBJECT.DISPLAY.FONT) 8A ²'@ P lØP lØP jhjdddh(37 FONTDESCENT 28 FONTHEIGHT 19 STRINGWIDTH 13 IM.INDEX.DISPLAY.STRING 5 DISPLAYSTREAMP) NIL () IM.INDEX.STRING.FROM.LIST :D8 (I 0 LST) <@¥o@@°d»oKhX–IµHZY¿µèJ YH°ê(53 LAST 47 CONCATLIST) NIL ( 21 " " 6 "") IM.INDEX.PUTFN :D8 (I 1 STREAM I 0 OBJ) @g A (16 PRIN4 10 IMAGEOBJPROP) (5 OBJECTDATUM) () IM.INDEX.GETFN :D8 (I 1 TEXTSTREAM I 0 FILE) @ (10 IM.INDEX.CREATEOBJ 5 READ) NIL () IM.INDEX.BUTTONEVENTFN :D8 (I 7 BUTTON I 6 HOSTSTREAM I 5 WIN I 4 RELY I 3 RELX I 2 SEL I 1 WINDOWSTREAM I 0 OBJ F 2 IM.INDEX.BUTTONEVENTFN.MENU) ]RµL`do¿mûd HdI¿dg ¿dg¿jdnÿdhHdI ¿c ´ @F (90 IM.INDEX.EDIT 81 MENU 25 CREATEPOSITION) (50 DEFAULTMENUHELDFN 41 CLRPROMPT 7 |MENUTYPE#|) ( 14 ((Edit% Index (QUOTE Edit% Index) "Selecting this item will create a window editing the contents of this index image object."))) IM.INDEX.INIT :D8 (F 0 IM.INDEX.OBJECT.IMAGEFNS F 1 IM.CHAP.OBJECT.IMAGEFNS) wP³9gggggggddddddg c¿Q³9gggggggddddddg ch(112 IMAGEFNSCREATE 54 IMAGEFNSCREATE) (106 IM.CHAP.OBJECT 95 NILL 90 IM.CHAP.BUTTONEVENTFN 85 IM.CHAP.COPYFN 80 IM.CHAP.GETFN 75 IM.CHAP.PUTFN 70 IM.CHAP.SIZEFN 65 IM.CHAP.DISPLAYFN 48 IM.INDEX.OBJECT 37 NILL 32 IM.INDEX.BUTTONEVENTFN 27 IM.INDEX.COPYFN 22 IM.INDEX.GETFN 17 IM.INDEX.PUTFN 12 IM.INDEX.SIZEFN 7 IM.INDEX.DISPLAYFN) () IM.INDEX.MENU :D8 (P 1 MENUW P 0 MENU I 0 WINDOW.OR.REGION) †0`do¿dg¿do¿dg ¿dg¿jdnÿdhºdJ ¿Xdh@ ›@@ °#H H hddo h(130 ADDMENU 125 GETBOXPOSITION 107 MENUREGION 98 MENUREGION 90 CREATEPOSITION 79 REGIONP) (50 DEFAULTMENUHELDFN 41 CLRPROMPT 23 IM.INDEX.MENU.WHENSELECTEDFN 7 |MENUTYPE#|) ( 119 "Please specify the position of the IM Index menu" 32 "IM Index menu" 14 (("Index Selection as Term" NIL "Add an index object indexing the current selection as a term.") (>>Add% Type<< NIL "Prompts the user to specify an IM Index type, and adds it to the menu") (|Set Chapter Number| NIL "Prompts you for the name or number of this chapter, then inserts an object to set the chapter number at hardcopy time.") (>>Close% Menu<< NIL "Closes this menu."))) IM.INDEX.MENU.WHENSELECTEDFNA0009 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TEXTSTREAM F 3 SEL F 4 SI::NLSETQ-VALUE) i@RS hcg(16 MKATOM 11 TEDIT.SEL.AS.STRING) (25 :NORMAL) () IM.INDEX.MENU.WHENSELECTEDFN :D8 (P 22 *CONDITION-HANDLER-BINDINGS* P 21 SI::*NLSETQFLAG* P 20 *PROCEED-CASES* P 19 SI::NLSETQ-VALUE P 18 OBJ P 17 NAM P 16 SELPOINT P 15 AFTERLASTCHAR P 14 FIRSTCHAR P 13 SEL P 12 OBJ P 11 NAM P 10 SELPOINT P 9 AFTERLASTCHAR P 8 FIRSTCHAR P 7 SEL P 6 STR P 5 WINDOW.REGION P 4 TEXTSTREAM P 3 DESTW P 0 MENUW I 2 MOUSEKEY I 1 MENU I 0 ITEM F 23 PROMPTWINDOW F 24 *PROCEED-CASES* F 25 *CONDITION-HANDLER-BINDINGS* F 26 IM.INDEX.DEFAULT.SUBSEC) lA !g Kg @dgð™¿H ±bdgð¢±²¿H ÉW. ¿ohdW.hgo µo¾H ¿`oN N hAÉ¹dI¿dg¿do¿dg ¿dg¿jdnÿdhºdJ ¿hMM ±¨gð¢±‡Lµ o±„ OÉOÉ OÉ Lo _¿LOOÉOh ¿OLOgð’OO°LµoW. ¿W. h OÉOÉ OÉ`W0ioW2O( gð´O&_" @O" ‘hO"hW4hd _$¿LOOÉO h ¿O$LO gð’OO¿Bgð˜O$L ¿±ÿ4(608 IM.INDEX.EDIT 591 TEDIT.INSERT.OBJECT 568 TEDIT.SETSEL 544 IM.INDEX.CREATEOBJ 523 U-CASEP 513 U-CASE 493 IM.INDEX.MENU.WHENSELECTEDFNA0009 418 TEDIT.GETSEL 411 TERPRI 403 PRIN1 380 TEDIT.INSERT.OBJECT 357 TEDIT.SETSEL 333 IM.CHAP.CREATEOBJ 328 TEDIT.GETINPUT 272 TEDIT.GETSEL 242 ADDMENU 237 CREATEPOSITION 155 IM.INDEX.LIST.FROM.STRING 149 CONCAT 131 CLOSEW 117 PROMPTFORWORD 90 CLEARW 78 \INSUREWINDOW 57 CLOSEW 37 GETWINDOWUSERPROP 23 PROCESSPROP 13 TTY.PROCESS 5 WFROMMENU) (598 MIDDLE 579 LEFT 557 SELECTION 499 :NORMAL 471 SI::NLSETQ-PROCEED-CASE 452 SELECTION 440 SELECTION 428 SELECTION 368 LEFT 346 SELECTION 306 SELECTION 294 SELECTION 282 SELECTION 251 |Set Chapter Number| 206 DEFAULTMENUHELDFN 197 CLRPROMPT 179 IM.INDEX.MENU.WHENSELECTEDFN 164 MENU 137 |MENUTYPE#| 106 TTY 66 >>Add% Type<< 48 >>Close% Menu<< 32 TEXTSTREAM 18 WINDOW) ( 480 (CL:ERROR . SI::NLSETQHANDLER) 396 "Current window is not a Tedit textstream." 323 "Chapter Number/Title:" 264 "Current window is not a Tedit textstream." 188 "IM Index menu" 143 "Index Selection as " 124 "" 111 (13) 96 "IM Index Type: ") IM.INDEX.OBJ.FREEMENU.SELECTEDFN :D8 (P 8 X P 5 NAME.CHANGED P 4 OBJ.DATA.PROPLIST P 3 OBJ.DATA P 2 TEXTSTREAM P 1 OBJ P 0 STATE I 2 BUTTONS I 1 WINDOW I 0 ITEM F 9 IM.INDEX.DEFAULT.SUBSEC) º @Ã‘@Šo@ Édgð—¿A gð´‚±fA Ag Ag Ig K¼KHg' ðhðKHg' ¿KHg' ¿KHg' ¿KHg' ¿KHg' c¿KHg' ¿KgHg' gHg' gHg' gHg' gHg' gHg' h¿KK!N_µO¿M´J ´ JI h²OOOh _¿O°Æ(431 \NCONC2 408 TEDIT.OBJECT.CHANGED 399 TEXTSTREAMP 348 MKATOM 331 IM.INDEX.LIST.FROM.STRING 314 MKATOM 297 MKATOM 280 IM.INDEX.LIST.FROM.STRING 263 MKATOM 238 MKATOM 216 IM.INDEX.LIST.FROM.STRING 197 IM.INDEX.LIST.FROM.STRING 179 MKATOM 162 IM.INDEX.LIST.FROM.STRING 146 MKATOM 127 MKATOM 102 IMAGEOBJPROP 88 GETWINDOWUSERPROP 74 GETWINDOWUSERPROP 60 FM.GETSTATE 41 CLOSEW 19 ERROR) (342 IM.INDEX.SUBSUBTEXT 336 SUBSUBTEXT 325 IM.INDEX.SUBSUBTYPE 319 SUBSUBTYPE 308 IM.INDEX.SUBSUBNAME 302 SUBSUBNAME 291 IM.INDEX.SUBTEXT 285 SUBTEXT 274 IM.INDEX.SUBTYPE 268 SUBTYPE 257 IM.INDEX.SUBNAME 251 SUBNAME 232 IM.INDEX.PAGE 210 IM.INDEX.SUBSEC 191 IM.INDEX.INFO 173 IM.INDEX.TEXT 156 IM.INDEX.TYPE 140 IM.INDEX.NAME 121 IM.INDEX.NAME 97 OBJECTDATUM 83 IM.INDEX.TEXTSTREAM 69 IM.INDEX.OBJ 47 Store% Props 32 Close% Window 24 FREEMENUITEM 5 FREEMENUITEM) ( 13 "Arg must be FreeMenuItem") IM.CHAP.COPYFN :D8 (I 2 TARGET I 1 SOURCE I 0 OBJ) @g (20 IM.INDEX.CREATEOBJ 15 COPYALL 10 IMAGEOBJPROP) (5 OBJECTDATUM) () IM.CHAP.CREATEOBJ :D8 (I 0 DATA F 0 IM.CHAP.OBJECT.IMAGEFNS) A@Pµ8gggggggddddddg c (62 IMAGEOBJCREATE 55 IMAGEFNSCREATE) (49 IM.CHAP.OBJECT 38 NILL 33 IM.CHAP.BUTTONEVENTFN 28 IM.CHAP.COPYFN 23 IM.CHAP.GETFN 18 IM.CHAP.PUTFN 13 IM.CHAP.SIZEFN 8 IM.CHAP.DISPLAYFN) () IM.CHAP.DISPLAYFN :D8 (P 8 $$PROPLST$$ P 7 $$TEXTOBJ$$ P 6 RIGHT P 5 TOP P 4 REGION P 3 BOTTOM P 2 LEFT P 1 STRING.REGION P 0 STRING I 3 HOSTSTREAM I 2 STREAMTYPE I 1 STREAM I 0 OBJ F 10 IM.INDEX.OBJECT.DISPLAY.FONT F 11 TEXTOBJ) 5 A ¢±×WA o@g HA IkØIkØJKIlØIlØhLLØmÿØLLØmÿØHLAJKJMkÙkgA JMNkÙMkgA NMNKkØkgA NKJkØKkgA @gLCµW ! OÉF_µ#Og@g h_FOg@g (306 LISTPUT 301 IMAGEOBJPROP 275 IMAGEOBJPROP 236 TEXTOBJ 231 TEXTOBJ 220 IMAGEOBJPROP 208 DRAWLINE 189 DRAWLINE 170 DRAWLINE 151 DRAWLINE 132 CENTERPRINTINREGION 53 STRINGREGION 43 CONCAT 38 MKSTRING 33 IMAGEOBJPROP 17 DSPFONT 5 DISPLAYSTREAMP) (296 OBJECTDATUM 290 INDEXING-CHAPTER 270 OBJECTDATUM 264 INDEXING-CHAPTER 259 TEXTOBJ 246 TEXTOBJ 214 REGION 201 INVERT 182 INVERT 163 INVERT 144 INVERT 28 OBJECTDATUM) ( 22 "CHAPTER ") IM.CHAP.SIZEFN :D8 (I 3 RIGHTMARGIN I 2 CURX I 1 STREAM I 0 OBJ F 0 IM.INDEX.OBJECT.DISPLAY.FONT) LA ²;o@g P lØP lØP jhjdddh(57 FONTDESCENT 48 FONTHEIGHT 39 STRINGWIDTH 33 CONCAT 28 MKSTRING 23 IMAGEOBJPROP 5 DISPLAYSTREAMP) (18 OBJECTDATUM) ( 12 "CHAPTER ") IM.CHAP.PUTFN :D8 (I 1 STREAM I 0 OBJ) @g A (16 PRIN4 10 IMAGEOBJPROP) (5 OBJECTDATUM) () IM.CHAP.GETFN :D8 (I 1 TEXTSTREAM I 0 FILE) @ (10 IM.CHAP.CREATEOBJ 5 READ) NIL () IM.CHAP.BUTTONEVENTFN :D8 (L (7 BUTTON 6 HOSTSTREAM 5 WIN 4 RELY 3 RELX 2 SEL 1 WINDOWSTREAM 0 OBJ)) iNIL NIL () (PRETTYCOMPRINT IMINDEXCOMS) (RPAQQ IMINDEXCOMS ((* ;; "this file contains the functions used for creating and manipulating index image objects") (FNS IM.INDEX.CLOSEF IM.INDEX.COPYFN IM.INDEX.CREATEOBJ IM.INDEX.DISPLAY.STRING IM.INDEX.DISPLAYFN IM.INDEX.EDIT IM.INDEX.LIST.FROM.STRING IM.INDEX.SIZEFN IM.INDEX.STRING.FROM.LIST IM.INDEX.PUTFN IM.INDEX.GETFN IM.INDEX.BUTTONEVENTFN) (FNS IM.INDEX.INIT) (FNS IM.INDEX.MENU IM.INDEX.MENU.WHENSELECTEDFN IM.INDEX.OBJ.FREEMENU.SELECTEDFN) (INITVARS (IM.INDEX.OBJECT.IMAGEFNS NIL ) (IM.CHAP.OBJECT.IMAGEFNS NIL) (IM.INDEX.BUTTONEVENTFN.MENU NIL) (IM.INDEX.OBJECT.DISPLAY.FONT ( FONTCREATE (QUOTE (MODERN 8 MRR 0 DISPLAY)))) (IM.INDEX.DEFAULT.SUBSEC)) (RECORDS IM.INDEX.DATA) (VARS IM.INDEX.OBJ.FREEMENU.SPECS) (COMS (* ; "An image object to set the chapter number, on the TEXTOBJ's proplist, on the INDEXING-CHAPTER property." ) (FNS IM.CHAP.COPYFN IM.CHAP.CREATEOBJ IM.CHAP.DISPLAYFN IM.CHAP.SIZEFN IM.CHAP.PUTFN IM.CHAP.GETFN IM.CHAP.BUTTONEVENTFN)) (P (ADVISE (QUOTE TEDIT.FORMAT.HARDCOPY) (QUOTE AROUND) (QUOTE (RESETLST ( RESETSAVE NIL (LIST (FUNCTION IM.INDEX.CLOSEF) STREAM)) *))) (IM.INDEX.INIT)))) (RPAQ? IM.INDEX.OBJECT.IMAGEFNS NIL) (RPAQ? IM.CHAP.OBJECT.IMAGEFNS NIL) (RPAQ? IM.INDEX.BUTTONEVENTFN.MENU NIL) (RPAQ? IM.INDEX.OBJECT.DISPLAY.FONT (FONTCREATE (QUOTE (MODERN 8 MRR 0 DISPLAY)))) (RPAQ? IM.INDEX.DEFAULT.SUBSEC) (RECORD IM.INDEX.DATA (NAME TYPE SAV INFO SUBSEC PAGE# . PROPLIST) SUBSEC _ IM.INDEX.DEFAULT.SUBSEC ( TYPE? (AND (LISTP DATUM) (IGEQ (LENGTH DATUM) 6)))) (RPAQQ IM.INDEX.OBJ.FREEMENU.SPECS (((TYPE MOMENTARY LABEL Store% Props SELECTEDFN IM.INDEX.OBJ.FREEMENU.SELECTEDFN MESSAGE "Stores property values in index image object") (TYPE MOMENTARY LABEL Close% Window SELECTEDFN IM.INDEX.OBJ.FREEMENU.SELECTEDFN MESSAGE "Closes IM index editor window")) ((TYPE DISPLAY LABEL " ")) ((TYPE EDITSTART LABEL Name%: ITEMS ( IM.INDEX.NAME)) (TYPE EDIT ID IM.INDEX.NAME LABEL "")) ((TYPE EDITSTART LABEL |Type():| ITEMS ( IM.INDEX.TYPE)) (TYPE EDIT ID IM.INDEX.TYPE LABEL "")) ((TYPE EDITSTART LABEL Text%: ITEMS ( IM.INDEX.TEXT)) (TYPE EDIT ID IM.INDEX.TEXT LABEL "")) ((TYPE EDITSTART LABEL |Info():| ITEMS ( IM.INDEX.INFO)) (TYPE EDIT ID IM.INDEX.INFO LABEL "")) ((TYPE EDITSTART LABEL |SubSub():| ITEMS ( IM.INDEX.SUBSEC)) (TYPE EDIT ID IM.INDEX.SUBSEC LABEL "")) ((TYPE EDITSTART LABEL Page#%: ITEMS ( IM.INDEX.PAGE)) (TYPE EDIT ID IM.INDEX.PAGE LABEL "")) ((TYPE EDITSTART LABEL SubName%: ITEMS ( IM.INDEX.SUBNAME)) (TYPE EDIT ID IM.INDEX.SUBNAME LABEL "")) ((TYPE EDITSTART LABEL |SubType():| ITEMS (IM.INDEX.SUBTYPE)) (TYPE EDIT ID IM.INDEX.SUBTYPE LABEL "")) ((TYPE EDITSTART LABEL SubText%: ITEMS (IM.INDEX.SUBTEXT)) (TYPE EDIT ID IM.INDEX.SUBTEXT LABEL "")) ((TYPE EDITSTART LABEL SubSubName%: ITEMS (IM.INDEX.SUBSUBNAME)) (TYPE EDIT ID IM.INDEX.SUBSUBNAME LABEL "")) ((TYPE EDITSTART LABEL |SubSubType():| ITEMS (IM.INDEX.SUBSUBTYPE)) (TYPE EDIT ID IM.INDEX.SUBSUBTYPE LABEL "")) ((TYPE EDITSTART LABEL SubSubText%: ITEMS (IM.INDEX.SUBSUBTEXT)) (TYPE EDIT ID IM.INDEX.SUBSUBTEXT LABEL "")) )) (ADVISE (QUOTE TEDIT.FORMAT.HARDCOPY) (QUOTE AROUND) (QUOTE (RESETLST (RESETSAVE NIL (LIST (FUNCTION IM.INDEX.CLOSEF) STREAM)) *))) (IM.INDEX.INIT) (PUTPROPS IMINDEX COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1991 1992)) NIL