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