equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1996 by Claus Gittinger / eXept Software AG |
2 COPYRIGHT (c) 1996 by Claus Gittinger / eXept Software AG |
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 |
95 " |
93 " |
96 (Set with:1 with:2 with:3) inspect |
94 (Set with:1 with:2 with:3) inspect |
97 " |
95 " |
98 |
96 |
99 "Modified: 28.6.1996 / 16:05:42 / cg" |
97 "Modified: 28.6.1996 / 16:05:42 / cg" |
100 ! |
|
101 |
|
102 derivedFields |
|
103 "derived fields are additional pseudo fields, which are usually not instvars. |
|
104 These consist of valueHolderItems, actions and extraFields." |
|
105 |
|
106 ^ super derivedFields |
|
107 "/ |
|
108 "/ size is already there |
|
109 "/ ^ Dictionary new |
|
110 "/ declareAllNewFrom:(super derivedFields ? #()); |
|
111 "/ add:('-size' -> [ object size ]); |
|
112 "/ yourself |
|
113 |
|
114 "Modified: / 09-10-2006 / 12:27:21 / cg" |
|
115 "Modified (comment): / 07-06-2019 / 12:27:29 / Claus Gittinger" |
|
116 ! |
98 ! |
117 |
99 |
118 indexList |
100 indexList |
119 "return a list of indexes to show in the selectionList. |
101 "return a list of indexes to show in the selectionList. |
120 Set hasMore to true, if a '...' entry should be added." |
102 Set hasMore to true, if a '...' entry should be added." |