equal
deleted
inserted
replaced
225 |
225 |
226 #(#FullSpec |
226 #(#FullSpec |
227 #window: |
227 #window: |
228 #(#WindowSpec |
228 #(#WindowSpec |
229 #name: 'Resource Selection Browser' |
229 #name: 'Resource Selection Browser' |
230 #layout: #(#LayoutFrame 361 0 289 0 960 0 638 0) |
230 #layout: #(#LayoutFrame 293 0 266 0 892 0 615 0) |
231 #label: 'Resource Selection Browser' |
231 #label: 'Resource Selection Browser' |
232 #min: #(#Point 400 300) |
232 #min: #(#Point 400 300) |
233 #max: #(#Point 1152 864) |
233 #max: #(#Point 1152 864) |
234 #bounds: #(#Rectangle 361 289 961 639) |
234 #bounds: #(#Rectangle 293 266 893 616) |
235 #usePreferredExtent: false |
235 #usePreferredExtent: false |
236 ) |
236 ) |
237 #component: |
237 #component: |
238 #(#SpecCollection |
238 #(#SpecCollection |
239 #collection: |
239 #collection: |
309 #tabable: true |
309 #tabable: true |
310 #model: #selectionOfClassCategories |
310 #model: #selectionOfClassCategories |
311 #hasHorizontalScrollBar: true |
311 #hasHorizontalScrollBar: true |
312 #hasVerticalScrollBar: true |
312 #hasVerticalScrollBar: true |
313 #miniScrollerHorizontal: true |
313 #miniScrollerHorizontal: true |
314 #showDirectoryIndicatorForRoot: false |
314 #showRoot: false |
315 #showDirectoryIndicator: true |
315 #showDirectoryIndicator: true |
316 #valueChangeSelector: #classSelected |
316 #valueChangeSelector: #classSelected |
317 #hierarchicalList: #rootOfClassCategories |
317 #hierarchicalList: #rootOfClassCategories |
318 #validateDoubleClickSelector: #validateDoubleClick: |
318 #validateDoubleClickSelector: #validateDoubleClick: |
319 #childrenSelector: #treeViewClassCategoryChildren |
319 #childrenSelector: #treeViewClassCategoryChildren |
617 resourceSuperclass notNil ifTrue:[ |
617 resourceSuperclass notNil ifTrue:[ |
618 cls := Smalltalk at: resourceSuperclass. |
618 cls := Smalltalk at: resourceSuperclass. |
619 ]. |
619 ]. |
620 ^ cls ? self class treeViewClassHierarchyContents |
620 ^ cls ? self class treeViewClassHierarchyContents |
621 |
621 |
622 "Modified: / 22.4.1998 / 14:43:19 / cg" |
|
623 ! |
622 ! |
624 |
623 |
625 validateDoubleClick: aTreeItem |
624 validateDoubleClick: aTreeItem |
626 "returns whether a class may be selected" |
625 "returns whether a class may be selected" |
627 |
626 |
789 classNameInputField contents:what first. |
788 classNameInputField contents:what first. |
790 oldClassName = classNameInputField contents ifTrue:[classNameInputField flash]. |
789 oldClassName = classNameInputField contents ifTrue:[classNameInputField flash]. |
791 classSelectionBlock value: classNameInputField contents |
790 classSelectionBlock value: classNameInputField contents |
792 ]. |
791 ]. |
793 |
792 |
794 ^super postBuildWith:aBuilder |
|
795 |
|
796 ! |
|
797 |
|
798 postOpenWith:aBuilder |
|
799 "after opening, raise the the view do select class and resource method" |
|
800 |
|
801 ClassPresentation = #'Class Hierarchy' |
793 ClassPresentation = #'Class Hierarchy' |
802 ifTrue: [(builder componentAt: #listOfClassHierarchyView) raise]. |
794 ifTrue: [(builder componentAt: #listOfClassHierarchyView) raise]. |
803 |
795 |
804 classSelectionBlock value: self valueOfClassName value. |
796 classSelectionBlock value: self valueOfClassName value. |
805 self classSelected. |
797 self classSelected. |
806 self selectionOfResourceMethod value: (self listOfResourceMethods detect: [:m| m selector == resourceMethod] ifNone: nil). |
798 self selectionOfResourceMethod value: (self listOfResourceMethods detect: [:m| m selector == resourceMethod] ifNone: nil). |
|
799 |
|
800 ^super postBuildWith:aBuilder |
|
801 |
807 ! ! |
802 ! ! |
808 |
803 |
809 !ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'! |
804 !ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'! |
810 |
805 |
811 iconOn:aGC |
806 iconOn:aGC |