(FILECREATED "30-Nov-87 15:59:03" ("compiled on " {QV}1.3KNEXT>NCSKETCHCARD.;3) "12-Nov-85 14:59:23" recompiled changes: NC.MakeSketchCard NC.BringUpSketchCard in "LOOPS/KOTO 9-Sep-87 ..." dated " 9-Sep-87 14:19:57") (FILECREATED "30-Nov-87 15:58:43" {QV}1.3KNEXT>NCSKETCHCARD.;3 30181 changes to: (FNS NC.MakeSketchCard NC.BringUpSketchCard) previous date: "14-Jul-87 20:12:38" {QV}1.3KNEXT>NCSKETCHCARD.;2) (NC.LoadFileFromDirectories (QUOTE SKETCH) (QUOTE LISPUSERSDIRECTORIES)) (NC.LoadFileFromDirectories (QUOTE KOTOSKETCHPATCHES)) NCAddStub.SketchCard D1 NIL ggghog`hh (35Q NC.AddCardTypeStub) (23Q NC.SketchCardIcon 20Q LinkIconAttachedBitMap 10Q NCSKETCHCARD 5 NoteCard 2 Sketch) ( 15Q (DisplayedInMenuFlg T)) NC.MakeSketchCard D1 (P 4 FieldValue P 3 CardTypeRecord P 2 CardTypeName P 1 CardType P 0 Window I 2 NoDisplayFlg I 1 Title I 0 Card) B@h @ @ Yhd@ AohI!Jdq [K4\dgPJKd J [doJ K4\dg oogoJo  LgJg L Xdgi Hgg Hgg Hg HI @H H(321Q NC.SetSubstance 316Q INSURE.SKETCH 311Q NC.InstallTitleBarLeftMenu 304Q NC.InstallTitleBarButtonEventFn 275Q PUTWINDOWPROP 263Q PUTWINDOWPROP 251Q PUTWINDOWPROP 240Q SKETCHW.CREATE 234Q SKETCH.COMMANDMENU 226Q NC.GetCardTypeFieldOfSuper 210Q NC.ReportError 205Q CONCAT 135Q NC.ReportError 132Q CONCAT 117Q NC.CardTypeRecord 111Q NC.CardTypeLoader 54Q NC.CardTypeRecord 31Q NC.DetermineDisplayRegion 22Q NC.RetrieveType 11Q NC.SetSubstance 6 SKETCH.ADD.ELEMENT) (301Q NC.SketchTitleBarButtonEventFn 272Q NC.SketchCardShrinkFn 267Q SHRINKFN 260Q NC.SK.COPY.BUTTONEVENTFN 255Q COPYBUTTONEVENTFN 245Q DONTQUERYCHANGES 223Q MiddleButtonMenuItems 215Q \\FILLME// 170Q MiddleButtonMenuItems 151Q \\EMPTY// 142Q NoteCardType 104Q NoteCardType 71Q \\EMPTY// 62Q NoteCardType) ( 201Q " still \\EMPTY// after autoloading." 174Q " of card type " 165Q "Field name " 161Q "NC.GetCardTypeField" 126Q "Cannot find full definition of card type: " 40Q "Untitled") NC.BringUpSketchCard D1 (P 10Q FieldValue P 7 CardTypeRecord P 6 CardTypeName P 4 CardType P 3 SketchViewer P 2 Title P 1 Region P 0 SketchName I 2 RegionOrPosition I 1 Substance I 0 Card) " Ah @ Q@ [@ AHh@B @ hL!Nd _O4_dgUNOd N _doN O4_dg!oogoNo  Og6Ng / BK@B l]jK MkٰK . CO [gi Kgg Kgg Kg KL A@K K(436Q NC.SetSubstance 433Q INSURE.SKETCH 423Q NC.InstallTitleBarLeftMenu 415Q NC.InstallTitleBarButtonEventFn 405Q PUTWINDOWPROP 372Q PUTWINDOWPROP 357Q PUTWINDOWPROP 347Q SKETCHW.CREATE 343Q SKETCH.COMMANDMENU 333Q TTY.PROCESS 326Q \INSUREWINDOW 314Q FLASHW 301Q SHAPEW 276Q NC.DetermineDisplayRegion 265Q TOTOPW 260Q NC.GetCardTypeFieldOfSuper 240Q NC.ReportError 235Q CONCAT 163Q NC.ReportError 160Q CONCAT 144Q NC.CardTypeRecord 136Q NC.CardTypeLoader 74Q NC.CardTypeRecord 56Q NC.RetrieveTitle 52Q NC.DetermineDisplayRegion 37Q NC.RetrieveType 24Q NC.FetchWindow 15Q MKATOM) (412Q NC.SketchTitleBarButtonEventFn 402Q NC.SketchCardShrinkFn 377Q SHRINKFN 367Q NC.SK.COPY.BUTTONEVENTFN 364Q COPYBUTTONEVENTFN 353Q DONTQUERYCHANGES 255Q MiddleButtonMenuItems 246Q \\FILLME// 220Q MiddleButtonMenuItems 201Q \\EMPTY// 171Q NoteCardType 131Q NoteCardType 115Q \\EMPTY// 105Q NoteCardType 10Q CardObject) ( 231Q " still \\EMPTY// after autoloading." 224Q " of card type " 215Q "Field name " 211Q "NC.GetCardTypeField" 154Q "Cannot find full definition of card type: ") NC.SketchDirtyP D1 (I 0 Card) @ g i(11Q GETWINDOWUSERPROP 3 NC.FetchWindow) (6 SKETCHCHANGED) () NC.SketchTitleBarButtonEventFn D1 (P 0 LeftButtonMenu I 0 Window) J0h@ @ @ `kj@g @kI@g X`H g@kJ(74Q MENU 60Q GETWINDOWUSERPROP 42Q GETWINDOWUSERPROP 22Q INSIDEP 17Q LASTMOUSEY 13Q LASTMOUSEX 7 DSPCLIPPINGREGION) (101Q NILL 65Q MENUTYPE# 55Q TitleBarLeftButtonMenu 37Q OLDBUTTONEVENTFN 26Q LASTMOUSEBUTTONS) () NC.SketchCardCloseFn D1 (P 4 AttachedWindow P 3 NewRegion P 2 OldRegion P 1 Window P 0 Card I 0 CardIdentifier) T@@ Xd Yd@H d I I dL L II Ig i (121Q TTY.PROCESS 114Q PUTWINDOWPROP 104Q REMOVEPROMPTWINDOW 71Q CLOSEW 64Q DETACHWINDOW 52Q ATTACHEDWINDOWS 45Q SKED.CLEAR.SELECTION 34Q SKETCHW.CLOSEFN 26Q ALL.SKETCH.VIEWERS 23Q NC.FetchSubstance 13Q NC.FetchWindow 6 NC.CoerceToCard) (111Q SKETCHOPMENU) () NC.SketchCardShrinkFn D1 (P 3 IconTitle P 2 Card P 1 Icon P 0 OldIconTitle I 0 W) F@g @g @ I@ @g HoJ [@gK KhdI h(102Q ICONTITLE 72Q PUTWINDOWPROP 57Q CONCAT 54Q NC.RetrieveTitle 42Q GETWINDOWUSERPROP 32Q SK.SHRINK.ICONCREATE 21Q NC.CoerceToCard 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (66Q SKETCH.ICON.TITLE 37Q ICON 12Q ICON 3 SKETCH.ICON.TITLE) ( 50Q "NC: ") NC.SketchCopySubstance D1 (P 1 FromEndPtr P 0 FromStartPtr I 3 Length I 2 ToStream I 1 FromStream I 0 Card) A CHԹABHI i(21Q COPYBYTES 3 GETFILEPTR) NIL () NC.MarkSketchDirty D1 (I 1 ResetFlg I 0 Card) @ gA (12Q PUTWINDOWPROP 3 NC.FetchWindow) (6 SKETCHCHANGED) () NC.CollectReferencesInSketch D1 (P 11Q ActualLink P 10Q CollectItem P 7 LinkIcon P 6 SketchElt P 1 DirtyFlg P 0 SketchSubstance I 3 ReturnLocationsFlg I 2 ReturnLinkIconsFlg I 1 CheckAndDeleteFlg I 0 Card) @ Hg q JKI^ _ _Ad,OAhO O hN@ iY!BOO_CON OL Mh\JZM&(150Q SKETCH.POSITION.OF.ELEMENT 121Q NC.DeleteLinkIconSketchElement 111Q NC.ValidCardP 76Q NC.ValidLinkP 43Q NC.FetchLinkFromLinkIcon 36Q SKETCH.IMAGEOBJ.OF.ELEMENT 15Q SKETCH.LIST.OF.ELEMENTS 3 NC.FetchSubstance) (104Q Link 61Q Link 12Q NC.LinkIconSketchElementP) () NC.GetSketchSubstance D1 (P 0 Sketch I 3 SubstanceVersion I 2 Stream I 1 Length I 0 Card) _CjCdm5B @B` @B` B` gB HkB B` gB H(130Q NC.GetCachedMap 117Q READ 105Q HREAD 70Q NC.GetCachedMap 57Q READ 50Q NC.SetRegionViewed 45Q READ 35Q NC.SetScale 32Q READ 17Q HREAD) (122Q %###CACHEDMAP### 114Q NC.OrigReadTable 62Q %###CACHEDMAP### 54Q NC.OrigReadTable 42Q NC.OrigReadTable 27Q NC.OrigReadTable) () NC.PutSketchSubstanceA0001 D1 (I 0 Element) @g g(6 GETSKETCHELEMENTPROP) (11Q MAP 3 TYPE) () NC.PutSketchSubstance D1 (P 2 Element P 1 Window P 0 Substance I 1 Stream I 0 Card) H@ @ I I HAhi IH gi dJIA gA` k(104Q PRINT 65Q NC.PutCachedMap 51Q SKETCH.LIST.OF.ELEMENTS 42Q INSURE.SKETCH 33Q HPRINT 23Q MAKE.IMAGE.OBJECT.OF.SKETCH 16Q OPENWP 7 NC.FetchWindow 3 NC.FetchSubstance) (101Q NC.OrigReadTable 75Q %###ENDSKETCH### 45Q NC.PutSketchSubstanceA0001) () NC.PutCachedMap D1 (P 2 CacheSpec P 1 BitMap P 0 CacheSpecs I 2 Stream I 1 SketchWindow I 0 SketchMapElement) ? @A X3H,dgJ gB` JB` IBid h(66Q HPRINT 56Q PRINT 45Q PRINT 32Q APPLY 7 CacheSpecsFromMapSketchElement) (53Q NC.OrigReadTable 42Q NC.OrigReadTable 36Q %###CACHEDMAP### 26Q FetchCachedBitMap) () NC.GetCachedMap D1 (P 2 FileName P 1 BitMap P 0 CacheSpecs I 0 Stream)  @` Xd lgH@ YH7d4g gIH g Joogo  g gIH ooJog (202Q NC.ReportError 177Q CONCAT 153Q APPLY 141Q \DEFINEDP 133Q NC.LoadFileFromDirectories 127Q NC.ReportError 124Q CONCAT 74Q NC.LookupAutoloadFnFile 65Q APPLY 53Q \DEFINEDP 36Q HREAD 16Q LENGTH 11Q READ) (174Q SetCachedBitMap 145Q SetCachedBitMap 136Q SetCachedBitMap 115Q SetCachedBitMap 71Q SetCachedBitMap 57Q SetCachedBitMap 50Q SetCachedBitMap 25Q HIGH 6 NC.OrigReadTable) ( 171Q ", but still no definition of " 164Q "Loaded file " 160Q "NC.AutoloadApply" 121Q " in table of autoloadable functions." 112Q "No definition of " 106Q "NC.AutoloadApply") NC.UpdateLinkImagesInSketch D1 (P 3 FoundAtLeastOneFlg P 2 SketchElement P 0 SketchWin I 1 DestinationCard I 0 SourceCard) ?@ Hg !I K@ hAJ  HJ iIY(65Q SKETCH.ELEMENT.CHANGED 57Q NC.SameCardP 47Q NC.FetchLinkFromLinkIcon 44Q SKETCH.IMAGEOBJ.OF.ELEMENT 33Q NC.MarkCardDirty 15Q SKETCH.LIST.OF.ELEMENTS 3 NC.FetchWindow) (52Q Link 12Q NC.LinkIconSketchElementP) () NC.DelReferencesToCardFromSketch D1 (P 5 LinkIcon P 4 SketchElement P 2 SketchSubstance P 1 DestinationCard P 0 LinkFlg I 2 Don'tCreateDeletedImageObjFlg I 1 LinkOrDestinationCard I 0 SourceCard) \A`!H@ AbA@ Zdg !Kh\ HAM IM  L@B K[(124Q NC.DeleteLinkIconSketchElement 115Q NC.SameCardP 105Q NC.FetchLinkFromLinkIcon 77Q NC.SameLinkP 74Q NC.FetchLinkFromLinkIcon 64Q SKETCH.IMAGEOBJ.OF.ELEMENT 46Q SKETCH.LIST.OF.ELEMENTS 36Q NC.FetchSubstance 16Q NC.CardP) (110Q Link 43Q NC.LinkIconSketchElementP 23Q Link 4 LinkTYPE#) () NC.ExternalizeLinkIconsInSketch D1 (P 2 Link P 1 LinkIcon P 0 SketchElement I 0 Sketch) =@gi /dH I IJJJ @(62Q NC.CoerceToExternalPutLinkIcon 31Q NC.FetchLinkFromLinkIcon 22Q SKETCH.IMAGEOBJ.OF.ELEMENT 7 SKETCH.LIST.OF.ELEMENTS) (55Q Link 47Q Link 41Q Link 3 NC.LinkIconSketchElementP) () NC.MakeExternalSketchCopy D1 (P 0 SketchCopy I 0 SketchViewerOrImageObj) (h @ H H H@ @ @ (45Q MAKE.IMAGE.OBJECT.OF.SKETCH 42Q SKETCH.VIEWER.GRID 36Q SKETCH.VIEWER.SCALE 32Q SKETCH.REGION.VIEWED 25Q NC.ExternalizeLinkIconsInSketch 21Q SKETCH.COPY.ELEMENTS 15Q SKETCH.ELEMENTS.OF.SKETCH 12Q INSURE.SKETCH 3 SKETCH.ADD.ELEMENT) NIL () NC.SK.COPY.BUTTONEVENTFNA0001 D1 (I 0 Element) @g g @g (26Q NC.LinkIconImageObjP 23Q GETSKETCHELEMENTPROP 6 GETSKETCHELEMENTPROP) (20Q DATA 11Q SKIMAGEOBJ 3 TYPE) () NC.SK.COPY.BUTTONEVENTFN D1 (P 0 ChosenElement I 0 Window) Dg 2g g !@i@ g Hdg @ (101Q SK.COPY.BUTTONEVENTFN 74Q COPYINSERT 71Q GETSKETCHELEMENTPROP 55Q SKETCH.GET.ELEMENTS 52Q SKETCH.LIST.OF.ELEMENTS 44Q INSURE.SKETCH 34Q GETWINDOWUSERPROP 26Q PROCESSPROP 20Q TTY.PROCESS 13Q WINDOWP 10Q PROCESSPROP 2 TTY.PROCESS) (66Q DATA 47Q NC.SK.COPY.BUTTONEVENTFNA0001 31Q SelectingCards 23Q WINDOW 5 WINDOW) () NC.TranslateWindowPositionToSketchPosition D1 (L (3 WindowPositionY 2 WindowPositionX 1 Window 0 Card)) BCNIL NIL () NC.FakeMapInputFn D1 (P 0 FileName I 0 SketchWin) [g @kgg Hoogo  g @kgooHog (130Q NC.ReportError 125Q CONCAT 71Q \DEFINEDP 63Q NC.LoadFileFromDirectories 57Q NC.ReportError 54Q CONCAT 24Q NC.LookupAutoloadFnFile 5 \DEFINEDP) (122Q SK.MAP.INPUTFN 77Q SK.MAP.INPUTFN 66Q SK.MAP.INPUTFN 45Q SK.MAP.INPUTFN 21Q SK.MAP.INPUTFN 13Q SK.MAP.INPUTFN 2 SK.MAP.INPUTFN) ( 117Q ", but still no definition of " 112Q "Loaded file " 106Q "NC.AutoloadApply*" 51Q " in table of autoloadable functions." 42Q "No definition of " 36Q "NC.AutoloadApply*") NC.FakeMapInsideFn D1 (P 0 FileName I 1 Region I 0 Elem) _g @Algg Hoogo  g @AlgooHog (134Q NC.ReportError 131Q CONCAT 73Q \DEFINEDP 65Q NC.LoadFileFromDirectories 61Q NC.ReportError 56Q CONCAT 26Q NC.LookupAutoloadFnFile 5 \DEFINEDP) (126Q SK.MAP.INSIDEFN 103Q SK.MAP.INSIDEFN 70Q SK.MAP.INSIDEFN 47Q SK.MAP.INSIDEFN 23Q SK.MAP.INSIDEFN 15Q SK.MAP.INSIDEFN 2 SK.MAP.INSIDEFN) ( 123Q ", but still no definition of " 116Q "Loaded file " 112Q "NC.AutoloadApply*" 53Q " in table of autoloadable functions." 44Q "No definition of " 40Q "NC.AutoloadApply*") NC.AddSketchCard D1 NIL }ggoooooooooooooghi hhooooog`hh (172Q NC.AddCardType 101Q SKETCH.COMMANDMENU.ITEMS) (155Q NC.SketchCardIcon 152Q LinkIconAttachedBitMap 74Q MiddleButtonMenuItems 5 NoteCard 2 Sketch) ( 147Q (DisplayedInMenuFlg T) 143Q (LinkDisplayMode Title) 137Q (LinkAnchorModesSupported T) 133Q (DefaultHeight 536Q) 127Q (DefaultWidth 620Q) 71Q (TranslateWindowPositionFn NC.TranslateWindowPositionToSketchPosition) 65Q (InsertLinkFn NC.InsertLinkInSketch) 61Q (UpdateLinkIconsFn NC.UpdateLinkImagesInSketch) 55Q (DeleteLinksFn NC.DelReferencesToCardFromSketch) 51Q (CollectLinksFn NC.CollectReferencesInSketch) 45Q (DirtyPFn NC.SketchDirtyP) 41Q (MarkDirtyFn NC.MarkSketchDirty) 35Q (CopyFn NC.SketchCopySubstance) 31Q (PutFn NC.PutSketchSubstance) 25Q (GetFn NC.GetSketchSubstance) 21Q (QuitFn NC.SketchCardCloseFn) 15Q (EditFn NC.BringUpSketchCard) 11Q (MakeFn NC.MakeSketchCard)) (PRETTYCOMPRINT NCSKETCHCARDCOMS) (RPAQQ NCSKETCHCARDCOMS ((* * Definition of the Sketch card type.) (DECLARE: COPY FIRST (P ( NC.LoadFileFromDirectories (QUOTE SKETCH) (QUOTE LISPUSERSDIRECTORIES)) (NC.LoadFileFromDirectories ( QUOTE KOTOSKETCHPATCHES)))) (FNS NCAddStub.SketchCard) (GLOBALVARS NC.SketchCardIcon NC.SketchTitleBarMenu NC.DeletedLinkImageObject NC.UseDeletedLinkIconIndicatorsFlg) (DECLARE: DONTEVAL@LOAD (BITMAPS NC.SketchCardIcon)) (* * Basic functions) (FNS NC.MakeSketchCard NC.BringUpSketchCard NC.SketchDirtyP NC.SketchTitleBarButtonEventFn NC.SketchCardCloseFn NC.SketchCardShrinkFn NC.SketchCopySubstance NC.MarkSketchDirty NC.CollectReferencesInSketch NC.GetSketchSubstance NC.PutSketchSubstance NC.PutCachedMap NC.GetCachedMap NC.UpdateLinkImagesInSketch NC.DelReferencesToCardFromSketch NC.ExternalizeLinkIconsInSketch NC.MakeExternalSketchCopy NC.SK.COPY.BUTTONEVENTFN) (DECLARE: DONTEVAL@LOAD (ADVISE CREATE.SKETCHW.COMMANDMENU)) (* * This stuff supports the "push-copy" method of copying links in NC) ( FNS NC.TranslateWindowPositionToSketchPosition) (* * Special stuff for autoloading maps) (FNS NC.FakeMapInputFn NC.FakeMapInsideFn) (DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION SK.MAP.INPUTFN) (QUOTE NCMAPS) (QUOTE NOTECARDSDIRECTORIES)) (NC.StoreAutoloadFnFile (FUNCTION SK.MAP.INSIDEFN) (QUOTE NCMAPS) (QUOTE NOTECARDSDIRECTORIES)) (NC.StoreAutoloadFnFile (FUNCTION SetCachedBitMap) (QUOTE NCMAPS) (QUOTE NOTECARDSDIRECTORIES)) (OR (FMEMB (QUOTE MAP) SKETCH.ELEMENT.TYPE.NAMES) (CREATE.SKETCH.ELEMENT.TYPE (QUOTE MAP) "Map" "Forces autoload of MAP package." NIL NIL NIL NIL (FUNCTION NC.FakeMapInputFn) (FUNCTION NC.FakeMapInsideFn))))) (* * Add sketch card type to CardType list) (FNS NC.AddSketchCard) (DECLARE: DONTEVAL@LOAD (P (NC.AddSketchCard)) (P (if (NULL (GETD (QUOTE VIEWER.SCALE))) then (DEFINEQ ( VIEWER.SCALE (LAMBDA (Window) (WINDOWPROP Window (QUOTE SCALE)))))))))) (RPAQ NC.SketchCardIcon (READBITMAP)) (21 18 "OOOOOH@@" "H@@@@H@@" "HGO@@H@@" "HH@H@H@@" "H@@G@H@@" "HC@@HH@@" "HDH@DH@@" "HHD@BH@@" "I@B@@H@@" "I@B@@H@@" "HHDONH@@" "HDHHBH@@" "HC@HBH@@" "H@@HBH@@" "H@@HBH@@" "H@@ONH@@" "H@@@@H@@" "OOOOOH@@") (PUTPROPS CREATE.SKETCHW.COMMANDMENU READVICE (NIL (AFTER NIL (NC.RemoveSketchMenuItems !VALUE)))) (READVISE CREATE.SKETCHW.COMMANDMENU) (NC.StoreAutoloadFnFile (FUNCTION SK.MAP.INPUTFN) (QUOTE NCMAPS) (QUOTE NOTECARDSDIRECTORIES)) (NC.StoreAutoloadFnFile (FUNCTION SK.MAP.INSIDEFN) (QUOTE NCMAPS) (QUOTE NOTECARDSDIRECTORIES)) (NC.StoreAutoloadFnFile (FUNCTION SetCachedBitMap) (QUOTE NCMAPS) (QUOTE NOTECARDSDIRECTORIES)) (OR (FMEMB (QUOTE MAP) SKETCH.ELEMENT.TYPE.NAMES) (CREATE.SKETCH.ELEMENT.TYPE (QUOTE MAP) "Map" "Forces autoload of MAP package." NIL NIL NIL NIL (FUNCTION NC.FakeMapInputFn) (FUNCTION NC.FakeMapInsideFn))) (NC.AddSketchCard) (if (NULL (GETD (QUOTE VIEWER.SCALE))) then (DEFINEQ (VIEWER.SCALE (LAMBDA (Window) (WINDOWPROP Window (QUOTE SCALE)))))) (PUTPROPS NCSKETCHCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL