UISelectionPanel.st
changeset 1179 8dc2fbd25cd1
parent 1178 b348c8e9a1c7
child 1297 9fe7d970b5da
--- a/UISelectionPanel.st	Thu Jul 08 20:19:44 1999 +0200
+++ b/UISelectionPanel.st	Thu Jul 08 22:17:11 1999 +0200
@@ -88,6 +88,7 @@
                             #('Menus'   standardMenus)
                             #('Text'    standardTexts)
                             #('Lists'   standardLists)
+                            #('Trees'   standardTrees)
                             #('Groups'  standardGroups)
                             #('Embed'   standardEmbed)
                             #('Misc'    standardMisc)
@@ -917,14 +918,10 @@
        #(#WindowSpec
           #label: 'Lists'
           #name: 'Lists'
-          #layout: #(#LayoutFrame 22 0 99 0 462 0 316 0)
-          #level: 0
+          #layout: #(#LayoutFrame 61 0 96 0 501 0 313 0)
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 22 99 463 317)
-          #usePreferredExtent: false
-          #returnIsOKInDialog: true
-          #escapeIsCancelInDialog: true
+          #bounds: #(#Rectangle 61 96 502 314)
         )
         #component: 
        #(#SpecCollection
@@ -943,19 +940,12 @@
               #hasVerticalScrollBar: true
               #has3Dsepartors: false
             )
-           #(#SelectionInTreeViewSpec
-              #name: 'Tree List'
-              #layout: #(#LayoutFrame 4 0 114 0 209 0 212 0)
+           #(#SelectionInListModelViewSpec
+              #name: 'New SelectionInListView'
+              #layout: #(#LayoutFrame 3 0 110 0 208 0 208 0)
               #hasHorizontalScrollBar: true
               #hasVerticalScrollBar: true
-              #highlightMode: #line
-            )
-           #(#FileSelectionTreeSpec
-              #name: 'File Tree List'
-              #layout: #(#LayoutFrame 229 0 114 0 434 0 212 0)
-              #hasHorizontalScrollBar: true
-              #hasVerticalScrollBar: true
-              #highlightMode: #line
+              #useIndex: false
             )
            )
          
@@ -1302,6 +1292,62 @@
       )
 !
 
+standardTrees
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
+
+    "
+     UIPainter new openOnClass:UISelectionPanel andSelector:#standardTrees
+     UISelectionPanel new openInterface:#standardTrees
+    "
+
+    <resource: #canvas>
+
+    ^ 
+     #(#FullSpec
+        #name: #standardTrees
+        #window: 
+       #(#WindowSpec
+          #label: 'Trees'
+          #name: 'Trees'
+          #layout: #(#LayoutFrame 61 0 96 0 501 0 313 0)
+          #min: #(#Point 10 10)
+          #max: #(#Point 1280 1024)
+          #bounds: #(#Rectangle 61 96 502 314)
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#SelectionInTreeViewSpec
+              #name: 'Tree List'
+              #layout: #(#LayoutFrame 4 0 3 0 209 0 101 0)
+              #hasHorizontalScrollBar: true
+              #hasVerticalScrollBar: true
+              #highlightMode: #line
+            )
+           #(#FileSelectionTreeSpec
+              #name: 'File Tree List'
+              #layout: #(#LayoutFrame 229 0 3 0 434 0 101 0)
+              #hasHorizontalScrollBar: true
+              #hasVerticalScrollBar: true
+              #highlightMode: #line
+            )
+           #(#HierarchicalListViewSpec
+              #name: 'New ModelTree List'
+              #layout: #(#LayoutFrame 4 0 110 0 209 0 208 0)
+              #hasHorizontalScrollBar: true
+              #hasVerticalScrollBar: true
+              #highlightMode: #line
+            )
+           )
+         
+        )
+      )
+!
+
 standardUserPanel
     "this window spec was automatically generated by the ST/X UIPainter"