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