equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1994 by Claus Gittinger |
2 COPYRIGHT (c) 1994 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 |
10972 onDevice:(device) |
10970 onDevice:(device) |
10973 |
10971 |
10974 "Modified (comment): / 01-07-2018 / 09:47:37 / Claus Gittinger" |
10972 "Modified (comment): / 01-07-2018 / 09:47:37 / Claus Gittinger" |
10975 ! ! |
10973 ! ! |
10976 |
10974 |
|
10975 !DialogBox methodsFor:'testing'! |
|
10976 |
|
10977 isDialogBox |
|
10978 ^ true |
|
10979 |
|
10980 "Created: / 23-04-2019 / 16:30:16 / Claus Gittinger" |
|
10981 ! ! |
|
10982 |
10977 !DialogBox methodsFor:'user actions'! |
10983 !DialogBox methodsFor:'user actions'! |
10978 |
10984 |
10979 abortPressed |
10985 abortPressed |
10980 "sent by the cancel button; user pressed abort button |
10986 "sent by the cancel button; user pressed abort button |
10981 - hide myself and evaluate okAction" |
10987 - hide myself and evaluate okAction" |