Refactoring of gradient and simple slider methods. Created 3 classes: ICSlider and 2 subclasses ICGradientSlider, ICGradientGridSlider

CoypuIDE/ICCleanSlider.class.st

@@ -24,7 +24,9 @@ Class {
 		'sliderHandle',
 		'handlePushedPoint'
 	],
+
 	#category : 'CoypuIDE-Attic'
+
 }
 
 { #category : #building }

CoypuIDE/ICCleanSliderHandler.class.st

@@ -1,7 +1,9 @@
 Class {
+
 	#name : #ICCleanSliderHandler,
 	#superclass : #BlCustomEventHandler,
 	#category : 'CoypuIDE-Attic'
+
 }
 
 { #category : #'event management' }

CoypuIDE/ICGradientGridSlider.class.st

@@ -0,0 +1,121 @@
+Class {
+	#name : 'ICGradientGridSlider',
+	#superclass : 'ICSlider',
+	#category : 'CoypuIDE-slider',
+	#package : 'CoypuIDE',
+	#tag : 'slider'
+}
+
+{ #category : 'accessing' }
+ICGradientGridSlider >> coloredBarDefaultColor [
+	"^ Color green alpha: 0.4"
+	|direc|
+	direc:= self 
+		ifHorizontal: [ 1 @ 0 ]
+		ifVertical: [ 0 @ -1 ].
+	^ ((BlLinearGradientPaint direction:direc ) from: Color
+	blue to: (Color green)).
+]
+
+{ #category : 'initialization' }
+ICGradientGridSlider >> initializeParts [
+
+	self bar: self defaultBar.
+	self positionDefaultBar: self bar.
+	self addChild: self bar.
+
+
+	self coloredBar: self defaultColoredBar.
+	self positionDefaultBar: self coloredBar.
+	self addChild: self coloredBar.
+
+	self overlayer: self overLayer.
+	self addChild: self overlayer.
+	self positionDefaultBar: self overlayer. 
+
+	self handle: self defaultHandle.
+	self positionDefaultHandle.
+	self addChild: self handle.
+
+	"initialize segments if segmented"
+
+	"self initializeButtons"
+]
+
+{ #category : 'api - bounds' }
+ICGradientGridSlider >> overLayer [
+	"additional layer on top for grid"
+	|size container direc num width|
+	size := self 
+		        ifHorizontal: [ self defaultBarLength @ self defaultBarThickness ]
+		        ifVertical: [ self defaultBarThickness @ self defaultBarLength ].
+
+	direc:= self direction.
+	num:= self defaultBarLength / 20.
+	width:= self defaultBarThickness / 12. 
+	container:=  BlElement new
+		  	geometry: (BlRoundedRectangleGeometry cornerRadius: 10);
+			background: (Color red alpha:0.0);
+			border: (BlBorder paint: (Color r:42  g:42  b:42  range:255 ) width: width);
+		  	size: size;
+			layout: (BlGridLayout new
+			columnCount: 2);
+		  	yourself.
+
+	2 timesRepeat: [ 
+		|div|
+		div:= BlElement new
+		constraintsDo: [ :c |
+		c horizontal matchParent.
+		c vertical matchParent.
+		direc ifTrue: [ c grid horizontal span: 2  ]
+			 	ifFalse: [ c grid vertical span: 2  ].
+		];
+		background: (Color purple alpha: 0.0);
+		constraintsDo: [ :c |
+		c horizontal matchParent .
+		c vertical matchParent ];
+		layout: BlFlowLayout horizontal;
+		border: (BlBorder paint: (Color r:42  g:42  b:42  range:255 ) width: width / 2).
+
+		"Horizontal grid"
+			direc ifTrue: [ 
+				num timesRepeat: [ |elt|
+				elt:= BlElement new
+				geometry: BlRectangleGeometry new;
+		 		border: (BlBorder
+				paint: (Color purple alpha:0.0) width: 2);
+				size:  6*2 @ self defaultBarThickness ;
+				background: (Color r:42  g:42  b:42  range:255 );
+				margin: (BlInsets left:0 right: num*2).
+				div addChild: elt. 
+			 	].
+			];
+			"vertical grid"		
+			 		ifFalse: [ 
+				num timesRepeat: [ |elt|
+				elt:= BlElement new
+				geometry: BlRectangleGeometry new;
+		 		border: (BlBorder paint: (Color purple alpha:0.0) width: 2);
+				size: self defaultBarThickness*2  @ 6*2;
+				background: (Color r:42  g:42  b:42  range:255 );
+				margin: (BlInsets top:0 bottom: num*2).
+				div addChild: elt. 
+			 	].
+			].
+		container addChild: div. 
+	].
+
+
+	^ container.
+]
+
+{ #category : 'accessing' }
+ICGradientGridSlider >> overlayer [
+	^ overlayer 
+]
+
+{ #category : 'accessing' }
+ICGradientGridSlider >> overlayer: aBlElement [ 
+	overlayer := aBlElement
+]

CoypuIDE/ICGradientSlider.class.st

@@ -0,0 +1,96 @@
+Class {
+	#name : 'ICGradientSlider',
+	#superclass : 'ICSlider',
+	#category : 'CoypuIDE-slider',
+	#package : 'CoypuIDE',
+	#tag : 'slider'
+}
+
+{ #category : 'accessing' }
+ICGradientSlider >> coloredBarDefaultColor [
+	"^ Color green alpha: 0.4"
+	|direc|
+	direc:= self 
+		ifHorizontal: [ 1 @ 0 ]
+		ifVertical: [ 0 @ -1 ].
+	^ ((BlLinearGradientPaint direction:direc ) from: Color
+	blue to: (Color green)).
+]
+
+{ #category : 'initialization' }
+ICGradientSlider >> initializeParts [
+
+	self bar: self defaultBar.
+	self positionDefaultBar: self bar.
+	self addChild: self bar.
+
+
+	self coloredBar: self defaultColoredBar.
+	self positionDefaultBar: self coloredBar.
+	self addChild: self coloredBar.
+
+	self overlayer: self overLayer.
+	self addChild: self overlayer.
+	self positionDefaultBar: self overlayer. 
+
+	self handle: self defaultHandle.
+	self positionDefaultHandle.
+	self addChild: self handle.
+
+	"initialize segments if segmented"
+
+	"self initializeButtons"
+]
+
+{ #category : 'api - bounds' }
+ICGradientSlider >> overLayer [
+	"additional layer on top"
+	|size container direc num width|
+	size := self 
+		        ifHorizontal: [ self defaultBarLength @ self defaultBarThickness ]
+		        ifVertical: [ self defaultBarThickness @ self defaultBarLength ].
+
+	direc:= self direction.
+	num:= self defaultBarLength / 20.
+	width:= self defaultBarThickness / 12. 
+	container:=  BlElement new
+		  	geometry: (BlRoundedRectangleGeometry cornerRadius: 10);
+			background: (Color red alpha:0.0);
+			border: (BlBorder paint: (Color r:42  g:42  b:42  range:255 ) width: width);
+		  	size: size;
+			layout: (BlGridLayout new
+			columnCount: 2);
+		  	yourself.
+
+	2 timesRepeat: [ 
+		|div|
+		div:= BlElement new
+		constraintsDo: [ :c |
+		c horizontal matchParent.
+		c vertical matchParent.
+		direc ifTrue: [ c grid horizontal span: 2  ]
+			 	ifFalse: [ c grid vertical span: 2  ].
+		];
+		background: (Color purple alpha: 0.0);
+		constraintsDo: [ :c |
+		c horizontal matchParent .
+		c vertical matchParent ];
+		layout: BlFlowLayout horizontal;
+		border: (BlBorder paint: (Color r:42  g:42  b:42  range:255 ) width: width / 2).
+
+
+		container addChild: div. 
+	].
+
+	^ container.
+]
+
+{ #category : 'accessing' }
+ICGradientSlider >> overlayer [
+	^ overlayer 
+]
+
+{ #category : 'accessing' }
+ICGradientSlider >> overlayer: aBlElement [ 
+	overlayer := aBlElement
+]