SeasideSt · theseion · Oct 31, 2023 · Oct 31, 2023 · Oct 31, 2023 · Oct 31, 2023
diff --git a/repository/BaselineOfGrease.package/.filetree b/repository/BaselineOfGrease.package/.filetree
@@ -1,4 +1,5 @@
 {
-	"noMethodMetaData" : true,
 	"separateMethodMetaAndSource" : false,
-	"useCypressPropertiesFile" : true }
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}
diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st
@@ -52,7 +52,7 @@ baselinePharo: spec
 				group: 'Slime Tests' with: #('Grease-Tests-Slime') ].
 
 	spec
-		for: #(#'pharo10.x' #'pharo11.x' #'pharo12.x')
+		for: #(#'pharo10.x' #'pharo11.x')
 		do: [
 			spec
 				package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo100-Core') ];
@@ -67,4 +67,22 @@ baselinePharo: spec
 
 			spec
 				group: 'Slime' with: #('Grease-Pharo90-Slime');
-				group: 'Slime Tests' with: #('Grease-Tests-Slime') ]
+				group: 'Slime Tests' with: #('Grease-Tests-Slime') ].
+
+	spec
+		for: #(#'pharo12.x')
+		do: [
+			spec
+				package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo120-Core') ];
+				package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ];
+				package: 'Grease-Tests-Core'
+					with: [ spec
+						requires: #('Grease-Pharo120-Core');
+						includes: #('Grease-Tests-Pharo-Core') ];
+				package: 'Grease-Pharo120-Core' with: [ spec requires: #('Grease-Core') ];
+				package: 'Grease-Pharo120-Slime' with: [ spec requires: #('Grease-Core') ];
+				package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo120-Slime') ].
+
+			spec
+				group: 'Slime' with: #('Grease-Pharo120-Slime');
+				group: 'Slime Tests' with: #('Grease-Tests-Slime') ]
diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json b/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json
@@ -1,14 +1,11 @@
 {
-	"category" : "BaselineOfGrease",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "",
-	"instvars" : [
-		 ],
-	"name" : "BaselineOfGrease",
-	"pools" : [
-		 ],
 	"super" : "BaselineOf",
-	"type" : "normal" }
+	"category" : "BaselineOfGrease",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "BaselineOfGrease",
+	"type" : "normal"
+}
diff --git a/repository/BaselineOfGrease.package/monticello.meta/categories.st b/repository/BaselineOfGrease.package/monticello.meta/categories.st
@@ -1,2 +1 @@
-SystemOrganization addCategory: #BaselineOfGrease!
-SystemOrganization addCategory: #'BaselineOfGrease-Manifest'!
+self packageOrganizer ensurePackage: #BaselineOfGrease withTags: #('Manifest' 'Manifest-BaselineOfGrease')!
diff --git a/repository/BaselineOfGrease.package/properties.json b/repository/BaselineOfGrease.package/properties.json
@@ -1,2 +1 @@
-{
-	 }
+{ }
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/classSideOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/classSideOf..st
@@ -0,0 +1,3 @@
+tests
+classSideOf: aClass
+	^ aClass theMetaClass
diff --git a/...Core.package/GRPlatform.class/instance/defineClass.superclassName.category.forRBModel..st b/...Core.package/GRPlatform.class/instance/defineClass.superclassName.category.forRBModel..st
@@ -0,0 +1,7 @@
+tests
+defineClass: aClassSymbol superclassName: aSuperSymbol category: aString forRBModel: aModel
+	^ aModel defineClass: aSuperSymbol , ' subclass: #' , aClassSymbol , '
+		instanceVariableNames: '''' 
+		classVariableNames: ''''
+		poolDictionaries: ''''
+		category: ''' , aString , ''''
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/removeCategory..st b/repository/Grease-Core.package/GRPlatform.class/instance/removeCategory..st
@@ -0,0 +1,6 @@
+tests
+removeCategory: aString
+	(Smalltalk organization listAtCategoryNamed: aString) do:[ :e | 
+		SmalltalkImage current removeClassNamed: e ].
+	Smalltalk organization
+		removeCategory: aString
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/selectorsInProtocol.ofClass..st b/repository/Grease-Core.package/GRPlatform.class/instance/selectorsInProtocol.ofClass..st
@@ -0,0 +1,3 @@
+tests
+selectorsInProtocol: aString ofClass: aClass
+	^ aClass organization listAtCategoryNamed: aString
diff --git a/repository/Grease-Core.package/monticello.meta/categories.st b/repository/Grease-Core.package/monticello.meta/categories.st
@@ -1,5 +1 @@
-SystemOrganization addCategory: #'Grease-Core'!
-SystemOrganization addCategory: #'Grease-Core-Collections'!
-SystemOrganization addCategory: #'Grease-Core-Exceptions'!
-SystemOrganization addCategory: #'Grease-Core-Text'!
-SystemOrganization addCategory: #'Grease-Core-Utilities'!
+self packageOrganizer ensurePackage: #'Grease-Core' withTags: #(#Collections #Exceptions #Text #Utilities)!
diff --git a/repository/Grease-Pharo120-Core.package/.filetree b/repository/Grease-Pharo120-Core.package/.filetree
@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}
diff --git a/repository/Grease-Pharo120-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo120-Core.package/Behavior.extension/instance/fullName.st
@@ -0,0 +1,5 @@
+*Grease-Pharo120-Core
+fullName
+	"In VW, will include the namespace"
+
+	^ self name
diff --git a/repository/Grease-Pharo120-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo120-Core.package/Behavior.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Behavior"
+}
diff --git a/...ease-Pharo120-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/...ease-Pharo120-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st
@@ -0,0 +1,11 @@
+*Grease-Pharo120-Core
+valueWithPossibleArguments: anArray
+	| args |
+	(anArray size == self numArgs)
+		ifTrue: [ ^ self valueWithArguments: anArray ].
+	args := Array new: self numArgs.
+	args replaceFrom: 1
+		to: (anArray size min: args size)
+		with: anArray
+		startingAt: 1.
+	^ self valueWithArguments: args
diff --git a/repository/Grease-Pharo120-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo120-Core.package/BlockClosure.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "BlockClosure"
+}
diff --git a/repository/Grease-Pharo120-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo120-Core.package/ByteArray.extension/instance/greaseString.st
@@ -0,0 +1,4 @@
+*Grease-Pharo120-Core
+greaseString
+	"ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this."
+	^ self printString
diff --git a/repository/Grease-Pharo120-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo120-Core.package/ByteArray.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "ByteArray"
+}
diff --git a/repository/Grease-Pharo120-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo120-Core.package/Character.extension/instance/greaseInteger.st
@@ -0,0 +1,4 @@
+*Grease-Pharo120-Core
+greaseInteger
+	"Answer an unicode code point of the receiver."
+	^ self charCode
diff --git a/repository/Grease-Pharo120-Core.package/Character.extension/properties.json b/repository/Grease-Pharo120-Core.package/Character.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Character"
+}
diff --git a/repository/Grease-Pharo120-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo120-Core.package/Collection.extension/instance/any.st
@@ -0,0 +1,3 @@
+*Grease-Pharo120-Core
+any
+	^ self anyOne
diff --git a/repository/Grease-Pharo120-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo120-Core.package/Collection.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Collection"
+}
diff --git a/repository/Grease-Pharo120-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo120-Core.package/Color.extension/instance/asHTMLColor.st
@@ -0,0 +1,3 @@
+*Grease-Pharo120-Core
+asHTMLColor
+	^'#', self asHexString
diff --git a/repository/Grease-Pharo120-Core.package/Color.extension/properties.json b/repository/Grease-Pharo120-Core.package/Color.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Color"
+}
diff --git a/repository/Grease-Pharo120-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo120-Core.package/Duration.extension/class/milliseconds..st
@@ -0,0 +1,3 @@
+*Grease-Pharo120-Core
+milliseconds: anInteger
+	^ self milliSeconds: anInteger
diff --git a/repository/Grease-Pharo120-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo120-Core.package/Duration.extension/instance/asMilliseconds.st
@@ -0,0 +1,3 @@
+*Grease-Pharo120-Core
+asMilliseconds
+	^ self asMilliSeconds
diff --git a/repository/Grease-Pharo120-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo120-Core.package/Duration.extension/instance/milliseconds.st
@@ -0,0 +1,3 @@
+*Grease-Pharo120-Core
+milliseconds
+	^ nanos quo: NanosInMillisecond
diff --git a/repository/Grease-Pharo120-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo120-Core.package/Duration.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Duration"
+}
diff --git a/...ro120-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/...ro120-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st
@@ -0,0 +1,3 @@
+*Grease-Pharo120-Core
+greaseNext: anInteger putAll: aCollection startingAt: startIndex
+	stream greaseNext: anInteger putAll: aCollection startingAt: startIndex
diff --git a/repository/Grease-Pharo120-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo120-Core.package/GRDelegatingStream.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "GRDelegatingStream"
+}
diff --git a/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/README.md
diff --git a/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/class/defaultValue.st
@@ -0,0 +1,3 @@
+defaults
+defaultValue
+	^ nil
diff --git a/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/class/use.during..st
@@ -0,0 +1,5 @@
+accessing
+use: anObject during: aBlock
+	^ self
+		value: anObject
+		during: aBlock
diff --git a/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/instance/default.st
@@ -0,0 +1,3 @@
+accessing
+default
+	^ self class defaultValue
diff --git a/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo120-Core.package/GRDynamicVariable.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "DynamicVariable",
+	"category" : "Grease-Pharo120-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRDynamicVariable",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Pharo120-Core.package/GRPackage.extension/class/greasePharo100Core.st b/repository/Grease-Pharo120-Core.package/GRPackage.extension/class/greasePharo100Core.st
@@ -0,0 +1,7 @@
+*Grease-Pharo120-Core
+greasePharo100Core
+	^ self new
+		name: 'Grease-Pharo100-Core';
+		addDependency: 'Grease-Core';
+		url: #greaseUrl;
+		yourself
diff --git a/repository/Grease-Pharo120-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo120-Core.package/GRPackage.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "GRPackage"
+}
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/README.md
@@ -0,0 +1 @@
+A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping).
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st
@@ -0,0 +1,5 @@
+private
+basicForEncoding: aString
+	(self supportsEncoding: aString)
+		ifFalse: [ self unsupportedEncoding: aString ].
+	^ self basicNew initializeWithName: aString
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/class/codecs.st
@@ -0,0 +1,3 @@
+accessing
+codecs
+	^ Array with: (self basicForEncoding: 'iso-8859-1')
diff --git a/...ory/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/...ory/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st
@@ -0,0 +1,3 @@
+private
+supportedEncodingNames
+	^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1')
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st
@@ -0,0 +1,4 @@
+private
+supportsEncoding: aString
+	"Answer whether the the given encoding name is supported."
+	^ self supportedEncodingNames includes: aString
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/decode..st
@@ -0,0 +1,5 @@
+conversion
+decode: aStringOrByteArray
+	"Overridden for efficencey."
+
+	^ aStringOrByteArray asString
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st
@@ -0,0 +1,4 @@
+conversion
+decoderFor: aReadStream
+	"wrap to avoid String vs ByteArray issues"
+	^ GRPharoLatin1CodecStream on: aReadStream
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st
@@ -0,0 +1,4 @@
+conversion
+encoderFor: aWriteStream
+	"wrap to avoid String vs ByteArray issues"
+	^ GRPharoLatin1CodecStream on: aWriteStream
diff --git a/...ory/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/...ory/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st
@@ -0,0 +1,4 @@
+initialization
+initializeWithName: aString
+	self initialize.
+	name := aString
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/instance/name.st
@@ -0,0 +1,3 @@
+accessing
+name
+	^ name
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo120-Core.package/GRPharoLatin1Codec.class/properties.json
@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "<historical>",
+	"super" : "GRNullCodec",
+	"category" : "Grease-Pharo120-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"name"
+	],
+	"name" : "GRPharoLatin1Codec",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo120-Core.package/GRPharoLatin1CodecStream.class/README.md
@@ -0,0 +1 @@
+A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping).
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1CodecStream.class/instance/next..st
@@ -0,0 +1,3 @@
+streaming
+next: anInteger
+	^ (stream next: anInteger) asString
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo120-Core.package/GRPharoLatin1CodecStream.class/instance/next.st
@@ -0,0 +1,3 @@
+streaming
+next
+	^ Character value: stream next
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo120-Core.package/GRPharoLatin1CodecStream.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "<historical>",
+	"super" : "GRNullCodecStream",
+	"category" : "Grease-Pharo120-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRPharoLatin1CodecStream",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/README.md
@@ -0,0 +1 @@
+A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way.
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/class/initialize.st
@@ -0,0 +1,5 @@
+class initialization
+initialize
+	self initializeXmlTable.
+	self initializeUrlTable.
+	self select
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st
@@ -0,0 +1,7 @@
+class initialization
+initializeUrlTable
+	UrlTable := ByteArray new: 256.
+	1 to: 256 do: [ :index |
+		('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1))
+			ifTrue: [ UrlTable at: index put: 0 ]
+			ifFalse: [ UrlTable at: index put: 1 ] ]
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st
@@ -0,0 +1,7 @@
+class initialization
+initializeXmlTable
+	XmlTable := ByteArray new: 256.
+	1 to: 256 do: [ :index |
+		('"<&>' includes: (Character codePoint: index - 1))
+			ifTrue: [ XmlTable at: index put: 1 ]
+			ifFalse: [ XmlTable at: index put: 0 ] ]
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/class/unload.st
@@ -0,0 +1,3 @@
+class initialization
+unload
+	self unselect
diff --git a/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo120-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st
@@ -0,0 +1,5 @@
+startup
+addToShutDownList: anObject
+	"Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject."
+
+	Smalltalk addToShutDownList: anObject
-Original file line number
+Diff line change
@@ -1,2 +1 @@
-    {
-    	 }
+    { }
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping).
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping).
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way.