equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1990 by Claus Gittinger |
2 COPYRIGHT (c) 1990 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 |
150 no interaction with ANY view on the screen is possible then." |
148 no interaction with ANY view on the screen is possible then." |
151 |
149 |
152 exclusiveKeyboard := aBoolean |
150 exclusiveKeyboard := aBoolean |
153 |
151 |
154 "Modified: 12.5.1996 / 21:55:09 / cg" |
152 "Modified: 12.5.1996 / 21:55:09 / cg" |
|
153 ! |
|
154 |
|
155 windowTitle |
|
156 ^ super label |
|
157 |
|
158 "Created: / 26-08-2018 / 17:03:56 / Claus Gittinger" |
|
159 ! |
|
160 |
|
161 windowTitle:windowTitleString |
|
162 "set the boxes window title string" |
|
163 |
|
164 super label:windowTitleString. |
|
165 |
|
166 "Created: / 26-08-2018 / 17:01:23 / Claus Gittinger" |
155 ! ! |
167 ! ! |
156 |
168 |
157 !ModalBox methodsFor:'event handling'! |
169 !ModalBox methodsFor:'event handling'! |
158 |
170 |
159 coveredBy:aView |
171 coveredBy:aView |