--- a/ImageEditor.st Wed Jan 25 12:36:42 2006 +0100
+++ b/ImageEditor.st Wed Jan 25 13:22:34 2006 +0100
@@ -3459,16 +3459,17 @@
|p s x y|
p := Object readFromString:aString onError:nil.
- p notNil ifTrue:[^ p].
+ p isPoint ifTrue:[^ p].
s := aString readStream.
x := Number readFrom:s onError:nil.
x notNil ifTrue:[
s skipSeparators.
- [s atEnd not and:[s peek isDigit]] whileFalse:[s next].
+ [s atEnd not and:[s peek isDigit not]] whileTrue:[s next].
y := Number readFrom:s onError:nil.
^ x @ (y ? x)
].
+ ^ nil
!
sortBlockForColors
@@ -4988,9 +4989,12 @@
ifTrue:[
szString := (aspects at:#selectionOfSize) value.
ext := self pointFromString:szString.
- width := ext x.
- height := ext y.
-
+ ext isNil ifTrue:[
+ width := height := 32
+ ] ifFalse:[
+ width := ext x.
+ height := ext y.
+ ].
"/ width := "128 min: "(Integer readFromString: (szString upTo: $x) onError:[32]).
"/ height := "128 min: " (Integer readFromString: (szString copy reverse upTo: $x) reverse onError:[32]).