diff --git a/src/.filetree b/src/.filetree deleted file mode 100644 index c6704e5..0000000 --- a/src/.filetree +++ /dev/null @@ -1,2 +0,0 @@ -{"packageExtension" : ".package", -"propertyFileExtension" : ".json" } \ No newline at end of file diff --git a/src/.properties b/src/.properties index c2bedd4..b3fb91f 100644 --- a/src/.properties +++ b/src/.properties @@ -1,3 +1,4 @@ { - #format : #filetree + #format : #tonel +} } \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/.filetree b/src/BaselineOfMaterialColors.package/.filetree deleted file mode 100644 index 57a6797..0000000 --- a/src/BaselineOfMaterialColors.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/README.md b/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/README.md deleted file mode 100644 index d5135cd..0000000 --- a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/README.md +++ /dev/null @@ -1,2 +0,0 @@ -I am a baseline of MaterialColors. -Read more at: https://github.com/DuneSt/MaterialColors \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/baseline..st b/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/baseline..st deleted file mode 100644 index c9ea221..0000000 --- a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/baseline..st +++ /dev/null @@ -1,19 +0,0 @@ -baseline -baseline: spec - - 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 \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/gemStone..st b/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/gemStone..st deleted file mode 100644 index 86974e6..0000000 --- a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/gemStone..st +++ /dev/null @@ -1,9 +0,0 @@ -baseline -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' ] ] \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/pharo..st b/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/pharo..st deleted file mode 100644 index be743ce..0000000 --- a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/pharo..st +++ /dev/null @@ -1,7 +0,0 @@ -baseline -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' ] ] \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/projectClass.st b/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/projectClass.st deleted file mode 100644 index 319afc3..0000000 --- a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/instance/projectClass.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -projectClass - ^ [ self class environment at: #MetacelloCypressBaselineProject ] - on: NotFound - do: [ super projectClass ] \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/properties.json b/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/properties.json deleted file mode 100644 index e87e66c..0000000 --- a/src/BaselineOfMaterialColors.package/BaselineOfMaterialColors.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "CyrilFerlicot 2/6/2017 10:08", - "super" : "BaselineOf", - "category" : "BaselineOfMaterialColors", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "BaselineOfMaterialColors", - "type" : "normal" -} \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/monticello.meta/categories.st b/src/BaselineOfMaterialColors.package/monticello.meta/categories.st deleted file mode 100644 index ca5eb7f..0000000 --- a/src/BaselineOfMaterialColors.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #BaselineOfMaterialColors! diff --git a/src/BaselineOfMaterialColors.package/monticello.meta/initializers.st b/src/BaselineOfMaterialColors.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/src/BaselineOfMaterialColors.package/monticello.meta/package b/src/BaselineOfMaterialColors.package/monticello.meta/package deleted file mode 100644 index 2d1a8b9..0000000 --- a/src/BaselineOfMaterialColors.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'BaselineOfMaterialColors') \ No newline at end of file diff --git a/src/BaselineOfMaterialColors.package/properties.json b/src/BaselineOfMaterialColors.package/properties.json deleted file mode 100644 index 6f31cf5..0000000 --- a/src/BaselineOfMaterialColors.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/src/BaselineOfMaterialColors/BaselineOfMaterialColors.class.st b/src/BaselineOfMaterialColors/BaselineOfMaterialColors.class.st new file mode 100644 index 0000000..7cd916c --- /dev/null +++ b/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 [ + + 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 ] +] diff --git a/src/BaselineOfMaterialColors/package.st b/src/BaselineOfMaterialColors/package.st new file mode 100644 index 0000000..81889ab --- /dev/null +++ b/src/BaselineOfMaterialColors/package.st @@ -0,0 +1 @@ +Package { #name : #BaselineOfMaterialColors } diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/.filetree b/src/Material-Design-Colors-Platform-Gemstone.package/.filetree deleted file mode 100644 index 57a6797..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/README.md b/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/README.md deleted file mode 100644 index 392cf52..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -Description --------------------- - -I contain the Gemstone specific code of MaterialDesignColors \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/class/initialize.st b/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/class/initialize.st deleted file mode 100644 index deeb0ea..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/class/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - self register \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/instance/allSelectorsOf.from..st b/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/instance/allSelectorsOf.from..st deleted file mode 100644 index ecd9292..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/instance/allSelectorsOf.from..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -allSelectorsOf: aClass from: aSymbol - "Return the lists of selectors understood by and categorized in a protocol named " - - ^ aClass allSelectors select: [ :selector | (aClass categoryOfSelector: selector) = aSymbol ] \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/instance/isGemstone.st b/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/instance/isGemstone.st deleted file mode 100644 index 55a2204..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/instance/isGemstone.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isGemstone - ^ true \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/properties.json b/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/properties.json deleted file mode 100644 index 90adcd9..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/MaterialColorGemstonePlatform.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "CyrilFerlicot 7/4/2018 18:07", - "super" : "MaterialColorPlatform", - "category" : "Material-Design-Colors-Platform-Gemstone", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "MaterialColorGemstonePlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/monticello.meta/categories.st b/src/Material-Design-Colors-Platform-Gemstone.package/monticello.meta/categories.st deleted file mode 100644 index 327c2b3..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Material-Design-Colors-Platform-Gemstone'! diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/monticello.meta/initializers.st b/src/Material-Design-Colors-Platform-Gemstone.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/monticello.meta/package b/src/Material-Design-Colors-Platform-Gemstone.package/monticello.meta/package deleted file mode 100644 index 91613af..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Material-Design-Colors-Platform-Gemstone') \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Gemstone.package/properties.json b/src/Material-Design-Colors-Platform-Gemstone.package/properties.json deleted file mode 100644 index 6f31cf5..0000000 --- a/src/Material-Design-Colors-Platform-Gemstone.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Gemstone/MaterialColorGemstonePlatform.class.st b/src/Material-Design-Colors-Platform-Gemstone/MaterialColorGemstonePlatform.class.st new file mode 100644 index 0000000..57b07bb --- /dev/null +++ b/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 and categorized in a protocol named " + + ^ aClass allSelectors select: [ :selector | (aClass categoryOfSelector: selector) = aSymbol ] +] + +{ #category : #testing } +MaterialColorGemstonePlatform >> isGemstone [ + ^ true +] diff --git a/src/Material-Design-Colors-Platform-Gemstone/package.st b/src/Material-Design-Colors-Platform-Gemstone/package.st new file mode 100644 index 0000000..02e33f1 --- /dev/null +++ b/src/Material-Design-Colors-Platform-Gemstone/package.st @@ -0,0 +1 @@ +Package { #name : #'Material-Design-Colors-Platform-Gemstone' } diff --git a/src/Material-Design-Colors-Platform-Pharo.package/.filetree b/src/Material-Design-Colors-Platform-Pharo.package/.filetree deleted file mode 100644 index 57a6797..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/README.md b/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/README.md deleted file mode 100644 index 6fe707d..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/README.md +++ /dev/null @@ -1,4 +0,0 @@ -Description --------------------- - -Platform managing the Pharo specific code of MaterialDesignColors. \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/class/initialize.st b/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/class/initialize.st deleted file mode 100644 index deeb0ea..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/class/initialize.st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -initialize - self register \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/instance/allSelectorsOf.from..st b/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/instance/allSelectorsOf.from..st deleted file mode 100644 index 296cf73..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/instance/allSelectorsOf.from..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -allSelectorsOf: aClass from: aSymbol - "Return the lists of selectors understood by and categorized in a protocol named " - - ^ aClass allMethods select: [ :each | each protocol = aSymbol ] thenCollect: #selector \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/instance/isPharo.st b/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/instance/isPharo.st deleted file mode 100644 index a86b73e..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/instance/isPharo.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isPharo - ^ true \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/properties.json b/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/properties.json deleted file mode 100644 index f0e97e8..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/MaterialColorPharoPlatform.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "CyrilFerlicot 7/4/2018 18:05", - "super" : "MaterialColorPlatform", - "category" : "Material-Design-Colors-Platform-Pharo", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "MaterialColorPharoPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Pharo.package/monticello.meta/categories.st b/src/Material-Design-Colors-Platform-Pharo.package/monticello.meta/categories.st deleted file mode 100644 index 09ec5b8..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Material-Design-Colors-Platform-Pharo'! diff --git a/src/Material-Design-Colors-Platform-Pharo.package/monticello.meta/initializers.st b/src/Material-Design-Colors-Platform-Pharo.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/src/Material-Design-Colors-Platform-Pharo.package/monticello.meta/package b/src/Material-Design-Colors-Platform-Pharo.package/monticello.meta/package deleted file mode 100644 index ed95eef..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Material-Design-Colors-Platform-Pharo') \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Pharo.package/properties.json b/src/Material-Design-Colors-Platform-Pharo.package/properties.json deleted file mode 100644 index 6f31cf5..0000000 --- a/src/Material-Design-Colors-Platform-Pharo.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/src/Material-Design-Colors-Platform-Pharo/MaterialColorPharoPlatform.class.st b/src/Material-Design-Colors-Platform-Pharo/MaterialColorPharoPlatform.class.st new file mode 100644 index 0000000..a6534b0 --- /dev/null +++ b/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 and categorized in a protocol named " + + ^ aClass allMethods select: [ :each | each protocol = aSymbol ] thenCollect: #selector +] + +{ #category : #testing } +MaterialColorPharoPlatform >> isPharo [ + ^ true +] diff --git a/src/Material-Design-Colors-Platform-Pharo/package.st b/src/Material-Design-Colors-Platform-Pharo/package.st new file mode 100644 index 0000000..7446d19 --- /dev/null +++ b/src/Material-Design-Colors-Platform-Pharo/package.st @@ -0,0 +1 @@ +Package { #name : #'Material-Design-Colors-Platform-Pharo' } diff --git a/src/Material-Design-Colors.package/.filetree b/src/Material-Design-Colors.package/.filetree deleted file mode 100644 index 57a6797..0000000 --- a/src/Material-Design-Colors.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/src/Material-Design-Colors.package/Color.extension/properties.json b/src/Material-Design-Colors.package/Color.extension/properties.json deleted file mode 100644 index 8b86fc9..0000000 --- a/src/Material-Design-Colors.package/Color.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Color" -} \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/README.md b/src/Material-Design-Colors.package/MDLColor.class/README.md deleted file mode 100644 index 386b9b7..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I represent a MDL color \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/allDefaultsColors.st b/src/Material-Design-Colors.package/MDLColor.class/class/allDefaultsColors.st deleted file mode 100644 index b3e7b20..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/allDefaultsColors.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -allDefaultsColors - ^ (MaterialColorPlatform current allSelectorsOf: self class from: #'defaults - colors') collect: [ :selector | MDLColor perform: selector ] \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/allTints.st b/src/Material-Design-Colors.package/MDLColor.class/class/allTints.st deleted file mode 100644 index 13e33ea..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/allTints.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -allTints - ^ self allDefaultsColors collect: #tint \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/amber.st b/src/Material-Design-Colors.package/MDLColor.class/class/amber.st deleted file mode 100644 index 7b2dae5..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/amber.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -amber - ^ self tint: #amber \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/blue.st b/src/Material-Design-Colors.package/MDLColor.class/class/blue.st deleted file mode 100644 index fe661fc..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/blue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -blue - ^ self tint: #blue \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/blueGrey.st b/src/Material-Design-Colors.package/MDLColor.class/class/blueGrey.st deleted file mode 100644 index b66fc90..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/blueGrey.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -blueGrey - ^ self tint: #blue_grey \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/brown.st b/src/Material-Design-Colors.package/MDLColor.class/class/brown.st deleted file mode 100644 index cc0c46d..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/brown.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -brown - ^ self tint: #brown \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/colors.st b/src/Material-Design-Colors.package/MDLColor.class/class/colors.st deleted file mode 100644 index 85aee3d..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/colors.st +++ /dev/null @@ -1,3 +0,0 @@ -private -colors - ^ colors ifNil: [ colors := Dictionary new ] \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/cyan.st b/src/Material-Design-Colors.package/MDLColor.class/class/cyan.st deleted file mode 100644 index 1e06fb3..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/cyan.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -cyan - ^ self tint: #cyan \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/deepOrange.st b/src/Material-Design-Colors.package/MDLColor.class/class/deepOrange.st deleted file mode 100644 index 7429c30..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/deepOrange.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -deepOrange - ^ self tint: #deep_orange \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/deepPurple.st b/src/Material-Design-Colors.package/MDLColor.class/class/deepPurple.st deleted file mode 100644 index 92c8273..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/deepPurple.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -deepPurple - ^ self tint: #deep_purple \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/green.st b/src/Material-Design-Colors.package/MDLColor.class/class/green.st deleted file mode 100644 index ec87f8a..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/green.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -green - ^ self tint: #green \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/grey.st b/src/Material-Design-Colors.package/MDLColor.class/class/grey.st deleted file mode 100644 index 6a3ed12..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/grey.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -grey - ^ self tint: #grey \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/indigo.st b/src/Material-Design-Colors.package/MDLColor.class/class/indigo.st deleted file mode 100644 index 312539e..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/indigo.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -indigo - ^ self tint: #indigo \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/initialize.st b/src/Material-Design-Colors.package/MDLColor.class/class/initialize.st deleted file mode 100644 index 128b327..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/initialize.st +++ /dev/null @@ -1,14 +0,0 @@ -initialization -initialize - self allColorsDefinitions - do: [ :aDefinition | - (self colors at: aDefinition first ifAbsentPut: [ Dictionary new ]) - at: aDefinition fifth - put: - ((MDLColor - r: aDefinition second - g: aDefinition third - b: aDefinition fourth - range: 256) - tint: aDefinition first; - code: aDefinition fifth) ] \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/lightBlue.st b/src/Material-Design-Colors.package/MDLColor.class/class/lightBlue.st deleted file mode 100644 index e7ccdc9..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/lightBlue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -lightBlue - ^ self tint: #light_blue \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/lightGreen.st b/src/Material-Design-Colors.package/MDLColor.class/class/lightGreen.st deleted file mode 100644 index c5c27a4..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/lightGreen.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -lightGreen - ^ self tint: #light_green \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/lime.st b/src/Material-Design-Colors.package/MDLColor.class/class/lime.st deleted file mode 100644 index a0b9e93..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/lime.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -lime - ^ self tint: #lime \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/orange.st b/src/Material-Design-Colors.package/MDLColor.class/class/orange.st deleted file mode 100644 index a1e0b5f..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/orange.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -orange - ^ self tint: #orange \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/pink.st b/src/Material-Design-Colors.package/MDLColor.class/class/pink.st deleted file mode 100644 index 2ae4af2..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/pink.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -pink - ^ self tint: #pink \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/purple.st b/src/Material-Design-Colors.package/MDLColor.class/class/purple.st deleted file mode 100644 index ffc8519..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/purple.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -purple - ^ self tint: #purple \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/randomColor.st b/src/Material-Design-Colors.package/MDLColor.class/class/randomColor.st deleted file mode 100644 index 6beadce..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/randomColor.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -randomColor - ^ self colors atRandom at: #'500' \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/randomColorAndTint.st b/src/Material-Design-Colors.package/MDLColor.class/class/randomColorAndTint.st deleted file mode 100644 index 590766b..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/randomColorAndTint.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -randomColorAndTint - ^ self colors atRandom atRandom \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/red.st b/src/Material-Design-Colors.package/MDLColor.class/class/red.st deleted file mode 100644 index 95e8284..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/red.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -red - ^ self tint: #red \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/teal.st b/src/Material-Design-Colors.package/MDLColor.class/class/teal.st deleted file mode 100644 index 37baf3b..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/teal.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -teal - ^ self tint: #teal \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/tint..st b/src/Material-Design-Colors.package/MDLColor.class/class/tint..st deleted file mode 100644 index 6d982e4..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/tint..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tint: aTint - ^ self tint: aTint code: #'500' \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/tint.code..st b/src/Material-Design-Colors.package/MDLColor.class/class/tint.code..st deleted file mode 100644 index e8cac31..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/tint.code..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tint: aTint code: aCode - ^ (self colors at: aTint asSymbol) at: aCode asSymbol \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/yellow.st b/src/Material-Design-Colors.package/MDLColor.class/class/yellow.st deleted file mode 100644 index b452261..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/class/yellow.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults - colors -yellow - ^ self tint: #yellow \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/code..st b/src/Material-Design-Colors.package/MDLColor.class/instance/code..st deleted file mode 100644 index a902904..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/code..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -code: aSymbol - code := aSymbol asSymbol "In case we gave a string" \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/code.st b/src/Material-Design-Colors.package/MDLColor.class/instance/code.st deleted file mode 100644 index 4c3dcf4..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/code.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -code - ^ code \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/darker.st b/src/Material-Design-Colors.package/MDLColor.class/instance/darker.st deleted file mode 100644 index c0800f3..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/darker.st +++ /dev/null @@ -1,3 +0,0 @@ -transformations -darker - ^ self class tint: self tint code: self darkerCode \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/darkerCode.st b/src/Material-Design-Colors.package/MDLColor.class/instance/darkerCode.st deleted file mode 100644 index f22f2e5..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/darkerCode.st +++ /dev/null @@ -1,7 +0,0 @@ -transformations -darkerCode - | intCode | - intCode := (self isAccentuated - ifTrue: [ self code allButFirst ] - ifFalse: [ self code ]) asInteger. - ^ (intCode + 100) asString asSymbol \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/isAccentuated.st b/src/Material-Design-Colors.package/MDLColor.class/instance/isAccentuated.st deleted file mode 100644 index e419e11..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/isAccentuated.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAccentuated - ^ self code beginsWith: 'A' \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/lighter.st b/src/Material-Design-Colors.package/MDLColor.class/instance/lighter.st deleted file mode 100644 index 7c9fb42..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/lighter.st +++ /dev/null @@ -1,3 +0,0 @@ -transformations -lighter - ^ self class tint: self tint code: self lighterCode \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/lighterCode.st b/src/Material-Design-Colors.package/MDLColor.class/instance/lighterCode.st deleted file mode 100644 index ff3688a..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/lighterCode.st +++ /dev/null @@ -1,9 +0,0 @@ -transformations -lighterCode - | intCode | - intCode := (self isAccentuated - ifTrue: [ self code allButFirst ] - ifFalse: [ self code ]) asInteger. - ^ (intCode > 100 - ifTrue: [ intCode - 100 ] - ifFalse: [ intCode - 50 ]) asString asSymbol \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/name.st b/src/Material-Design-Colors.package/MDLColor.class/instance/name.st deleted file mode 100644 index 601e3a7..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/name.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -name - "so that default printOn: can output the script to recreate this color - For the default colors, could output their name (tint)" - ^ #unnamed \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/printOn..st b/src/Material-Design-Colors.package/MDLColor.class/instance/printOn..st deleted file mode 100644 index d316172..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - self storeOn: aStream \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/storeOn..st b/src/Material-Design-Colors.package/MDLColor.class/instance/storeOn..st deleted file mode 100644 index 68b4943..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/storeOn..st +++ /dev/null @@ -1,10 +0,0 @@ -printing -storeOn: aStream - aStream - nextPut: $(; - nextPutAll: self class name; - nextPutAll: ' tint: #'; - nextPutAll: self tint; - nextPutAll: ' code: #'''; - nextPutAll: self code; - nextPutAll: ''')' \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/tint..st b/src/Material-Design-Colors.package/MDLColor.class/instance/tint..st deleted file mode 100644 index 9034841..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/tint..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tint: aSymbol - tint := aSymbol asSymbol "In case we gave a string" \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/instance/tint.st b/src/Material-Design-Colors.package/MDLColor.class/instance/tint.st deleted file mode 100644 index b0a525e..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/instance/tint.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tint - ^ tint \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MDLColor.class/properties.json b/src/Material-Design-Colors.package/MDLColor.class/properties.json deleted file mode 100644 index 0c78acb..0000000 --- a/src/Material-Design-Colors.package/MDLColor.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Color", - "category" : "Material-Design-Colors", - "classinstvars" : [ - "colors" - ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "tint", - "code" - ], - "name" : "MDLColor", - "type" : "normal" -} \ No newline at end of file diff --git a/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/README.md b/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/README.md deleted file mode 100644 index 671949a..0000000 --- a/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I store metadata for this package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser \ No newline at end of file diff --git a/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/class/description.st b/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/class/description.st deleted file mode 100644 index 6f3ae19..0000000 --- a/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/class/description.st +++ /dev/null @@ -1,5 +0,0 @@ -meta-data -description ^ 'I am a package containing extensions to the Pharo colors following Material Design recommendations. - -For more info see: -https://material.io/guidelines/style/color.html' \ No newline at end of file diff --git a/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/properties.json b/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/properties.json deleted file mode 100644 index 41fdeb0..0000000 --- a/src/Material-Design-Colors.package/ManifestMaterialDesignColors.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "PackageManifest", - "category" : "Material-Design-Colors", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ManifestMaterialDesignColors", - "type" : "normal" -} \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MaterialColorPlatform.class/README.md b/src/Material-Design-Colors.package/MaterialColorPlatform.class/README.md deleted file mode 100644 index 522c775..0000000 --- a/src/Material-Design-Colors.package/MaterialColorPlatform.class/README.md +++ /dev/null @@ -1,12 +0,0 @@ -Description --------------------- - -A MaterialColorPlatform is a class managing the differences in code between different platform such as Pharo and Gemestone. - -Each subclasses will be in a specific package loaded only for this language. During the loading the subclass will register itself as the current platform. - -Examples --------------------- - - MaterialColorPlatform current methodsIn: aClass from: aProtocol - diff --git a/src/Material-Design-Colors.package/MaterialColorPlatform.class/class/current.st b/src/Material-Design-Colors.package/MaterialColorPlatform.class/class/current.st deleted file mode 100644 index 294036c..0000000 --- a/src/Material-Design-Colors.package/MaterialColorPlatform.class/class/current.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -current - ^ Current ifNil: [ self error: 'No platform registered' ] \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MaterialColorPlatform.class/class/register.st b/src/Material-Design-Colors.package/MaterialColorPlatform.class/class/register.st deleted file mode 100644 index 102eb0f..0000000 --- a/src/Material-Design-Colors.package/MaterialColorPlatform.class/class/register.st +++ /dev/null @@ -1,3 +0,0 @@ -initialization -register - Current := self new \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/allSelectorsOf.from..st b/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/allSelectorsOf.from..st deleted file mode 100644 index 878b806..0000000 --- a/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/allSelectorsOf.from..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -allSelectorsOf: aClass from: aSymbol - "Return the lists of selectors understood by and categorized in a protocol named " - - ^ self subclassResponsibility \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/isGemstone.st b/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/isGemstone.st deleted file mode 100644 index 5fc40fc..0000000 --- a/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/isGemstone.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -isGemstone - ^ false \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/isPharo.st b/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/isPharo.st deleted file mode 100644 index 308ea00..0000000 --- a/src/Material-Design-Colors.package/MaterialColorPlatform.class/instance/isPharo.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isPharo - ^ false \ No newline at end of file diff --git a/src/Material-Design-Colors.package/MaterialColorPlatform.class/properties.json b/src/Material-Design-Colors.package/MaterialColorPlatform.class/properties.json deleted file mode 100644 index ab84f73..0000000 --- a/src/Material-Design-Colors.package/MaterialColorPlatform.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "CyrilFerlicot 7/4/2018 17:57", - "super" : "Object", - "category" : "Material-Design-Colors", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Current" - ], - "instvars" : [ ], - "name" : "MaterialColorPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/src/Material-Design-Colors.package/monticello.meta/categories.st b/src/Material-Design-Colors.package/monticello.meta/categories.st deleted file mode 100644 index 9c396ae..0000000 --- a/src/Material-Design-Colors.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Material-Design-Colors'! diff --git a/src/Material-Design-Colors.package/monticello.meta/initializers.st b/src/Material-Design-Colors.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/src/Material-Design-Colors.package/monticello.meta/package b/src/Material-Design-Colors.package/monticello.meta/package deleted file mode 100644 index 4dea948..0000000 --- a/src/Material-Design-Colors.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Material-Design-Colors') \ No newline at end of file diff --git a/src/Material-Design-Colors.package/properties.json b/src/Material-Design-Colors.package/properties.json deleted file mode 100644 index 6f31cf5..0000000 --- a/src/Material-Design-Colors.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/src/Material-Design-Colors.package/Color.extension/instance/asRGBA.st b/src/Material-Design-Colors/Color.extension.st similarity index 76% rename from src/Material-Design-Colors.package/Color.extension/instance/asRGBA.st rename to src/Material-Design-Colors/Color.extension.st index 8106149..aaa4454 100644 --- a/src/Material-Design-Colors.package/Color.extension/instance/asRGBA.st +++ b/src/Material-Design-Colors/Color.extension.st @@ -1,5 +1,7 @@ -*Material-Design-Colors -asRGBA +Extension { #name : #Color } + +{ #category : #'*Material-Design-Colors' } +Color >> asRGBA [ ^ String streamContents: [ :s | | alph | @@ -15,4 +17,5 @@ asRGBA print: (self blue * 255) ceiling; nextPut: $,; nextPutAll: alph; - nextPut: $) ] \ No newline at end of file + nextPut: $) ] +] diff --git a/src/Material-Design-Colors.package/MDLColor.class/class/allColorsDefinitions.st b/src/Material-Design-Colors/MDLColor.class.st similarity index 59% rename from src/Material-Design-Colors.package/MDLColor.class/class/allColorsDefinitions.st rename to src/Material-Design-Colors/MDLColor.class.st index ccddc9b..22088a3 100644 --- a/src/Material-Design-Colors.package/MDLColor.class/class/allColorsDefinitions.st +++ b/src/Material-Design-Colors/MDLColor.class.st @@ -1,3 +1,245 @@ -initialization -allColorsDefinitions - ^ #(#(#red 255 235 238 #'50') #(#pink 252 228 236 #'50') #(#purple 243 229 245 #'50') #(#deep_purple 237 231 246 #'50') #(#indigo 232 234 246 #'50') #(#blue 227 242 253 #'50') #(#light_blue 225 245 254 #'50') #(#cyan 224 247 250 #'50') #(#teal 224 242 241 #'50') #(#green 232 245 233 #'50') #(#light_green 241 248 233 #'50') #(#lime 249 251 231 #'50') #(#yellow 255 253 231 #'50') #(#amber 255 248 225 #'50') #(#orange 255 243 224 #'50') #(#deep_orange 251 233 231 #'50') #(#brown 239 235 233 #'50') #(#grey 250 250 250 #'50') #(#blue_grey 236 239 241 #'50') #(#red 255 205 210 #'100') #(#pink 248 187 208 #'100') #(#purple 225 190 231 #'100') #(#deep_purple 209 196 233 #'100') #(#indigo 197 202 233 #'100') #(#blue 187 222 251 #'100') #(#light_blue 179 229 252 #'100') #(#cyan 178 235 242 #'100') #(#teal 178 223 219 #'100') #(#green 200 230 201 #'100') #(#light_green 220 237 200 #'100') #(#lime 240 244 195 #'100') #(#yellow 255 249 196 #'100') #(#amber 255 236 179 #'100') #(#orange 255 224 178 #'100') #(#deep_orange 255 204 188 #'100') #(#brown 215 204 200 #'100') #(#grey 245 245 245 #'100') #(#blue_grey 207 216 220 #'100') #(#red 239 154 154 #'200') #(#pink 244 143 177 #'200') #(#purple 206 147 216 #'200') #(#deep_purple 179 157 219 #'200') #(#indigo 159 168 218 #'200') #(#blue 144 202 249 #'200') #(#light_blue 129 212 250 #'200') #(#cyan 128 222 234 #'200') #(#teal 128 203 196 #'200') #(#green 165 214 167 #'200') #(#light_green 197 225 165 #'200') #(#lime 230 238 156 #'200') #(#yellow 255 245 157 #'200') #(#amber 255 224 130 #'200') #(#orange 255 204 128 #'200') #(#deep_orange 255 171 145 #'200') #(#brown 188 170 164 #'200') #(#grey 238 238 238 #'200') #(#blue_grey 176 190 197 #'200') #(#red 229 115 115 #'300') #(#pink 240 98 146 #'300') #(#purple 186 104 200 #'300') #(#deep_purple 149 117 205 #'300') #(#indigo 121 134 203 #'300') #(#blue 100 181 246 #'300') #(#light_blue 79 195 247 #'300') #(#cyan 77 208 225 #'300') #(#teal 77 182 172 #'300') #(#green 129 199 132 #'300') #(#light_green 174 213 129 #'300') #(#lime 220 231 117 #'300') #(#yellow 255 241 118 #'300') #(#amber 255 213 79 #'300') #(#orange 255 183 77 #'300') #(#deep_orange 255 138 101 #'300') #(#brown 161 136 127 #'300') #(#grey 224 224 224 #'300') #(#blue_grey 144 164 174 #'300') #(#red 239 83 80 #'400') #(#pink 236 64 122 #'400') #(#purple 171 71 188 #'400') #(#deep_purple 126 87 194 #'400') #(#indigo 92 107 192 #'400') #(#blue 66 165 245 #'400') #(#light_blue 41 182 246 #'400') #(#cyan 38 198 218 #'400') #(#teal 38 166 154 #'400') #(#green 102 187 106 #'400') #(#light_green 156 204 101 #'400') #(#lime 212 225 87 #'400') #(#yellow 255 238 88 #'400') #(#amber 255 202 40 #'400') #(#orange 255 167 38 #'400') #(#deep_orange 255 112 67 #'400') #(#brown 141 110 99 #'400') #(#grey 189 189 189 #'400') #(#blue_grey 120 144 156 #'400') #(#red 244 67 54 #'500') #(#pink 233 30 99 #'500') #(#purple 156 39 176 #'500') #(#deep_purple 103 58 183 #'500') #(#indigo 63 81 181 #'500') #(#blue 33 150 243 #'500') #(#light_blue 3 169 244 #'500') #(#cyan 0 188 212 #'500') #(#teal 0 150 136 #'500') #(#green 76 175 80 #'500') #(#light_green 139 195 74 #'500') #(#lime 205 220 57 #'500') #(#yellow 255 235 59 #'500') #(#amber 255 193 7 #'500') #(#orange 255 152 0 #'500') #(#deep_orange 255 87 34 #'500') #(#brown 121 85 72 #'500') #(#grey 158 158 158 #'500') #(#blue_grey 96 125 139 #'500') #(#red 229 57 53 #'600') #(#pink 216 27 96 #'600') #(#purple 142 36 170 #'600') #(#deep_purple 94 53 177 #'600') #(#indigo 57 73 171 #'600') #(#blue 30 136 229 #'600') #(#light_blue 3 155 229 #'600') #(#cyan 0 172 193 #'600') #(#teal 0 137 123 #'600') #(#green 67 160 71 #'600') #(#light_green 124 179 66 #'600') #(#lime 192 202 51 #'600') #(#yellow 253 216 53 #'600') #(#amber 255 179 0 #'600') #(#orange 251 140 0 #'600') #(#deep_orange 244 81 30 #'600') #(#brown 109 76 65 #'600') #(#grey 117 117 117 #'600') #(#blue_grey 84 110 122 #'600') #(#red 211 47 47 #'700') #(#pink 194 24 91 #'700') #(#purple 123 31 162 #'700') #(#deep_purple 81 45 168 #'700') #(#indigo 48 63 159 #'700') #(#blue 25 118 210 #'700') #(#light_blue 2 136 209 #'700') #(#cyan 0 151 167 #'700') #(#teal 0 121 107 #'700') #(#green 56 142 60 #'700') #(#light_green 104 159 56 #'700') #(#lime 175 180 43 #'700') #(#yellow 251 192 45 #'700') #(#amber 255 160 0 #'700') #(#orange 245 124 0 #'700') #(#deep_orange 230 74 25 #'700') #(#brown 93 64 55 #'700') #(#grey 97 97 97 #'700') #(#blue_grey 69 90 100 #'700') #(#red 198 40 40 #'800') #(#pink 173 20 87 #'800') #(#purple 106 27 154 #'800') #(#deep_purple 69 39 160 #'800') #(#indigo 40 53 147 #'800') #(#blue 21 101 192 #'800') #(#light_blue 2 119 189 #'800') #(#cyan 0 131 143 #'800') #(#teal 0 105 92 #'800') #(#green 46 125 50 #'800') #(#light_green 85 139 47 #'800') #(#lime 158 157 36 #'800') #(#yellow 249 168 37 #'800') #(#amber 255 143 0 #'800') #(#orange 239 108 0 #'800') #(#deep_orange 216 67 21 #'800') #(#brown 78 52 46 #'800') #(#grey 66 66 66 #'800') #(#blue_grey 55 71 79 #'800') #(#red 183 28 28 #'900') #(#pink 136 14 79 #'900') #(#purple 74 20 140 #'900') #(#deep_purple 49 27 146 #'900') #(#indigo 26 35 126 #'900') #(#blue 13 71 161 #'900') #(#light_blue 1 87 155 #'900') #(#cyan 0 96 100 #'900') #(#teal 0 77 64 #'900') #(#green 27 94 32 #'900') #(#light_green 51 105 30 #'900') #(#lime 130 119 23 #'900') #(#yellow 245 127 23 #'900') #(#amber 255 111 0 #'900') #(#orange 230 81 0 #'900') #(#deep_orange 191 54 12 #'900') #(#brown 62 39 35 #'900') #(#grey 33 33 33 #'900') #(#blue_grey 38 50 56 #'900') #(#red 255 138 128 #A100) #(#pink 255 128 171 #A100) #(#purple 234 128 252 #A100) #(#deep_purple 179 136 255 #A100) #(#indigo 140 158 255 #A100) #(#blue 130 177 255 #A100) #(#light_blue 128 216 255 #A100) #(#cyan 132 255 255 #A100) #(#teal 167 255 235 #A100) #(#green 185 246 202 #A100) #(#light_green 204 255 144 #A100) #(#lime 244 255 129 #A100) #(#yellow 255 255 141 #A100) #(#amber 255 229 127 #A100) #(#orange 255 209 128 #A100) #(#deep_orange 255 158 128 #A100) #(#red 255 82 82 #A200) #(#pink 255 64 129 #A200) #(#purple 224 64 251 #A200) #(#deep_purple 124 77 255 #A200) #(#indigo 83 109 254 #A200) #(#blue 68 138 255 #A200) #(#light_blue 64 196 255 #A200) #(#cyan 24 255 255 #A200) #(#teal 100 255 218 #A200) #(#green 105 240 174 #A200) #(#light_green 178 255 89 #A200) #(#lime 238 255 65 #A200) #(#yellow 255 255 0 #A200) #(#amber 255 215 64 #A200) #(#orange 255 171 64 #A200) #(#deep_orange 255 110 64 #A200) #(#red 255 23 68 #A400) #(#pink 245 0 87 #A400) #(#purple 213 0 249 #A400) #(#deep_purple 101 31 255 #A400) #(#indigo 61 90 254 #A400) #(#blue 41 121 255 #A400) #(#light_blue 0 176 255 #A400) #(#cyan 0 229 255 #A400) #(#teal 29 233 182 #A400) #(#green 0 230 118 #A400) #(#light_green 118 255 3 #A400) #(#lime 198 255 0 #A400) #(#yellow 255 234 0 #A400) #(#amber 255 196 0 #A400) #(#orange 255 145 0 #A400) #(#deep_orange 255 61 0 #A400) #(#red 213 0 0 #A700) #(#pink 197 17 98 #A700) #(#purple 170 0 255 #A700) #(#deep_purple 98 0 234 #A700) #(#indigo 48 79 254 #A700) #(#blue 41 98 255 #A700) #(#light_blue 0 145 234 #A700) #(#cyan 0 184 212 #A700) #(#teal 0 191 165 #A700) #(#green 0 200 83 #A700) #(#light_green 100 221 23 #A700) #(#lime 174 234 0 #A700) #(#yellow 255 214 0 #A700) #(#amber 255 171 0 #A700) #(#orange 255 109 0 #A700) #(#deep_orange 221 44 0 #A700)) \ No newline at end of file +" +I represent a MDL color +" +Class { + #name : #MDLColor, + #superclass : #Color, + #instVars : [ + 'tint', + 'code' + ], + #classInstVars : [ + 'colors' + ], + #category : 'Material-Design-Colors' +} + +{ #category : #initialization } +MDLColor class >> allColorsDefinitions [ + ^ #(#(#red 255 235 238 #'50') #(#pink 252 228 236 #'50') #(#purple 243 229 245 #'50') #(#deep_purple 237 231 246 #'50') #(#indigo 232 234 246 #'50') #(#blue 227 242 253 #'50') #(#light_blue 225 245 254 #'50') #(#cyan 224 247 250 #'50') #(#teal 224 242 241 #'50') #(#green 232 245 233 #'50') #(#light_green 241 248 233 #'50') #(#lime 249 251 231 #'50') #(#yellow 255 253 231 #'50') #(#amber 255 248 225 #'50') #(#orange 255 243 224 #'50') #(#deep_orange 251 233 231 #'50') #(#brown 239 235 233 #'50') #(#grey 250 250 250 #'50') #(#blue_grey 236 239 241 #'50') #(#red 255 205 210 #'100') #(#pink 248 187 208 #'100') #(#purple 225 190 231 #'100') #(#deep_purple 209 196 233 #'100') #(#indigo 197 202 233 #'100') #(#blue 187 222 251 #'100') #(#light_blue 179 229 252 #'100') #(#cyan 178 235 242 #'100') #(#teal 178 223 219 #'100') #(#green 200 230 201 #'100') #(#light_green 220 237 200 #'100') #(#lime 240 244 195 #'100') #(#yellow 255 249 196 #'100') #(#amber 255 236 179 #'100') #(#orange 255 224 178 #'100') #(#deep_orange 255 204 188 #'100') #(#brown 215 204 200 #'100') #(#grey 245 245 245 #'100') #(#blue_grey 207 216 220 #'100') #(#red 239 154 154 #'200') #(#pink 244 143 177 #'200') #(#purple 206 147 216 #'200') #(#deep_purple 179 157 219 #'200') #(#indigo 159 168 218 #'200') #(#blue 144 202 249 #'200') #(#light_blue 129 212 250 #'200') #(#cyan 128 222 234 #'200') #(#teal 128 203 196 #'200') #(#green 165 214 167 #'200') #(#light_green 197 225 165 #'200') #(#lime 230 238 156 #'200') #(#yellow 255 245 157 #'200') #(#amber 255 224 130 #'200') #(#orange 255 204 128 #'200') #(#deep_orange 255 171 145 #'200') #(#brown 188 170 164 #'200') #(#grey 238 238 238 #'200') #(#blue_grey 176 190 197 #'200') #(#red 229 115 115 #'300') #(#pink 240 98 146 #'300') #(#purple 186 104 200 #'300') #(#deep_purple 149 117 205 #'300') #(#indigo 121 134 203 #'300') #(#blue 100 181 246 #'300') #(#light_blue 79 195 247 #'300') #(#cyan 77 208 225 #'300') #(#teal 77 182 172 #'300') #(#green 129 199 132 #'300') #(#light_green 174 213 129 #'300') #(#lime 220 231 117 #'300') #(#yellow 255 241 118 #'300') #(#amber 255 213 79 #'300') #(#orange 255 183 77 #'300') #(#deep_orange 255 138 101 #'300') #(#brown 161 136 127 #'300') #(#grey 224 224 224 #'300') #(#blue_grey 144 164 174 #'300') #(#red 239 83 80 #'400') #(#pink 236 64 122 #'400') #(#purple 171 71 188 #'400') #(#deep_purple 126 87 194 #'400') #(#indigo 92 107 192 #'400') #(#blue 66 165 245 #'400') #(#light_blue 41 182 246 #'400') #(#cyan 38 198 218 #'400') #(#teal 38 166 154 #'400') #(#green 102 187 106 #'400') #(#light_green 156 204 101 #'400') #(#lime 212 225 87 #'400') #(#yellow 255 238 88 #'400') #(#amber 255 202 40 #'400') #(#orange 255 167 38 #'400') #(#deep_orange 255 112 67 #'400') #(#brown 141 110 99 #'400') #(#grey 189 189 189 #'400') #(#blue_grey 120 144 156 #'400') #(#red 244 67 54 #'500') #(#pink 233 30 99 #'500') #(#purple 156 39 176 #'500') #(#deep_purple 103 58 183 #'500') #(#indigo 63 81 181 #'500') #(#blue 33 150 243 #'500') #(#light_blue 3 169 244 #'500') #(#cyan 0 188 212 #'500') #(#teal 0 150 136 #'500') #(#green 76 175 80 #'500') #(#light_green 139 195 74 #'500') #(#lime 205 220 57 #'500') #(#yellow 255 235 59 #'500') #(#amber 255 193 7 #'500') #(#orange 255 152 0 #'500') #(#deep_orange 255 87 34 #'500') #(#brown 121 85 72 #'500') #(#grey 158 158 158 #'500') #(#blue_grey 96 125 139 #'500') #(#red 229 57 53 #'600') #(#pink 216 27 96 #'600') #(#purple 142 36 170 #'600') #(#deep_purple 94 53 177 #'600') #(#indigo 57 73 171 #'600') #(#blue 30 136 229 #'600') #(#light_blue 3 155 229 #'600') #(#cyan 0 172 193 #'600') #(#teal 0 137 123 #'600') #(#green 67 160 71 #'600') #(#light_green 124 179 66 #'600') #(#lime 192 202 51 #'600') #(#yellow 253 216 53 #'600') #(#amber 255 179 0 #'600') #(#orange 251 140 0 #'600') #(#deep_orange 244 81 30 #'600') #(#brown 109 76 65 #'600') #(#grey 117 117 117 #'600') #(#blue_grey 84 110 122 #'600') #(#red 211 47 47 #'700') #(#pink 194 24 91 #'700') #(#purple 123 31 162 #'700') #(#deep_purple 81 45 168 #'700') #(#indigo 48 63 159 #'700') #(#blue 25 118 210 #'700') #(#light_blue 2 136 209 #'700') #(#cyan 0 151 167 #'700') #(#teal 0 121 107 #'700') #(#green 56 142 60 #'700') #(#light_green 104 159 56 #'700') #(#lime 175 180 43 #'700') #(#yellow 251 192 45 #'700') #(#amber 255 160 0 #'700') #(#orange 245 124 0 #'700') #(#deep_orange 230 74 25 #'700') #(#brown 93 64 55 #'700') #(#grey 97 97 97 #'700') #(#blue_grey 69 90 100 #'700') #(#red 198 40 40 #'800') #(#pink 173 20 87 #'800') #(#purple 106 27 154 #'800') #(#deep_purple 69 39 160 #'800') #(#indigo 40 53 147 #'800') #(#blue 21 101 192 #'800') #(#light_blue 2 119 189 #'800') #(#cyan 0 131 143 #'800') #(#teal 0 105 92 #'800') #(#green 46 125 50 #'800') #(#light_green 85 139 47 #'800') #(#lime 158 157 36 #'800') #(#yellow 249 168 37 #'800') #(#amber 255 143 0 #'800') #(#orange 239 108 0 #'800') #(#deep_orange 216 67 21 #'800') #(#brown 78 52 46 #'800') #(#grey 66 66 66 #'800') #(#blue_grey 55 71 79 #'800') #(#red 183 28 28 #'900') #(#pink 136 14 79 #'900') #(#purple 74 20 140 #'900') #(#deep_purple 49 27 146 #'900') #(#indigo 26 35 126 #'900') #(#blue 13 71 161 #'900') #(#light_blue 1 87 155 #'900') #(#cyan 0 96 100 #'900') #(#teal 0 77 64 #'900') #(#green 27 94 32 #'900') #(#light_green 51 105 30 #'900') #(#lime 130 119 23 #'900') #(#yellow 245 127 23 #'900') #(#amber 255 111 0 #'900') #(#orange 230 81 0 #'900') #(#deep_orange 191 54 12 #'900') #(#brown 62 39 35 #'900') #(#grey 33 33 33 #'900') #(#blue_grey 38 50 56 #'900') #(#red 255 138 128 #A100) #(#pink 255 128 171 #A100) #(#purple 234 128 252 #A100) #(#deep_purple 179 136 255 #A100) #(#indigo 140 158 255 #A100) #(#blue 130 177 255 #A100) #(#light_blue 128 216 255 #A100) #(#cyan 132 255 255 #A100) #(#teal 167 255 235 #A100) #(#green 185 246 202 #A100) #(#light_green 204 255 144 #A100) #(#lime 244 255 129 #A100) #(#yellow 255 255 141 #A100) #(#amber 255 229 127 #A100) #(#orange 255 209 128 #A100) #(#deep_orange 255 158 128 #A100) #(#red 255 82 82 #A200) #(#pink 255 64 129 #A200) #(#purple 224 64 251 #A200) #(#deep_purple 124 77 255 #A200) #(#indigo 83 109 254 #A200) #(#blue 68 138 255 #A200) #(#light_blue 64 196 255 #A200) #(#cyan 24 255 255 #A200) #(#teal 100 255 218 #A200) #(#green 105 240 174 #A200) #(#light_green 178 255 89 #A200) #(#lime 238 255 65 #A200) #(#yellow 255 255 0 #A200) #(#amber 255 215 64 #A200) #(#orange 255 171 64 #A200) #(#deep_orange 255 110 64 #A200) #(#red 255 23 68 #A400) #(#pink 245 0 87 #A400) #(#purple 213 0 249 #A400) #(#deep_purple 101 31 255 #A400) #(#indigo 61 90 254 #A400) #(#blue 41 121 255 #A400) #(#light_blue 0 176 255 #A400) #(#cyan 0 229 255 #A400) #(#teal 29 233 182 #A400) #(#green 0 230 118 #A400) #(#light_green 118 255 3 #A400) #(#lime 198 255 0 #A400) #(#yellow 255 234 0 #A400) #(#amber 255 196 0 #A400) #(#orange 255 145 0 #A400) #(#deep_orange 255 61 0 #A400) #(#red 213 0 0 #A700) #(#pink 197 17 98 #A700) #(#purple 170 0 255 #A700) #(#deep_purple 98 0 234 #A700) #(#indigo 48 79 254 #A700) #(#blue 41 98 255 #A700) #(#light_blue 0 145 234 #A700) #(#cyan 0 184 212 #A700) #(#teal 0 191 165 #A700) #(#green 0 200 83 #A700) #(#light_green 100 221 23 #A700) #(#lime 174 234 0 #A700) #(#yellow 255 214 0 #A700) #(#amber 255 171 0 #A700) #(#orange 255 109 0 #A700) #(#deep_orange 221 44 0 #A700)) +] + +{ #category : #accessing } +MDLColor class >> allDefaultsColors [ + ^ (MaterialColorPlatform current allSelectorsOf: self class from: #'defaults - colors') collect: [ :selector | MDLColor perform: selector ] +] + +{ #category : #accessing } +MDLColor class >> allTints [ + ^ self allDefaultsColors collect: #tint +] + +{ #category : #'defaults - colors' } +MDLColor class >> amber [ + ^ self tint: #amber +] + +{ #category : #'defaults - colors' } +MDLColor class >> blue [ + ^ self tint: #blue +] + +{ #category : #'defaults - colors' } +MDLColor class >> blueGrey [ + ^ self tint: #blue_grey +] + +{ #category : #'defaults - colors' } +MDLColor class >> brown [ + ^ self tint: #brown +] + +{ #category : #private } +MDLColor class >> colors [ + ^ colors ifNil: [ colors := Dictionary new ] +] + +{ #category : #'defaults - colors' } +MDLColor class >> cyan [ + ^ self tint: #cyan +] + +{ #category : #'defaults - colors' } +MDLColor class >> deepOrange [ + ^ self tint: #deep_orange +] + +{ #category : #'defaults - colors' } +MDLColor class >> deepPurple [ + ^ self tint: #deep_purple +] + +{ #category : #'defaults - colors' } +MDLColor class >> green [ + ^ self tint: #green +] + +{ #category : #'defaults - colors' } +MDLColor class >> grey [ + ^ self tint: #grey +] + +{ #category : #'defaults - colors' } +MDLColor class >> indigo [ + ^ self tint: #indigo +] + +{ #category : #initialization } +MDLColor class >> initialize [ + self allColorsDefinitions + do: [ :aDefinition | + (self colors at: aDefinition first ifAbsentPut: [ Dictionary new ]) + at: aDefinition fifth + put: + ((MDLColor + r: aDefinition second + g: aDefinition third + b: aDefinition fourth + range: 256) + tint: aDefinition first; + code: aDefinition fifth) ] +] + +{ #category : #'defaults - colors' } +MDLColor class >> lightBlue [ + ^ self tint: #light_blue +] + +{ #category : #'defaults - colors' } +MDLColor class >> lightGreen [ + ^ self tint: #light_green +] + +{ #category : #'defaults - colors' } +MDLColor class >> lime [ + ^ self tint: #lime +] + +{ #category : #'defaults - colors' } +MDLColor class >> orange [ + ^ self tint: #orange +] + +{ #category : #'defaults - colors' } +MDLColor class >> pink [ + ^ self tint: #pink +] + +{ #category : #'defaults - colors' } +MDLColor class >> purple [ + ^ self tint: #purple +] + +{ #category : #'instance creation' } +MDLColor class >> randomColor [ + ^ self colors atRandom at: #'500' +] + +{ #category : #'instance creation' } +MDLColor class >> randomColorAndTint [ + ^ self colors atRandom atRandom +] + +{ #category : #'defaults - colors' } +MDLColor class >> red [ + ^ self tint: #red +] + +{ #category : #'defaults - colors' } +MDLColor class >> teal [ + ^ self tint: #teal +] + +{ #category : #accessing } +MDLColor class >> tint: aTint [ + ^ self tint: aTint code: #'500' +] + +{ #category : #accessing } +MDLColor class >> tint: aTint code: aCode [ + ^ (self colors at: aTint asSymbol) at: aCode asSymbol +] + +{ #category : #'defaults - colors' } +MDLColor class >> yellow [ + ^ self tint: #yellow +] + +{ #category : #accessing } +MDLColor >> code [ + ^ code +] + +{ #category : #accessing } +MDLColor >> code: aSymbol [ + code := aSymbol asSymbol "In case we gave a string" +] + +{ #category : #transformations } +MDLColor >> darker [ + ^ self class tint: self tint code: self darkerCode +] + +{ #category : #transformations } +MDLColor >> darkerCode [ + | intCode | + intCode := (self isAccentuated + ifTrue: [ self code allButFirst ] + ifFalse: [ self code ]) asInteger. + ^ (intCode + 100) asString asSymbol +] + +{ #category : #testing } +MDLColor >> isAccentuated [ + ^ self code beginsWith: 'A' +] + +{ #category : #transformations } +MDLColor >> lighter [ + ^ self class tint: self tint code: self lighterCode +] + +{ #category : #transformations } +MDLColor >> lighterCode [ + | intCode | + intCode := (self isAccentuated + ifTrue: [ self code allButFirst ] + ifFalse: [ self code ]) asInteger. + ^ (intCode > 100 + ifTrue: [ intCode - 100 ] + ifFalse: [ intCode - 50 ]) asString asSymbol +] + +{ #category : #accessing } +MDLColor >> name [ + "so that default printOn: can output the script to recreate this color + For the default colors, could output their name (tint)" + ^ #unnamed +] + +{ #category : #printing } +MDLColor >> printOn: aStream [ + self storeOn: aStream +] + +{ #category : #printing } +MDLColor >> storeOn: aStream [ + aStream + nextPut: $(; + nextPutAll: self class name; + nextPutAll: ' tint: #'; + nextPutAll: self tint; + nextPutAll: ' code: #'''; + nextPutAll: self code; + nextPutAll: ''')' +] + +{ #category : #accessing } +MDLColor >> tint [ + ^ tint +] + +{ #category : #accessing } +MDLColor >> tint: aSymbol [ + tint := aSymbol asSymbol "In case we gave a string" +] diff --git a/src/Material-Design-Colors/ManifestMaterialDesignColors.class.st b/src/Material-Design-Colors/ManifestMaterialDesignColors.class.st new file mode 100644 index 0000000..673e2f5 --- /dev/null +++ b/src/Material-Design-Colors/ManifestMaterialDesignColors.class.st @@ -0,0 +1,15 @@ +" +I store metadata for this package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser +" +Class { + #name : #ManifestMaterialDesignColors, + #superclass : #PackageManifest, + #category : 'Material-Design-Colors' +} + +{ #category : #'meta-data' } +ManifestMaterialDesignColors class >> description [ ^ 'I am a package containing extensions to the Pharo colors following Material Design recommendations. + +For more info see: +https://material.io/guidelines/style/color.html' +] diff --git a/src/Material-Design-Colors/MaterialColorPlatform.class.st b/src/Material-Design-Colors/MaterialColorPlatform.class.st new file mode 100644 index 0000000..af1bc18 --- /dev/null +++ b/src/Material-Design-Colors/MaterialColorPlatform.class.st @@ -0,0 +1,50 @@ +" +Description +-------------------- + +A MaterialColorPlatform is a class managing the differences in code between different platform such as Pharo and Gemestone. + +Each subclasses will be in a specific package loaded only for this language. During the loading the subclass will register itself as the current platform. + +Examples +-------------------- + + MaterialColorPlatform current methodsIn: aClass from: aProtocol + + +" +Class { + #name : #MaterialColorPlatform, + #superclass : #Object, + #classVars : [ + 'Current' + ], + #category : 'Material-Design-Colors' +} + +{ #category : #accessing } +MaterialColorPlatform class >> current [ + ^ Current ifNil: [ self error: 'No platform registered' ] +] + +{ #category : #initialization } +MaterialColorPlatform class >> register [ + Current := self new +] + +{ #category : #accessing } +MaterialColorPlatform >> allSelectorsOf: aClass from: aSymbol [ + "Return the lists of selectors understood by and categorized in a protocol named " + + ^ self subclassResponsibility +] + +{ #category : #accessing } +MaterialColorPlatform >> isGemstone [ + ^ false +] + +{ #category : #testing } +MaterialColorPlatform >> isPharo [ + ^ false +] diff --git a/src/Material-Design-Colors/package.st b/src/Material-Design-Colors/package.st new file mode 100644 index 0000000..b1eff3b --- /dev/null +++ b/src/Material-Design-Colors/package.st @@ -0,0 +1 @@ +Package { #name : #'Material-Design-Colors' } diff --git a/src/Material-Design-Tests-Colors.package/.filetree b/src/Material-Design-Tests-Colors.package/.filetree deleted file mode 100644 index 57a6797..0000000 --- a/src/Material-Design-Tests-Colors.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/README.md b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAllDefaultExist.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAllDefaultExist.st deleted file mode 100644 index 98be1f9..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAllDefaultExist.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testAllDefaultExist - | defaultColors | - defaultColors := MDLColor allDefaultsColors. - self assert: defaultColors size equals: 19 \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAsRGBA.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAsRGBA.st deleted file mode 100644 index df6f55b..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAsRGBA.st +++ /dev/null @@ -1,27 +0,0 @@ -tests -testAsRGBA - "The values were found on Material Design standard." - - | rgbaMap | - rgbaMap := Dictionary new - at: #red put: 'rgba(244,67,54,1)'; - at: #pink put: 'rgba(233,30,99,1)'; - at: #purple put: 'rgba(156,39,176,1)'; - at: #deep_purple put: 'rgba(103,58,183,1)'; - at: #indigo put: 'rgba(63,81,181,1)'; - at: #blue put: 'rgba(33,150,243,1)'; - at: #light_blue put: 'rgba(3,169,244,1)'; - at: #cyan put: 'rgba(0,188,212,1)'; - at: #teal put: 'rgba(0,150,136,1)'; - at: #green put: 'rgba(76,175,80,1)'; - at: #light_green put: 'rgba(139,195,74,1)'; - at: #lime put: 'rgba(205,220,57,1)'; - at: #yellow put: 'rgba(255,235,59,1)'; - at: #amber put: 'rgba(255,193,7,1)'; - at: #orange put: 'rgba(255,152,0,1)'; - at: #deep_orange put: 'rgba(255,87,34,1)'; - at: #brown put: 'rgba(121,85,72,1)'; - at: #grey put: 'rgba(158,158,158,1)'; - at: #blue_grey put: 'rgba(96,125,139,1)'; - yourself. - rgbaMap keysAndValuesDo: [ :tint :rgba | self assert: (MDLColor tint: tint) asRGBA equals: rgba ] \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAsString.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAsString.st deleted file mode 100644 index d948985..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testAsString.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testAsString - "Skip test on Gemstone because it manage the #asString for colors differently." - MaterialColorPlatform current isGemstone ifTrue: [ ^ self ]. - - self assert: MDLColor yellow asString equals: '(MDLColor tint: #yellow code: #''500'')'. - self assert: MDLColor blue lighter lighter asString equals: '(MDLColor tint: #blue code: #''300'')'. - self assert: MDLColor brown darker asString equals: '(MDLColor tint: #brown code: #''600'')' \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testDarkerColors.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testDarkerColors.st deleted file mode 100644 index 2a40d1a..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testDarkerColors.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testDarkerColors - MDLColor allDefaultsColors - do: [ :aColor | - self assert: aColor darker equals: (MDLColor tint: aColor tint code: '600'). - self assert: aColor darker darker equals: (MDLColor tint: aColor tint code: '700'). - self assert: aColor darker darker darker equals: (MDLColor tint: aColor tint code: '800'). - self assert: aColor darker darker darker darker equals: (MDLColor tint: aColor tint code: '900') ] \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testIsAccentuated.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testIsAccentuated.st deleted file mode 100644 index 5cfeb88..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testIsAccentuated.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testIsAccentuated - self deny: (MDLColor tint: #orange code: '500') isAccentuated. - self assert: (MDLColor tint: #orange code: 'A400' ) isAccentuated \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testLighterColors.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testLighterColors.st deleted file mode 100644 index fffe0c9..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testLighterColors.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testLighterColors - MDLColor allDefaultsColors - do: [ :aColor | - self assert: aColor lighter equals: (MDLColor tint: aColor tint code: '400'). - self assert: aColor lighter lighter equals: (MDLColor tint: aColor tint code: '300'). - self assert: aColor lighter lighter lighter equals: (MDLColor tint: aColor tint code: '200'). - self assert: aColor lighter lighter lighter lighter equals: (MDLColor tint: aColor tint code: '100'). - self assert: aColor lighter lighter lighter lighter lighter equals: (MDLColor tint: aColor tint code: '50') ] \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testStoreOn.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testStoreOn.st deleted file mode 100644 index 213901e..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testStoreOn.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testStoreOn - self assert: (String streamContents: [ :s | MDLColor yellow storeOn: s ]) equals: '(MDLColor tint: #yellow code: #''500'')'. - self assert: (String streamContents: [ :s | MDLColor lightGreen storeOn: s ]) equals: '(MDLColor tint: #light_green code: #''500'')'. - self assert: (String streamContents: [ :s | MDLColor blue lighter lighter storeOn: s ]) equals: '(MDLColor tint: #blue code: #''300'')'. - self assert: (String streamContents: [ :s | MDLColor brown darker storeOn: s ]) equals: '(MDLColor tint: #brown code: #''600'')'. - - self assert: (Object readFromString: (String streamContents: [ :s | MDLColor yellow storeOn: s ])) equals: MDLColor yellow. - self assert: (Object readFromString: (String streamContents: [ :s | MDLColor blue lighter lighter storeOn: s ])) equals: MDLColor blue lighter lighter \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testTint.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testTint.st deleted file mode 100644 index f675b50..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testTint.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testTint - self assert: (MDLColor tint: #orange) equals: MDLColor orange. - "Ensure String and Symbol works" - self assert: (MDLColor tint: 'orange') equals: MDLColor orange. - self assert: (MDLColor tint: #orange) asRGBA equals: 'rgba(255,152,0,1)' \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testTintCode.st b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testTintCode.st deleted file mode 100644 index 2449a29..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/instance/testTintCode.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testTintCode - self assert: (MDLColor tint: #orange code: #'800') asRGBA equals: 'rgba(239,108,0,1)'. - "Ensure String and Symbol works" - self assert: (MDLColor tint: 'orange' code: #'800') asRGBA equals: 'rgba(239,108,0,1)'. - self assert: (MDLColor tint: 'orange' code: '800') asRGBA equals: 'rgba(239,108,0,1)'. \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/properties.json b/src/Material-Design-Tests-Colors.package/MDLColorTests.class/properties.json deleted file mode 100644 index 184f4c1..0000000 --- a/src/Material-Design-Tests-Colors.package/MDLColorTests.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Material-Design-Tests-Colors", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "MDLColorTests", - "type" : "normal" -} \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/monticello.meta/categories.st b/src/Material-Design-Tests-Colors.package/monticello.meta/categories.st deleted file mode 100644 index 507a6fd..0000000 --- a/src/Material-Design-Tests-Colors.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Material-Design-Tests-Colors'! diff --git a/src/Material-Design-Tests-Colors.package/monticello.meta/initializers.st b/src/Material-Design-Tests-Colors.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/src/Material-Design-Tests-Colors.package/monticello.meta/package b/src/Material-Design-Tests-Colors.package/monticello.meta/package deleted file mode 100644 index 2d232ed..0000000 --- a/src/Material-Design-Tests-Colors.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Material-Design-Tests-Colors') \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors.package/properties.json b/src/Material-Design-Tests-Colors.package/properties.json deleted file mode 100644 index 6f31cf5..0000000 --- a/src/Material-Design-Tests-Colors.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/src/Material-Design-Tests-Colors/MDLColorTests.class.st b/src/Material-Design-Tests-Colors/MDLColorTests.class.st new file mode 100644 index 0000000..ba5a751 --- /dev/null +++ b/src/Material-Design-Tests-Colors/MDLColorTests.class.st @@ -0,0 +1,105 @@ +Class { + #name : #MDLColorTests, + #superclass : #TestCase, + #category : 'Material-Design-Tests-Colors' +} + +{ #category : #tests } +MDLColorTests >> testAllDefaultExist [ + | defaultColors | + defaultColors := MDLColor allDefaultsColors. + self assert: defaultColors size equals: 19 +] + +{ #category : #tests } +MDLColorTests >> testAsRGBA [ + "The values were found on Material Design standard." + + | rgbaMap | + rgbaMap := Dictionary new + at: #red put: 'rgba(244,67,54,1)'; + at: #pink put: 'rgba(233,30,99,1)'; + at: #purple put: 'rgba(156,39,176,1)'; + at: #deep_purple put: 'rgba(103,58,183,1)'; + at: #indigo put: 'rgba(63,81,181,1)'; + at: #blue put: 'rgba(33,150,243,1)'; + at: #light_blue put: 'rgba(3,169,244,1)'; + at: #cyan put: 'rgba(0,188,212,1)'; + at: #teal put: 'rgba(0,150,136,1)'; + at: #green put: 'rgba(76,175,80,1)'; + at: #light_green put: 'rgba(139,195,74,1)'; + at: #lime put: 'rgba(205,220,57,1)'; + at: #yellow put: 'rgba(255,235,59,1)'; + at: #amber put: 'rgba(255,193,7,1)'; + at: #orange put: 'rgba(255,152,0,1)'; + at: #deep_orange put: 'rgba(255,87,34,1)'; + at: #brown put: 'rgba(121,85,72,1)'; + at: #grey put: 'rgba(158,158,158,1)'; + at: #blue_grey put: 'rgba(96,125,139,1)'; + yourself. + rgbaMap keysAndValuesDo: [ :tint :rgba | self assert: (MDLColor tint: tint) asRGBA equals: rgba ] +] + +{ #category : #tests } +MDLColorTests >> testAsString [ + "Skip test on Gemstone because it manage the #asString for colors differently." + MaterialColorPlatform current isGemstone ifTrue: [ ^ self ]. + + self assert: MDLColor yellow asString equals: '(MDLColor tint: #yellow code: #''500'')'. + self assert: MDLColor blue lighter lighter asString equals: '(MDLColor tint: #blue code: #''300'')'. + self assert: MDLColor brown darker asString equals: '(MDLColor tint: #brown code: #''600'')' +] + +{ #category : #tests } +MDLColorTests >> testDarkerColors [ + MDLColor allDefaultsColors + do: [ :aColor | + self assert: aColor darker equals: (MDLColor tint: aColor tint code: '600'). + self assert: aColor darker darker equals: (MDLColor tint: aColor tint code: '700'). + self assert: aColor darker darker darker equals: (MDLColor tint: aColor tint code: '800'). + self assert: aColor darker darker darker darker equals: (MDLColor tint: aColor tint code: '900') ] +] + +{ #category : #tests } +MDLColorTests >> testIsAccentuated [ + self deny: (MDLColor tint: #orange code: '500') isAccentuated. + self assert: (MDLColor tint: #orange code: 'A400' ) isAccentuated +] + +{ #category : #tests } +MDLColorTests >> testLighterColors [ + MDLColor allDefaultsColors + do: [ :aColor | + self assert: aColor lighter equals: (MDLColor tint: aColor tint code: '400'). + self assert: aColor lighter lighter equals: (MDLColor tint: aColor tint code: '300'). + self assert: aColor lighter lighter lighter equals: (MDLColor tint: aColor tint code: '200'). + self assert: aColor lighter lighter lighter lighter equals: (MDLColor tint: aColor tint code: '100'). + self assert: aColor lighter lighter lighter lighter lighter equals: (MDLColor tint: aColor tint code: '50') ] +] + +{ #category : #tests } +MDLColorTests >> testStoreOn [ + self assert: (String streamContents: [ :s | MDLColor yellow storeOn: s ]) equals: '(MDLColor tint: #yellow code: #''500'')'. + self assert: (String streamContents: [ :s | MDLColor lightGreen storeOn: s ]) equals: '(MDLColor tint: #light_green code: #''500'')'. + self assert: (String streamContents: [ :s | MDLColor blue lighter lighter storeOn: s ]) equals: '(MDLColor tint: #blue code: #''300'')'. + self assert: (String streamContents: [ :s | MDLColor brown darker storeOn: s ]) equals: '(MDLColor tint: #brown code: #''600'')'. + + self assert: (Object readFromString: (String streamContents: [ :s | MDLColor yellow storeOn: s ])) equals: MDLColor yellow. + self assert: (Object readFromString: (String streamContents: [ :s | MDLColor blue lighter lighter storeOn: s ])) equals: MDLColor blue lighter lighter +] + +{ #category : #tests } +MDLColorTests >> testTint [ + self assert: (MDLColor tint: #orange) equals: MDLColor orange. + "Ensure String and Symbol works" + self assert: (MDLColor tint: 'orange') equals: MDLColor orange. + self assert: (MDLColor tint: #orange) asRGBA equals: 'rgba(255,152,0,1)' +] + +{ #category : #tests } +MDLColorTests >> testTintCode [ + self assert: (MDLColor tint: #orange code: #'800') asRGBA equals: 'rgba(239,108,0,1)'. + "Ensure String and Symbol works" + self assert: (MDLColor tint: 'orange' code: #'800') asRGBA equals: 'rgba(239,108,0,1)'. + self assert: (MDLColor tint: 'orange' code: '800') asRGBA equals: 'rgba(239,108,0,1)'. +] diff --git a/src/Material-Design-Tests-Colors/package.st b/src/Material-Design-Tests-Colors/package.st new file mode 100644 index 0000000..1593ded --- /dev/null +++ b/src/Material-Design-Tests-Colors/package.st @@ -0,0 +1 @@ +Package { #name : #'Material-Design-Tests-Colors' }