equal
deleted
inserted
replaced
366 |
366 |
367 openAt:aPoint |
367 openAt:aPoint |
368 "open my topView at some location" |
368 "open my topView at some location" |
369 |
369 |
370 self |
370 self |
371 openAt:aPoint withExtent:nil |
371 openAt:aPoint |
|
372 withExtent:nil |
372 andType:(application defaultWindowType) |
373 andType:(application defaultWindowType) |
373 |
374 |
374 "Created: 14.2.1997 / 20:21:57 / cg" |
375 "Created: 14.2.1997 / 20:21:57 / cg" |
375 "Modified: 14.2.1997 / 20:23:23 / cg" |
376 "Modified: 28.2.1997 / 22:50:29 / cg" |
376 ! |
377 ! |
377 |
378 |
378 openAt:origin withExtent:ext andType:type |
379 openAt:origin withExtent:ext andType:type |
379 "open my window, as previously created, optionally defining the |
380 "open my window, as previously created, optionally defining the |
380 windows origin and/or extent. |
381 windows origin and/or extent. |
388 ext notNil ifTrue:[ |
389 ext notNil ifTrue:[ |
389 window extent:ext |
390 window extent:ext |
390 ]. |
391 ]. |
391 |
392 |
392 type == #dialog ifTrue:[ |
393 type == #dialog ifTrue:[ |
|
394 window fixSize. |
|
395 window fixPosition:(window device pointerPosition - window positionOffset). |
393 window openModal. |
396 window openModal. |
394 ^ self |
397 ^ self |
395 ]. |
398 ]. |
396 |
399 |
397 type == #normal ifTrue:[ |
400 type == #normal ifTrue:[ |
398 window open. |
401 window open. |
399 ^ self |
402 ^ self |
400 ]. |
403 ]. |
401 |
404 |
402 type == #popUp ifTrue:[ |
405 type == #popUp ifTrue:[ |
403 "/ window openAsPopUp. "/ not yet implemented |
406 window fixPosition:(window device pointerPosition). |
404 window openModal. |
407 window openAsPopUp. |
405 ^ self |
408 ^ self |
406 ]. |
409 ]. |
407 |
410 |
408 " |
411 " |
409 if ST-80 supports more types - these may be added later |
412 if ST-80 supports more types - these may be added later |
410 " |
413 " |
411 self halt:'unimplemented' |
414 self halt:'unimplemented' |
412 |
415 |
413 "Created: 14.2.1997 / 20:22:24 / cg" |
416 "Created: 14.2.1997 / 20:22:24 / cg" |
414 "Modified: 14.2.1997 / 20:23:56 / cg" |
417 "Modified: 28.2.1997 / 22:56:52 / cg" |
415 ! |
418 ! |
416 |
419 |
417 openDialog |
420 openDialog |
418 "open my topView, as previously created as a modal view, |
421 "open my topView, as previously created as a modal view, |
419 blocking interaction to the currently active view." |
422 blocking interaction to the currently active view." |
495 ! ! |
498 ! ! |
496 |
499 |
497 !WindowBuilder class methodsFor:'documentation'! |
500 !WindowBuilder class methodsFor:'documentation'! |
498 |
501 |
499 version |
502 version |
500 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.27 1997-02-28 13:23:13 cg Exp $' |
503 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.28 1997-02-28 21:57:25 cg Exp $' |
501 ! ! |
504 ! ! |