equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2826 "Modified (comment): / 07-07-2011 / 17:16:46 / cg" |
2824 "Modified (comment): / 07-07-2011 / 17:16:46 / cg" |
2827 "Modified (comment): / 22-05-2018 / 18:42:11 / Claus Gittinger" |
2825 "Modified (comment): / 22-05-2018 / 18:42:11 / Claus Gittinger" |
2828 ! |
2826 ! |
2829 |
2827 |
2830 postOpenDialogWith:aBuilder |
2828 postOpenDialogWith:aBuilder |
2831 "this is sent after the applicationÄs window is opened as a dialog with me |
2829 "this is sent after the applicationÄs window is opened as a dialog with me |
2832 as a source (for aspects) i.e. via openDialogInterface:. |
2830 as a source (for aspects) i.e. via openDialogInterface:. |
2833 Can be redefined in subclasses for actions after opening a dialog view." |
2831 Can be redefined in subclasses for actions after opening a dialog view." |
2834 |
2832 |
2835 self commonPostOpen |
2833 self commonPostOpen |
2836 |
2834 |
4202 ! |
4200 ! |
4203 |
4201 |
4204 restoreCursors |
4202 restoreCursors |
4205 "restore the original cursors in all of my views" |
4203 "restore the original cursors in all of my views" |
4206 |
4204 |
4207 ^ self window windowGroup restoreCursors |
4205 ^ self windowGroup restoreCursors |
4208 |
4206 |
4209 "Created: 1.6.1996 / 17:01:24 / cg" |
4207 "Created: / 01-06-1996 / 17:01:24 / cg" |
|
4208 "Modified: / 04-07-2018 / 11:11:17 / stefan" |
4210 ! |
4209 ! |
4211 |
4210 |
4212 showCursor:aCursor |
4211 showCursor:aCursor |
4213 "set all of my views cursor to aCursor. |
4212 "set all of my views cursor to aCursor. |
4214 It can be restored with #restoreCursor." |
4213 It can be restored with #restoreCursor." |
4215 |
4214 |
4216 ^ self window windowGroup showCursor:aCursor |
4215 ^ self windowGroup showCursor:aCursor |
4217 |
4216 |
4218 "Created: 1.6.1996 / 17:01:09 / cg" |
4217 "Created: / 01-06-1996 / 17:01:09 / cg" |
|
4218 "Modified: / 04-07-2018 / 11:11:26 / stefan" |
4219 ! |
4219 ! |
4220 |
4220 |
4221 warn:aString |
4221 warn:aString |
4222 "like Object's warn, but translates the string via the |
4222 "like Object's warn, but translates the string via the |
4223 resourcePack, thus giving a translated string automatically" |
4223 resourcePack, thus giving a translated string automatically" |