SmallSense__ParseTreeInspector.st
changeset 895 b3aea8e7474c
parent 386 21f377c318cd
--- a/SmallSense__ParseTreeInspector.st	Fri Sep 04 11:36:36 2015 +0200
+++ b/SmallSense__ParseTreeInspector.st	Tue Oct 27 15:52:20 2015 +0000
@@ -187,6 +187,91 @@
 !
 
 windowSpecWithInspector
+    ^ self windowSpecWithInspectorSplitted
+
+    "Modified: / 26-10-2015 / 11:35:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+windowSpecWithInspectorSplitted
+    "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:SmallSense::ParseTreeInspector andSelector:#windowSpecWithInspectorSplitted
+     SmallSense::ParseTreeInspector new openInterface:#windowSpecWithInspectorSplitted
+    "
+
+    <resource: #canvas>
+
+    ^ 
+    #(FullSpec
+       name: windowSpecWithInspectorSplitted
+       window: 
+      (WindowSpec
+         label: 'Parse Tree Inspector'
+         name: 'Parse Tree Inspector'
+         min: (Point 10 10)
+         bounds: (Rectangle 0 0 630 322)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (VariableHorizontalPanelSpec
+             name: 'QueryTreeAndSourcePanel'
+             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+             showHandle: true
+             snapMode: both
+             handlePosition: right
+             component: 
+            (SpecCollection
+               collection: (
+                (HierarchicalListViewSpec
+                   name: 'QueryTree'
+                   model: selectionHolder
+                   menu: queryTreeMenu
+                   hasHorizontalScrollBar: true
+                   hasVerticalScrollBar: true
+                   listModel: parseTree
+                   useIndex: false
+                   highlightMode: line
+                   useDefaultIcons: false
+                 )
+                (VariableVerticalPanelSpec
+                   name: 'VariableVerticalPanel1'
+                   snapMode: both
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (UISubSpecification
+                         name: 'SubSpecification1'
+                         minorKey: sourceTabSpec
+                       )
+                      (UISubSpecification
+                         name: 'SubSpecification2'
+                         minorKey: inspectorTabSpec
+                       )
+                      )
+                    
+                   )
+                   handles: (Any 0.6 1.0)
+                 )
+                )
+              
+             )
+             handles: (Any 0.3 1.0)
+           )
+          )
+        
+       )
+     )
+
+    "Modified: / 26-10-2015 / 11:35:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+windowSpecWithInspectorTabbed
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
 
@@ -246,6 +331,8 @@
         
        )
      )
+
+    "Created: / 26-10-2015 / 11:32:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 windowSpecWithoutInspector