equal
deleted
inserted
replaced
5225 imageHolder |
5225 imageHolder |
5226 ^ imageHolder. |
5226 ^ imageHolder. |
5227 ! |
5227 ! |
5228 |
5228 |
5229 imageList |
5229 imageList |
5230 ^ imageList. |
5230 ^ imageList |
5231 ! |
5231 ! |
5232 |
5232 |
5233 modifiedChannel |
5233 modifiedChannel |
5234 ^ builder booleanValueAspectFor: #modifiedChannel |
5234 ^ builder booleanValueAspectFor: #modifiedChannel |
5235 ! |
5235 ! |
5310 selector size == 0 ifTrue:[ imageHolder value:nil. ^ self ]. |
5310 selector size == 0 ifTrue:[ imageHolder value:nil. ^ self ]. |
5311 |
5311 |
5312 item := nil. |
5312 item := nil. |
5313 selector := selector asSymbol. |
5313 selector := selector asSymbol. |
5314 |
5314 |
5315 imageList do:[:anItem| |sel| |
5315 imageList do:[:anItem| |
5316 sel := anItem selector. |
5316 |sel| |
5317 selector == sel ifTrue:[ |
5317 |
5318 imageHolder value:anItem. |
5318 sel := anItem selector. |
5319 ^ self |
5319 selector == sel ifTrue:[ |
5320 ]. |
5320 imageHolder value:anItem. |
5321 item isNil ifTrue:[ |
5321 ^ self |
5322 (sel startsWith:selector) ifTrue:[ item := anItem ] |
5322 ]. |
5323 ] |
5323 item isNil ifTrue:[ |
|
5324 (sel startsWith:selector) ifTrue:[ item := anItem ] |
|
5325 ] |
5324 ]. |
5326 ]. |
5325 imageHolder value:nil. |
5327 imageHolder value:nil. |
5326 |
5328 |
5327 item ifNotNil:[ |
5329 item ifNotNil:[ |
5328 line := imageList identityIndexOf:item. |
5330 line := imageList identityIndexOf:item. |
5329 imageViewer scrollToLine:line |
5331 imageViewer scrollToLine:line |
5330 ]. |
5332 ]. |
5331 ! ! |
5333 ! ! |
5332 |
5334 |
5333 !MenuEditor::ResourceEditor methodsFor:'initialization'! |
5335 !MenuEditor::ResourceEditor methodsFor:'initialization'! |
5334 |
5336 |
5387 |
5389 |
5388 fromClass:aClass |
5390 fromClass:aClass |
5389 |r item| |
5391 |r item| |
5390 |
5392 |
5391 (aClass notNil and:[aClass isBehavior]) ifFalse:[ |
5393 (aClass notNil and:[aClass isBehavior]) ifFalse:[ |
5392 ^ self collapse. |
5394 ^ self collapse. |
5393 ]. |
5395 ]. |
5394 aClass == selector ifTrue:[ |
5396 aClass == selector ifTrue:[ |
5395 ^ self expand |
5397 ^ self expand |
5396 ]. |
5398 ]. |
5397 self collapse. |
5399 self collapse. |
5398 |
5400 |
5399 selector := aClass. |
5401 selector := aClass. |
5400 children := SortedCollection sortBlock:[:a :b| a label < b label ]. |
5402 children := SortedCollection sortBlock:[:a :b| a label < b label ]. |
5401 |
5403 |
5402 self application withWaitCursorDo:[ |
5404 self application withWaitCursorDo:[ |
5403 aClass withAllSuperclassesDo:[:aClass| |
5405 aClass withAllSuperclassesDo:[:aClass| |
5404 aClass class selectorsAndMethodsDo:[:sel :m| |
5406 aClass class selectorsAndMethodsDo:[:sel :m| |
5405 ((r := m resourceType) == #image or:[r == #programImage]) ifTrue:[ |
5407 r := m resourceType. |
5406 item := self class fromClass:aClass selector:sel. |
5408 ( #(#image #programImage) includes:r) ifTrue:[ |
5407 item parent:self. |
5409 item := self class fromClass:aClass selector:sel. |
5408 children add:item |
5410 item parent:self. |
5409 ] |
5411 children add:item |
5410 ] |
5412 ] |
5411 ]. |
5413 ] |
5412 self expand |
5414 ]. |
|
5415 self expand |
5413 ]. |
5416 ]. |
5414 ! |
5417 ! |
5415 |
5418 |
5416 fromClass:aClass selector:aSelector |
5419 fromClass:aClass selector:aSelector |
5417 |w h magnify| |
5420 |w h magnify| |