templeos-info/public/Wb/Demo/Graphics/MouseDemo.HC

12 lines
160 B
HolyC
Executable File

U0 Mouse()
{
"Press left mouse bttn to exit.\n";
while (!ms.lb) { //Left bttn to exit.
GrPlot(,ms.pos.x,ms.pos.y);
Refresh;
}
DCFill;
}
Mouse;