timeModeSwitch changes between TimeMode and IdleMode

pharo-graphics · Jan 27, 2025 · 7d971c3 · 7d971c3
1 parent c8eca48
commit 7d971c3
Show file tree

Hide file tree

Showing 5 changed files with 57 additions and 19 deletions.
diff --git a/CoypuIDE/TbSwitch.class.st b/CoypuIDE/TbSwitch.class.st
@@ -89,20 +89,14 @@ TbSwitch >> initialize [
 ]
 
 { #category : 'as yet unclassified' }
-TbSwitch >> initializeEvents [ 
-
-switch
-		addEventHandler: (BlEventHandler
-				 on: BlMouseDownEvent
-				 do: [ :anEvent |
-					 self toggle.
-					]).
-	switch
-		addEventHandler: (BlEventHandler
-				 on: BlMouseUpEvent
-				 do: [ :anEvent |
-					 self toggle.
-					]).
+TbSwitch >> initializeEvents [
+
+	switch addEventHandler: (BlEventHandler
+			 on: BlMouseDownEvent
+			 do: [ :anEvent | self toggle. self callback value ]).
+	switch addEventHandler: (BlEventHandler
+			 on: BlMouseUpEvent
+			 do: [ :anEvent | self toggle ])
 ]
 
 { #category : 'as yet unclassified' }
@@ -236,9 +230,11 @@ TbSwitch >> toggle [
 
 { #category : 'initialization' }
 TbSwitch >> toggleValue [
-	self value = 0 
-		ifTrue: [ self value: 1 ] 
+
+	self value = 0
+		ifTrue: [ self value: 1 ]
 		ifFalse: [ self value: 0 ].
+
 ]
 
 { #category : 'initialization' }

diff --git a/CoypuIDE/Tp33.class.st b/CoypuIDE/Tp33.class.st
@@ -35,7 +35,7 @@ Tp33 >> initialize [
 
 	| dsp p |
 	super initialize.
-	mode := TpIdleMode new.
+	mode := TpIdleMode new machine: self.
 	"notesArrray is neeeded to map the keyboard buttons to note numbers"
 	self initializeNotesArray.
 	isRunning := false.
@@ -49,7 +49,7 @@ Tp33 >> initialize [
 	self initializeNotesCallbacks.
 	"just temporary patternPlay"
 	p := Performance uniqueInstance forDsp: dsp.
-	'35 , 48 ,62 , 71, ~ , ~ , 52 , 38, 39 , 43, ~ , 53 , ~ , 36 , 46 , 51 , 75'
+	'40 , 40 , 41, 41, 43, 43, 40, 40, 40, 38, 38, 40, 38, 43, 43, 43'
 		asDirtNotes to: #Acid.
 	self initializeKnobsValuesAndRanges.
 
@@ -148,8 +148,11 @@ Tp33 >> initializeWidgetsCallbacks [
 	self widget_PitchMode callback: [ :v |
 		v isPitchMode: v isPitchMode not ].
 
+	"ENTER TIME MODE"
+	self widget_TimeMode switch callback: [
+		self mode  handleSwitchTimeMode ].
 	"we need to access the button inside the widget"
-	(self widget_PatternClear children at: 4) callback: [ 
+	(self widget_PatternClear children at: 4) callback: [
 		16 rests to: #Acid ]
 ]
 
@@ -182,6 +185,12 @@ Tp33 >> mode [
 	^ mode
 ]
 
+{ #category : 'accessing' }
+Tp33 >> mode: aTpMode [
+
+	mode := aTpMode 
+]
+
 { #category : 'instance creation' }
 Tp33 >> newWithDsp: aDsp [
 

diff --git a/CoypuIDE/TpIdleMode.class.st b/CoypuIDE/TpIdleMode.class.st
@@ -8,3 +8,9 @@ Class {
 	#package : 'CoypuIDE',
 	#tag : 'Acid'
 }
+
+{ #category : 'action  handling' }
+TpIdleMode >> handleSwitchTimeMode [
+
+	self machine mode: (TpTimeMode new machine: self machine )
+]
diff --git a/CoypuIDE/TpMode.class.st b/CoypuIDE/TpMode.class.st
@@ -8,7 +8,28 @@ PlayMode: keyboard select different patterns in memory
 Class {
 	#name : 'TpMode',
 	#superclass : 'Object',
+	#instVars : [
+		'machine'
+	],
 	#category : 'CoypuIDE-Acid',
 	#package : 'CoypuIDE',
 	#tag : 'Acid'
 }
+
+{ #category : 'action  handling' }
+TpMode >> handleSwitchTimeMode [
+
+^ self subclassResponsibility 
+]
+
+{ #category : 'accessing' }
+TpMode >> machine [
+
+^ machine 
+]
+
+{ #category : 'accessing' }
+TpMode >> machine: aTp33 [
+
+machine := aTp33
+]
diff --git a/CoypuIDE/TpTimeMode.class.st b/CoypuIDE/TpTimeMode.class.st
@@ -8,3 +8,9 @@ Class {
 	#package : 'CoypuIDE',
 	#tag : 'Acid'
 }
+
+{ #category : 'action  handling' }
+TpTimeMode >> handleSwitchTimeMode [
+
+	self machine mode: (TpIdleMode new machine: self machine)
+]