--- a/Launcher.st	Sat Apr 25 18:33:46 1998 +0200
+++ b/Launcher.st	Sat Apr 25 18:45:44 1998 +0200
@@ -7165,7 +7165,8 @@
     self foo:methodArg.
     self bar:methodVar.
     "self bar:methodVar.  detect commented code easily"
-    Transcript baz:(self baz + 1) negated.
+    1 to:5 do:[:i | self baz:i + 1].
+    Transcript showCR:''some string'' , #someSymbol.
 '.
 
     coloredText := '' asValue.
@@ -7179,17 +7180,17 @@
     box label:(resources string:'Syntax Colors').
 
     frame := View new.
-    frame extent:300 @ 300.
+    frame extent:1.0 @ 200.
     frame borderWidth:0.
 
-    exampleView := ScrollableView for:TextView in:frame.
+    exampleView := HVScrollableView for:TextView in:frame.
     exampleView model:coloredText.
     exampleView origin:0.0@0.0 corner:1.0@1.0; inset:2.
 
     frame topInset:box yPosition.
-    box addComponent:frame withExtent:350@200.
+    box addComponent:frame withExtent:1.0@200.
     box makeTabable:exampleView. 
-"/    frame origin:0.0@0.0 corner:1.0@0.6.
+    frame width:1.0.
 
     box addVerticalSpace.
 
@@ -7226,6 +7227,7 @@
     "/
     "/ show the box ...
     "/
+    box extent:400@300.
     box openModal.
 
     "/
@@ -7245,5 +7247,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.329 1998-04-25 16:33:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.330 1998-04-25 16:45:44 cg Exp $'
 ! !