hg/stx-libtool2: comparison ResourceSelectionBrowser.st

equal deleted inserted replaced

-:4a16c0a3be56
+:d0724edba450
 andClass: aClass
 andSelector: aSelector
 withResourceTypes: aResourceTypes
 ! !
+!ResourceSelectionBrowser class methodsFor:'callbacks - default'!
+treeViewChildren
+^[:aTreeItem| aTreeItem contents subclasses asSortedCollection: [:i1 :i2| i1 name < i2 name]]
+!
+treeViewContents
+^Smalltalk at: #Object
+!
+treeViewIcon
+^[:aTreeItem|
+aTreeItem contents subclasses notEmpty
+ifTrue:
+[
+aTreeItem hide
+ifTrue:  [self iconHidingSubclasses]
+ifFalse: [self iconShowingSubclasses]]
+ifFalse:
+[
+self iconClass
+]
+]
+!
+treeViewLabel
+^[:aTreeItem|aTreeItem contents name]
+! !
 !ResourceSelectionBrowser class methodsFor:'interface specs'!
 windowSpec
 "this window spec was automatically generated by the ST/X UIPainter"
 <resource: #canvas>
 ^
 #(#FullSpec
-#'window:'
+#window:
 #(#WindowSpec
-#'name:' 'Resource Selection Browser'
+#name: 'Resource Selection Browser'
-#'layout:' #(#LayoutFrame 69 0 395 0 668 0 744 0)
+#layout: #(#LayoutFrame 65 0 500 0 664 0 849 0)
-#'label:' 'Resource Selection Browser'
+#label: 'Resource Selection Browser'
-#'min:' #(#Point 400 300)
+#min: #(#Point 400 300)
-#'max:' #(#Point 1152 864)
+#max: #(#Point 1152 864)
-#'bounds:' #(#Rectangle 69 395 669 745)
+#bounds: #(#Rectangle 65 500 665 850)
-#'usePreferredExtent:' false
+#usePreferredExtent: false
 )
-#'component:'
+#component:
 #(#SpecCollection
-#'collection:'
+#collection:
 #(
 #(#VariableHorizontalPanelSpec
-#'name:' 'variableHorizontalPanel'
+#name: 'variableHorizontalPanel'
-#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)
-#'component:'
+#component:
 #(#SpecCollection
-#'collection:'
+#collection:
 #(
 #(#ViewSpec
-#'name:' 'view1'
+#name: 'view1'
-#'component:'
+#component:
 #(#SpecCollection
-#'collection:'
+#collection:
 #(
 #(#SelectionInTreeViewSpec
-#'name:' 'listOfClassesView'
+#name: 'listOfClassesView'
-#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -22 1.0)
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -22 1.0)
-#'model:' #selectionOfClass
+#model: #selectionOfClass
-#'hasHorizontalScrollBar:' true
+#hasHorizontalScrollBar: true
-#'hasVerticalScrollBar:' true
+#hasVerticalScrollBar: true
-#'miniScrollerHorizontal:' true
+#miniScrollerHorizontal: true
-#'showDirectoryIndicatorForRoot:' false
+#showDirectoryIndicatorForRoot: false
-#'showDirectoryIndicator:' true
+#showDirectoryIndicator: true
-#'valueChangeSelector:' #'classSelected:'
+#valueChangeSelector: #classSelected:
-#'hierarchicalList:' #listOfClasses
+#hierarchicalList: #listOfClasses
-#'contentsSelector:' #treeViewContents
+#contentsSelector: #treeViewContents
-#'labelSelector:' #treeViewLabel
+#labelSelector: #treeViewLabel
-#'childrenSelector:' #treeViewChildren
+#childrenSelector: #treeViewChildren
-#'iconSelector:' #treeViewIcon
+#iconSelector: #treeViewIcon
 )
 #(#InputFieldSpec
-#'name:' 'classNameInputField'
+#name: 'classNameInputField'
-#'layout:' #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)
+#layout: #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)
-#'model:' #valueOfClassName
+#model: #valueOfClassName
 )
 )
 )
 )
 #(#ViewSpec
-#'name:' 'view2'
+#name: 'view2'
-#'component:'
+#component:
 #(#SpecCollection
-#'collection:'
+#collection:
 #(
 #(#DataSetSpec
