add a couple of inspector extensions for colors

pharo-spec · Sep 23, 2021 · dc849e8 · dc849e8
1 parent 53f0f8b
commit dc849e8
Showing 1 changed file with 26 additions and 0 deletions.
diff --git a/src/NewTools-Inspector-Extensions/Color.extension.st b/src/NewTools-Inspector-Extensions/Color.extension.st
@@ -0,0 +1,26 @@
+Extension { #name : #Color }
+
+{ #category : #'*NewTools-Inspector-Extensions' }
+Color >> inspectionColor [
+	<inspectorPresentationOrder: 10 title: 'Color'>
+
+	^ SpImagePresenter new  
+		image: (Morph new 
+			color: self;
+			asFormOfSize: 50@50);
+		yourself
+]
+
+{ #category : #'*NewTools-Inspector-Extensions' }
+Color class >> inspectionColors [
+	<inspectorPresentationOrder: 10 title: 'Registered'>
+
+	^ SpListPresenter new 
+		items: ColorRegistry associations;
+		display: [ :each | each key ];
+		displayIcon: [ :each | 
+			Morph new 
+				color: each value;
+				asFormOfSize: 20@20 ];
+		yourself
+]