# HG changeset patch
# User ca
# Date 948900980 -3600
# Node ID 572125002ce9823a208eac0e14cd02cef67e44ee
# Parent  0a45ef81b47e66150290f22e8e547d30d3c4e301
make tabable in LayoutFrame

diff -r 0a45ef81b47e -r 572125002ce9 UILayoutTool.st
--- a/UILayoutTool.st	Wed Jan 26 15:15:53 2000 +0100
+++ b/UILayoutTool.st	Wed Jan 26 16:36:20 2000 +0100
@@ -21,6 +21,13 @@
 	category:'Interface-UIPainter'
 !
 
+ApplicationModel subclass:#LayoutOrigin
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:UILayoutTool
+!
+
 ApplicationModel subclass:#LayoutFrame
 	instanceVariableNames:''
 	classVariableNames:''
@@ -35,6 +42,13 @@
 	privateIn:UILayoutTool
 !
 
+ApplicationModel subclass:#Point
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:UILayoutTool
+!
+
 ApplicationModel subclass:#AlignmentOrigin
 	instanceVariableNames:''
 	classVariableNames:''
@@ -42,13 +56,6 @@
 	privateIn:UILayoutTool
 !
 
-ApplicationModel subclass:#LayoutOrigin
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:UILayoutTool
-!
-
 ApplicationModel subclass:#Extent
 	instanceVariableNames:''
 	classVariableNames:''
@@ -56,13 +63,6 @@
 	privateIn:UILayoutTool
 !
 
-ApplicationModel subclass:#Point
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:UILayoutTool
-!
-
 !UILayoutTool class methodsFor:'documentation'!
 
 copyright
@@ -831,6 +831,84 @@
     self update
 ! !
 
