# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 860456296 -7200
# Node ID b913c0f095ab287d2d80d5344b8262ba103776aa
# Parent  1887c994511b182837352a2dbd5886569414502d
checkin from browser

diff -r 1887c994511b -r b913c0f095ab UISelectionPanel.st
--- a/UISelectionPanel.st	Tue Apr 08 01:10:07 1997 +0200
+++ b/UISelectionPanel.st	Tue Apr 08 01:38:16 1997 +0200
@@ -99,7 +99,7 @@
 
     top := StandardSystemView new
         label:'UI-Selection Panel';
-        extent:480@200.
+        extent:480@280.
 
     view := self origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
 
@@ -121,6 +121,7 @@
 
     top open.
 
+    "Modified: 8.4.1997 / 01:13:53 / cg"
 ! !
 
 !UISelectionPanel class methodsFor:'default specifications'!
@@ -558,7 +559,7 @@
     <resource: #canvas>
 
     ^
-     
+
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
@@ -623,11 +624,27 @@
                     #'miniScrollerHorizontal:' false
                     #'miniScrollerVertical:' false
                 )
+                 #(#TextEditorSpec
+                    #'name:' 'EditTextView noH'
+                    #'layout:' #(#LayoutFrame 361 0 11 0 465 0 91 0)
+                    #'hasHorizontalScrollBar:' false
+                    #'hasVerticalScrollBar:' true
+                    #'miniScrollerHorizontal:' false
+                    #'miniScrollerVertical:' false
+                )
+                 #(#SequenceViewSpec
+                    #'name:' 'scrollableView2'
+                    #'layout:' #(#LayoutFrame 362 0 122 0 466 0 202 0)
+                    #'hasHorizontalScrollBar:' false
+                    #'hasVerticalScrollBar:' true
+                    #'miniScrollerHorizontal:' false
+                    #'miniScrollerVertical:' false
+                )
               )
           )
       )
 
-    "Modified: 8.4.1997 / 00:56:33 / cg"
+    "Modified: 8.4.1997 / 01:17:28 / cg"
 !
 
 viewsSpec
@@ -660,12 +677,12 @@
                  #(#FramedBoxSpec
                     #'name:' 'FramedBox'
                     #'layout:' #(#LayoutFrame 4 0 11 0 109 0 81 0)
-                    #'label:' 'FramedBox'
+                    #'label:' 'Frame'
                     #'labelPosition:' #topCenter
                     #'showFrame:' true
                 )
                  #(#ViewSpec
-                    #'name:' 'view1'
+                    #'name:' 'View'
                     #'layout:' #(#LayoutFrame 118 0 11 0 223 0 81 0)
                     #'component:' 
                      #(#SpecCollection
@@ -686,7 +703,7 @@
                     )
                 )
                  #(#SubCanvasSpec
-                    #'name:' 'subCanvas1'
+                    #'name:' 'SubCanvas'
                     #'layout:' #(#LayoutFrame 232 0 11 0 337 0 81 0)
                 )
                  #(#LabelSpec
@@ -713,6 +730,8 @@
               )
           )
       )
+
+    "Modified: 8.4.1997 / 01:15:10 / cg"
 ! !
 
 !UISelectionPanel methodsFor:'accessing'!
@@ -877,6 +896,7 @@
     inputView enableButtonEvents.
     inputView enableButtonMotionEvents.
     inputView enableMotionEvents.
+    inputView delegate:(KeyboardForwarder from:inputView toView:tabView).
 
     tabView tabWidget:#Window.
 
@@ -885,10 +905,12 @@
     tabView styleAt:#lableTopInset     put:0.
     tabView font:(Label defaultFont).
     tabView addDependent:self.
+    self delegate:(KeyboardForwarder from:self toView:tabView).
 
     window     viewBackground:(tabView styleAt:#selectedColor).
     labelView backgroundColor:(tabView styleAt:#unselectedColor).
 
+    "Modified: 8.4.1997 / 01:13:15 / cg"
 ! !
 
 !UISelectionPanel methodsFor:'searching'!