*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 25 Jan 2006 12:36:42 +0100
changeset 1961 d9082e597adb
parent 1960 62c7258f3c31
child 1962 9166ba3ce7c3
*** empty log message ***
ImageEditor.st
--- a/ImageEditor.st	Wed Jan 25 12:27:59 2006 +0100
+++ b/ImageEditor.st	Wed Jan 25 12:36:42 2006 +0100
@@ -3467,9 +3467,7 @@
         s skipSeparators.
         [s atEnd not and:[s peek isDigit]] whileFalse:[s next].
         y := Number readFrom:s onError:nil.
-        y notNil ifTrue:[
-            ^x@y
-        ]
+        ^ x @ (y ? x)
     ].
 !