From 464412494ab09cf6a61ee98ef9c4f01c72d91531 Mon Sep 17 00:00:00 2001
From: Mike Lynch <mike@mikelynch.org>
Date: Sat, 15 Apr 2023 15:48:42 +1000
Subject: [PATCH] TouchOSCLabel class

---
 classes/TouchOSC.sc        |  7 +++++++
 classes/TouchOSCControl.sc | 22 ++++++++++++++++++++++
 2 files changed, 29 insertions(+)

diff --git a/classes/TouchOSC.sc b/classes/TouchOSC.sc
index 65f5ec1..eb6a6cd 100644
--- a/classes/TouchOSC.sc
+++ b/classes/TouchOSC.sc
@@ -17,6 +17,13 @@ TouchOSC {
 		net.sendMsg(url, *oargs)
 	}
 
+	label { | url, default |
+		var ctrl = TouchOSCLabel(this, url, default);
+		ctrl.init();
+		controls.put(url, ctrl);
+		^ctrl;
+	}
+
 	button { | url, default, apply |
 		var ctrl = TouchOSCControl(this, url, apply, default);
 		ctrl.init();
diff --git a/classes/TouchOSCControl.sc b/classes/TouchOSCControl.sc
index d8395ac..753ee48 100644
--- a/classes/TouchOSCControl.sc
+++ b/classes/TouchOSCControl.sc
@@ -85,6 +85,28 @@ TouchOSCControlXY : TouchOSCControl {
 }
 
 
+TouchOSCLabel {
+	var <touchOSC, <url, <value;
+
+	*new { | touchOSC, url, value |
+		^super.newCopyArgs(touchOSC, url, value)
+	}
+
+	init {
+		this.send();
+	}
+
+	value_ { |newval|
+		value = newval;
+		this.send();
+	}
+
+	send {
+		touchOSC.send(url, value);
+	}
+}
+
+
 
 TouchOSCScale {
 	var <min, <max;