-#'name:' 'resourcesDataSetView'
+#name: 'resourcesDataSetView'
-#'layout:' #(#LayoutFrame 2 0.0 0 0.0 -2 1.0 -22 1.0)
+#layout: #(#LayoutFrame 2 0.0 0 0.0 -2 1.0 -22 1.0)
-#'model:' #selectionOfResource
+#model: #selectionOfResource
-#'hasHorizontalScrollBar:' true
+#hasHorizontalScrollBar: true
-#'hasVerticalScrollBar:' true
+#hasVerticalScrollBar: true
-#'miniScrollerHorizontal:' true
+#miniScrollerHorizontal: true
-#'rowClassName:' 'ResourceSelectionBrowser::Row'
+#rowClassName: 'ResourceSelectionBrowser::Row'
-#'dataList:' #listOfResources
+#dataList: #listOfResources
-#'useIndex:' false
+#useIndex: false
-#'has3Dsepartors:' true
+#has3Dsepartors: true
-#'doubleClickSelector:' #resourceDoubleClicked
+#doubleClickSelector: #resourceDoubleClicked
-#'valueChangeSelector:' #resourceSelected
+#columnHolder: #columnsOfDataSetView
-#'verticalSpacing:' 1
+#valueChangeSelector: #resourceSelected
-#'columns:'
+#verticalSpacing: 1
-#(
-#(#DataSetColumnSpec
-#'width:' 20
-#'height:' 20
-#'printSelector:' #'iconOn:'
-#'canSelect:' false
-)
-#(#DataSetColumnSpec
-#'label:' 'Selector'
-#'model:' #selector
-#'canSelect:' false
-)
-#(#DataSetColumnSpec
-#'label:' 'Resource'
-#'model:' #resourceType
-#'canSelect:' false
-)
-)
 )
 #(#InputFieldSpec
-#'name:' 'selectorInputField'
+#name: 'selectorInputField'
-#'layout:' #(#LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)
+#layout: #(#LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)
-#'model:' #valueOfSelector
+#model: #valueOfSelector
 )
 )
 )
 )
 )
 )
-#'handles:' #(#Any 0.5 1.0)
+#handles: #(#Any 0.5 1.0)
 )
 #(#UISubSpecification
-#'name:' 'SubSpecification'
+#name: 'SubSpecification'
-#'layout:' #(#LayoutFrame 2 0.0 -32 1 -2 1.0 -8 1.0)
+#layout: #(#LayoutFrame 2 0.0 -32 1 -2 1.0 -8 1.0)
-#'majorKey:' #ToolApplicationModel
+#majorKey: #ToolApplicationModel
-#'minorKey:' #windowSpecForCommitWithoutChannels
+#minorKey: #windowSpecForCommitWithoutChannels
 )
 )
 )
 )
 ! !
+!ResourceSelectionBrowser class methodsFor:'list specs'!
+columnsOfDataSetView
+^ #(#(#DataSetColumnSpec
+#width: 20
+#height: 20
+#printSelector: #iconOn:
+#canSelect: false
+)
+#(#DataSetColumnSpec
+#label: 'Selector'
+#model: #selector
+#canSelect: false
+)
+(#DataSetColumnSpec
+#label: 'Resource'
+#model: #resourceType
+#canSelect: false
+))
+! !
 !ResourceSelectionBrowser class methodsFor:'resources'!
 iconClass
 "Generated by the Image Editor"
 "
 ^builder componentAt: #listOfClassesView
 ! !
 !ResourceSelectionBrowser methodsFor:'aspects'!
+columnsOfDataSetView
+|holder|
+(holder := builder bindingAt:#columnsOfDataSetView) isNil ifTrue:[
+builder aspectAt:#columnsOfDataSetView put:(holder := List new).
+holder addAll: (self class columnsOfDataSetView collect: [:i| i decodeAsLiteralArray]).
+].
+^ holder
+!
 listOfClasses
 |holder|
 (holder := builder bindingAt:#listOfClasses) isNil ifTrue:[
 builder aspectAt:#listOfClasses put: (holder := TreeItem new)
 ^ holder
 ! !
 !ResourceSelectionBrowser methodsFor:'callbacks - tree view'!
-treeViewChildren
-^[:aTreeItem| aTreeItem contents subclasses asSortedCollection: [:i1 :i2| i1 name < i2 name]]
-!
 treeViewContents
-^Smalltalk at: resourceSuperclass ? #Object
+^(Smalltalk at: resourceSuperclass) ? self class treeViewContents
 !
 treeViewIcon
-^[:aTreeItem|
+^self class treeViewIcon
-aTreeItem contents subclasses notEmpty
-ifTrue:
-[
-aTreeItem hide
-ifTrue:  [self class iconHidingSubclasses]
-ifFalse: [self class iconShowingSubclasses]]
-ifFalse:
-[
-self class iconClass
-]
-]
 !
 treeViewLabel
-^[:aTreeItem|aTreeItem contents name]
+^self class treeViewLabel
 ! !
 !ResourceSelectionBrowser methodsFor:'callbacks - user'!

changeset 648	d0724edba450
parent 641	06bf664cab3c
child 649	1896945cf5d4