when I pass my mouse over a control that it moves 10 pixels, as the mouse does not move.
If the mouse leaves this control, this control back to its original position
But I still have a blinking control.
flashing control at mouseover
Code: Select all
predicates onMouseMove : drawWindow::mouseMoveListener. clauses onMouseMove(_Source, Point, _ShiftControlAlt, _Buttons):- move=false,!, getPosition(X,Y), setPosition(X,Y-10), move:=true, set_timerNum(). onMouseMove(_Source, _Point, _ShiftControlAlt, _Buttons). class facts timerNum : timerID := erroneous. delay : integer :=2000. move:boolean:= false. souris:pnt:=erroneous. predicates set_timerNum:(). clauses set_timerNum():- timerNum := timerSet(delay). predicates delayedInformation : (). clauses delayedInformation():- timerKill(timerNum), timerNum := erroneous, if souris getPosition(X,Y), setPosition(X,Y+10), move:=false.
This is from a French translation English, thank you for your understanding and your answers