equal
deleted
inserted
replaced
34 hereby transferred. |
34 hereby transferred. |
35 " |
35 " |
36 ! |
36 ! |
37 |
37 |
38 version |
38 version |
39 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchyView.st,v 1.2 1995-11-11 16:29:22 cg Exp $' |
39 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchyView.st,v 1.3 1996-05-18 15:43:26 cg Exp $' |
40 ! |
40 ! |
41 |
41 |
42 documentation |
42 documentation |
43 " |
43 " |
44 somewhat like a SelectionInListView; but specialized for hierarchical (i.e. tree-like) |
44 somewhat like a SelectionInListView; but specialized for hierarchical (i.e. tree-like) |
61 top := StandardSystemView new. |
61 top := StandardSystemView new. |
62 top extent:300@300. |
62 top extent:300@300. |
63 |
63 |
64 hierarchyV := SelectionInHierarchyView new. |
64 hierarchyV := SelectionInHierarchyView new. |
65 hierarchyV model: hierarchy. |
65 hierarchyV model: hierarchy. |
66 hierarchyV action:[:nr | Transcript show:'selected:'; showCr:nr]. |
66 hierarchyV action:[:nr | Transcript show:'selected:'; showCR:nr]. |
67 |
67 |
68 top add:(ScrollableView forView:hierarchyV) |
68 top add:(ScrollableView forView:hierarchyV) |
69 in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)). |
69 in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)). |
70 top open. |
70 top open. |
71 |
71 |
82 top extent:300@300. |
82 top extent:300@300. |
83 |
83 |
84 hierarchyV := SelectionInHierarchyView new. |
84 hierarchyV := SelectionInHierarchyView new. |
85 hierarchyV showConnectingLines:true. |
85 hierarchyV showConnectingLines:true. |
86 hierarchyV model: hierarchy. |
86 hierarchyV model: hierarchy. |
87 hierarchyV action:[:nr | Transcript show:'selected:'; showCr:nr]. |
87 hierarchyV action:[:nr | Transcript show:'selected:'; showCR:nr]. |
88 |
88 |
89 top add:(ScrollableView forView:hierarchyV) |
89 top add:(ScrollableView forView:hierarchyV) |
90 in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)). |
90 in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)). |
91 top open. |
91 top open. |
92 " |
92 " |