equal
deleted
inserted
replaced
2282 startItem := model last. |
2282 startItem := model last. |
2283 searchNext := startItem notNil. |
2283 searchNext := startItem notNil. |
2284 firstFound := nil. |
2284 firstFound := nil. |
2285 |
2285 |
2286 anItem recursiveDo:[:el| |
2286 anItem recursiveDo:[:el| |
2287 el == startItem ifTrue:[ |
2287 el == startItem ifTrue:[ |
2288 searchNext := false |
2288 searchNext := false |
2289 ] ifFalse:[ |
2289 ] ifFalse:[ |
2290 (aBlock value:el) ifTrue:[ |
2290 (aBlock value:el) ifTrue:[ |
2291 searchNext ifFalse:[^ model selectItem:el]. |
2291 searchNext ifFalse:[^ model selectItem:el]. |
2292 |
2292 |
2293 firstFound isNil ifTrue:[ |
2293 firstFound isNil ifTrue:[ |
2294 firstFound := el |
2294 firstFound := el |
2295 ] |
2295 ] |
2296 ] |
2296 ] |
2297 ] |
2297 ] |
2298 ]. |
2298 ]. |
2299 firstFound notNil ifTrue:[ |
2299 firstFound notNil ifTrue:[ |
2300 self window beep. |
2300 self beepInEditor. |
2301 model selectItem:firstFound |
2301 model selectItem:firstFound |
2302 ]. |
2302 ]. |
2303 ! |
2303 ! |
2304 |
2304 |
2305 doSelectNextOfApplicationClass:aClass startingIn:anItem |
2305 doSelectNextOfApplicationClass:aClass startingIn:anItem |
2306 self doSelectNextElementStartingIn:anItem forWhich:[:el | (self resolveApplicationClassFor:el) == aClass]. |
2306 self doSelectNextElementStartingIn:anItem forWhich:[:el | (self resolveApplicationClassFor:el) == aClass]. |