+!UILayoutTool::LayoutOrigin class methodsFor:'interface specs'!
+
+windowSpec
+    "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:UILayoutTool::LayoutOrigin andSelector:#windowSpec
+     UILayoutTool::LayoutOrigin new openInterface:#windowSpec
+     UILayoutTool::LayoutOrigin open
+    "
+
+    <resource: #canvas>
+
+    ^
+     
+       #(#FullSpec
+          #window: 
+           #(#WindowSpec
+              #name: 'UILayoutTool-LayoutOrigin'
+              #layout: #(#LayoutFrame 290 0 420 0 647 0 565 0)
+              #label: 'UILayoutTool-LayoutOrigin'
+              #min: #(#Point 10 10)
+              #max: #(#Point 1152 900)
+              #bounds: #(#Rectangle 290 420 648 566)
+              #usePreferredExtent: false
+          )
+          #component: 
+           #(#SpecCollection
+              #collection: 
+               #(
+                 #(#UISubSpecification
+                    #name: 'layoutOriginSpec'
+                    #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 110 0)
+                    #majorKey: #UILayoutTool
+                    #minorKey: #layoutOriginSpec
+                )
+              )
+          )
+      )
+! !
+
+!UILayoutTool::LayoutOrigin methodsFor:'accessing'!
+
+fetch:aView spec:aSpec
+    "fetch layoutOrigin
+    "
+    |layout|
+
+    layout  := UIPainterView asLayoutFrameFromView:aView.
+
+    (self aspectFor:#leftOffset)   value:(layout leftOffset).
+    (self aspectFor:#leftFraction) value:(layout leftFraction).
+    (self aspectFor:#topOffset)    value:(layout topOffset).
+    (self aspectFor:#topFraction)  value:(layout topFraction).
+
+
+!
+
+layout
+    "returns current layout as layoutOrigin
+    "
+    |layout|
+
+    layout  := Smalltalk::LayoutOrigin new.
+
+    layout   leftOffset:((self aspectFor:#leftOffset)   value) ? 0.
+    layout    topOffset:((self aspectFor:#topOffset)    value) ? 0.
+    layout leftFraction:((self aspectFor:#leftFraction) value) ? 0.
+    layout  topFraction:((self aspectFor:#topFraction)  value) ? 0.
+
+  ^ layout
+
+! !
+
 !UILayoutTool::LayoutFrame class methodsFor:'help specs'!
 
 helpSpec
@@ -1113,7 +1191,7 @@
           #name: 'UILayoutTool-LayoutFrame'
           #min: #(#Point 10 10)
           #max: #(#Point 1152 900)
-          #bounds: #(#Rectangle 228 240 627 543)
+          #bounds: #(#Rectangle 12 22 411 325)
           #forceRecursiveBackground: false
         )
         #component: 
@@ -1264,9 +1342,14 @@
               )
             )
            #(#MenuPanelSpec
+              #attributes: 
+             #(#tabable
+                true
+              )
               #name: 'commonLayoutToolBar'
-              #layout: #(#LayoutFrame 10 0.0 224 0 0 1.0 256 0)
+              #layout: #(#LayoutFrame 6 0.0 231 0 -4 1.0 263 0)
               #level: 0
+              #tabable: true
               #menu: #commonFrameLayoutsMenu
               #textDefault: true
             )
@@ -1654,6 +1737,74 @@
 
 ! !
 
+!UILayoutTool::Point class methodsFor:'interface specs'!
+
+windowSpec
+    "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:UILayoutTool::Point andSelector:#windowSpec
+     UILayoutTool::Point new openInterface:#windowSpec
+     UILayoutTool::Point open
+    "
+
+    <resource: #canvas>
+
+    ^
+     
+       #(#FullSpec
+          #window: 
+           #(#WindowSpec
+              #name: 'UILayoutTool-Point'
+              #layout: #(#LayoutFrame 324 0 410 0 618 0 547 0)
+              #label: 'UILayoutTool-Point'
+              #min: #(#Point 10 10)
+              #max: #(#Point 1152 900)
+              #bounds: #(#Rectangle 324 410 619 548)
+              #usePreferredExtent: false
+          )
+          #component: 
+           #(#SpecCollection
+              #collection: 
+               #(
+                 #(#UISubSpecification
+                    #name: 'layoutPointSpec'
+                    #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 100 0)
+                    #majorKey: #UILayoutTool
+                    #minorKey: #layoutPointSpec
+                )
+              )
+          )
+      )
+! !
+
+!UILayoutTool::Point methodsFor:'accessing'!
+
+fetch:aView spec:aSpec
+    "fetch point
+    "
+    |origin|
+
+    origin  := aView computeOrigin.
+
+    (self aspectFor:#leftOffset) value:(origin x).
+    (self aspectFor:#topOffset)  value:(origin y).
+
+
+!
+
+layout
+    "returns current layout as point
+    "
+  ^ Smalltalk::Point x:(((self aspectFor:#leftOffset) value) ? 0)
+                     y:(((self aspectFor:#topOffset)  value) ? 0)
+
+! !
+
 !UILayoutTool::AlignmentOrigin class methodsFor:'help specs'!
 
 helpSpec
@@ -2070,84 +2221,6 @@
 
 ! !
 
-!UILayoutTool::LayoutOrigin class methodsFor:'interface specs'!
-
-windowSpec
-    "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:UILayoutTool::LayoutOrigin andSelector:#windowSpec
-     UILayoutTool::LayoutOrigin new openInterface:#windowSpec
-     UILayoutTool::LayoutOrigin open
-    "
-
-    <resource: #canvas>
-
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'UILayoutTool-LayoutOrigin'
-              #layout: #(#LayoutFrame 290 0 420 0 647 0 565 0)
-              #label: 'UILayoutTool-LayoutOrigin'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 290 420 648 566)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#UISubSpecification
-                    #name: 'layoutOriginSpec'
-                    #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 110 0)
-                    #majorKey: #UILayoutTool
-                    #minorKey: #layoutOriginSpec
-                )
-              )
-          )
-      )
-! !
-
-!UILayoutTool::LayoutOrigin methodsFor:'accessing'!
-
-fetch:aView spec:aSpec
-    "fetch layoutOrigin
-    "
-    |layout|
-
-    layout  := UIPainterView asLayoutFrameFromView:aView.
-
-    (self aspectFor:#leftOffset)   value:(layout leftOffset).
-    (self aspectFor:#leftFraction) value:(layout leftFraction).
-    (self aspectFor:#topOffset)    value:(layout topOffset).
-    (self aspectFor:#topFraction)  value:(layout topFraction).
-
-
-!
-
-layout
-    "returns current layout as layoutOrigin
-    "
-    |layout|
-
-    layout  := Smalltalk::LayoutOrigin new.
-
-    layout   leftOffset:((self aspectFor:#leftOffset)   value) ? 0.
-    layout    topOffset:((self aspectFor:#topOffset)    value) ? 0.
-    layout leftFraction:((self aspectFor:#leftFraction) value) ? 0.
-    layout  topFraction:((self aspectFor:#topFraction)  value) ? 0.
-
-  ^ layout
-
-! !
-
 !UILayoutTool::Extent class methodsFor:'help specs'!
 
 helpSpec
@@ -2307,74 +2380,6 @@
 
 ! !
 
-!UILayoutTool::Point class methodsFor:'interface specs'!
-
-windowSpec
-    "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:UILayoutTool::Point andSelector:#windowSpec
-     UILayoutTool::Point new openInterface:#windowSpec
-     UILayoutTool::Point open
-    "
-
-    <resource: #canvas>
-
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'UILayoutTool-Point'
-              #layout: #(#LayoutFrame 324 0 410 0 618 0 547 0)
-              #label: 'UILayoutTool-Point'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 324 410 619 548)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#UISubSpecification
-                    #name: 'layoutPointSpec'
-                    #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 100 0)
-                    #majorKey: #UILayoutTool
-                    #minorKey: #layoutPointSpec
-                )
-              )
-          )
-      )
-! !
-
-!UILayoutTool::Point methodsFor:'accessing'!
-
-fetch:aView spec:aSpec
-    "fetch point
-    "
-    |origin|
-
-    origin  := aView computeOrigin.
-
-    (self aspectFor:#leftOffset) value:(origin x).
-    (self aspectFor:#topOffset)  value:(origin y).
-
-
-!
-
-layout
-    "returns current layout as point
-    "
-  ^ Smalltalk::Point x:(((self aspectFor:#leftOffset) value) ? 0)
-                     y:(((self aspectFor:#topOffset)  value) ? 0)
-
-! !
-
 !UILayoutTool class methodsFor:'documentation'!
 
 version