equal
deleted
inserted
replaced
1297 "/ masterWindow beMaster |
1297 "/ masterWindow beMaster |
1298 "/ ]. |
1298 "/ ]. |
1299 "/ window beSlave. |
1299 "/ window beSlave. |
1300 "/ ]. |
1300 "/ ]. |
1301 |
1301 |
1302 "/ must be done explizit, by passing an appropriate windowType |
1302 "/ must be done explicit, by passing an appropriate windowType |
|
1303 |
1303 type = #slave ifTrue:[ |
1304 type = #slave ifTrue:[ |
1304 window beSlave. |
1305 window beSlave. |
1305 ]. |
1306 ]. |
1306 type = #partner ifTrue:[ |
1307 type = #partner ifTrue:[ |
1307 window bePartner. |
1308 window bePartner. |
1308 ]. |
1309 ]. |
1309 |
1310 |
1310 window open. |
1311 "/ the following automatism is probably too cryptic and has too many |
|
1312 "/ side effects on the currently active group. |
|
1313 "/ I prefer to leave things as they are: i.e. enforce the programmer to |
|
1314 "/ do thinks explicit. |
|
1315 |
|
1316 "/ ((type = #slave or:[type = #partner]) |
|
1317 "/ and:[ window windowGroup isNil ]) |
|
1318 "/ ifTrue:[ |
|
1319 "/ window openInGroup:(WindowGroup activeGroup). |
|
1320 "/ ] ifFalse:[ |
|
1321 "/ window open. |
|
1322 "/ ]. |
|
1323 "/ type = #slave ifTrue:[ |
|
1324 "/ window windowGroup topViews first beMaster |
|
1325 "/ ]. |
|
1326 |
1311 ^ self |
1327 ^ self |
1312 ]. |
1328 ]. |
1313 |
1329 |
1314 type == #popUp ifTrue:[ |
1330 type == #popUp ifTrue:[ |
1315 window fixPosition:(device pointerPosition). |
1331 window fixPosition:(device pointerPosition). |
1326 ! ! |
1342 ! ! |
1327 |
1343 |
1328 !WindowBuilder class methodsFor:'documentation'! |
1344 !WindowBuilder class methodsFor:'documentation'! |
1329 |
1345 |
1330 version |
1346 version |
1331 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.103 2002-11-26 16:19:02 stefan Exp $' |
1347 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.104 2003-03-21 17:31:50 cg Exp $' |
1332 ! ! |
1348 ! ! |