# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1065562508 -7200
# Node ID fd6ac12ed9e4b9fdd85ee0b65b439f504d42f106
# Parent  f175cc37a17ac4c41c176852e905932c39a9edc1
*** empty log message ***

diff -r f175cc37a17a -r fd6ac12ed9e4 ResourceSelectionBrowser.st
--- 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)
                   )
                  )