# HG changeset patch
# User ca
# Date 864815720 -7200
# Node ID 8f4b6117ccaa3d51b4bfb7b58d7e78486f7677b8
# Parent  d5ab85ec27fd9c837ec3871d57a6b97d9bf429cd
new withDefault

diff -r d5ab85ec27fd -r 8f4b6117ccaa UISelectionPanel.st
--- 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'!