(FILECREATED "25-Nov-85 12:55:41" ("compiled on " {QV}LISP>TWODINSPECTOR.;20) "12-Nov-85 14:59:23" recompiled changes: ONEDINSPECT.BUTTONEVENTFN ONEDINSPECT.RIGHTW.BUTTONEVENTFN TWODINSPECT.BUTTONEVENTFN TWODINSPECT.RIGHTW.BUTTONEVENTFN TWODINSPECT.TOPW.BUTTONEVENTFN in "INTERLISP-D 19-Nov-85 ..." dated "19-Nov-85 10:39:55") (FILECREATED "25-Nov-85 12:53:22" {QV}LISP>TWODINSPECTOR.;20 103435 changes to: (FNS TWODINSPECT.BUTTONEVENTFN ONEDINSPECT.BUTTONEVENTFN ONEDINSPECT.RIGHTW.BUTTONEVENTFN TWODINSPECT.RIGHTW.BUTTONEVENTFN TWODINSPECT.TOPW.BUTTONEVENTFN) (RECORDS ICMLARRAY.ACTIVEREGION ONEDINSPECT.SELECTION TWODINSPECT.SELECTION) previous date: "20-Nov-85 20:25:43" {QV}LISP>TWODINSPECTOR.;19) ONEDINSPECT.PROPWIDTHA0001 D1 (NAME ERRORSET L (0 NIL) F 5 RESETVARSLST F 6 FONT F 7 PROPS F 10Q RESETY) Rgo hhUc ¿gd g ¿Uc ¿WAHµIV ciZV ¼K“LKó“L»J¹HX°ß(100Q PLSTRINGWIDTH 66Q PLSTRINGWIDTH 41Q SETTOPVAL 32Q GETTOPVAL 11Q PRINTLEVEL) (36Q *PRINT-ARRAY* 26Q *PRINT-ARRAY* 2 PRINTLEVEL) ( 6 (2 . 5)) ONEDINSPECT.PROPWIDTH D1 (P 1 RESETY P 0 LISPXHIST I 1 FONT I 0 PROPS F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q ONEDINSPECT.PROPWIDTHA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (ONEDINSPECT.PROPWIDTHA0001)) ONEDINSPECT.REDISPLAYA0001 D1 (NAME ERRORSET L (0 NIL) F 21Q WINDOW F 22Q RESETVARSLST F 23Q ELTPROPS F 24Q RESETY) êgo hhW$c$¿gd gi ¿W$c$¿gd g ¿W$c$¿W"g W"g W"g W"g W"g W"g ¿e 0 W&°$d_¿IOlH_¿Oµ Oh_‚O&_¿µÝO¾0 N°dW" _¿Oµ Oh_‚O&_¿µãO½0 W&°Md_¿KJOµˆ_ ¿Oµh_¿Oµ$Oh_°Oô–O µéi°æO_¿O_¿°ÈO&_¿µ´O_¿N¢±M_µ"i²wW" ¿ONW" W" $Oµ°Lñ’h°ÜO°Ñ_¿OµW" ¿W" °o_ ¿hddW"jO LOggj ¿OO OW"¿O_¿O_¿°£W"g ¿W" ¿W" ¿W" ¿W" ¿W"g ¿W"g hc(i(742Q ONEDINSPECT.RIGHTW.REPAINTFN 737Q GETWINDOWUSERPROP 726Q DSPRESET 723Q GETWINDOWUSERPROP 712Q ONEDINSPECT.REPAINTFN 704Q DSPRESET 676Q ONEDINSPECT.ADJUSTSELECTION 670Q ONEDINSPECT.MAKEREGIONS 662Q PUTWINDOWPROP 633Q ONEDINSPECT.PRINTELEMENT 617Q BITBLT 563Q ONEDINSPECT.INVERTSELECTION 555Q ONEDINSPECT.ADJUSTSELECTION 510Q FONTDESCENT 503Q FONTHEIGHT 472Q ONEDINSPECT.INVERTSELECTION 260Q PLSTRINGWIDTH 157Q GETWINDOWUSERPROP 147Q GETWINDOWUSERPROP 137Q GETWINDOWUSERPROP 127Q GETWINDOWUSERPROP 117Q GETWINDOWUSERPROP 107Q GETWINDOWUSERPROP 70Q SETTOPVAL 61Q GETTOPVAL 43Q SETTOPVAL 33Q GETTOPVAL 11Q PRINTLEVEL) (734Q RIGHTWINDOW 720Q RIGHTWINDOW 657Q VALUEWIDTH 612Q REPLACE 607Q TEXTURE 154Q SELECTION 144Q VALUEWIDTH 134Q PROPS 124Q VERTMARKS 114Q DATUM 104Q FETCHFN 65Q *PRINT-ARRAY* 55Q *PRINT-ARRAY* 37Q PLVLFILEFLG 27Q PLVLFILEFLG 2 PRINTLEVEL) ( 6 (2 . 5)) ONEDINSPECT.REDISPLAY D1 (P 1 RESETY P 0 LISPXHIST I 1 ELTPROPS I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) 0AµS!Tog œh³íAhb¿°ågZ J“I(53Q ERROR! 46Q RESETRESTORE 21Q ONEDINSPECT.REDISPLAYA0001) (42Q ERROR 16Q INTERNAL) ( 13Q (ONEDINSPECT.REDISPLAYA0001)) ONEDINSPECT.VALUEWIDTHA0001 D1 (NAME ERRORSET L (0 NIL) F 5 RESETVARSLST F 6 DATUM F 7 FETCHFN F 10Q FONT F 11Q PROPS F 12Q RESETY) cgo hhUc ¿gd g ¿Uc ¿VWAHµIlWW ciºVJlWW ¼K“LKó“L»J¹HX°Ï(121Q PLSTRINGWIDTH 76Q PLSTRINGWIDTH 41Q SETTOPVAL 32Q GETTOPVAL 11Q PRINTLEVEL) (36Q *PRINT-ARRAY* 26Q *PRINT-ARRAY* 2 PRINTLEVEL) ( 6 (2 . 5)) ONEDINSPECT.VALUEWIDTH D1 (P 1 RESETY P 0 LISPXHIST I 3 FONT I 2 FETCHFN I 1 PROPS I 0 DATUM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q ONEDINSPECT.VALUEWIDTHA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (ONEDINSPECT.VALUEWIDTHA0001)) ONEDINSPECT.ADJUSTPROPSELECTIONA0001 D1 (NAME ERRORSET L (0 NIL) F 13Q RESETVARSLST F 14Q MAINWINDOW F 15Q WINDOW F 16Q SELECTION F 17Q RESETY) ³go hhWc¿gd g ¿Wc¿Wg Wg Wg WÉ4IJ" O_¿Oµˆ_¿Oµ:h¼KW ½HW ¾Wg`dK¿dL¿dM¿dN¿hciKð–OµÄi°ÁO_¿O°£(226Q PUTWINDOWPROP 165Q STRINGWIDTH 156Q PLSTRINGWIDTH 101Q GETWINDOWUSERPROP 71Q GETWINDOWUSERPROP 61Q GETWINDOWUSERPROP 42Q SETTOPVAL 33Q GETTOPVAL 11Q PRINTLEVEL) (176Q ONEDINSPECT.SELECTIONTYPE# 173Q SELECTION 106Q ONEDINSPECT.SELECTION 76Q VERTMARKS 66Q PROPS 56Q PROPSPACE 37Q *PRINT-ARRAY* 27Q *PRINT-ARRAY* 2 PRINTLEVEL) ( 6 (2 . 5)) ONEDINSPECT.ADJUSTPROPSELECTION D1 (P 3 RESETY P 2 LISPXHIST P 1 MAINWINDOW P 0 SELECTION I 0 WINDOW F 5 LISPXHIST F 6 RESETVARSLST) 4@g @ H´#U!Vog ‘h‚g\ ¿L´h(60Q ERROR! 51Q RESETRESTORE 37Q ONEDINSPECT.ADJUSTPROPSELECTIONA0001 12Q MAINWINDOW 6 GETWINDOWUSERPROP) (45Q ERROR 34Q INTERNAL 3 SELECTION) ( 31Q (ONEDINSPECT.ADJUSTPROPSELECTIONA0001)) ONEDINSPECT.ADJUSTSELECTIONA0001 D1 (NAME ERRORSET L (0 NIL) F 13Q WINDOW F 14Q RESETVARSLST F 15Q SELECTION F 16Q RESETY) ºgo hhWc¿gd g ¿Wc¿Wg Wg Wg Wg WÉ%Wg`dL¿JK" O_¿Oµˆ_¿Oµ+h½dM¿HLlIW ¾dN¿dj¿hciLð–OµÓi°ÐO_¿O°²(235Q PUTWINDOWPROP 217Q PLSTRINGWIDTH 111Q GETWINDOWUSERPROP 101Q GETWINDOWUSERPROP 71Q GETWINDOWUSERPROP 61Q GETWINDOWUSERPROP 42Q SETTOPVAL 33Q GETTOPVAL 11Q PRINTLEVEL) (133Q ONEDINSPECT.SELECTIONTYPE# 130Q SELECTION 116Q ONEDINSPECT.SELECTION 106Q VERTMARKS 76Q PROPS 66Q FETCHFN 56Q DATUM 37Q *PRINT-ARRAY* 27Q *PRINT-ARRAY* 2 PRINTLEVEL) ( 6 (2 . 5)) ONEDINSPECT.ADJUSTSELECTION D1 (P 2 RESETY P 1 LISPXHIST P 0 SELECTION I 0 WINDOW F 4 LISPXHIST F 5 RESETVARSLST) 0@g H´#T!Uog ‘h‚g[ ¿K´h(54Q ERROR! 45Q RESETRESTORE 33Q ONEDINSPECT.ADJUSTSELECTIONA0001 6 GETWINDOWUSERPROP) (41Q ERROR 30Q INTERNAL 3 SELECTION) ( 25Q (ONEDINSPECT.ADJUSTSELECTIONA0001)) ONEDINSPECT.ARRANGEWINDOWS D1 (L (7 TOPRIGHT 6 TOTALHEIGHT 5 TOTALWIDTH 4 TOTALBOTTOM 3 TOTALLEFT 2 TITLEWINDOW 1 RIGHTWINDOW 0 DISPLAYWINDOW)) Ó@g @g @g @g @g ÕB hB É,_JA IØA É, _Fµ1@ H Úh@ É,_¿nôOñ’O‚nô_¿OOØb¿…OÙ_¿Eµ,KL@ Ø@ É, _¿lÈOñ’OlÈ_¿OOØb ¿…OÙ_¿G ™G½G¾°;CŸDCEkÙØ½DFkÙØ¾°)EFhddo _OkÙØ¾OOkÙØ½MOOÔkÙÕ_jOñœj_¿MkØOÕ_¿NOOÔkÙÕ_jOóœj_¿NkØOÕ_¿@gjd@OOOO AgOjAgOnÿÿA@ É_ O kÙØkØOOO A@gBgjOBgnÿÿOBO@ É_"O"kÙØkØEO B@g@(717Q ATTACHWINDOW 707Q SHAPEW 704Q CREATEREGION 655Q \INSUREWINDOW 646Q PUTWINDOWPROP 631Q PUTWINDOWPROP 616Q ATTACHWINDOW 606Q SHAPEW 603Q CREATEREGION 553Q \INSUREWINDOW 546Q PUTWINDOWPROP 531Q PUTWINDOWPROP 516Q SHAPEW 513Q CREATEREGION 477Q PUTWINDOWPROP 341Q GETBOXREGION 267Q POSITIONP 222Q WIDTHIFWINDOW 215Q \INSUREWINDOW 210Q STRINGWIDTH 135Q HEIGHTIFWINDOW 130Q \INSUREWINDOW 122Q LENGTH 116Q FONTHEIGHT 105Q WIDTHIFWINDOW 100Q \INSUREWINDOW 72Q STRINGWIDTH 63Q HEIGHTIFWINDOW 56Q \INSUREWINDOW 51Q FONTHEIGHT 42Q GETWINDOWUSERPROP 33Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (714Q TOP 635Q MAXSIZE 622Q MINSIZE 613Q RIGHT 535Q MAXSIZE 522Q MINSIZE 471Q MINSIZE 37Q VALUESPACE 30Q VALUEWIDTH 21Q PROPSPACE 12Q PROPWIDTH 3 PROPS) ( 335Q "Position Inspector window") ONEDINSPECT.BUTTONEVENTFNA0001 D1 (NAME ERRORSET L (0 NIL) F 12Q WINDOW F 13Q SELECTEDPROP F 14Q RESETVARSLST F 15Q SELECTEDELTLEFT F 16Q SELECTEDELTBOTTOM F 17Q SELECTEDELTWIDTH F 20Q DATUM F 21Q VERTMARKS F 22Q PROPS F 23Q FETCHFN F 24Q RESETY) go hhWc¿gd g ¿Wc¿W AhW ¹W"W$I# N_¿Mµ&OºO[J´:W JlW&W ¼ILñ²#hZ° _¿Od²Ö¿OOñ³ÌO_¿M]°¾JWð³6W²WWWHW ¿hc¿J²jKLHW ¿Jc¿Lc¿jc¿Kc¿¿`låjð´‚±ÿ_W²'Wg`dW¿dW¿dW¿dW¿‡Wg hc(i(407Q PUTWINDOWPROP 376Q PUTWINDOWPROP 307Q GETMOUSESTATE 263Q TWODINSPECT.INVERTREGION 241Q TWODINSPECT.INVERTREGION 142Q PLSTRINGWIDTH 67Q CURSORPOSITION 56Q FONTHEIGHT 42Q SETTOPVAL 33Q GETTOPVAL 11Q PRINTLEVEL) (404Q SELECTION 342Q ONEDINSPECT.SELECTIONTYPE# 337Q SELECTION 313Q LASTMOUSEBUTTONS 37Q *PRINT-ARRAY* 27Q *PRINT-ARRAY* 2 PRINTLEVEL) ( 6 (2 . 5)) ONEDINSPECT.BUTTONEVENTFN D1 (P 13Q RESETY P 12Q LISPXHIST P 10Q SELECTEDELTWIDTH P 7 SELECTEDELTLEFT P 6 SELECTEDELTBOTTOM P 5 SELECTEDPROP P 3 VERTMARKS P 2 PROPS P 1 FETCHFN P 0 DATUM I 0 WINDOW F 15Q LISPXHIST F 16Q RESETVARSLST) § @ @g @g @g @g @g U Lµ&¿`låjð³LW!Wog ²&h°&É½LÉ¾LÉ_¿LÉ_¿°½g_ ¿O“¿°!L´@g _¿HMlIMH@lOh(216Q GETWINDOWUSERPROP 200Q ERROR! 171Q RESETRESTORE 113Q ONEDINSPECT.BUTTONEVENTFNA0001 57Q GETMOUSESTATE 46Q GETWINDOWUSERPROP 37Q GETWINDOWUSERPROP 30Q GETWINDOWUSERPROP 21Q GETWINDOWUSERPROP 12Q GETWINDOWUSERPROP 3 TOTOPW) (213Q VALUECOMMANDFN 164Q ERROR 152Q ONEDINSPECT.SELECTION 141Q ONEDINSPECT.SELECTION 132Q ONEDINSPECT.SELECTION 123Q ONEDINSPECT.SELECTION 110Q INTERNAL 63Q LASTMOUSEBUTTONS 43Q SELECTION 34Q VERTMARKS 25Q PROPS 16Q FETCHFN 7 DATUM) ( 105Q (ONEDINSPECT.BUTTONEVENTFNA0001)) ONEDINSPECT.CLOSEFN D1 (L (0 WINDOW)) @ @g @g g (27Q PUTWINDOWPROP 21Q GETWINDOWUSERPROP 12Q PUTWINDOWPROP 3 DETACHALLWINDOWS) (24Q SELECTION 16Q RIGHTWINDOW 7 SELECTION) () ONEDINSPECT.DEFAULT.TITLECOMMANDFNA0001 D1 (NAME ERRORSET L (0 NIL) F 2 RESETVARSLST F 3 WINDOW F 4 IT F 5 RESETY) vgo hhRc¿gd gi ¿Rc¿gd g ¿Rc¿oSg H dgð–¿S °gð´Ic¿oI ¿hc i(155Q PROMPTPRINT 131Q ONEDINSPECT.REDISPLAY 116Q MENU 107Q GETWINDOWUSERPROP 66Q SETTOPVAL 57Q GETTOPVAL 42Q SETTOPVAL 32Q GETTOPVAL 11Q PRINTLEVEL) (136Q IT 122Q REFETCH 104Q DATUM 63Q *PRINT-ARRAY* 53Q *PRINT-ARRAY* 36Q PLVLFILEFLG 26Q PLVLFILEFLG 2 PRINTLEVEL) ( 151Q "IT bound to " 100Q (create MENU ITEMS _ (QUOTE ((Refetch (QUOTE REFETCH) "Refetch the datum") ("IT _ Datum" (QUOTE IT) "Bind IT to the inspected datum")))) 6 (2 . 5)) ONEDINSPECT.DEFAULT.TITLECOMMANDFN D1 (P 1 RESETY P 0 LISPXHIST I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) 1¿`kåjð³#S!Tog ‘h‚gZ J“Ih(52Q ERROR! 45Q RESETRESTORE 33Q ONEDINSPECT.DEFAULT.TITLECOMMANDFNA0001 2 GETMOUSESTATE) (41Q ERROR 30Q INTERNAL 6 LASTMOUSEBUTTONS) ( 25Q (ONEDINSPECT.DEFAULT.TITLECOMMANDFNA0001)) ONEDINSPECT.DEFAULT.VALUECOMMANDFNA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 IT F 2 RESETY) Jgo hhPc¿gd gi ¿Pc¿gd g ¿Pc¿oQ ci(104Q PROMPTPRINT 66Q SETTOPVAL 57Q GETTOPVAL 42Q SETTOPVAL 32Q GETTOPVAL 11Q PRINTLEVEL) (63Q *PRINT-ARRAY* 53Q *PRINT-ARRAY* 36Q PLVLFILEFLG 26Q PLVLFILEFLG 2 PRINTLEVEL) ( 100Q "IT bound to " 6 (2 . 5)) ONEDINSPECT.DEFAULT.VALUECOMMANDFN D1 (L (3 WINDOW 2 DATUM 1 PROP 0 VALUE) P 3 RESETY P 2 LISPXHIST F 5 IT F 6 LISPXHIST F 7 RESETVARSLST) boo@“@3‘H€I dgð—¿@ ¿°