equal
deleted
inserted
replaced
43 ! |
43 ! |
44 |
44 |
45 list:aList |
45 list:aList |
46 "set the lists contents from another list |
46 "set the lists contents from another list |
47 " |
47 " |
48 |list selNr| |
|
49 |
|
50 aList notNil ifTrue:[inspectorList := aList list] |
48 aList notNil ifTrue:[inspectorList := aList list] |
51 ifFalse:[inspectorList := InspectorList new]. |
49 ifFalse:[inspectorList := InspectorList new]. |
52 |
50 |
53 inspectorList includesSelf:includesSelf. |
51 inspectorList includesSelf:includesSelf. |
54 super list:(inspectorList instanceNames). |
52 super list:(inspectorList instanceNames). |
118 |
116 |
119 visibleLineNeedsSpecialCare:visLineNr |
117 visibleLineNeedsSpecialCare:visLineNr |
120 "returns true if the visible line needs special care |
118 "returns true if the visible line needs special care |
121 " |
119 " |
122 |nr| |
120 |nr| |
|
121 |
|
122 nr := self visibleLineToListLine:visLineNr. |
123 |
123 |
124 (inspectorList instanceTypeAt:nr) == #directory ifTrue:[ |
124 (inspectorList instanceTypeAt:nr) == #directory ifTrue:[ |
125 ^ true |
125 ^ true |
126 ]. |
126 ]. |
127 ^ super visibleLineNeedsSpecialCare:visLineNr |
127 ^ super visibleLineNeedsSpecialCare:visLineNr |
179 ! |
179 ! |
180 |
180 |
181 list:aCollection keepSelection:aBoolean |
181 list:aCollection keepSelection:aBoolean |
182 "set the list - redefined, since setting the list implies unselecting |
182 "set the list - redefined, since setting the list implies unselecting |
183 and clearing attributes." |
183 and clearing attributes." |
184 |
|
185 |oldSelection| |
|
186 |
184 |
187 "somewhat of a kludge: if selection is first line, |
185 "somewhat of a kludge: if selection is first line, |
188 we have to remove the highlight frame by hand here" |
186 we have to remove the highlight frame by hand here" |
189 |
187 |
190 (shown and:[hilightLevel ~~ 0]) ifTrue:[ |
188 (shown and:[hilightLevel ~~ 0]) ifTrue:[ |