compmus class session 7 sc code - clock

clock_prototype.scd

\clock.class;

'clock'.class;

Date.localtime - Date.localtime;

//:
\clock.window({ | w |
	var routine, beats = 0, textdisplay, minutes, seconds;
	w.view.layout = VLayout(
		textdisplay = StaticText().string_("CLOCK IS HERE"),
		seconds = NumberBox(),
		minutes = NumberBox()
	);
	routine = {
		loop {
			1.wait;
			beats = beats + 1;
			seconds.value = beats % 60;
			minutes.value = beats - (beats % 60) / 60;
			textdisplay.string = Date.localtime.stamp[9..];
		}
	}.fork(AppClock);
});

//:
Date