--- 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'!