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