Small changes to help load the code into GS64 without breaking Pharo …

…code.
ba-st · Nov 29, 2018 · e5e4cfc · e5e4cfc
1 parent 900c5bf
commit e5e4cfc
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 2 deletions.
diff --git a/source/RenoirSt-Tests/CssRadialGradientTest.class.st b/source/RenoirSt-Tests/CssRadialGradientTest.class.st
@@ -39,7 +39,7 @@ CssRadialGradientTest >> testEllipseGradientPositioned [
 
 	| gradient |
 
-	gradient := CssRadialGradient elliptical: {5 em. 3 em} at: { 5px . 30 px} fading: #(#white #red).
+	gradient := CssRadialGradient elliptical: {5 em. 3 em} at: { 5 px. 30 px} fading: #(#white #red).
 	self assert: gradient printString equals: 'radial-gradient(5em 3em ellipse at 5px 30px, white, red)'
 ]
 

diff --git a/source/RenoirSt/CssIdSelector.class.st b/source/RenoirSt/CssIdSelector.class.st
@@ -30,7 +30,9 @@ CssIdSelector class >> for: anId over: aSelector [
 CssIdSelector >> cssContentOn: aStream [
 
 	selector cssContentOn: aStream.
-	aStream nextPutAll: id printString
+	aStream
+		nextPut: $#;
+		nextPutAll: id greaseString
 ]
 
 { #category : #'initialize-release' }

diff --git a/source/RenoirSt/CssObject.class.st b/source/RenoirSt/CssObject.class.st
@@ -29,6 +29,12 @@ CssObject class >> lookupValue: aNamedConstantOrValue [
 		ifFalse: [ CssConstants at: aNamedConstantOrValue ifAbsent: [ self lookupColor: aNamedConstantOrValue ] ]
 ]
 
+{ #category : #Printing }
+CssObject >> asString [
+
+	^ self printString
+]
+
 { #category : #Printing }
 CssObject >> cssContentOn: aStream [