From 380d0fa9f3d5ba5509d07882b87412f7f318cbd2 Mon Sep 17 00:00:00 2001
From: ELVIN pero <invincible142002@gmail.com>
Date: Wed, 9 Oct 2024 12:35:40 +0530
Subject: [PATCH 1/7] Added comments for TbLED Class.

---
 CoypuIDE/TbLED.class.st | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/CoypuIDE/TbLED.class.st b/CoypuIDE/TbLED.class.st
index 95a30f1..ef1921a 100644
--- a/CoypuIDE/TbLED.class.st
+++ b/CoypuIDE/TbLED.class.st
@@ -11,7 +11,7 @@ Class {
 	#tag : 'Acid'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : 'example' }
 TbLED class >> LEDexample [ 
 	<script>
 	| container e1 e2 |
@@ -37,12 +37,12 @@ container openInSpace.
 	
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'accessing' }
 TbLED >> indicator [
 	^indicator
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'accessing' }
 TbLED >> indicator: aBlock [
 	indicator:= aBlock.
 ]
@@ -58,7 +58,7 @@ TbLED >> initialize [
 	self initializeIndicator.
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'initialization' }
 TbLED >> initializeIndicator [	
 	|e|
 	self indicator: (BlElement new
@@ -100,13 +100,13 @@ TbLED >> initializeWidgetSize [
 	widgetSize:= 60@55.
 ]
 
-{ #category : 'evaluating' }
+{ #category : 'accessing' }
 TbLED >> offColor [
 	^ (Color r: 115 g:1  b:1  range:255).
 
 ]
 
-{ #category : 'initialization' }
+{ #category : 'setting' }
 TbLED >> setValue: req [
 	self value = req 
 		ifFalse: [ 
@@ -114,7 +114,7 @@ TbLED >> setValue: req [
 			].
 ]
 
-{ #category : 'initialization' }
+{ #category : 'api - operations' }
 TbLED >> toggle [
 	self toggleValue.
 	self value = 1 
@@ -134,7 +134,6 @@ TbLED >> toggle [
 	 ] 
 		ifFalse: [ 
 			"Off Mode"
-			"indicator background: self offColor;"
 			indicator background: self offColor;
 			effect: (BlGaussianShadowEffect color: (Color green alpha:0.0)   offset: 5@ 0  width: 35);
 			childrenDo: [ :i|   
@@ -143,26 +142,25 @@ TbLED >> toggle [
 						scaleBy: 1.
 					].
 					i background: Color veryLightGray.
-			
 			].
-			
-		
 	].
 ]
 
-{ #category : 'initialization' }
+{ #category : 'api - operations' }
 TbLED >> toggleValue [
 	self value = 0 
+		"Off"
 		ifTrue: [ self value: 1 ] 
+		"On"
 		ifFalse: [ self value: 0 ].
 ]
 
-{ #category : 'initialization' }
+{ #category : 'accessing' }
 TbLED >> value [
 	^value
 ]
 
-{ #category : 'initialization' }
+{ #category : 'setting' }
 TbLED >> value: anInteger [
 	value:= anInteger.
 ]

From 7203ab94e71d2eb4f049e3bb442cbca28b67c12c Mon Sep 17 00:00:00 2001
From: ELVIN pero <invincible142002@gmail.com>
Date: Wed, 9 Oct 2024 12:37:36 +0530
Subject: [PATCH 2/7]


From defcd547bc8bfb458094afaf98b6d2b3558b43cf Mon Sep 17 00:00:00 2001
From: ELVIN pero <invincible142002@gmail.com>
Date: Wed, 9 Oct 2024 14:38:29 +0530
Subject: [PATCH 3/7] comments

---
 CoypuIDE/TbLED.class.st | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/CoypuIDE/TbLED.class.st b/CoypuIDE/TbLED.class.st
index ef1921a..325a9ac 100644
--- a/CoypuIDE/TbLED.class.st
+++ b/CoypuIDE/TbLED.class.st
@@ -60,6 +60,7 @@ TbLED >> initialize [
 
 { #category : 'initialization' }
 TbLED >> initializeIndicator [	
+	"This method initializes the led indicator"
 	|e|
 	self indicator: (BlElement new
             geometry: BlCircleGeometry new;
@@ -90,6 +91,7 @@ TbLED >> initializeIndicator [
 
 { #category : 'initialization' }
 TbLED >> initializeWidget [
+"This method initializes the widget"
 	self size: widgetSize.
 	self background: (Color gray alpha:0.0).
 	self layout: BlFrameLayout new.
@@ -97,6 +99,7 @@ TbLED >> initializeWidget [
 
 { #category : 'initialization' }
 TbLED >> initializeWidgetSize [
+"This method initializes the size of the widget."
 	widgetSize:= 60@55.
 ]
 
@@ -108,6 +111,7 @@ TbLED >> offColor [
 
 { #category : 'setting' }
 TbLED >> setValue: req [
+"This method takes a request integer and toggles the led if the requested integer is opposite to the value."
 	self value = req 
 		ifFalse: [ 
 			self toggle.
@@ -116,6 +120,7 @@ TbLED >> setValue: req [
 
 { #category : 'api - operations' }
 TbLED >> toggle [
+"This method changes both the value and the graphic of the widget."
 	self toggleValue.
 	self value = 1 
 		ifTrue: [ 
@@ -148,6 +153,7 @@ TbLED >> toggle [
 
 { #category : 'api - operations' }
 TbLED >> toggleValue [
+"This mathod changes the value of the widget."
 	self value = 0 
 		"Off"
 		ifTrue: [ self value: 1 ] 

From 1a079a65f927eb6f24e898ff6e829cf73b89eef0 Mon Sep 17 00:00:00 2001
From: ELVIN pero <invincible142002@gmail.com>
Date: Fri, 11 Oct 2024 20:59:57 +0530
Subject: [PATCH 4/7] run stop Glitch resolved and comments added.

---
 CoypuIDE/TbLED.class.st            |  2 +-
 CoypuIDE/TbWidget_RunStop.class.st | 41 +++++++++++++++---------------
 2 files changed, 22 insertions(+), 21 deletions(-)

diff --git a/CoypuIDE/TbLED.class.st b/CoypuIDE/TbLED.class.st
index 325a9ac..e919307 100644
--- a/CoypuIDE/TbLED.class.st
+++ b/CoypuIDE/TbLED.class.st
@@ -42,7 +42,7 @@ TbLED >> indicator [
 	^indicator
 ]
 
-{ #category : 'accessing' }
+{ #category : 'setting' }
 TbLED >> indicator: aBlock [
 	indicator:= aBlock.
 ]
diff --git a/CoypuIDE/TbWidget_RunStop.class.st b/CoypuIDE/TbWidget_RunStop.class.st
index 96e6296..856701e 100644
--- a/CoypuIDE/TbWidget_RunStop.class.st
+++ b/CoypuIDE/TbWidget_RunStop.class.st
@@ -39,25 +39,25 @@ container openInSpace.
 	
 ]
 
-{ #category : 'evaluating' }
+{ #category : 'setting' }
 TbWidget_RunStop >> configuredString: aString [ 
 	^ aString asRopedText attributes:{(BlTextForegroundAttribute
 	paint: Color veryDarkGray) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:18) }
 ]
 
-{ #category : 'evaluating' }
+{ #category : 'setting' }
 TbWidget_RunStop >> configuredString: aString size: anInteger [
 	^ aString asRopedText attributes:{(BlTextForegroundAttribute
 	paint: Color veryDarkGray) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:anInteger)}. 
 ]
 
-{ #category : 'initialization' }
+{ #category : 'setting' }
 TbWidget_RunStop >> configuredStringDark: aString [ 
 	^ aString asRopedText attributes:{(BlTextForegroundAttribute
 	paint: Color white) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:15) }
 ]
 
-{ #category : 'initialization' }
+{ #category : 'setting' }
 TbWidget_RunStop >> configuredStringDark: aString size: anInteger [
 	^ aString asRopedText attributes:{(BlTextForegroundAttribute
 	paint: Color white) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:anInteger) }
@@ -68,7 +68,7 @@ TbWidget_RunStop >> indicator [
 	^indicator.
 ]
 
-{ #category : 'accessing' }
+{ #category : 'setting' }
 TbWidget_RunStop >> indicator: aBlock [
 	indicator:= aBlock.
 ]
@@ -85,13 +85,13 @@ TbWidget_RunStop >> initialize [
 	self initializeEvents.
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'initialization' }
 TbWidget_RunStop >> initializeEvents [
-
+	"Mouse Up Event is chosen instead of down to make a smooth transition when the user unclicks the switch."
 	switch
 		childrenDo: [ :i|   
 				i addEventHandler: (BlEventHandler
-				 	on: BlMouseDownEvent
+				 	on: BlMouseUpEvent
 				 	do: [ :anEvent |
 						self toggle.
 					]).
@@ -139,7 +139,7 @@ TbWidget_RunStop >> initializeLayout [
 		t translateBy:0@ -30. 
 		].
 	
-	self switch: (TbHorizontalSwitch2 new).
+	self switch: (TbHorizontalSwitch2 toggleable).
 	switch constraintsDo: [ :c |
 					c frame horizontal alignCenter.
 					c frame vertical alignCenter.
@@ -174,7 +174,7 @@ TbWidget_RunStop >> initializeWidgetSize [
 	widgetSize:= 160@180.
 ]
 
-{ #category : 'initialization' }
+{ #category : 'setting' }
 TbWidget_RunStop >> setValue: req [
 	self value = req 
 		ifFalse: [ 
@@ -182,32 +182,33 @@ TbWidget_RunStop >> setValue: req [
 			].
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'accessing' }
 TbWidget_RunStop >> shadowColor [
 	^ (Color orange alpha:1.0)
 	"^ (Color darkGray alpha:1.0)"
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'accessing' }
 TbWidget_RunStop >> switch [
 	^switch
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : 'setting' }
 TbWidget_RunStop >> switch: aBlock [
 	switch:= aBlock.
 ]
 
-{ #category : 'initialization' }
+{ #category : 'api - operations' }
 TbWidget_RunStop >> toggle [
-	self indicator toggle.
-	self switch toggle.
-
+	"Toggles the value of indicator and the widget (The switch is toggled automatically due to its own toggle nature)"
 	self toggleValue.
+	self indicator toggle.
+	
 ]
 
-{ #category : 'initialization' }
+{ #category : 'api - operations' }
 TbWidget_RunStop >> toggleValue [
+	"Toggles the value of widget (not the value of inner elements)"
 	self value = 0 
 		ifTrue: [ 
 			self value: 1.
@@ -217,12 +218,12 @@ TbWidget_RunStop >> toggleValue [
 			].
 ]
 
-{ #category : 'initialization' }
+{ #category : 'accessing' }
 TbWidget_RunStop >> value [
 	^value
 ]
 
-{ #category : 'initialization' }
+{ #category : 'setting' }
 TbWidget_RunStop >> value: anInteger [
 	value:= anInteger.
 ]

From b847410268c1f171daa9d52df309b654466531ca Mon Sep 17 00:00:00 2001
From: ELVIN pero <invincible142002@gmail.com>
Date: Fri, 11 Oct 2024 22:33:26 +0530
Subject: [PATCH 5/7] Pitch mode added.

---
 CoypuIDE/TbWidget_Back.class.st      |   5 +-
 CoypuIDE/TbWidget_PitchMode.class.st | 204 +++++++++++++++++++++++++++
 CoypuIDE/TbWidget_RunStop.class.st   |   2 +-
 3 files changed, 208 insertions(+), 3 deletions(-)
 create mode 100644 CoypuIDE/TbWidget_PitchMode.class.st

diff --git a/CoypuIDE/TbWidget_Back.class.st b/CoypuIDE/TbWidget_Back.class.st
index 8b0ee95..ff697be 100644
--- a/CoypuIDE/TbWidget_Back.class.st
+++ b/CoypuIDE/TbWidget_Back.class.st
@@ -20,7 +20,7 @@ TbWidget_Back class >> AllWidgetExamples [
 		
 		geometry: BlRectangleGeometry new;
 		layout: (BlGridLayout new
-		columnCount: 2;
+		columnCount: 3;
 		cellSpacing: 10
 		);
 		constraintsDo: [:c |
@@ -35,10 +35,11 @@ e1:=TbWidget_Back new.
 e2:=TbWidget_WriteNext new.
 e3:=TbWidget_PatternClear new.
 e4:=TbWidget_RunStop new.
+e5:=TbWidget_PitchMode new.
 
 
 
-container addChildren: { e1. e3. e2. e4}.
+container addChildren: { e1. e3. e5. e2. e4. }.
 container openInSpace.
 	
 ]
diff --git a/CoypuIDE/TbWidget_PitchMode.class.st b/CoypuIDE/TbWidget_PitchMode.class.st
new file mode 100644
index 0000000..ccd025f
--- /dev/null
+++ b/CoypuIDE/TbWidget_PitchMode.class.st
@@ -0,0 +1,204 @@
+Class {
+	#name : 'TbWidget_PitchMode',
+	#superclass : 'BlElement',
+	#instVars : [
+		'widgetSize',
+		'switch',
+		'indicator',
+		'value'
+	],
+	#category : 'CoypuIDE-Acid',
+	#package : 'CoypuIDE',
+	#tag : 'Acid'
+}
+
+{ #category : 'examples' }
+TbWidget_PitchMode class >> Example [ 
+	<script>
+	| container e1 |
+	container:= BlElement new
+		
+		geometry: BlRectangleGeometry new;
+		layout: (BlGridLayout new
+		columnCount: 10;
+		cellSpacing: 10
+		);
+		constraintsDo: [:c |
+			c horizontal matchParent.
+			c vertical matchParent.
+			];
+		background: (Color r: 249 g:239  b:224  range:255).
+		"background: Color white."
+
+e1:=TbWidget_PitchMode new.
+
+
+
+container addChildren: { e1}.
+container openInSpace.
+	
+]
+
+{ #category : 'setting' }
+TbWidget_PitchMode >> configuredString: aString [ 
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color veryDarkGray) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:18) }
+]
+
+{ #category : 'setting' }
+TbWidget_PitchMode >> configuredString: aString size: anInteger [
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color veryDarkGray) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:anInteger)}. 
+]
+
+{ #category : 'setting' }
+TbWidget_PitchMode >> configuredStringDark: aString [ 
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color white) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:15) }
+]
+
+{ #category : 'setting' }
+TbWidget_PitchMode >> configuredStringDark: aString size: anInteger [
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color white) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:anInteger) }
+]
+
+{ #category : 'accessing' }
+TbWidget_PitchMode >> indicator [
+	^indicator.
+]
+
+{ #category : 'setting' }
+TbWidget_PitchMode >> indicator: aBlock [
+	indicator:= aBlock.
+]
+
+{ #category : 'initialization' }
+TbWidget_PitchMode >> initialize [
+
+	super initialize.
+	self value: 0.
+	self padding: (BlInsets all:10).
+	self initializeWidgetSize.
+	self initializeWidget.
+	self initializeLayout.
+	self initializeEvents.
+]
+
+{ #category : 'initialization' }
+TbWidget_PitchMode >> initializeEvents [
+	"Mouse Up Event is chosen instead of down to make a smooth transition when the user unclicks the switch."
+	switch
+		childrenDo: [ :i|   
+				i addEventHandler: (BlEventHandler
+				 	on: BlMouseUpEvent
+				 	do: [ :anEvent |
+						self toggle.
+					]).
+	].
+		
+	
+]
+
+{ #category : 'initialization' }
+TbWidget_PitchMode >> initializeLayout [
+	|label|
+	
+	"self border: (BlBorder paint: (Color gray) width: 2)."
+
+	label := BlTextElement new.
+	label text: (self configuredStringDark: 'PITCH MODE' size:16).
+	label constraintsDo: [ :c | 
+		c frame horizontal alignCenter.
+		c frame vertical alignTop.
+		].
+	label transformDo: [ :t|
+		t translateBy:0@ 0. 
+		].
+	
+	self switch: (TbHorizontalSwitch toggleable ).
+	switch constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignBottom.
+	].	
+	switch switch effect: (BlGaussianShadowEffect color: (Color veryDarkGray alpha:0.7)   offset: 0@ 4  width: 10).
+	self indicator: (TbLED new).
+	indicator constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignTop.
+				];
+				transformDo: [ :t|
+			t translateBy:0@ 10. 
+		].
+	
+	
+	
+	self addChildren: {label.self indicator. self switch}.
+	
+]
+
+{ #category : 'initialization' }
+TbWidget_PitchMode >> initializeWidget [
+	self size: widgetSize.
+	self background: (Color veryVeryDarkGray alpha:1.0).
+	self layout: BlFrameLayout new.
+]
+
+{ #category : 'initialization' }
+TbWidget_PitchMode >> initializeWidgetSize [
+		widgetSize:= 160@120.
+]
+
+{ #category : 'setting' }
+TbWidget_PitchMode >> setValue: req [
+	self value = req 
+		ifFalse: [ 
+			self toggle.
+			].
+]
+
+{ #category : 'accessing' }
+TbWidget_PitchMode >> shadowColor [
+	^ (Color orange alpha:1.0)
+	"^ (Color darkGray alpha:1.0)"
+]
+
+{ #category : 'accessing' }
+TbWidget_PitchMode >> switch [
+	^switch
+]
+
+{ #category : 'setting' }
+TbWidget_PitchMode >> switch: aBlock [
+	switch:= aBlock.
+]
+
+{ #category : 'api - operations' }
+TbWidget_PitchMode >> toggle [
+	"Toggles the value of indicator and the widget (The switch is toggled automatically due to its own toggle nature)"
+	self toggleValue.
+	self indicator toggle.
+	
+]
+
+{ #category : 'api - operations' }
+TbWidget_PitchMode >> toggleValue [
+	"Toggles the value of widget (not the value of inner elements)"
+	self value = 0 
+		ifTrue: [ 
+			self value: 1.
+			] 
+		ifFalse: [ 
+			self value: 0. 
+			].
+]
+
+{ #category : 'accessing' }
+TbWidget_PitchMode >> value [
+	^value
+]
+
+{ #category : 'setting' }
+TbWidget_PitchMode >> value: anInteger [
+	value:= anInteger.
+]
diff --git a/CoypuIDE/TbWidget_RunStop.class.st b/CoypuIDE/TbWidget_RunStop.class.st
index 856701e..f2a8a84 100644
--- a/CoypuIDE/TbWidget_RunStop.class.st
+++ b/CoypuIDE/TbWidget_RunStop.class.st
@@ -158,7 +158,7 @@ TbWidget_RunStop >> initializeLayout [
 	
 	
 	
-	self addChildren: {l1. l2. label. self switch. self indicator}.
+	self addChildren: {l1. l2. label.self indicator. self switch}.
 	
 ]
 

From 322b461603687f88a98d9367fb028fba4c108e15 Mon Sep 17 00:00:00 2001
From: ELVIN pero <invincible142002@gmail.com>
Date: Fri, 11 Oct 2024 23:49:21 +0530
Subject: [PATCH 6/7] Function mode added with examples.

---
 CoypuIDE/TbWidget_Back.class.st     |   5 +-
 CoypuIDE/TbWidget_Function.class.st | 263 ++++++++++++++++++++++++++++
 2 files changed, 266 insertions(+), 2 deletions(-)
 create mode 100644 CoypuIDE/TbWidget_Function.class.st

diff --git a/CoypuIDE/TbWidget_Back.class.st b/CoypuIDE/TbWidget_Back.class.st
index ff697be..04baead 100644
--- a/CoypuIDE/TbWidget_Back.class.st
+++ b/CoypuIDE/TbWidget_Back.class.st
@@ -15,7 +15,7 @@ Class {
 { #category : 'as yet unclassified' }
 TbWidget_Back class >> AllWidgetExamples [
 	<script>
-	| container e1 e2 e3 e4 e5 |
+	| container e1 e2 e3 e4 e5 e6|
 	container:= BlElement new
 		
 		geometry: BlRectangleGeometry new;
@@ -36,10 +36,11 @@ e2:=TbWidget_WriteNext new.
 e3:=TbWidget_PatternClear new.
 e4:=TbWidget_RunStop new.
 e5:=TbWidget_PitchMode new.
+e6:=TbWidget_Function new.
 
 
 
-container addChildren: { e1. e3. e5. e2. e4. }.
+container addChildren: { e1. e3. e5. e2. e4. e6}.
 container openInSpace.
 	
 ]
diff --git a/CoypuIDE/TbWidget_Function.class.st b/CoypuIDE/TbWidget_Function.class.st
new file mode 100644
index 0000000..4c432ac
--- /dev/null
+++ b/CoypuIDE/TbWidget_Function.class.st
@@ -0,0 +1,263 @@
+Class {
+	#name : 'TbWidget_Function',
+	#superclass : 'BlElement',
+	#instVars : [
+		'widgetSize',
+		'switch',
+		'indicator',
+		'value'
+	],
+	#category : 'CoypuIDE-Acid',
+	#package : 'CoypuIDE',
+	#tag : 'Acid'
+}
+
+{ #category : 'as yet unclassified' }
+TbWidget_Function class >> Example [ 
+	<script>
+	| container e1 |
+	container:= BlElement new
+		
+		geometry: BlRectangleGeometry new;
+		layout: (BlGridLayout new
+		columnCount: 10;
+		cellSpacing: 10
+		);
+		constraintsDo: [:c |
+			c horizontal matchParent.
+			c vertical matchParent.
+			];
+		background: (Color r: 249 g:239  b:224  range:255).
+		"background: Color white."
+
+e1:=TbWidget_Function new.
+
+
+
+container addChildren: { e1}.
+container openInSpace.
+	
+]
+
+{ #category : 'setting' }
+TbWidget_Function >> configuredString: aString [ 
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color veryDarkGray) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:18) }
+]
+
+{ #category : 'setting' }
+TbWidget_Function >> configuredString: aString size: anInteger [
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color veryDarkGray) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:anInteger)}. 
+]
+
+{ #category : 'setting' }
+TbWidget_Function >> configuredStringDark: aString [ 
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color white) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:15) }
+]
+
+{ #category : 'setting' }
+TbWidget_Function >> configuredStringDark: aString size: anInteger [
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color white) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:anInteger) }
+]
+
+{ #category : 'accessing' }
+TbWidget_Function >> indicator [
+	^indicator.
+]
+
+{ #category : 'setting' }
+TbWidget_Function >> indicator: aBlock [
+	indicator:= aBlock.
+]
+
+{ #category : 'initialization' }
+TbWidget_Function >> initialize [
+
+	super initialize.
+	self value: 0.
+	self padding: (BlInsets all:10).
+	self initializeWidgetSize.
+	self initializeWidget.
+	self initializeLayout.
+	self initializeEvents.
+]
+
+{ #category : 'initialization' }
+TbWidget_Function >> initializeEvents [
+
+	switch
+		childrenDo: [ :i|   
+				i addEventHandler: (BlEventHandler
+				 	on: BlMouseDownEvent
+				 	do: [ :anEvent |
+						self toggleValue.
+						self indicator toggle.
+					]).
+				i addEventHandler: (BlEventHandler
+				 	on: BlMouseUpEvent
+				 	do: [ :anEvent |
+						self toggleValue.
+						self indicator toggle.
+					]).
+				
+	].
+		
+	
+]
+
+{ #category : 'initialization' }
+TbWidget_Function >> initializeLayout [
+	|label l1 l2 l3 bg|
+	
+	self border: (BlBorder paint: (Color gray) width: 2).
+	
+	l1 := BlTextElement new.
+	l1 text: (self configuredString: 'FUNCTION' size: 18);
+	 	padding: (BlInsets all:5);
+		constraintsDo: [ :c | 
+		c frame horizontal alignLeft.
+		c frame vertical alignTop.
+		].
+	l1 transformDo: [ :t|
+		t translateBy:0@ 12. 
+		].
+	
+	l2 := BlTextElement new.
+	l2 text: (self configuredString: 'NORMAL' size: 14);
+	 	padding: (BlInsets all:5);
+		constraintsDo: [ :c | 
+		c frame horizontal alignRight.
+		c frame vertical alignCenter.
+		].
+	l2 transformDo: [ :t|
+		t translateBy:5@ -34. 
+		].
+	
+	l3 := BlTextElement new.
+	l3 text: (self configuredString: 'MODE' size: 14);
+	 	padding: (BlInsets all:5);
+		constraintsDo: [ :c | 
+		c frame horizontal alignRight.
+		c frame vertical alignCenter.
+		].
+	l3 transformDo: [ :t|
+		t translateBy:-5@ -20. 
+		].
+
+
+	
+	
+	label := BlTextElement new.
+	label text: (self configuredStringDark: 'BAR' size:16).
+	label constraintsDo: [ :c | 
+		c frame horizontal alignLeft.
+		c frame vertical alignBottom.
+		].
+	label transformDo: [ :t|
+		t translateBy:15@ -25. 
+		].
+	
+	bg:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:45@25;
+		background:Color veryVeryDarkGray;
+		constraintsDo: [ :c | 
+		c frame horizontal alignLeft.
+		c frame vertical alignBottom.
+		];
+	 	transformDo: [ :t|
+		t translateBy:5@ -17. 
+		].
+	
+	self switch: (TbSwitch new).
+	switch constraintsDo: [ :c |
+					c frame horizontal alignLeft.
+					c frame vertical alignCenter.
+				];
+		transformDo: [ :t|
+			t translateBy:10@ 0. 
+		].
+	self indicator: (TbLED new).
+	indicator constraintsDo: [ :c |
+					c frame horizontal alignRight.
+					c frame vertical alignTop.
+				];
+				transformDo: [ :t|
+			t translateBy:0@ 0. 
+		].
+	
+	
+	
+	self addChildren: {l1. l2. l3. bg. label.self indicator. self switch}.
+	
+]
+
+{ #category : 'initialization' }
+TbWidget_Function >> initializeWidget [
+	self size: widgetSize.
+	self background: (Color gray alpha:0.0).
+	self layout: BlFrameLayout new.
+]
+
+{ #category : 'initialization' }
+TbWidget_Function >> initializeWidgetSize [
+	widgetSize:= 160@180.
+]
+
+{ #category : 'setting' }
+TbWidget_Function >> setValue: req [
+	self value = req 
+		ifFalse: [ 
+			self toggle.
+			].
+]
+
+{ #category : 'accessing' }
+TbWidget_Function >> shadowColor [
+	^ (Color orange alpha:1.0)
+	"^ (Color darkGray alpha:1.0)"
+]
+
+{ #category : 'accessing' }
+TbWidget_Function >> switch [
+	^switch
+]
+
+{ #category : 'setting' }
+TbWidget_Function >> switch: aBlock [
+	switch:= aBlock.
+]
+
+{ #category : 'api - operations' }
+TbWidget_Function >> toggle [
+
+	self switch toggle.
+	self indicator toggle.
+	self toggleValue.
+	
+]
+
+{ #category : 'api - operations' }
+TbWidget_Function >> toggleValue [
+	"Toggles the value of widget (not the value of inner elements)"
+	self value = 0 
+		ifTrue: [ 
+			self value: 1.
+			] 
+		ifFalse: [ 
+			self value: 0. 
+			].
+]
+
+{ #category : 'accessing' }
+TbWidget_Function >> value [
+	^value
+]
+
+{ #category : 'setting' }
+TbWidget_Function >> value: anInteger [
+	value:= anInteger.
+]

From d1f8fc206fbdd8cb128b4fc3c0d4022a9f427bc2 Mon Sep 17 00:00:00 2001
From: ELVIN pero <invincible142002@gmail.com>
Date: Sun, 13 Oct 2024 11:54:28 +0530
Subject: [PATCH 7/7] Time mode added.

---
 CoypuIDE/TbWidget_Back.class.st     |   7 +-
 CoypuIDE/TbWidget_TimeMode.class.st | 374 ++++++++++++++++++++++++++++
 2 files changed, 378 insertions(+), 3 deletions(-)
 create mode 100644 CoypuIDE/TbWidget_TimeMode.class.st

diff --git a/CoypuIDE/TbWidget_Back.class.st b/CoypuIDE/TbWidget_Back.class.st
index 04baead..fe9e2d6 100644
--- a/CoypuIDE/TbWidget_Back.class.st
+++ b/CoypuIDE/TbWidget_Back.class.st
@@ -15,12 +15,12 @@ Class {
 { #category : 'as yet unclassified' }
 TbWidget_Back class >> AllWidgetExamples [
 	<script>
-	| container e1 e2 e3 e4 e5 e6|
+	| container e1 e2 e3 e4 e5 e6 e7|
 	container:= BlElement new
 		
 		geometry: BlRectangleGeometry new;
 		layout: (BlGridLayout new
-		columnCount: 3;
+		columnCount: 4;
 		cellSpacing: 10
 		);
 		constraintsDo: [:c |
@@ -37,10 +37,11 @@ e3:=TbWidget_PatternClear new.
 e4:=TbWidget_RunStop new.
 e5:=TbWidget_PitchMode new.
 e6:=TbWidget_Function new.
+e7:=TbWidget_TimeMode new.
 
 
 
-container addChildren: { e1. e3. e5. e2. e4. e6}.
+container addChildren: { e1. e3. e5. e7. e2. e4. e6}.
 container openInSpace.
 	
 ]
diff --git a/CoypuIDE/TbWidget_TimeMode.class.st b/CoypuIDE/TbWidget_TimeMode.class.st
new file mode 100644
index 0000000..231671e
--- /dev/null
+++ b/CoypuIDE/TbWidget_TimeMode.class.st
@@ -0,0 +1,374 @@
+Class {
+	#name : 'TbWidget_TimeMode',
+	#superclass : 'BlElement',
+	#instVars : [
+		'widgetSize',
+		'switch',
+		'indicator',
+		'value'
+	],
+	#category : 'CoypuIDE-Acid',
+	#package : 'CoypuIDE',
+	#tag : 'Acid'
+}
+
+{ #category : 'examples' }
+TbWidget_TimeMode class >> Example [ 
+	<script>
+	| container e1 |
+	container:= BlElement new
+		
+		geometry: BlRectangleGeometry new;
+		layout: (BlGridLayout new
+		columnCount: 10;
+		cellSpacing: 10
+		);
+		constraintsDo: [:c |
+			c horizontal matchParent.
+			c vertical matchParent.
+			];
+		background: (Color r: 249 g:239  b:224  range:255).
+		"background: Color white."
+
+e1:=TbWidget_TimeMode new.
+
+
+
+container addChildren: { e1}.
+container openInSpace.
+	
+]
+
+{ #category : 'setting' }
+TbWidget_TimeMode >> configuredString: aString [ 
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color veryDarkGray) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:18) }
+]
+
+{ #category : 'setting' }
+TbWidget_TimeMode >> configuredString: aString size: anInteger [
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color veryDarkGray) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:anInteger)}. 
+]
+
+{ #category : 'setting' }
+TbWidget_TimeMode >> configuredStringDark: aString [ 
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color white) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:15) }
+]
+
+{ #category : 'setting' }
+TbWidget_TimeMode >> configuredStringDark: aString size: anInteger [
+	^ aString asRopedText attributes:{(BlTextForegroundAttribute
+	paint: Color white) . (BlFontWeightAttribute bold) . (BlFontSizeAttribute size:anInteger) }
+]
+
+{ #category : 'accessing' }
+TbWidget_TimeMode >> indicator [
+	^indicator.
+]
+
+{ #category : 'setting' }
+TbWidget_TimeMode >> indicator: aBlock [
+	indicator:= aBlock.
+]
+
+{ #category : 'initialization' }
+TbWidget_TimeMode >> initialize [
+
+	super initialize.
+	self value: 0.
+	self padding: (BlInsets all:0).
+	self initializeWidgetSize.
+	self initializeWidget.
+	self initializeLayout.
+	self initializeEvents.
+]
+
+{ #category : 'initialization' }
+TbWidget_TimeMode >> initializeEvents [
+	"Mouse Up Event is chosen instead of down to make a smooth transition when the user unclicks the switch."
+	switch
+		childrenDo: [ :i|   
+				i addEventHandler: (BlEventHandler
+				 	on: BlMouseUpEvent
+				 	do: [ :anEvent |
+						self toggle.
+					]).
+	].
+		
+	
+]
+
+{ #category : 'initialization' }
+TbWidget_TimeMode >> initializeLayout [
+	"gi are the background shades."
+	|label g1 g2 |
+	
+	self border: (BlBorder paint: (Color gray) width: 2).
+
+	label := BlTextElement new.
+	label text: (self configuredString: 'TIME MODE' size:18).
+	label constraintsDo: [ :c | 
+		c frame horizontal alignCenter.
+		c frame vertical alignTop.
+		].
+	label transformDo: [ :t|
+		t translateBy:0@ 6. 
+		].
+	
+	self switch: (TbHorizontalSwitch toggleable ).
+	switch constraintsDo: [ :c |
+					c frame horizontal alignRight.
+					c frame vertical alignCenter.
+	];
+	transformDo: [ :t|
+		t translateBy:-10@ 0. 
+		].
+	
+	self indicator: (TbLED new).
+	indicator constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignTop.
+				];
+				transformDo: [ :t|
+			t translateBy:0@ 14. 
+		].
+	
+	g1:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:14@120;
+		background:Color veryVeryDarkGray;
+		constraintsDo: [ :c |
+					c frame horizontal alignLeft.
+					c frame vertical alignTop.
+				];
+				transformDo: [ :t|
+			t translateBy:0@ 0. 
+		].
+		g2:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:330@40;
+		background:Color veryVeryDarkGray;
+		constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignBottom.
+				];
+				transformDo: [ :t|
+			t translateBy:0@ 0. 
+		].
+		
+		
+	
+	self addChildren: {label.self indicator. g2. self switch. g1}.
+	self initializeLines.
+		self initializeTexts.
+]
+
+{ #category : 'initialization' }
+TbWidget_TimeMode >> initializeLines [
+	"li are the lines."
+	|l1 l2 l3 l4 l5 l6 l7|
+	l1:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:2@40;
+		background:Color white;
+		constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignBottom.
+				];
+				transformDo: [ :t|
+			t translateBy:0@ 0. 
+		].
+	l2:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:2@40;
+		background:Color white;
+		constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignBottom.
+				];
+				transformDo: [ :t|
+			t translateBy:82@ 0. 
+		].
+	l3:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:2@20;
+		background:Color white;
+		constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignBottom.
+				];
+				transformDo: [ :t|
+			t translateBy:-82@ 0. 
+		].
+	l4:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:2@35;
+		background:Color veryVeryDarkGray;
+		constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignCenter.
+				];
+				transformDo: [ :t|
+			t translateBy:0@ 5. 
+		].
+	l5:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:2@35;
+		background:Color veryVeryDarkGray ;
+		constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignCenter.
+				];
+				transformDo: [ :t|
+			t translateBy:82@ 5. 
+		].
+	l6:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:2@35;
+		background:Color veryVeryDarkGray ;
+		constraintsDo: [ :c |
+					c frame horizontal alignCenter.
+					c frame vertical alignCenter.
+				];
+				transformDo: [ :t|
+			t translateBy:-82@ 5. 
+		].
+	l7:= BlElement new
+		geometry: BlRectangleGeometry new;
+		size:145@1;
+		background:Color white;
+		constraintsDo: [ :c |
+					c frame horizontal alignLeft.
+					c frame vertical alignBottom.
+				];
+				transformDo: [ :t|
+			t translateBy:10@ -20. 
+		].
+	
+	
+	self addChildren:{l1. l2. l3. l4. l5. l6. l7}. 
+	
+]
+
+{ #category : 'initialization' }
+TbWidget_TimeMode >> initializeTexts [
+	"ti are the texts written."
+	|t1 t2 t3 t4 t5|
+	t1 := BlTextElement new.
+	t1 text: (self configuredStringDark: 'DOWN' size:16);
+	 constraintsDo: [ :c | 
+		c frame horizontal alignLeft.
+		c frame vertical alignBottom.
+		];
+	 transformDo: [ :t|
+		t translateBy:25 @ -6. 
+		].
+	
+	t2 := BlTextElement new.
+	t2 text: (self configuredStringDark: 'UP' size:16);
+	 constraintsDo: [ :c | 
+		c frame horizontal alignCenter.
+		c frame vertical alignBottom.
+		];
+	 transformDo: [ :t|
+		t translateBy:-45 @ -6. 
+		].
+	t3 := BlTextElement new.
+	t3 text: (self configuredStringDark: 'ACCENT' size:18);
+	 constraintsDo: [ :c | 
+		c frame horizontal alignCenter.
+		c frame vertical alignBottom.
+		];
+	 transformDo: [ :t|
+		t translateBy:42 @ -15. 
+		].
+	
+	t4 := BlTextElement new.
+	t4 text: (self configuredStringDark: 'SLIDE' size:18);
+	 constraintsDo: [ :c | 
+		c frame horizontal alignRight.
+		c frame vertical alignBottom.
+		];
+	 transformDo: [ :t|
+		t translateBy:-20 @ -15. 
+		].
+	t5 := BlTextElement new.
+	t5 text: (self configuredStringDark: 'TRANSPOSE' size:16);
+	 constraintsDo: [ :c | 
+		c frame horizontal alignLeft.
+		c frame vertical alignBottom.
+		];
+	 transformDo: [ :t|
+		t translateBy:45 @ -25. 
+		].
+	self addChildren:{t1. t2. t3. t4. t5}.
+	
+]
+
+{ #category : 'initialization' }
+TbWidget_TimeMode >> initializeWidget [
+	self size: widgetSize.
+	self background: (Color veryVeryDarkGray alpha:0.0).
+	self layout: BlFrameLayout new.
+]
+
+{ #category : 'initialization' }
+TbWidget_TimeMode >> initializeWidgetSize [
+		widgetSize:= 330@120.
+]
+
+{ #category : 'setting' }
+TbWidget_TimeMode >> setValue: req [
+	self value = req 
+		ifFalse: [ 
+			self toggle.
+			].
+]
+
+{ #category : 'accessing' }
+TbWidget_TimeMode >> shadowColor [
+	^ (Color orange alpha:1.0)
+	"^ (Color darkGray alpha:1.0)"
+]
+
+{ #category : 'accessing' }
+TbWidget_TimeMode >> switch [
+	^switch
+]
+
+{ #category : 'setting' }
+TbWidget_TimeMode >> switch: aBlock [
+	switch:= aBlock.
+]
+
+{ #category : 'api - operations' }
+TbWidget_TimeMode >> toggle [
+	"Toggles the value of indicator and the widget (The switch is toggled automatically due to its own toggle nature)"
+	self toggleValue.
+	self indicator toggle.
+	
+]
+
+{ #category : 'api - operations' }
+TbWidget_TimeMode >> toggleValue [
+	"Toggles the value of widget (not the value of inner elements)"
+	self value = 0 
+		ifTrue: [ 
+			self value: 1.
+			] 
+		ifFalse: [ 
+			self value: 0. 
+			].
+]
+
+{ #category : 'accessing' }
+TbWidget_TimeMode >> value [
+	^value
+]
+
+{ #category : 'setting' }
+TbWidget_TimeMode >> value: anInteger [
+	value:= anInteger.
+]