equal
deleted
inserted
replaced
1267 window fixPosition:(window device pointerPosition - window positionOffset). |
1267 window fixPosition:(window device pointerPosition - window positionOffset). |
1268 ]. |
1268 ]. |
1269 ^ window openModal. |
1269 ^ window openModal. |
1270 ]. |
1270 ]. |
1271 |
1271 |
1272 type == #normal ifTrue:[ |
1272 (type == #normal or:[type = #slave or:[type = #partner]]) ifTrue:[ |
1273 window isNil ifTrue:[ |
1273 window isNil ifTrue:[ |
1274 application notNil ifTrue:[ |
1274 application notNil ifTrue:[ |
1275 appWinClass := application applicationWindowClass |
1275 appWinClass := application applicationWindowClass |
1276 ] ifFalse:[ |
1276 ] ifFalse:[ |
1277 appWinClass := ApplicationWindow |
1277 appWinClass := ApplicationWindow |
1280 ]. |
1280 ]. |
1281 origin == #center ifTrue:[ |
1281 origin == #center ifTrue:[ |
1282 window origin:(window device center - window extent // 2) |
1282 window origin:(window device center - window extent // 2) |
1283 ]. |
1283 ]. |
1284 |
1284 |
|
1285 "/ the following code creates a master-slave relationship, if |
|
1286 "/ the masterApplication is not nil. |
|
1287 "/ Disabled, because: the masterApplication is used to fulfill missing aspects, |
|
1288 "/ which has nothing to do with a window master-slave relationship. |
|
1289 |
|
1290 "/ application masterApplication notNil ifTrue:[ |
|
1291 "/ masterWindow := application masterApplication window. |
|
1292 "/ (masterWindow isMaster or:[masterWindow isSlave or:[masterWindow isPartner]]) |
|
1293 "/ ifFalse:[ |
|
1294 "/ "/ master is neutral - make him a master |
|
1295 "/ masterWindow beMaster |
|
1296 "/ ]. |
|
1297 "/ window beSlave. |
|
1298 "/ ]. |
|
1299 |
|
1300 "/ must be done explizit, by passing an appropriate windowType |
|
1301 type = #slave ifTrue:[ |
|
1302 window beSlave. |
|
1303 ]. |
|
1304 type = #partner ifTrue:[ |
|
1305 window bePartner. |
|
1306 ]. |
|
1307 |
1285 window open. |
1308 window open. |
1286 ^ self |
1309 ^ self |
1287 ]. |
1310 ]. |
1288 |
1311 |
1289 type == #popUp ifTrue:[ |
1312 type == #popUp ifTrue:[ |
1301 ! ! |
1324 ! ! |
1302 |
1325 |
1303 !WindowBuilder class methodsFor:'documentation'! |
1326 !WindowBuilder class methodsFor:'documentation'! |
1304 |
1327 |
1305 version |
1328 version |
1306 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.100 2002-07-26 15:25:25 stefan Exp $' |
1329 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.101 2002-10-17 11:24:55 cg Exp $' |
1307 ! ! |
1330 ! ! |