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