--- a/UISelectionPanel.st Wed May 28 12:27:24 1997 +0200
+++ b/UISelectionPanel.st Wed May 28 12:35:20 1997 +0200
@@ -71,7 +71,7 @@
!UISelectionPanel class methodsFor:'instance creation'!
-open
+newDefault
|appl|
appl := self new.
@@ -93,8 +93,15 @@
)
receiver:self.
+ ^ appl.
+!
+
+open
+ |appl|
+
+ appl := self newDefault.
appl open.
- ^ appl.
+ ^ appl.
! !
!UISelectionPanel class methodsFor:'default specs'!
@@ -621,12 +628,7 @@
#(#InputFieldSpec
#'name:' 'EditField'
#'layout:' #(#LayoutFrame 20 0 20 0 115 0 42 0)
- #'immediateAccept:' false
- #'acceptOnLeave:' true
- #'acceptOnReturn:' true
- #'acceptOnTab:' true
- #'acceptOnLostFocus:' true
- #'hasBorder:' false
+ #'immediateAccept:' true
)
#(#LabelSpec
#'name:' 'Text Label'
@@ -704,7 +706,7 @@
<resource: #canvas>
^
-
+
#(#FullSpec
#'window:'
#(#WindowSpec
@@ -719,22 +721,22 @@
#(
#(#FramedBoxSpec
#'name:' 'FramedBox'
- #'layout:' #(#LayoutFrame 20 0 20 0 122 0 95 0)
+ #'layout:' #(#LayoutFrame 8 0 20 0 110 0 85 0)
#'label:' 'FramedBox'
#'labelPosition:' #topCenter
#'showFrame:' true
)
#(#ViewSpec
#'name:' 'View'
- #'layout:' #(#LayoutFrame 134 0 20 0 236 0 95 0)
+ #'layout:' #(#LayoutFrame 124 0 20 0 206 0 85 0)
)
#(#SubCanvasSpec
#'name:' 'SubCanvas'
- #'layout:' #(#LayoutFrame 250 0 20 0 352 0 95 0)
+ #'layout:' #(#LayoutFrame 218 0 20 0 311 0 85 0)
)
#(#LabelSpec
#'name:' 'subCanvasLabel'
- #'layout:' #(#LayoutFrame 266 0 25 0 337 0 42 0)
+ #'layout:' #(#LayoutFrame 230 0 25 0 301 0 42 0)
#'label:' 'SubCanvas'
#'level:' 0
#'adjust:' #center
@@ -743,27 +745,43 @@
)
#(#DividerSpec
#'name:' 'Horizontal Seperator'
- #'layout:' #(#LayoutFrame 20 0 111 0 353 0 128 0)
+ #'layout:' #(#LayoutFrame 8 0 93 0 110 0 110 0)
#'orientation:' #horizontal
)
#(#DividerSpec
#'name:' 'Vertical Seperator'
- #'layout:' #(#LayoutFrame 364 0 20 0 383 0 128 0)
+ #'layout:' #(#LayoutFrame 124 0 93 0 143 0 171 0)
#'orientation:' #vertical
)
#(#LabelSpec
#'name:' 'viewLabel'
- #'layout:' #(#LayoutFrame 160 0 25 0 211 0 42 0)
+ #'layout:' #(#LayoutFrame 138 0 25 0 189 0 42 0)
#'label:' 'View'
#'level:' 0
#'adjust:' #center
#'hasCharacterOrientedLabel:' true
#'canUIDrag:' false
)
+ #(#HTMLViewSpec
+ #'name:' 'HTMLView'
+ #'layout:' #(#LayoutFrame 324 0 20 0 449 0 85 0)
+ #'hasHorizontalScrollBar:' false
+ #'hasVerticalScrollBar:' true
+ #'miniScrollerHorizontal:' false
+ #'miniScrollerVertical:' false
+ )
+ #(#LabelSpec
+ #'name:' 'HTMLViewLabel'
+ #'layout:' #(#LayoutFrame 355 0 25 0 436 0 42 0)
+ #'label:' 'HTML View'
+ #'level:' 0
+ #'adjust:' #center
+ #'hasCharacterOrientedLabel:' true
+ #'canUIDrag:' false
+ )
)
)
)
-
! !
!UISelectionPanel class methodsFor:'interface specs'!