205 |
205 |
206 <resource: #image> |
206 <resource: #image> |
207 |
207 |
208 ^Icon |
208 ^Icon |
209 constantNamed:#'ResourceSelectionBrowser iconCategory' |
209 constantNamed:#'ResourceSelectionBrowser iconCategory' |
210 ifAbsentPut:[(Depth4Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'3L0@@@@@@L3L3L@@@@@@@@3L3@@3L3L3L0CL3@LQDQDQD#CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@L#L3L3L3CL3@@3L3L3L0CL3L@@@@@@@@3L3L0@@@@@@L3L') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'<@O@8@G@3?3@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@3?3@8@G@<@O@') ; yourself); yourself]! |
210 ifAbsentPut:[(Depth4Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'3L0@@@@@@L3L3L@@@@@@@@3L3@@3L3L3L0CL3@LQDQDQD#CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@L#L3L3L3CL3@@3L3L3L0CL3L@@@@@@@@3L3L0@@@@@@L3L') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'<@O@8@G@3?3@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@3?3@8@G@<@O@') ; yourself); yourself] |
|
211 ! |
211 |
212 |
212 iconClass |
213 iconClass |
213 "This resource specification was automatically generated |
214 "This resource specification was automatically generated |
214 by the ImageEditor of ST/X." |
215 by the ImageEditor of ST/X." |
215 |
216 |
223 |
224 |
224 <resource: #image> |
225 <resource: #image> |
225 |
226 |
226 ^Icon |
227 ^Icon |
227 constantNamed:#'ResourceSelectionBrowser iconClass' |
228 constantNamed:#'ResourceSelectionBrowser iconClass' |
228 ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@*****ABUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@A@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 170 170 170 255 255 255]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]! |
229 ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@*****ABUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@BUUUUT@IUUUUP@%UUUU@A@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 170 170 170 255 255 255]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself] |
|
230 ! |
229 |
231 |
230 iconPrivateClass |
232 iconPrivateClass |
231 "This resource specification was automatically generated |
233 "This resource specification was automatically generated |
232 by the ImageEditor of ST/X." |
234 by the ImageEditor of ST/X." |
233 |
235 |
240 |
242 |
241 <resource: #image> |
243 <resource: #image> |
242 |
244 |
243 ^Icon |
245 ^Icon |
244 constantNamed:#'ResourceSelectionBrowser iconPrivateClass' |
246 constantNamed:#'ResourceSelectionBrowser iconPrivateClass' |
245 ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU A****(@F*??* @Z+??*@A*/*>(OF*>+: @Z+??*@A*/?:(DF*>** @Z+:**@A*/**(@F*>** @Z****C2@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]! ! |
247 ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU A****(@F*??* @Z+??*@A*/*>(OF*>+: @Z+??*@A*/?:(DF*>** @Z+:**@A*/**(@F*>** @Z****C2@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself] |
|
248 ! ! |
246 |
249 |
247 !ResourceSelectionBrowser class methodsFor:'interface specs'! |
250 !ResourceSelectionBrowser class methodsFor:'interface specs'! |
248 |
251 |
249 windowSpec |
252 windowSpec |
250 "This resource specification was automatically generated |
253 "This resource specification was automatically generated |
731 ifTrue: [self selectionOfClassHierarchy value isNil ifTrue: [^nil]] |
734 ifTrue: [self selectionOfClassHierarchy value isNil ifTrue: [^nil]] |
732 ifFalse: [self selectionOfClassCategories value isNil ifTrue: [^nil]]. |
735 ifFalse: [self selectionOfClassCategories value isNil ifTrue: [^nil]]. |
733 |
736 |
734 self withWaitCursorDo: |
737 self withWaitCursorDo: |
735 [ |
738 [ |
736 |clsName| |
739 |clsName newContents class| |
|
740 |
737 resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes]. |
741 resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes]. |
738 |
742 |
739 ClassPresentation = #'Class Hierarchy' |
743 ClassPresentation = #'Class Hierarchy' |
740 ifTrue: [clsName := (self selectionOfClassHierarchy value name upTo: $ ) asSymbol] |
744 ifTrue: [clsName := (self selectionOfClassHierarchy value name upTo: $ ) asSymbol] |
741 ifFalse: [clsName := (self selectionOfClassCategories value name upTo: $ ) asSymbol]. |
745 ifFalse: [clsName := (self selectionOfClassCategories value name upTo: $ ) asSymbol]. |
742 |
746 |
743 self valueOfClassName value: clsName. |
747 self valueOfClassName value: clsName. |
744 self class lastSelection: clsName. |
748 self class lastSelection: clsName. |
745 self listOfResourceMethods contents: |
749 |
746 ((((Smalltalk at: clsName) |
750 class := Smalltalk at: clsName. |
747 class methodDictionary |
751 newContents := class class methodDictionary asOrderedCollection |
748 asOrderedCollection select: |
752 select: [:m | m resources notNil |
749 [:m| m resources notNil and: [resourceTypes includes: m resourceType]])) |
753 and: [resourceTypes includes: m resourceType] |
750 collect: [:m| (ResourceMethod new method: m)]). |
754 ]. |
|
755 newContents := newContents sort:[:m1 :m2 | m1 selector < m2 selector]. |
|
756 newContents := newContents collect:[:m| (ResourceMethod new method:m)]. |
|
757 |
|
758 self listOfResourceMethods contents:newContents |
|
759 . |
751 ] |
760 ] |
752 ! |
761 ! |
753 |
762 |
754 classSelectionUpdate:clsPattern |
763 classSelectionUpdate:clsPattern |
755 |foundClass classes| |
764 |foundClass classes| |