equal
deleted
inserted
replaced
2688 " |
2688 " |
2689 |
2689 |
2690 "Modified: 22.7.1996 / 11:46:09 / cg" |
2690 "Modified: 22.7.1996 / 11:46:09 / cg" |
2691 ! ! |
2691 ! ! |
2692 |
2692 |
|
2693 !DialogBox class methodsFor:'queries'! |
|
2694 |
|
2695 defaultParentWindow |
|
2696 "return a default parent (top-) window for the dialog. |
|
2697 Here, the currently active view is returned, if there |
|
2698 is one; otherwise, the first encountered topView is |
|
2699 returned." |
|
2700 |
|
2701 |activeGroup| |
|
2702 |
|
2703 activeGroup := WindowGroup activeGroup. |
|
2704 activeGroup isNil ifTrue:[ |
|
2705 "/ mhmh - looks like I am a background process ... |
|
2706 activeGroup := Transcript windowGroup. |
|
2707 activeGroup isNil ifTrue:[^ nil]. |
|
2708 ]. |
|
2709 ^ activeGroup topViews first. |
|
2710 |
|
2711 " |
|
2712 self defaultParentWindow |
|
2713 " |
|
2714 |
|
2715 "Modified: / 16.6.1998 / 12:36:15 / cg" |
|
2716 ! ! |
|
2717 |
2693 !DialogBox methodsFor:'accessing-behavior'! |
2718 !DialogBox methodsFor:'accessing-behavior'! |
2694 |
2719 |
2695 abortAction:aBlock |
2720 abortAction:aBlock |
2696 "define the action to be performed when abort is pressed" |
2721 "define the action to be performed when abort is pressed" |
2697 |
2722 |
5626 ! ! |
5651 ! ! |
5627 |
5652 |
5628 !DialogBox class methodsFor:'documentation'! |
5653 !DialogBox class methodsFor:'documentation'! |
5629 |
5654 |
5630 version |
5655 version |
5631 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.112 1998-04-19 15:22:23 cg Exp $' |
5656 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.113 1998-06-16 10:37:19 cg Exp $' |
5632 ! ! |
5657 ! ! |
5633 DialogBox initialize! |
5658 DialogBox initialize! |