(FILECREATED "26-Jul-86 13:44:26" ("compiled on " {DSK}DINDEVIEWS.;30) "12-Nov-85 14:59:23" bcompl'd in "LOOPS with TEDIT 2-Jun-86 ..." dated " 2-Jun-86 16:58:15") (FILECREATED "25-Jul-86 18:06:05" {DSK}DINDEVIEWS.;30 57914 changes to: (VARS DINDEVIEWSCOMS) (METHODS MicroscopicView.BackwardLinks MicroscopicView.GetSubs MicroscopicView.WidenView MicroscopicView.UnEnvelopBy MicroscopicView.EnvelopBy MicroscopicView.NarrowView MicroscopicView.ReturnAnExplodedView MicroscopicView.PathsTo MicroscopicView.ExplodeANestedView MicroscopicView.CreateView MicroscopicView.Zoom MicroscopicView.PathsFrom MicroscopicView.ForwardLinks DINDEBrowser.PutClassMenu DINDEBrowser.ChoiceMenu MicroscopicView.ShowLocationOnMap MicroscopicView.ShortSummary MicroscopicView.Destroy AnalysisMap.NarrowView View.InView View.InView! View.TheView DINDEBrowser.ShapeToHold View.SetName) (FNS MicroscopicView.BackwardLinks MicroscopicView.CreateView MicroscopicView.EnvelopBy MicroscopicView.ExplodeANestedView MicroscopicView.GetSubs MicroscopicView.NarrowView MicroscopicView.PathsFrom MicroscopicView.PathsTo MicroscopicView.ReturnAnExplodedView MicroscopicView.UnEnvelopBy MicroscopicView.WidenView MicroscopicView.Zoom MicroscopicView.ForwardLinks DINDEBrowser.PutClassMenu DINDEBrowser.ChoiceMenu MicroscopicView.Destroy MicroscopicView.ShortSummary MicroscopicView.ShowLocationOnMap AnalysisMap.WidenView AnalysisMap.NarrowView View.InView View.InView! View.TheView DINDEBrowser.ShapeToHold View.SetName) (CLASSES MicroscopicView DINDEBrowser AnalysisMap View) previous date: "17-Jul-86 19:26:23" {DSK}DINDEVIEWS.;24) AnalysisMap.AddAnalysisNode D1 (P 14Q linkName P 13Q theNodeObject P 2 theNodeName I 0 self) y @Hg ¹HolI J \g »LkK@^g ½NolM_µ@_g _¿OOlOh _g _¿OOlO¿°¸(147Q FetchMethodOrHelp 137Q $! 115Q FetchMethodOrHelp 65Q FetchMethodOrHelp 44Q FetchMethodOrHelp 35Q $! 12Q FetchMethodOrHelp) (144Q AnalysisLink 112Q WidenView 62Q PromptRead 41Q New 7 PromptRead) ( 73Q "Link to node:" 20Q "Name of new analysis node class:") AnalysisMap.BackwardLinks D1 (I 1 LinkedObject I 0 self) 4AHg ¹HglI—Ag @Hg ¹HAlI(51Q FetchMethodOrHelp 35Q GetValue 12Q FetchMethodOrHelp) (46Q ErrorCantDeduceLinksFor 32Q BackAnalysisLinks 17Q BackAnalysisLinks 7 HasIV) () AnalysisMap.BreakLink D1 (P 3 Node2 P 2 Node1 I 0 self) Û@Hg ¹HolI ñJ]g ¼MglL²&@_g ¾OoJ olN¿±†@_g _¿OolO [_g _¿OglO²(@_g _¿OoK olO¿°+J_g _¿OKlO¿@_"g _ ¿O"kO @(315Q FetchMethodOrHelp 267Q FetchMethodOrHelp 245Q CONCAT 236Q MKSTRING 221Q FetchMethodOrHelp 170Q FetchMethodOrHelp 157Q $! 135Q FetchMethodOrHelp 113Q CONCAT 104Q MKSTRING 71Q FetchMethodOrHelp 44Q FetchMethodOrHelp 31Q $! 12Q FetchMethodOrHelp) (312Q Recompute 264Q AnalysisUnlink 216Q PromptPrint 200Q AnalysisMap 165Q InstOf 132Q PromptRead 66Q PromptPrint 51Q AnalysisMap 41Q InstOf 7 PromptRead) ( 242Q " to manipulate the AnalysisLinks." 232Q "Sorry, there are no AnalysisLinks to an AnalysisMap. Instead, you must explode " 146Q "Node to link to: " 110Q " to manipulate the AnalysisLinks." 100Q "Sorry, there are no AnalysisLinks from an AnalysisMap. Instead, you must explode " 20Q "Node to break link from: ") AnalysisMap.ForwardLinks D1 (I 1 LinkedObject I 0 self) 4AHg ¹HglI—Ag @Hg ¹HAlI(51Q FetchMethodOrHelp 35Q GetValue 12Q FetchMethodOrHelp) (46Q ErrorCantDeduceLinksFor 32Q AnalysisLinks 17Q AnalysisLinks 7 HasIV) () AnalysisMap.InterposeMemo D1 (P 4 MemoNode P 3 Node2 P 2 Node1 I 0 self) o@Hg ¹HolI ñÐJ^g ½NglM²B@_g _¿OolO¿@_g _¿OoJ olO¿±û@_g _¿OolO [_g _¿OglO²B@_ g _¿O olO¿@_$g _"¿O$oK olO"¿±‡g _(g _&¿O(kO&¼J_,g _*¿O,KlO*¿J_0g _.¿O0LlO.¿L_4g _2¿O4KlO2¿@_8g _6¿O8LlO6¿@_H Xµ×±Ë_D¿@_g _¿OODlO²OD_B¿O@µOBh_@_>¿O<_<°ºOB&_@¿°ó@_g _¿OAlOA"O<µO>¸@g A'OFµGOHH _D¿@_g _¿OODlO²OD_B¿O@µOBh_@_>¿O<_<°¯OB&_@¿°ó_N¿A@_g _¿OONlO²ON_L¿OJµOLh_J_H¿OF_F°ƒOL&_J¿°óA_ g _¿O glO¢±‡A_$g _"¿O$kO"°/dA_(g _&¿O(O:lO&A"O<µO>H XµÒ°w_D¿@_,g _*¿O,ODlO*²OD_B¿O@µOBh_@_>¿O<_<°»OB&_@¿°ó@_0g _.¿O0AlO.A"O<µO>¸@g A'OFµIOHH XH_D¿@_4g _2¿O4ODlO2²OD_B¿O@µOBh_@_>¿O<_<°OB&_@¿°ó_N¿A@_8g _6¿O8ONlO6²ON_L¿OJµOLh_J_H¿OF_F°OL&_J¿°ó(1161Q FetchMethodOrHelp 1063Q FetchMethodOrHelp 1043Q UNION 1024Q GetValue 765Q FetchMethodOrHelp 674Q FetchMethodOrHelp 647Q UNION 613Q FetchMethodOrHelp 561Q FetchMethodOrHelp 526Q FetchMethodOrHelp 434Q FetchMethodOrHelp 336Q FetchMethodOrHelp 320Q UNION 301Q GetValue 242Q FetchMethodOrHelp 151Q FetchMethodOrHelp 123Q UNION 73Q FetchMethodOrHelp 46Q FetchMethodOrHelp 22Q FetchMethodOrHelp) (1156Q PathsTo 1060Q InView 1021Q EnvelopedViews 762Q PathsFrom 671Q InView 610Q PathsFrom 556Q TheView 536Q View 523Q InstOf! 431Q PathsFrom 333Q InView 276Q EnvelopedViews 237Q PathsTo 146Q InView 70Q PathsTo 43Q TheView 27Q View 17Q InstOf!) () View.IconTitle D1 (I 0 self) @g (6 GetValue) (3 title) () View.InView D1 (I 1 TheObject I 0 self) É A’±›@Hg ¹HolI b@‘ Hg ¹H@[g ºKkJ\µ$h²1o@oA_g ¾OkNo°2½AMð•M³Úi°ÕL°Ìo@oA_g _¿OkOoA lI@Hg ¹HkIHµh¹AIð”IµiHX°í(247Q FetchMethodOrHelp 226Q CONCAT 203Q FetchMethodOrHelp 124Q FetchMethodOrHelp 65Q FetchMethodOrHelp 53Q FetchMethodOrHelp 36Q $! 17Q FetchMethodOrHelp) (244Q TheView 200Q ClassName 121Q ClassName 62Q TheView 50Q PromptPrint 14Q PromptRead) ( 221Q " " 172Q " does not contain the " 165Q "No, " 137Q " " 113Q " contains the " 106Q "Yes, " 25Q "Give the object to be found: ") View.InView! D1 (P 16Q element I 1 TheObject I 0 self) -A’±Ê@Hg ¹HolI b@Ñ Hg ¹H@[g ºKkJ_µ'h²_o@oA_g _¿OkOo°]_]g ¼MglL²O_g ¾OAlNƒAOð–O³i°¨O°o@oA_g _¿OkOoA lI@Hg ¹HkIQOµh__ g _¿O glO²O_$g _"¿O$AlO"ƒAOð•OµiO_°¹(414Q FetchMethodOrHelp 362Q FetchMethodOrHelp 326Q FetchMethodOrHelp 305Q CONCAT 262Q FetchMethodOrHelp 205Q FetchMethodOrHelp 157Q FetchMethodOrHelp 125Q FetchMethodOrHelp 65Q FetchMethodOrHelp 53Q FetchMethodOrHelp 36Q $! 17Q FetchMethodOrHelp) (411Q InView! 372Q View 357Q InstOf! 323Q TheView 257Q ClassName 202Q InView! 164Q View 154Q InstOf! 122Q ClassName 62Q TheView 50Q PromptPrint 14Q PromptRead) ( 300Q " " 251Q " does not contain the " 244Q "No, " 143Q " " 114Q " contains the " 107Q "Yes, " 25Q "Give the object to be found: ") View.NarrowView D1 (P 32Q BiggerView P 31Q BiggerView P 30Q ObjectToRemove P 3 JustOneToRemove? P 2 NumberOfObjectsInView I 2 DontAddToEnvelopingViewsFlag I 1 OldMember I 0 self) R@Hg ¹HkI ñ`A[µ@]g ¼MolL O0¢±î@gO0@g ¿O0_g _¿O@_g ¾OkNlO²`O0_g _¿O@lO¿B³s@g °8dO2_g _¿OO0lO¿O0_g _¿OO2lOµÉ°/B³,@g ° dO4_"g _ ¿O"O0lO µáK’h°@_&g _$¿O&olO$ _0±ÿ@_*g _(¿O*kO(¿@_,g _.¿O,kO.(505Q FetchMethodOrHelp 461Q FetchMethodOrHelp 443Q $! 421Q FetchMethodOrHelp 361Q FetchMethodOrHelp 340Q GetValue 302Q FetchMethodOrHelp 252Q FetchMethodOrHelp 231Q GetValue 202Q FetchMethodOrHelp 151Q FetchMethodOrHelp 133Q FetchMethodOrHelp 120Q PutValue 115Q DREMOVE 112Q GetValue 64Q $! 46Q FetchMethodOrHelp 24Q LENGTH 12Q FetchMethodOrHelp) (502Q Recompute 456Q ClearPromptWindow 416Q PromptRead 356Q WidenView 335Q EnvelopingViews 277Q EnvelopBy 247Q WidenView 226Q EnvelopingViews 177Q UnEnvelopBy 146Q ClassName 130Q InstOf! 107Q startingList 101Q startingList 43Q PromptRead 7 TheView) ( 432Q "The next member to be removed from this view: " 54Q "The member to be removed from this view: ") View.PathsFrom D1 (P 7 item I 1 AMember I 0 self) ƒAHg ¹HglI²DpA\g »LkK°$dA^g ½NOlMX–IµHZY¿µÝJ YH°óP@\g »LAlKŽd¸IµHhZH&¹µðJ(144Q FetchMethodOrHelp 124Q LAST 67Q FetchMethodOrHelp 42Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (141Q ForwardLinks 64Q PathsFrom 37Q TheView 17Q View 7 InstOf!) () View.PathsTo D1 (P 7 item I 1 AMember I 0 self) ƒAHg ¹HglI²DpA\g »LkK°$dA^g ½NOlMX–IµHZY¿µÝJ YH°óP@\g »LAlKŽd¸IµHhZH&¹µðJ(144Q FetchMethodOrHelp 124Q LAST 67Q FetchMethodOrHelp 42Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (141Q BackwardLinks 64Q PathsTo 37Q TheView 17Q View 7 InstOf!) () View.ReturnAnExplodedView D1 (P 2 item I 1 TheExplodedView I 0 self) VAµ‚±ü@g ³+@Hg ¹HkI@Hg ¹HolI`do¿@g HdI¿dg ¿dg¿jdnÿdhHdI ¿ bd²XdHg ¹HkI°d!@\g »LJilKµç@Hg ¹HAlI@gA@g @Hg ¹HkI@Hg ¹HolIHg ¹HkI°d!@\g »LJilKµç@Hg ¹HAlI@gA@g (523Q PutValue 520Q DREMOVE 515Q GetValue 470Q FetchMethodOrHelp 437Q FetchMethodOrHelp 411Q FetchMethodOrHelp 363Q FetchMethodOrHelp 341Q FetchMethodOrHelp 325Q PutValue 322Q DREMOVE 317Q GetValue 272Q FetchMethodOrHelp 241Q FetchMethodOrHelp 213Q FetchMethodOrHelp 173Q MENU 113Q GetValue 54Q FetchMethodOrHelp 32Q FetchMethodOrHelp 15Q GetValue) (512Q ExplodedViews 505Q ExplodedViews 465Q WidenView 434Q NarrowView 406Q TheView 360Q PromptPrint 336Q ClearPromptWindow 314Q ExplodedViews 307Q ExplodedViews 267Q WidenView 236Q NarrowView 210Q TheView 140Q DEFAULTMENUHELDFN 131Q CLRPROMPT 110Q ExplodedViews 73Q MENUTYPE# 51Q PromptPrint 27Q ClearPromptWindow 12Q ExplodedViews) ( 371Q "Nothing Selected" 101Q "Exploded Views" 62Q "No exploded Views. ") View.SetName D1 (P 5 window I 1 name I 0 self) A²,@!HgoYdªg i¿IºHAlJ°<@AHgoYdªg i¿I¼H@[g ºKolJlL@g Mg Mg (176Q PUTWINDOWPROP 167Q PUTWINDOWPROP 155Q GetValue 125Q FetchMethodOrHelp 113Q FindSuperMethod 102Q OldClass 41Q FindSuperMethod 30Q OldClass) (173Q ICONWINDOW 164Q ICON 152Q window 122Q PromptRead 77Q View 64Q SetName 25Q View 12Q SetName) ( 133Q "Name to be given to this View:" 70Q (NIL) 16Q (NIL)) View.TheView D1 (I 0 self) @g (6 GetValue) (3 startingList) () View.UnEnvelopBy D1 (I 1 TheLargerView I 0 self) &@gA@g Ag@Ag (43Q PutValue 40Q DREMOVE 35Q GetValue 21Q PutValue 16Q DREMOVE 13Q GetValue) (32Q EnvelopedViews 25Q EnvelopedViews 10Q EnvelopingViews 3 EnvelopingViews) () View.WidenView D1 (I 2 DontRecomputeFlag I 1 NewMember I 0 self) £Aµ"@Hg ¹HolI b³kh@g ³@gA@g ¿A1Hg »H@Zg ¹JkIlK²AHg ¹H@lIB³«@Hg ¹HkI@Hg ¹HABlI±ÿd(224Q FetchMethodOrHelp 202Q FetchMethodOrHelp 153Q FetchMethodOrHelp 122Q FetchMethodOrHelp 110Q FetchMethodOrHelp 74Q PutValue 70Q GetValue 51Q GetValue 34Q $! 15Q FetchMethodOrHelp) (221Q WidenView 177Q Recompute 150Q EnvelopBy 117Q ClassName 105Q InstOf! 65Q startingList 60Q startingList 46Q startingList 12Q PromptRead) ( 23Q "The new member: ") View.Zoom D1 (I 0 self) @Hg ¹H@g lI(23Q GetValue 12Q FetchMethodOrHelp) (20Q startingList 7 Browse) () (PRETTYCOMPRINT DINDEVIEWSCOMS) (RPAQQ DINDEVIEWSCOMS ((CLASSES AnalysisMap CausalMap DataFlowMap MicroscopicView ToolBox View) ( METHODS AnalysisMap.AddAnalysisNode AnalysisMap.BackwardLinks AnalysisMap.BreakLink AnalysisMap.ForwardLinks AnalysisMap.InterposeMemo AnalysisMap.MakeLink AnalysisMap.NarrowView AnalysisMap.WidenView CausalMap.BackwardLinks CausalMap.ForwardLinks DataFlowMap.BackwardLinks DataFlowMap.GetSubs MicroscopicView.BackwardLinks MicroscopicView.CreateView MicroscopicView.Destroy MicroscopicView.EnvelopBy MicroscopicView.ExplodeANestedView MicroscopicView.ForwardLinks MicroscopicView.GetSubs MicroscopicView.NarrowView MicroscopicView.PathsFrom MicroscopicView.PathsTo MicroscopicView.ReturnAnExplodedView MicroscopicView.ShortSummary MicroscopicView.ShowLocationOnMap MicroscopicView.UnEnvelopBy MicroscopicView.WidenView MicroscopicView.Zoom ToolBox.DescriptiveLabel View.BackwardLinks View.CreateView View.DescriptiveLabel View.DoSelectedCommand View.EnvelopBy View.ErrorCantDeduceLinksFor View.ExplodeANestedView View.ForwardLinks View.GetSubs View.IconTitle View.InView View.InView! View.NarrowView View.PathsFrom View.PathsTo View.ReturnAnExplodedView View.SetName View.TheView View.UnEnvelopBy View.WidenView View.Zoom))) (DEFCLASSES AnalysisMap CausalMap DataFlowMap MicroscopicView ToolBox View) (DEFCLASS AnalysisMap (MetaClass Class Edited: (* RWO "24-Jul-86 14:33")) (Supers View) ( ClassVariables (ContentsDescription "Building Analyses: An analysis is a collection of directed graphs which will together be called an Analysis Map. Each node in any network is a DINDE object, that is an object which appears in, and may be selected from, the DINDE Object Network. The analysis map grows in one of four (4) ways: (i) Selecting a method on one node in the map may produce a new node. (ii) Selecting `Widen the View' in the title bar will allow the user to an existing DINDE object to the analysis map (iii) Selecting `Add result of a form evaluation' in the title bar will allow the user to construct a DINDE expression, which when evaluated will result in a new DINDE object which will appear in the map unconnected to any other node. (iv) Selecting `Add new kind of analysis node' in the title bar will cause a node to be added to the map,usually accomplished by LeftShiftSelecting a DINDE object from the Toolbox. This node may be backlinked (i.e. the tail of the directed link) to any number (or none by hitting carriage return) of nodes currently in the map. Additionally, several Node/Link operations are available. Links may be made at will between currently existing nodes, and links may also be broken. Wherever desired, a Memo may be placed as a new node between currently linked nodes, so that some information may be recorded at that juncture (e.g. why the original link was made, etc.). Further, as the maps are likely to become complex, it is possible to delete nodes from the display (Narrowing the view) and to create new submaps (Creating a View) in order to better focus the analysis." doc (* Description of the display that an AnalysisMap shows.)) (HowThisWorks "Most of the analysis will be carried out by buttoning on either the title bar or those objects which appear within the body of the display (see ButtoningBehavior). When other information is necessary it will be requested in the Prompt Window. An analysis will be a directed network of nodes, each of which is an instance of a particular kind of DINDE object. An AnalysisMap is a `View' onto this network. Each node contains information peculiar to that kind of object and information peculiar to that instance of the object (e.g. a name, some notes,...). The analysis consists of building such a network by adding and connecting nodes within the AnalysisMap, and making notes about the analysis as the analyst sees fit (see BuildingAnalyses). In the course of building an analysis the display may get rather complex. Therefore, it is possible to create sub-maps within the current analysis map (Views within Views) and to remove any node in the map from the display." ) (LeftButtonItems ((Name% this% item NameThisItem "Give a name to this item") (Edit% notes EditNotes "Edit the notes attached to this item.") (A% Short% Summary ShortSummary "A short description of the kind of item selected.") (Zoom Zoom "View this item in greater detail.") ( Inspect Inspect "Inspect the variables of this item in an inspector window.")) doc (* Menu items for LeftButton seletion -- Value sent as message to object or browser -- see LocalCommands)) ( TitleLeftItems ((How% This% Works HowThisWorks "A brief explanation as to how this kind of View works.") (Buttoning% Behavior ButtoningBehavior "How the mouse buttons work in this kind of View.") (Building% Analyses DescribeContents "How to build analyses in this display.") (Name% this% AnalysisMap SetName "Give a unique name to this AnalysisMap."))) (TitleMiddleItems ((Widen% the% View (WidenView (( Widen% the% View WidenView "Widen the view by including existing obects.") ( Add% a% new% kind% of% Analysis% node AddAnalysisNode "Add a new kind of node to the AnalysisMap (usually by taking one from a toolbox.") ( Add% result% of% a% form% evaluation AddRoot "Prompts for a form to be EVALuated; the result is added to this AnalysisMap.")))) (Narrow% the% View (NarrowView ((Narrow% the% View NarrowView "Narrow the view by excluding selected obects.") ( Create% a% View CreateView "Compress part of the current view into a smaller AnalysisMap.")))) ( Nested% View% Operations (NIL ((Explode% a% nested% AnalysisMap ExplodeANestedView "Explode an AnalysisMap nested in this display.") (Return% an% exploded% AnalysisMap ReturnAnExplodedView "Return to the display an AnalysisMap that was exploded.")))) (Link% Operations ( NIL ((Break% a% link BreakLink "Break an existing link between two nodes in the map.") (Make% a% link MakeLink "Construct a directed Analysis link between two nodes in the map.") ( Insert% a% Memo% between% two% nodes InterposeMemo "Interpose a memo object between two nodes in the map.")))) (Recompute (Recompute ((Recompute Recompute "Recompute the graph") (InPlace RecomputeInPlace "Recompute keeping current view in window") (ShapeToHold ShapeToHold "Make window large or small enough to just hold graph") (ChangeFontSize ChangeFontSize "Choose a new size Font") (Lattice/Tree ChangeFormat "Change format between lattice and tree")))) (SaveValue SaveInIT "IT _ this Analysis Map")) doc (* Undocumented CV added by "Wayne Oldford")) (icon {BITMAP}#360,25360 bitMap AnalysisMapIconBM DontSave Any)) (InstanceVariables (title #(NIL (LET [(MapName (GetValue self (QUOTE name] (if MapName then MapName else "An Analysis Map")) NIL) doc (* Title passed to GRAPHER package and on the icon.))) ) (DEFCLASS CausalMap (MetaClass Class Edited: (* RWO " 4-Jun-86 09:57")) (Supers View) ( InstanceVariables (title #(NIL (LET [(MapName (GetValue self (QUOTE name] (if MapName then MapName else "A Causal Map")) NIL) doc (* Title passed to GRAPHER package and on the icon.)))) (DEFCLASS DataFlowMap (MetaClass Class Edited: (* RWO "20-Jun-86 13:42")) (Supers View) ( InstanceVariables (title #(NIL (LET [(MapName (GetValue self (QUOTE name] (if MapName then MapName else "Data Flow Map")) NIL) doc (* Title passed to GRAPHER package and on the icon.)))) (DEFCLASS MicroscopicView (MetaClass Class Edited: (* RWO "25-Jul-86 15:35")) (Supers TitledIconMixin View) (ClassVariables (LeftButtonItems ((NameThisItem NameThisItem "Give a name to this item") ( EditNotes EditNotes "Edit the notes attached to this item.") (Zoom Zoom "View this item in more detail."))) (TitleLeftItems ((HowThisWorks HowThisWorks "A brief explanation as to how a MicroscopicView works.") (ButtoningBehavior ButtoningBehavior "How the mouse buttons work in this kind of View.") (ShowLocationOnMap ShowLocationOnMap "Flash the node of this Zoomed object in the Analysis map.") (ShortSummaryOfZoomedObject ShortSummary "A short description of the kind of item zoomed in on."))) (TitleMiddleItems ((Recompute (Recompute (( Recompute Recompute "Recompute the graph") (InPlace RecomputeInPlace "Recompute keeping current view in window") (ShapeToHold ShapeToHold "Make window large or small enough to just hold graph") (ChangeFontSize ChangeFontSize "Choose a new size Font") (Lattice/Tree ChangeFormat "Change format between lattice and tree")))) ( SaveValue SaveInIT "(SavedValue)_ thisBrowser"))) (icon {BITMAP}#360,25454 doc (* Undocumented CV added by "Wayne Oldford") bitMap ZoomIcon DontSave Any) (mask {BITMAP}#362,177710 doc (* Undocumented CV added by "Wayne Oldford") bitMap ZoomIcon.MASK DontSave Any)) (InstanceVariables (graphFormat ( HORIZONTAL LATTICE) choices ((HORIZONTAL/LATTICE (QUOTE (LATTICE))) (VERTICAL/LATTICE (QUOTE (VERTICAL LATTICE))) (HORIZONTAL/TREE (QUOTE (COPIES/ONLY))) (VERTICAL/TREE (QUOTE (VERTICAL COPIES/ONLY)))) doc (* Controls format for laying out graph for GRAPHER)) (ZoomedObject NIL doc (* The object that has been Zoomed on.)) (iconTitle #((_ self GetLabel (@ ZoomedObject)) FirstFetch NIL)) (title #(NIL [LET [(ViewName (GetObjectName self)) (ZoomedObjName (GetObjectName (@ ZoomedObject] (CONCAT "MicroscopicView" (CONCAT " " (if ViewName then ViewName else "")) " on " (if ZoomedObjName then ZoomedObjName else (@ ZoomedObject] NIL)))) (DEFCLASS ToolBox (MetaClass Class Edited: (* RWO "29-May-86 13:58")) (Supers View)) (DEFCLASS View (MetaClass Class Edited: (* RWO "17-Jul-86 13:30")) (Supers EditableObjectMixin IndexedObjectMixin DINDEBrowser) (ClassVariables (ContentsDescription NIL doc (* Description of the display that this kind of View shows.)) (HowThisWorks NIL doc (* Description of how the display in this View is used.)) (LeftButtonItems ((A% Short% Summary ShortSummary "A short description of the kind of item selected.") (Zoom Zoom "View this item in greater detail.")) doc (* Menu items for LeftButton selection -- Value sent as message to object or View)) ( TitleLeftItems ((How% This% Works HowThisWorks "A brief explanation as to how this kind of View works.") (Buttoning% Behavior ButtoningBehavior "How the mouse buttons work in this kind of View.") (Manipulating% The% View DescribeContents "How to manipulate the items in this display.") (Name% this% View SetName "Give a unique name to this View.")) doc (* Description of this kind of View, and how to interact with its display.)) (TitleMiddleItems ((Widen% the% View (WidenView ((Widen% the% View WidenView "Widen the view by including existing obects.") (Add% result% of% a% form% evaluation AddRoot "Prompts for a form to be EVALuated; the result is added to this AnalysisMap.")))) (Narrow% the% View (NarrowView ((Narrow% the% View NarrowView "Narrow the view by excluding selected obects.") ( Create% a% View CreateView "Compress part of the current view into a smaller view.")))) ( Nested% View% Operations (NIL ((Explode% a% nested% View ExplodeANestedView "Explode a View nested in this display.") (Return% an% exploded% View ReturnAnExplodedView "Return to the display a View that was exploded.")))) (Recompute (Recompute ((Recompute Recompute "Recompute the graph") (InPlace RecomputeInPlace "Recompute keeping current display in window") ( ShapeToHold ShapeToHold "Make window large or small enough to just hold graph") (ChangeFontSize ChangeFontSize "Choose a new size Font") (Lattice/Tree ChangeFormat "Change format between lattice and tree")))) (SaveValue SaveInIT "IT _ this View")) doc (* Undocumented CV added by "Wayne Oldford")) (icon {BITMAP}#64,33314 bitMap ViewIconBM DontSave Any) ( mask {BITMAP}#375,1014 bitMap ViewIconBM.mask DontSave Any)) (InstanceVariables (graphFormat (VERTICAL LATTICE) choices ((HORIZONTAL/LATTICE (QUOTE (LATTICE))) (VERTICAL/LATTICE (QUOTE (VERTICAL LATTICE)) ) (HORIZONTAL/TREE (QUOTE (COPIES/ONLY))) (VERTICAL/TREE (QUOTE (VERTICAL COPIES/ONLY)))) doc (* Controls format for laying out graph for GRAPHER)) (EnvelopingViews NIL doc (* A list of the Views that contain this one.)) (EnvelopedViews NIL doc (* A list of the Views that are enveloped by this one.)) (ExplodedViews NIL doc (* A list of the Views that are exploded within this one.)) (iconTitle #(NIL (@ title) NIL) doc (* Title used to be displayed on the icon.)) (title #(NIL (LET [(ViewName (GetValue self (QUOTE name] (if ViewName then ViewName else "A View")) NIL) doc (* Title passed to GRAPHER package)))) (METH AnalysisMap AddAnalysisNode NIL (* Add an object to the analysis map, set its required variables and link it to an existing node if desired.) (method AnalysisMap.AddAnalysisNode MethodClassification Internal)) (METH AnalysisMap BackwardLinks (LinkedObject) (* Returns the BackAnalysisLinks of the LinkedObject.)) (METH AnalysisMap BreakLink NIL NIL (method AnalysisMap.BreakLink MethodClassification Internal)) (METH AnalysisMap ForwardLinks (LinkedObject) (* Returns the AnalysisLinks of the LinkedObject.)) (METH AnalysisMap InterposeMemo NIL NIL (method AnalysisMap.InterposeMemo MethodClassification Internal)) (METH AnalysisMap MakeLink NIL NIL (method AnalysisMap.MakeLink MethodClassification Internal)) (METH AnalysisMap NarrowView (OldMember DontAddToEnvelopingViewsFlag) (* Specialization from View to add information to Plots.)) (METH AnalysisMap WidenView (NewMember DontRecomputeFlag) NIL) (METH CausalMap BackwardLinks (LinkedObject) (* Returns the BackCausalLinks of the LinkedObject.)) (METH CausalMap ForwardLinks (LinkedObject) (* Returns the CausalLinks of the LinkedObject.)) (METH DataFlowMap BackwardLinks (object) NIL (method DataFlowMap.BackwardLinks MethodClassification Internal)) (METH DataFlowMap GetSubs (object BackwardsFlag) NIL) (METH MicroscopicView BackwardLinks (LinkedObject) (* Returns the BackAnalysisLinks of the LinkedObject.)) (METH MicroscopicView CreateView NIL (* Creates a new View, prompting for elements as necessary.) ( method MicroscopicView.CreateView MethodClassification Internal)) (METH MicroscopicView Destroy NIL (* Specialization) (method MicroscopicView.Destroy MethodClassification Internal)) (METH MicroscopicView EnvelopBy (TheLargerView) (* Records that the present view is nested within TheLargerView.) (method MicroscopicView.EnvelopBy MethodClassification Internal)) (METH MicroscopicView ExplodeANestedView (TheSelectedView) (* Removes TheSelectedView from the view of self and adds the internals of TheSelectedView to the view of self. TheSelectedView is kept on an ExplodedViews list and can be returned to the view of self so that ExplodeAnInternalView can be undone.) (method MicroscopicView.ExplodeANestedView MethodClassification Internal)) (METH MicroscopicView ForwardLinks (LinkedObject) (* Returns the links to the internal substructures of the ZoomedObject.) (method MicroscopicView.ForwardLinks MethodClassification Internal)) (METH MicroscopicView GetSubs (object BackwardsFlag) (* MicroscopicViews are quite different from other kinds of network views. They view only the internal structure of a single object, the ZoomedObject. Hence GetSubs is specialized here to do that.)) (METH MicroscopicView NarrowView (OldMember DontAddToEnvelopingViewsFlag) (* Remove OldMember from this View. If DontAddToEnvelopingViewsFlag is T, then do not add OldMember to those Views which envelop this one.) (method MicroscopicView.NarrowView MethodClassification Internal)) (METH MicroscopicView PathsFrom (LinkedObject) (* Returns the links to the internal substructures of the ZoomedObject.)) (METH MicroscopicView PathsTo (AMember) (* Find all possible paths to AMember of this View.) (method MicroscopicView.PathsTo MethodClassification Internal)) (METH MicroscopicView ReturnAnExplodedView (TheExplodedView) (* Removes TheExplodedView from the ExplodedViews list of self and adds it to the view of self. The internals of TheExplodedView are then removed from the view of self.) (method MicroscopicView.ReturnAnExplodedView MethodClassification Internal)) (METH MicroscopicView ShortSummary NIL (* Send message to the ZoomedObject) (method MicroscopicView.ShortSummary MethodClassification Internal)) (METH MicroscopicView ShowLocationOnMap NIL (* Send the selected DINDEObject the ShowLocationOnMap message.) (method MicroscopicView.ShowLocationOnMap MethodClassification Internal)) (METH MicroscopicView UnEnvelopBy (TheLargerView) (* Records that the present view is no longer nested within TheLargerView.) (method MicroscopicView.UnEnvelopBy MethodClassification Internal)) (METH MicroscopicView WidenView (NewMember DontRecomputeFlag) (* Add existing objects to this View.) ( method MicroscopicView.WidenView MethodClassification Widen% this% View)) (METH MicroscopicView Zoom NIL (* Specialization. MicroscopicViews only view the internal structure of a single DINDEObject.)) (METH ToolBox DescriptiveLabel NIL (* Use a BITMAP as the descriptive label.) (method ToolBox.DescriptiveLabel MethodClassification Internal)) (METH View BackwardLinks (LinkedObject) NIL (method View.BackwardLinks MethodClassification Internal)) (METH View CreateView NIL NIL (method View.CreateView MethodClassification Internal)) (METH View DescriptiveLabel NIL NIL (method View.DescriptiveLabel MethodClassification Internal)) (METH View DoSelectedCommand (command obj objName) NIL (method View.DoSelectedCommand MethodClassification Internal)) (METH View EnvelopBy (TheLargerView) NIL) (METH View ErrorCantDeduceLinksFor (LinkedObject) NIL (method View.ErrorCantDeduceLinksFor MethodClassification Internal)) (METH View ExplodeANestedView (TheSelectedView) NIL (method View.ExplodeANestedView MethodClassification Internal)) (METH View ForwardLinks (LinkedObject) NIL (method View.ForwardLinks MethodClassification Internal)) (METH View GetSubs (object BackwardsFlag) NIL (method View.GetSubs MethodClassification Internal)) (METH View IconTitle NIL NIL (method View.IconTitle MethodClassification Internal)) (METH View InView (TheObject) (* Determines whether TheObject is in TheView of self.) (method View.InView MethodClassification Objects% in% this% View)) (METH View InView! (TheObject) (* Determines whether TheObject is in TheView of the immediate View, or in any of the Views that are contained in it, at any level.) (method View.InView! MethodClassification Objects% in% this% View)) (METH View NarrowView (OldMember DontAddToEnvelopingViewsFlag) NIL (method View.NarrowView MethodClassification Internal)) (METH View PathsFrom (AMember) NIL (method View.PathsFrom MethodClassification Internal)) (METH View PathsTo (AMember) NIL (method View.PathsTo MethodClassification Internal)) (METH View ReturnAnExplodedView (TheExplodedView) NIL (method View.ReturnAnExplodedView MethodClassification Internal)) (METH View SetName (name) (* Specialization. It makes sure that the ICON and ICONWINDOW WINDOWPROPS of this View are removed, since the View's new name should appear in the icon. This way the Shrink function will construct a new icon.) (method View.SetName MethodClassification Internal)) (METH View TheView NIL (* Returns what can be seen in this View.) (method View.TheView MethodClassification Internal)) (METH View UnEnvelopBy (TheLargerView) NIL (method View.UnEnvelopBy MethodClassification Internal)) (METH View WidenView (NewMember DontRecomputeFlag) NIL (method View.WidenView MethodClassification Widen% this% View)) (METH View Zoom NIL NIL (method View.Zoom MethodClassification Internal)) (PUTPROPS DINDEVIEWS COPYRIGHT ("Massachusetts Institute of Technology" 1986)) NIL