equal
deleted
inserted
replaced
237 listValid := false |
237 listValid := false |
238 ]. |
238 ]. |
239 changedObject == self selectionHolder ifTrue:[ |
239 changedObject == self selectionHolder ifTrue:[ |
240 selectionIndexValid := false. |
240 selectionIndexValid := false. |
241 ]. |
241 ]. |
242 ^ self |
242 changedObject == inGeneratorHolder ifTrue:[ |
|
243 self invalidateList. |
|
244 self updateList. |
|
245 ]. |
|
246 "/ |
|
247 "/ self window shown ifFalse:[ ^ self ]. |
243 ]. |
248 ]. |
244 |
249 |
245 (changedObject == self selectionHolder) ifTrue:[ |
250 (changedObject == self selectionHolder) ifTrue:[ |
246 self updateSelectionIndexFromSelection. |
251 self updateSelectionIndexFromSelection. |
247 self enqueueDelayedUpdateOutputGenerator. |
252 self enqueueDelayedUpdateOutputGenerator. |
253 ]. |
258 ]. |
254 |
259 |
255 changedObject == self selectionIndexHolder ifTrue:[ |
260 changedObject == self selectionIndexHolder ifTrue:[ |
256 listValid ifFalse:[ |
261 listValid ifFalse:[ |
257 self updateList. |
262 self updateList. |
|
263 ]. |
|
264 changedObject value == 0 ifTrue:[ |
|
265 self selectionIndexHolder value:#() |
258 ]. |
266 ]. |
259 newSel := changedObject value collect:[:idx | projectList value at:idx]. |
267 newSel := changedObject value collect:[:idx | projectList value at:idx]. |
260 newSel ~= self selectedProjects value ifTrue:[ |
268 newSel ~= self selectedProjects value ifTrue:[ |
261 self selectedProjects value:newSel. |
269 self selectedProjects value:newSel. |
262 ]. |
270 ]. |
352 |
360 |
353 "Created: / 17.2.2000 / 23:41:17 / cg" |
361 "Created: / 17.2.2000 / 23:41:17 / cg" |
354 ! |
362 ! |
355 |
363 |
356 update:something with:aParameter from:changedObject |
364 update:something with:aParameter from:changedObject |
357 |
|
358 (self builder isNil or:[self window topView realized not]) ifTrue:[ |
365 (self builder isNil or:[self window topView realized not]) ifTrue:[ |
359 "/ self makeIndependent. |
366 "/ self makeIndependent. |
360 listValid := false. |
367 listValid := false. |
361 selectionIndexValid := false. |
368 selectionIndexValid := false. |
362 ^ self |
369 ^ self |
998 ! ! |
1005 ! ! |
999 |
1006 |
1000 !ProjectList class methodsFor:'documentation'! |
1007 !ProjectList class methodsFor:'documentation'! |
1001 |
1008 |
1002 version |
1009 version |
1003 ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.60 2013-03-06 18:07:10 stefan Exp $' |
1010 ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.61 2013-03-10 14:22:06 cg Exp $' |
1004 ! |
1011 ! |
1005 |
1012 |
1006 version_CVS |
1013 version_CVS |
1007 ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.60 2013-03-06 18:07:10 stefan Exp $' |
1014 ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.61 2013-03-10 14:22:06 cg Exp $' |
1008 ! ! |
1015 ! ! |
1009 |
1016 |