equal
deleted
inserted
replaced
204 self minorKeys:(minorKeysHolder value) |
204 self minorKeys:(minorKeysHolder value) |
205 ! ! |
205 ! ! |
206 |
206 |
207 !UIGalleryView methodsFor:'change & update'! |
207 !UIGalleryView methodsFor:'change & update'! |
208 |
208 |
209 selectionChanged |
209 selectionHasChanged |
210 "selection changed |
210 "selection changed |
211 " |
211 " |
212 |specification selector selection application| |
212 |specification selector selection application| |
213 |
213 |
214 selection := self listIndexOf:(self selection). |
214 selection := self listIndexOf:(self selection). |
215 |
215 |
216 minorKeysHolder notNil ifTrue:[ |
216 minorKeysHolder notNil ifTrue:[ |
217 minorKeys := minorKeysHolder value. |
217 minorKeys := minorKeysHolder value. |
218 ]. |
218 ]. |
219 |
|
220 (selection notNil and:[minorKeys size >= selection]) ifTrue:[ |
219 (selection notNil and:[minorKeys size >= selection]) ifTrue:[ |
221 selector := minorKeys at:selection. |
220 selector := minorKeys at:selection. |
222 |
221 |
223 (majorKey respondsTo:selector) ifTrue:[ |
222 (majorKey respondsTo:selector) ifTrue:[ |
224 specification := majorKey perform:selector |
223 specification := majorKey perform:selector |
237 canvas specification:specification. |
236 canvas specification:specification. |
238 |
237 |
239 ! |
238 ! |
240 |
239 |
241 update |
240 update |
242 self selectionChanged. |
241 self selectionHasChanged. |
243 ! |
242 ! |
244 |
243 |
245 update:something with:aParameter from:changedObject |
244 update:something with:aParameter from:changedObject |
246 "one of my models changed its value |
245 "one of my models changed its value |
247 " |
246 " |
267 " |
266 " |
268 canvas := Canvas. |
267 canvas := Canvas. |
269 |
268 |
270 super initialize. |
269 super initialize. |
271 |
270 |
272 self action:[:something| self selectionChanged ]. |
271 self action:[:something| self selectionHasChanged ]. |
273 |
272 |
274 ! ! |
273 ! ! |
275 |
274 |
276 !UIGalleryView::Canvas methodsFor:'accessing'! |
275 !UIGalleryView::Canvas methodsFor:'accessing'! |
277 |
276 |