| changeset 6569 | d3ef04c096f6 |
| parent 6545 | 0a563f36b097 |
| child 6573 | a2a5d33886ab |
| 6568:327aa6e0a885 | 6569:d3ef04c096f6 |
|---|---|
10361 "Modified: 19.4.1996 / 16:57:58 / cg" |
10361 "Modified: 19.4.1996 / 16:57:58 / cg" |
10362 ! ! |
10362 ! ! |
10363 |
10363 |
10364 !DialogBox methodsFor:'initialization & release'! |
10364 !DialogBox methodsFor:'initialization & release'! |
10365 |
10365 |
10366 defaultExtent |
|
10367 "redefined to return my last extent |
|
10368 as default for the open" |
|
10369 |
|
10370 |last| |
|
10371 |
|
10372 (last := ApplicationModel defaultExtentFor:self class) notNil ifTrue:[ |
|
10373 needResize := false. |
|
10374 ^ last |
|
10375 ]. |
|
10376 ^ super defaultExtent. |
|
10377 |
|
10378 "Created: / 27-03-2019 / 22:45:34 / Claus Gittinger" |
|
10379 ! |
|
10380 |
|
10366 initialize |
10381 initialize |
10367 <modifier: #super> "must be called if redefined" |
10382 <modifier: #super> "must be called if redefined" |
10368 |
10383 |
10369 super initialize. |
10384 super initialize. |
10370 |
10385 |
10870 "/ p := buttonPanel preferredExtent. |
10885 "/ p := buttonPanel preferredExtent. |
10871 "/ w := p x. |
10886 "/ w := p x. |
10872 "/ h := ViewSpacing |
10887 "/ h := ViewSpacing |
10873 "/ + p y |
10888 "/ + p y |
10874 "/ + ViewSpacing. |
10889 "/ + ViewSpacing. |
10875 "/ |
10890 |
10876 ^ w @ h |
10891 ^ w @ h |
10877 |
10892 |
10878 "Created: / 09-11-2018 / 19:50:59 / Claus Gittinger" |
10893 "Created: / 09-11-2018 / 19:50:59 / Claus Gittinger" |
10894 "Modified (comment): / 27-03-2019 / 22:56:58 / Claus Gittinger" |
|
10879 ! |
10895 ! |
10880 |
10896 |
10881 interfaceSpecFor:aSelector |
10897 interfaceSpecFor:aSelector |
10882 "return an interface spec. |
10898 "return an interface spec. |
10883 Notice - Dialog should be moved under AppModel so this becomes obsolete." |
10899 Notice - Dialog should be moved under AppModel so this becomes obsolete." |
11002 ] |
11018 ] |
11003 ] |
11019 ] |
11004 ] |
11020 ] |
11005 ]. |
11021 ]. |
11006 ]. |
11022 ]. |
11023 |
|
11007 acceptValue value:true. |
11024 acceptValue value:true. |
11008 |
11025 |
11009 "Modified: 4.3.1996 / 12:14:56 / cg" |
11026 "Modified: / 04-03-1996 / 12:14:56 / cg" |
11027 "Modified: / 27-03-2019 / 22:44:02 / Claus Gittinger" |
|
11028 ! |
|
11029 |
|
11030 hide |
|
11031 "redefined to remember my last extent; |
|
11032 used as default for the next open" |
|
11033 |
|
11034 ApplicationModel rememberLastExtentOf:self for:self class. |
|
11035 super hide |
|
11036 |
|
11037 "Created: / 27-03-2019 / 22:44:32 / Claus Gittinger" |
|
11010 ! |
11038 ! |
11011 |
11039 |
11012 keyPress:aKey x:x y:y |
11040 keyPress:aKey x:x y:y |
11013 "return-key duplicates ok-function if acceptReturnAsOK is true" |
11041 "return-key duplicates ok-function if acceptReturnAsOK is true" |
11014 |
11042 |