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 |
3281 "Modified (comment): / 07-07-2011 / 17:16:46 / cg" |
3283 "Modified (comment): / 07-07-2011 / 17:16:46 / cg" |
3282 "Modified (comment): / 22-05-2018 / 18:42:11 / Claus Gittinger" |
3284 "Modified (comment): / 22-05-2018 / 18:42:11 / Claus Gittinger" |
3283 ! |
3285 ! |
3284 |
3286 |
3285 postOpenDialogWith:aBuilder |
3287 postOpenDialogWith:aBuilder |
3286 "this is sent after the applicationÄs window is opened as a dialog with me |
3288 "this is sent after the applicationÄs window is opened as a dialog with me |
3287 as a source (for aspects) i.e. via openDialogInterface:. |
3289 as a source (for aspects) i.e. via openDialogInterface:. |
3288 Can be redefined in subclasses for actions after opening a dialog view." |
3290 Can be redefined in subclasses for actions after opening a dialog view." |
3289 |
3291 |
3290 self commonPostOpen |
3292 self commonPostOpen |
3291 |
3293 |
4193 aSelectorOrSpec isSymbol ifFalse:[ |
4195 aSelectorOrSpec isSymbol ifFalse:[ |
4194 (aSelectorOrSpec isKindOf:UISpecification) ifTrue:[^ aSelectorOrSpec]. |
4196 (aSelectorOrSpec isKindOf:UISpecification) ifTrue:[^ aSelectorOrSpec]. |
4195 ]. |
4197 ]. |
4196 UnhandledAttributeInLiteralArrayErrorSignal handle:[:ex | |
4198 UnhandledAttributeInLiteralArrayErrorSignal handle:[:ex | |
4197 "/ that is to support debugging - to easily find the bad spec |
4199 "/ that is to support debugging - to easily find the bad spec |
4198 Transcript showCR:'%1 [warning]: Error in spec (%2):' withCRs |
4200 Transcript showCR:'%1 [warning]: Error in spec (%2):' |
4199 with:self className |
4201 with:self className |
4200 with:aSelectorOrSpec. |
4202 with:aSelectorOrSpec. |
4201 Transcript showCR:ex description. |
4203 Transcript showCR:ex description. |
4202 ex proceed. |
4204 ex proceed. |
4203 ] do:[ |
4205 ] do:[ |