equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2917 "Modified (comment): / 07-07-2011 / 17:16:46 / cg" |
2919 "Modified (comment): / 07-07-2011 / 17:16:46 / cg" |
2918 "Modified (comment): / 22-05-2018 / 18:42:11 / Claus Gittinger" |
2920 "Modified (comment): / 22-05-2018 / 18:42:11 / Claus Gittinger" |
2919 ! |
2921 ! |
2920 |
2922 |
2921 postOpenDialogWith:aBuilder |
2923 postOpenDialogWith:aBuilder |
2922 "this is sent after the applicationÄs window is opened as a dialog with me |
2924 "this is sent after the applicationÄs window is opened as a dialog with me |
2923 as a source (for aspects) i.e. via openDialogInterface:. |
2925 as a source (for aspects) i.e. via openDialogInterface:. |
2924 Can be redefined in subclasses for actions after opening a dialog view." |
2926 Can be redefined in subclasses for actions after opening a dialog view." |
2925 |
2927 |
2926 self commonPostOpen |
2928 self commonPostOpen |
2927 |
2929 |
3832 |
3834 |
3833 ^ (win := self window) notNil and:[win shown] |
3835 ^ (win := self window) notNil and:[win shown] |
3834 ! |
3836 ! |
3835 |
3837 |
3836 isWebService |
3838 isWebService |
3837 ^ device notNil and:[ device askFor:#isWebServiceDevice ] |
3839 ^ device notNil and:[ device "askFor:#" isWebServiceDevice ] |
|
3840 |
|
3841 "Modified: / 27-05-2019 / 20:05:48 / Claus Gittinger" |
3838 ! |
3842 ! |
3839 |
3843 |
3840 processName |
3844 processName |
3841 "return a name to be shown for me in the process monitor" |
3845 "return a name to be shown for me in the process monitor" |
3842 |
3846 |