--- a/ResourceSelectionBrowser.st Tue Oct 07 23:21:14 2003 +0200
+++ b/ResourceSelectionBrowser.st Tue Oct 07 23:35:08 2003 +0200
@@ -263,143 +263,143 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'Resource Selection Browser'
- #name: 'Resource Selection Browser'
- #min: #(#Point 400 300)
- #max: #(#Point 1152 864)
- #bounds: #(#Rectangle 145 206 745 556)
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Resource Selection Browser'
+ name: 'Resource Selection Browser'
+ min: (Point 400 300)
+ max: (Point 1152 864)
+ bounds: (Rectangle 12 22 612 372)
)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableHorizontalPanelSpec
- #name: 'VariableHorizontalPanel'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -36 1.0)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'Box1'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel2'
- #layout: #(#LayoutFrame 0 0 2 0 297 0 23 0)
- #horizontalLayout: #leftSpace
- #verticalLayout: #fit
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#RadioButtonSpec
- #label: 'Categories'
- #name: 'ClassCategoriesRadioButton'
- #translateLabel: true
- #model: #selectionOfClassPresentation
- #isTriggerOnDown: true
- #lampColor: #(#Color 0.0 0.0 0.0)
- #select: #'Class Categories'
- #extent: #(#Point 124 21)
+ component:
+ (SpecCollection
+ collection: (
+ (VariableHorizontalPanelSpec
+ name: 'VariableHorizontalPanel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -36 1.0)
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel2'
+ layout: (LayoutFrame 0 0 2 0 297 0 23 0)
+ horizontalLayout: leftSpace
+ verticalLayout: fit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (RadioButtonSpec
+ label: 'Categories'
+ name: 'ClassCategoriesRadioButton'
+ translateLabel: true
+ model: selectionOfClassPresentation
+ isTriggerOnDown: true
+ lampColor: (Color 0.0 0.0 0.0)
+ select: #'Class Categories'
+ extent: (Point 124 21)
)
- #(#RadioButtonSpec
- #label: 'Hierarchy'
- #name: 'ClassHierarchyRadioButton'
- #translateLabel: true
- #model: #selectionOfClassPresentation
- #isTriggerOnDown: true
- #lampColor: #(#Color 0.0 0.0 0.0)
- #select: #'Class Hierarchy'
- #extent: #(#Point 145 21)
+ (RadioButtonSpec
+ label: 'Hierarchy'
+ name: 'ClassHierarchyRadioButton'
+ translateLabel: true
+ model: selectionOfClassPresentation
+ isTriggerOnDown: true
+ lampColor: (Color 0.0 0.0 0.0)
+ select: #'Class Hierarchy'
+ extent: (Point 145 21)
)
)
)
)
- #(#SelectionInTreeViewSpec
- #name: 'listOfClassHierarchyView'
- #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0)
- #tabable: true
- #model: #selectionOfClassHierarchy
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #showDirectoryIndicatorForRoot: false
- #showDirectoryIndicator: true
- #valueChangeSelector: #classSelected
- #hierarchicalList: #rootOfClassHierarchy
- #validateDoubleClickSelector: #validateDoubleClick:
- #contentsSelector: #treeViewClassHierarchyContents
- #labelSelector: #treeViewClassHierarchyLabel
- #childrenSelector: #treeViewClassHierarchyChildren
- #iconSelector: #treeViewClassHierarchyIcon
- #highlightMode: #line
+ (SelectionInTreeViewSpec
+ name: 'listOfClassHierarchyView'
+ layout: (LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0)
+ tabable: true
+ model: selectionOfClassHierarchy
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ showDirectoryIndicatorForRoot: false
+ showDirectoryIndicator: true
+ valueChangeSelector: classSelected
+ hierarchicalList: rootOfClassHierarchy
+ validateDoubleClickSelector: validateDoubleClick:
+ contentsSelector: treeViewClassHierarchyContents
+ labelSelector: treeViewClassHierarchyLabel
+ childrenSelector: treeViewClassHierarchyChildren
+ iconSelector: treeViewClassHierarchyIcon
+ highlightMode: line
)
- #(#SelectionInTreeViewSpec
- #name: 'listOfClassCategoriesView'
- #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0)
- #tabable: true
- #model: #selectionOfClassCategories
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #showRoot: false
- #showDirectoryIndicator: true
- #valueChangeSelector: #classSelected
- #hierarchicalList: #rootOfClassCategories
- #validateDoubleClickSelector: #validateDoubleClick:
- #childrenSelector: #treeViewClassCategoryChildren
- #iconSelector: #treeViewClassCategoryIcon
- #highlightMode: #line
+ (SelectionInTreeViewSpec
+ name: 'listOfClassCategoriesView'
+ layout: (LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0)
+ tabable: true
+ model: selectionOfClassCategories
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ showRoot: false
+ showDirectoryIndicator: true
+ valueChangeSelector: classSelected
+ hierarchicalList: rootOfClassCategories
+ validateDoubleClickSelector: validateDoubleClick:
+ childrenSelector: treeViewClassCategoryChildren
+ iconSelector: treeViewClassCategoryIcon
+ highlightMode: line
)
- #(#InputFieldSpec
- #name: 'classNameInputField'
- #layout: #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)
- #tabable: true
- #model: #valueOfClassName
- #acceptOnLeave: true
- #acceptOnLostFocus: true
- #acceptOnPointerLeave: true
+ (InputFieldSpec
+ name: 'classNameInputField'
+ layout: (LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)
+ tabable: true
+ model: valueOfClassName
+ acceptOnLeave: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
)
)
)
)
- #(#ViewSpec
- #name: 'Box2'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#DataSetSpec
- #name: 'resourcesDataSetView'
- #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -24 1.0)
- #model: #selectionOfResourceMethod
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #rowClassName: 'ResourceSelectionBrowser::Row'
- #dataList: #listOfResourceMethods
- #useIndex: false
- #has3Dsepartors: true
- #has3Dseparators: true
- #doubleClickSelector: #resourceDoubleClicked
- #columnHolder: #resourceMethodColumns
- #valueChangeSelector: #resourceSelected
- #verticalSpacing: 1
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (DataSetSpec
+ name: 'resourcesDataSetView'
+ layout: (LayoutFrame 2 0.0 2 0.0 -2 1.0 -24 1.0)
+ model: selectionOfResourceMethod
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ rowClassName: 'ResourceSelectionBrowser::Row'
+ dataList: listOfResourceMethods
+ useIndex: false
+ has3Dsepartors: true
+ has3Dseparators: true
+ doubleClickSelector: resourceDoubleClicked
+ columnHolder: resourceMethodColumns
+ valueChangeSelector: resourceSelected
+ verticalSpacing: 1
)
- #(#InputFieldSpec
- #name: 'selectorInputField'
- #layout: #(#LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)
- #tabable: true
- #model: #valueOfResourceSelector
- #acceptOnLeave: true
- #acceptOnLostFocus: true
- #acceptOnPointerLeave: true
+ (InputFieldSpec
+ name: 'selectorInputField'
+ layout: (LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)
+ tabable: true
+ model: valueOfResourceSelector
+ acceptOnLeave: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
)
)
@@ -408,42 +408,43 @@
)
)
- #handles: #(#Any 0.5 1.0)
+ handles: (Any 0.5 1.0)
)
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 2 0.0 -30 1 -2 1.0 -4 1.0)
- #horizontalLayout: #fit
- #verticalLayout: #fit
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Help'
- #name: 'HelpButton'
- #activeHelpKey: #dss
- #model: #openHTMLDocument:
- #initiallyDisabled: true
- #enableChannel: #helpEnabled
- #actionValue: 'tools/uipainter/ResourceSelectionBrowser.html'
- #extent: #(#Point 196 26)
+ (HorizontalPanelViewSpec
+ name: 'ButtonPanel'
+ layout: (LayoutFrame 2 0.0 -30 1 -2 1.0 -4 1.0)
+ horizontalLayout: fit
+ verticalLayout: fit
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Help'
+ name: 'HelpButton'
+ activeHelpKey: dss
+ model: openHTMLDocument:
+ initiallyDisabled: true
+ enableChannel: helpEnabled
+ actionValue: 'tools/uipainter/ResourceSelectionBrowser.html'
+ extent: (Point 196 26)
)
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'cancelButton'
- #activeHelpKey: #commitCancel
- #tabable: true
- #model: #cancel
- #extent: #(#Point 196 26)
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'cancelButton'
+ activeHelpKey: commitCancel
+ tabable: true
+ model: cancel
+ extent: (Point 197 26)
)
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'okButton'
- #activeHelpKey: #commitOK
- #tabable: true
- #model: #accept
- #isDefault: true
- #extent: #(#Point 196 24)
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'okButton'
+ activeHelpKey: commitOK
+ tabable: true
+ model: accept
+ isDefault: true
+ extent: (Point 197 26)
)
)