sources migrated

src/.properties

@@ -1,3 +1,4 @@
 {
-	#format : #filetree
+	#format : #tonel
+}
 }

src/BaselineOfMaterialColors/BaselineOfMaterialColors.class.st

@@ -0,0 +1,57 @@
+"
+I am a baseline of MaterialColors. 
+Read more at: https://github.com/DuneSt/MaterialColors
+"
+Class {
+	#name : #BaselineOfMaterialColors,
+	#superclass : #BaselineOf,
+	#category : 'BaselineOfMaterialColors'
+}
+
+{ #category : #baseline }
+BaselineOfMaterialColors >> baseline: spec [
+	<baseline>
+	spec
+		for: #common
+		do: [
+			"Packages"
+			spec
+				package: 'Material-Design-Colors';
+				package: 'Material-Design-Tests-Colors' with: [ spec requires: 'Material-Design-Colors' ].
+
+			"Groups"
+			spec
+				group: 'Core' with: #('Material-Design-Colors');
+				group: 'all' with: #('default');
+				group: 'Tests' with: #('Material-Design-Tests-Colors') ].
+	self 
+		pharo: spec;
+		gemStone: spec
+]
+
+{ #category : #baseline }
+BaselineOfMaterialColors >> gemStone: spec [
+	spec
+		for: #gemstone
+		do: [ spec
+				package: 'PackageManifest' with: [ spec repository: 'http://smalltalkhub.com/mc/pdebruic/PackageManifest/main' ];
+				package: 'Material-Design-Colors' with: [ spec requires: 'PackageManifest' ];
+				package: 'Material-Design-Colors-Platform-Gemstone' with: [ spec requires: 'Material-Design-Colors' ];
+				package: 'Material-Design-Colors' with: [ spec includes: 'Material-Design-Colors-Platform-Gemstone' ] ]
+]
+
+{ #category : #baseline }
+BaselineOfMaterialColors >> pharo: spec [
+	spec
+		for: #pharo
+		do: [ spec
+				package: 'Material-Design-Colors-Platform-Pharo' with: [ spec requires: 'Material-Design-Colors' ];
+				package: 'Material-Design-Colors' with: [ spec includes: 'Material-Design-Colors-Platform-Pharo' ] ]
+]
+
+{ #category : #accessing }
+BaselineOfMaterialColors >> projectClass [
+	^ [ self class environment at: #MetacelloCypressBaselineProject ]
+		on: NotFound
+		do: [ super projectClass ]
+]

src/BaselineOfMaterialColors/package.st

@@ -0,0 +1 @@
+Package { #name : #BaselineOfMaterialColors }

src/Material-Design-Colors-Platform-Gemstone/MaterialColorGemstonePlatform.class.st

@@ -0,0 +1,28 @@
+"
+Description
+--------------------
+
+I contain the Gemstone specific code of MaterialDesignColors
+"
+Class {
+	#name : #MaterialColorGemstonePlatform,
+	#superclass : #MaterialColorPlatform,
+	#category : 'Material-Design-Colors-Platform-Gemstone'
+}
+
+{ #category : #'initialize-release' }
+MaterialColorGemstonePlatform class >> initialize [
+	self register
+]
+
+{ #category : #accessing }
+MaterialColorGemstonePlatform >> allSelectorsOf: aClass from: aSymbol [
+	"Return the lists of selectors understood by <aClass> and categorized in a protocol named <aSymbol>"
+
+	^ aClass allSelectors select: [ :selector | (aClass categoryOfSelector: selector) = aSymbol ]
+]
+
+{ #category : #testing }
+MaterialColorGemstonePlatform >> isGemstone [
+	^ true
+]

src/Material-Design-Colors-Platform-Gemstone/package.st

@@ -0,0 +1 @@
+Package { #name : #'Material-Design-Colors-Platform-Gemstone' }

src/Material-Design-Colors-Platform-Pharo/MaterialColorPharoPlatform.class.st

@@ -0,0 +1,28 @@
+"
+Description
+--------------------
+
+Platform managing the Pharo specific code of MaterialDesignColors.
+"
+Class {
+	#name : #MaterialColorPharoPlatform,
+	#superclass : #MaterialColorPlatform,
+	#category : 'Material-Design-Colors-Platform-Pharo'
+}
+
+{ #category : #'initialize-release' }
+MaterialColorPharoPlatform class >> initialize [
+	self register
+]
+
+{ #category : #accessing }
+MaterialColorPharoPlatform >> allSelectorsOf: aClass from: aSymbol [
+	"Return the lists of selectors understood by <aClass> and categorized in a protocol named <aSymbol>"
+
+	^ aClass allMethods select: [ :each | each protocol = aSymbol ] thenCollect: #selector
+]
+
+{ #category : #testing }
+MaterialColorPharoPlatform >> isPharo [
+	^ true
+]

src/Material-Design-Colors-Platform-Pharo/package.st

@@ -0,0 +1 @@
+Package { #name : #'Material-Design-Colors-Platform-Pharo' }