summaryrefslogtreecommitdiffstats
path: root/doc/scriptexamples/widget1.kvs
blob: 21511b348160ef76a6b381a6418269ea186f0b69 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# a stupid game :)

srand $unixTime

%w = $new(widget,0,mywidget)
%w->$setCaption(":)");
%w->$setGeometry($rand(770),$rand(570),30,30);

privateimpl(%w,mouseEnterEvent)
{
	$$->$move($rand(770),$rand(570));
}

privateimpl(%w,mousePressEvent)
{
	echo "You got me!"
	delete $$
}

%w->$show()