equal
deleted
inserted
replaced
49 ResourceSelectionBrowser open |
49 ResourceSelectionBrowser open |
50 |
50 |
51 [author:] |
51 [author:] |
52 Thomas Zwick |
52 Thomas Zwick |
53 " |
53 " |
54 ! |
|
55 |
|
56 history |
|
57 "Created: / 10.1.1998 / 10:59:18 / tz" |
|
58 ! ! |
54 ! ! |
59 |
55 |
60 !ResourceSelectionBrowser class methodsFor:'instance creation'! |
56 !ResourceSelectionBrowser class methodsFor:'instance creation'! |
61 |
57 |
62 request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withResourceTypes: aResourceTypes |
58 request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withResourceTypes: aResourceTypes |
318 !ResourceSelectionBrowser methodsFor:'initialization'! |
314 !ResourceSelectionBrowser methodsFor:'initialization'! |
319 |
315 |
320 postBuildWith:aBuilder |
316 postBuildWith:aBuilder |
321 |
317 |
322 |classSelection classSelectionBlock| |
318 |classSelection classSelectionBlock| |
323 allClasses := Smalltalk allClasses asArray. |
319 allClasses := Object withAllSubclasses. |
324 classSelection := resourceClass ? self class lastSelection ? #Object. |
320 classSelection := resourceClass ? self class lastSelection ? #Object. |
325 classSelectionBlock := |
321 classSelectionBlock := |
326 [:clsPattern| |
322 [:clsPattern| |
327 |foundClass classes| |
323 |foundClass classes| |
328 ((foundClass := Smalltalk at: clsPattern asSymbol) isNil or: |
324 ((foundClass := Smalltalk at: clsPattern asSymbol) isNil or: |