equal
deleted
inserted
replaced
311 source:anApplication |
311 source:anApplication |
312 "define the application which provides resources, aspects etc." |
312 "define the application which provides resources, aspects etc." |
313 |
313 |
314 builder source:anApplication. |
314 builder source:anApplication. |
315 masterApplication isNil ifTrue:[ |
315 masterApplication isNil ifTrue:[ |
316 masterApplication := anApplication |
316 anApplication ~~ self ifTrue:[ |
|
317 masterApplication := anApplication |
|
318 ] |
317 ]. |
319 ]. |
318 |
320 |
319 "Modified: / 8.9.1998 / 01:46:06 / cg" |
321 "Modified: / 8.9.1998 / 01:46:06 / cg" |
320 ! ! |
322 ! ! |
321 |
323 |
513 ^ accept value |
515 ^ accept value |
514 |
516 |
515 "Modified: 28.2.1997 / 16:40:36 / cg" |
517 "Modified: 28.2.1997 / 16:40:36 / cg" |
516 ! |
518 ! |
517 |
519 |
|
520 openSpec:anInterfaceSpec withBindings:bindings |
|
521 "open the dialog with a given spec; |
|
522 The bindings argument is mandatory and provides aspect bindings for the |
|
523 dialog. |
|
524 Return true if accepted, false if canceled" |
|
525 |
|
526 ^ self |
|
527 openFor:self |
|
528 interfaceSpec:anInterfaceSpec |
|
529 withBindings:bindings |
|
530 ! |
|
531 |
518 postBuildWith:aBuilder |
532 postBuildWith:aBuilder |
519 "this is sent after the dialogs widgets have been created |
533 "this is sent after the dialogs widgets have been created |
520 (but before the dialog is opened). |
534 (but before the dialog is opened). |
521 If a postBuildBlock was set, evaluate it here." |
535 If a postBuildBlock was set, evaluate it here." |
522 |
536 |
612 ! ! |
626 ! ! |
613 |
627 |
614 !SimpleDialog class methodsFor:'documentation'! |
628 !SimpleDialog class methodsFor:'documentation'! |
615 |
629 |
616 version |
630 version |
617 ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.33 2000-11-15 12:35:13 cg Exp $' |
631 ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.34 2000-12-07 13:45:29 cg Exp $' |
618 ! ! |
632 ! ! |