80 "Created: 10.12.1995 / 13:30:50 / cg" |
80 "Created: 10.12.1995 / 13:30:50 / cg" |
81 ! |
81 ! |
82 |
82 |
83 bePartner |
83 bePartner |
84 "make this a partner-view. Each partner-view will automatically |
84 "make this a partner-view. Each partner-view will automatically |
85 close other partner views whenclosed." |
85 close other partner views (within the same windowGroup) when closed." |
86 |
86 |
87 type := #partner |
87 type := #partner |
88 |
88 |
89 " |
89 " |
90 create two topViews within the same group: |
90 create two topViews within the same group: |
91 if any of them is iconified/deiconified/closed, the other one is also |
91 if any of them is iconified/deiconified/closed, the other one is also |
92 |
92 |
93 |top1 top2| |
93 |top1 top2| |
94 |
94 |
95 top1 := StandardSystemView new label:'top1'; extent:300@300. |
95 top1 := StandardSystemView new label:'partner'; extent:300@300. |
96 top2 := StandardSystemView new label:'top2'; extent:200@200. |
96 top2 := StandardSystemView new label:'partner'; extent:200@200. |
97 top1 bePartner. |
97 top1 bePartner. |
98 top2 bePartner. |
98 top2 bePartner. |
99 |
99 |
100 top1 open. |
100 top1 open. |
101 top2 openInGroup:(top1 windowGroup) |
101 top2 openInGroup:(top1 windowGroup) |
102 " |
102 " |
103 |
103 |
104 "Created: 10.12.1995 / 13:29:59 / cg" |
104 "Created: 10.12.1995 / 13:29:59 / cg" |
|
105 "Modified: 25.5.1996 / 11:44:48 / cg" |
105 ! |
106 ! |
106 |
107 |
107 beSlave |
108 beSlave |
108 "make this a slave-view. It will be closed automatically, |
109 "make this a slave-view. It will be closed automatically, |
109 whenever any master of the group is closed." |
110 whenever any master of the windowgroup is closed. |
|
111 See also: #bePartner" |
110 |
112 |
111 type := #slave |
113 type := #slave |
112 |
114 |
113 " |
115 " |
114 create two topViews within the same group: |
116 create two topViews within the same group: |
115 the slave is allowed to be iconified/close independ of the master; |
117 the slave is allowed to be iconified/close independ of the master; |
116 but if the master is iconified, the slave is also. |
118 but if the master is iconified, the slave is also. |
117 |
119 |
118 |top1 top2| |
120 |top1 top2| |
119 |
121 |
120 top1 := StandardSystemView new label:'top1'; extent:300@300. |
122 top1 := StandardSystemView new label:'master'; extent:300@300. |
121 top2 := StandardSystemView new label:'top2'; extent:200@200. |
123 top2 := StandardSystemView new label:'slave'; extent:200@200. |
122 top1 beMaster. |
124 top1 beMaster. |
123 top2 beSlave. |
125 top2 beSlave. |
124 |
126 |
125 top1 open. |
127 top1 open. |
126 top2 openInGroup:(top1 windowGroup) |
128 top2 openInGroup:(top1 windowGroup) |
127 " |
129 " |
128 |
130 |
129 "Created: 10.12.1995 / 13:29:10 / cg" |
131 "Created: 10.12.1995 / 13:29:10 / cg" |
|
132 "Modified: 25.5.1996 / 11:45:30 / cg" |
130 ! |
133 ! |
131 |
134 |
132 focusSequence:aCollectionOfSubcomponents |
135 focusSequence:aCollectionOfSubcomponents |
133 "define the sequence for stepping through my components." |
136 "define the sequence for stepping through my components." |
134 |
137 |