NewLauncher.st
changeset 10845 c01d585f5a43
parent 10601 801ca2173f82
child 10847 aae16bffdd78
--- a/NewLauncher.st	Fri Oct 28 11:42:04 2011 +0200
+++ b/NewLauncher.st	Fri Oct 28 14:16:58 2011 +0200
@@ -847,21 +847,20 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec
-     NewLauncher new openInterface:#windowSpec
-     NewLauncher open
+     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec_old
+     NewLauncher new openInterface:#windowSpec_old
     "
 
     <resource: #canvas>
 
     ^ 
      #(FullSpec
-        name: windowSpec
+        name: #'windowSpec_old'
         window: 
        (WindowSpec
           label: 'ST/X Launcher'
-          name: 'Launcher'
-          min: (Point 374 44)
+          name: 'ST/X Launcher'
+          min: (Point 540 300)
           bounds: (Rectangle 0 0 291 202)
           menu: menu
           icon: windowIcon
@@ -880,6 +879,7 @@
               hasHorizontalScrollBar: true
               hasVerticalScrollBar: true
               miniScrollerHorizontal: true
+              hasKeyboardFocusInitially: false
             )
            (UISubSpecification
               name: 'infoBarSubSpec'
@@ -4315,7 +4315,7 @@
 
 preferredExtent
 
-    ^ super preferredExtent max: Screen current extent // (2.5 @ 3.5)
+    ^ super preferredExtent min: Screen current extent // (2.5 @ 3.5)
 !
 
 useNewSettingsApplication
@@ -4793,11 +4793,11 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.415 2011-08-19 10:19:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.416 2011-10-28 12:16:58 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.415 2011-08-19 10:19:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.416 2011-10-28 12:16:58 stefan Exp $'
 !
 
 version_SVN