Merge pull request #59 from ba-st/58-Prepare-for-migration-to-Seaside-360

58 prepare for migration to seaside 360

Author: gcotelli

source/BaselineOfRenoirSt/BaselineOfRenoirSt.class.st

@@ -49,7 +49,7 @@ BaselineOfRenoirSt >> setUpDependencies: spec [
 		project: 'Buoy-Tools' copyFrom: 'Buoy' with: [ spec loads: 'Tools' ].
 
 	spec
-		baseline: 'Seaside3' with: [ spec repository: 'github://SeasideSt/Seaside:v3.5.x/repository' ];
+		baseline: 'Seaside3' with: [ spec repository: 'github://SeasideSt/Seaside:v3.6.x/repository' ];
 		project: 'Seaside3-Javascript' copyFrom: 'Seaside3' with: [ spec loads: 'Javascript' ]
 ]
 

source/RenoirSt-Seaside/CssAbstractDeclaration.extension.st

@@ -1,14 +1,11 @@
-Extension { #name : #CssAbstractDeclaration }
+Extension { #name : 'CssAbstractDeclaration' }
 
-{ #category : #'*RenoirSt-Seaside' }
-CssAbstractDeclaration >> javascriptOn: aStream [
+{ #category : '*RenoirSt-Seaside' }
+CssAbstractDeclaration >> javascriptOn: aRenderer [
 
-	aStream nextPut: $".
-	self property cssContentOn: aStream.
-	aStream
-		nextPut: $";
-		nextPut: $:;
-		nextPut: $".
-	self value cssContentOn: aStream.
-	aStream nextPut: $"
+	aRenderer
+		key: [
+			aRenderer string: ( String streamContents: [ :stream | self property cssContentOn: stream ] ) ]
+		value: [
+			aRenderer string: ( String streamContents: [ :stream | self value cssContentOn: stream ] ) ]
 ]

source/RenoirSt-Seaside/CssColorUnit.extension.st

@@ -1,9 +1,7 @@
-Extension { #name : #CssColorUnit }
+Extension { #name : 'CssColorUnit' }
 
-{ #category : #'*RenoirSt-Seaside' }
-CssColorUnit >> javascriptOn: aStream [
+{ #category : '*RenoirSt-Seaside' }
+CssColorUnit >> javascriptOn: aRenderer [
 
-	aStream nextPut: $".
-	self cssContentOn: aStream.
-	aStream nextPut: $"
+	aRenderer string: ( String streamContents: [ :stream | self cssContentOn: stream ] )
 ]

source/RenoirSt-Seaside/CssDeclarationBlock.extension.st

@@ -1,12 +1,12 @@
-Extension { #name : #CssDeclarationBlock }
+Extension { #name : 'CssDeclarationBlock' }
 
-{ #category : #'*RenoirSt-Seaside' }
+{ #category : '*RenoirSt-Seaside' }
 CssDeclarationBlock >> greaseString [
 
 	^ String streamContents: [ :stream | self printInlinedOn: stream ]
 ]
 
-{ #category : #'*RenoirSt-Seaside' }
+{ #category : '*RenoirSt-Seaside' }
 CssDeclarationBlock >> javascriptOn: aStream [
 
 	aStream nextPut: ${.

source/RenoirSt-Seaside/WATagBrush.extension.st

@@ -1,6 +1,6 @@
-Extension { #name : #WATagBrush }
+Extension { #name : 'WATagBrush' }
 
-{ #category : #'*RenoirSt-Seaside' }
+{ #category : '*RenoirSt-Seaside' }
 WATagBrush >> setStyleTo: aDeclarationAction [
 
 	| declarationBlock |

source/RenoirSt-Seaside/WAUrl.extension.st

@@ -1,6 +1,6 @@
-Extension { #name : #WAUrl }
+Extension { #name : 'WAUrl' }
 
-{ #category : #'*RenoirSt-Seaside' }
+{ #category : '*RenoirSt-Seaside' }
 WAUrl >> cssContentOn: aStream [
 
 	aStream nextPutAll: 'url("'.
@@ -12,7 +12,7 @@ WAUrl >> cssContentOn: aStream [
 	aStream nextPutAll: '")'
 ]
 
-{ #category : #'*RenoirSt-Seaside' }
+{ #category : '*RenoirSt-Seaside' }
 WAUrl >> cssContentRelativeToStyleSheetOn: aStream [
 
 	aStream nextPutAll: 'url("'.
@@ -22,7 +22,7 @@ WAUrl >> cssContentRelativeToStyleSheetOn: aStream [
 	aStream nextPutAll: '")'
 ]
 
-{ #category : #'*RenoirSt-Seaside' }
+{ #category : '*RenoirSt-Seaside' }
 WAUrl >> relativeToStyleSheet [
 
 	^UrlRelativeToStyleSheet on: self

source/RenoirSt-Seaside/package.st

@@ -1 +1 @@
-Package { #name : #'RenoirSt-Seaside' }
+Package { #name : 'RenoirSt-Seaside' }