toggle.scd

(
var app = \toggle;
var state;
var update;
var client;

~disposeApp.();

state=Ref(Archive.global.at(\apps, app, \value) ? true);

update = { client.ledSet(0, 0, a.value) };
state.addDependant(update);

client = SerialOSCClientApp.grid(app);
client.onGridRefreshed = {
	SerialOSCGrid.clearLeds; // TODO: could be implied
	update.();
};
client.onGridKey = { |x, y, state|
	if ((x@y == 0@0) and: state) {
		state.set(state.get.not).changed
	}
};

~disposeApp = {
	client.free;
	Archive.global.put(\apps, app, \value, state.dereference);
	if (CmdPeriod.objects.includes(~disposeApp)) { CmdPeriod.remove(~disposeApp) };
	~disposeApp = nil;
};
CmdPeriod.doOnce(~disposeApp);
)