checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 01 Mar 1997 02:07:44 +0100
changeset 1048 54e004b62d30
parent 1047 44418428b4ed
child 1049 3223853742a4
checkin from browser
Launcher.st
--- a/Launcher.st	Fri Feb 28 14:00:40 1997 +0100
+++ b/Launcher.st	Sat Mar 01 02:07:44 1997 +0100
@@ -1436,7 +1436,7 @@
     sizeX := screen widthInMillimeter asValue.
     sizeY := screen heightInMillimeter asValue.
 
-    ditherList := SelectionInList with:sizeNames.
+    ditherList := SelectionInList new.
 
     (visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
         ditherStyles := #('threshold' 'ordered dither' 'error diffusion').
@@ -1519,7 +1519,7 @@
     ditherSyms notNil ifTrue:[
         box addVerticalSpace.
         component := box addPopUpList:(resources string:'image display:') on:ditherList.
-        component label:'image display'.
+        component defaultLabel:'image display'.
         component superView horizontalLayout:#leftSpace.
     ].
 
@@ -1561,7 +1561,7 @@
     box destroy
 
     "Modified: 9.9.1996 / 22:43:04 / stefan"
-    "Modified: 8.1.1997 / 14:52:42 / cg"
+    "Modified: 1.3.1997 / 02:06:13 / cg"
 !
 
 fontSettings
@@ -4582,5 +4582,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.252 1997-02-28 13:00:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.253 1997-03-01 01:07:44 cg Exp $'
 ! !