equal
deleted
inserted
replaced
463 ^ false |
463 ^ false |
464 ]. |
464 ]. |
465 ]. |
465 ]. |
466 ]. |
466 ]. |
467 ^ true |
467 ^ true |
|
468 ! |
|
469 |
|
470 sendSaveRequestToCurrent |
|
471 |
|
472 | item | |
|
473 |
|
474 item := self selectedItem value. |
|
475 (item isNil or:[item isCategory or:[item application isNil]]) ifTrue:[ ^ true]. |
|
476 self withWaitCursorDo:[ |
|
477 ^ item application saveRequest. |
|
478 ]. |
|
479 ^ true |
468 ! ! |
480 ! ! |
469 |
481 |
470 !SettingsDialog methodsFor:'application list access'! |
482 !SettingsDialog methodsFor:'application list access'! |
471 |
483 |
472 addApplClass:aClass withName:aName |
484 addApplClass:aClass withName:aName |
772 It will be invoked when your app/dialog-window is about to be |
784 It will be invoked when your app/dialog-window is about to be |
773 closed (this method has a chance to suppress the close). |
785 closed (this method has a chance to suppress the close). |
774 See also #closeDownViews, which is invoked when the close is really done." |
786 See also #closeDownViews, which is invoked when the close is really done." |
775 |
787 |
776 | req | |
788 | req | |
777 self sendSaveRequestToAll ifFalse:[ ^ self]. |
789 (self sendSaveRequestToCurrent == false) ifTrue:[^ self]. |
778 self destroyAll. |
790 self destroyAll. |
779 |
791 |
780 req := self requestor. |
792 req := self requestor. |
781 req notNil ifTrue:[ |
793 req notNil ifTrue:[ |
782 req settingsClosed. |
794 req settingsClosed. |
927 ! ! |
939 ! ! |
928 |
940 |
929 !SettingsDialog class methodsFor:'documentation'! |
941 !SettingsDialog class methodsFor:'documentation'! |
930 |
942 |
931 version |
943 version |
932 ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.17 2003-03-02 18:47:40 stefan Exp $' |
944 ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.18 2003-03-13 08:48:18 penk Exp $' |
933 ! ! |
945 ! ! |
934 |
946 |
935 SettingsDialog initialize! |
947 SettingsDialog initialize! |