\ music model interface
\ (c) by Gerald Wodni 2008

require objects.fs

interface
	selector draw
	selector print
end-interface foobar

object class
	foobar implementation
	m: ." nothing-draw" cr ;m
	overrides draw
	m: ." nothing-here" cr ;m
	overrides print
end-class nothing

nothing class
	m: ." something-here" cr ;m
	overrides print
	m: ." something-draw" cr
		this [parent] draw
	;m
	overrides draw
end-class something

.\" \n\nWelcome to Forth-Visual-Music"

nothing heap-new constant nothing-inst
something heap-new constant something-inst

nothing-inst print
something-inst print

something-inst draw

bye
