doc/scriptexamples/widget1.kvs


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()