equal
deleted
inserted
replaced
57 |
57 |
58 !ModalBox class methodsFor:'initialization'! |
58 !ModalBox class methodsFor:'initialization'! |
59 |
59 |
60 initialize |
60 initialize |
61 UseTransientViews := true. |
61 UseTransientViews := true. |
|
62 |
|
63 " |
|
64 UseTransientViews := false |
|
65 " |
|
66 |
|
67 "Modified: 24.7.1997 / 15:18:59 / cg" |
62 ! ! |
68 ! ! |
63 |
69 |
64 !ModalBox class methodsFor:'defaults'! |
70 !ModalBox class methodsFor:'defaults'! |
65 |
71 |
66 defaultExtent |
72 defaultExtent |
339 "return true, if I want to come up without decoration |
345 "return true, if I want to come up without decoration |
340 and popUp to top immediately." |
346 and popUp to top immediately." |
341 |
347 |
342 ^ UseTransientViews not |
348 ^ UseTransientViews not |
343 |
349 |
344 "Modified: 12.5.1996 / 21:57:58 / cg" |
350 "Modified: 24.7.1997 / 15:20:14 / cg" |
345 ! |
351 ! |
346 |
352 |
347 reinitialize |
353 reinitialize |
348 super reinitialize. |
354 super reinitialize. |
349 self unmap. |
355 self unmap. |
409 ! ! |
415 ! ! |
410 |
416 |
411 !ModalBox methodsFor:'move & resize'! |
417 !ModalBox methodsFor:'move & resize'! |
412 |
418 |
413 doMove |
419 doMove |
414 "the move button was pressed" |
420 "the move button was pressed. |
|
421 This method is only used with non-transient views |
|
422 (UseTransientViews == false)." |
|
423 |
|
424 |r| |
|
425 |
|
426 r := device rectangleFromUser:(self origin corner:self corner) keepExtent:true. |
|
427 shadowView notNil ifTrue:[ |
|
428 shadowView unmap |
|
429 ]. |
|
430 self origin:r origin extent:(self extent). |
|
431 shadowView notNil ifTrue:[ |
|
432 shadowView realize. |
|
433 self raise. |
|
434 ]. |
|
435 |
|
436 "Modified: 3.5.1996 / 23:47:38 / stefan" |
|
437 "Modified: 24.7.1997 / 16:07:18 / cg" |
|
438 ! |
|
439 |
|
440 doResize |
|
441 "the resize button was pressed. |
|
442 This method is only used with non-transient views |
|
443 (UseTransientViews == false)." |
415 |
444 |
416 |r| |
445 |r| |
417 |
446 |
418 r := device rectangleFromUser:(self origin corner:self corner). |
447 r := device rectangleFromUser:(self origin corner:self corner). |
419 shadowView notNil ifTrue:[ |
448 shadowView notNil ifTrue:[ |
423 shadowView notNil ifTrue:[ |
452 shadowView notNil ifTrue:[ |
424 shadowView realize. |
453 shadowView realize. |
425 self raise |
454 self raise |
426 ]. |
455 ]. |
427 |
456 |
428 "Modified: 3.5.1996 / 23:47:38 / stefan" |
|
429 ! |
|
430 |
|
431 doResize |
|
432 "the resize button was pressed" |
|
433 |
|
434 |r| |
|
435 |
|
436 r := device rectangleFromUser:(self origin corner:self corner). |
|
437 shadowView notNil ifTrue:[ |
|
438 shadowView unmap |
|
439 ]. |
|
440 self origin:r origin extent:(r extent max:(100@100)). |
|
441 shadowView notNil ifTrue:[ |
|
442 shadowView realize. |
|
443 self raise |
|
444 ]. |
|
445 |
|
446 "Modified: 3.5.1996 / 23:47:47 / stefan" |
457 "Modified: 3.5.1996 / 23:47:47 / stefan" |
|
458 "Modified: 24.7.1997 / 15:18:46 / cg" |
447 ! ! |
459 ! ! |
448 |
460 |
449 !ModalBox methodsFor:'queries'! |
461 !ModalBox methodsFor:'queries'! |
450 |
462 |
451 preferredExtent |
463 preferredExtent |
468 |
480 |
469 windowStyle |
481 windowStyle |
470 "return a symbol describing my style |
482 "return a symbol describing my style |
471 (may be used internally by the device as a decoration hint)" |
483 (may be used internally by the device as a decoration hint)" |
472 |
484 |
473 ^ #dialog |
485 UseTransientViews ifTrue:[ |
|
486 ^ #dialog |
|
487 ]. |
|
488 ^ #popUp |
474 |
489 |
475 "Created: 2.5.1997 / 14:34:17 / cg" |
490 "Created: 2.5.1997 / 14:34:17 / cg" |
476 "Modified: 2.5.1997 / 14:35:33 / cg" |
491 "Modified: 24.7.1997 / 15:22:39 / cg" |
477 ! ! |
492 ! ! |
478 |
493 |
479 !ModalBox methodsFor:'show / hide'! |
494 !ModalBox methodsFor:'show / hide'! |
480 |
495 |
481 autoHideAfter:seconds with:anAction |
496 autoHideAfter:seconds with:anAction |
810 ! ! |
825 ! ! |
811 |
826 |
812 !ModalBox class methodsFor:'documentation'! |
827 !ModalBox class methodsFor:'documentation'! |
813 |
828 |
814 version |
829 version |
815 ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.55 1997-05-02 12:36:12 cg Exp $' |
830 ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.56 1997-07-24 14:07:45 cg Exp $' |
816 ! ! |
831 ! ! |
817 ModalBox initialize! |
832 ModalBox initialize! |