:- pce_begin_class(icon, device).

initialise(I, Image:image, Label:name) :->
	"Create from image and label"::
	send(I, send_super, initialise),
	send(I, display, bitmap(Image)),
	send(I, display, text(Label, center)),
	send(I, reposition).

reposition(I) :->
	get(I, member, bitmap, Bitmap),
	get(I, member, text, Text),
	get(Bitmap, center_x, CX),
	get(Bitmap, bottom_side, BS),
	get(Text, width, W),
	TX is CX - W//2,
	send(Text, set, TX, BS).

label(I, Text:name) :->
	"Change the label"::
	get(I, member, text, Text),
	send(Text, string, Text).

:- pce_end_class.