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

12 lines
160 B
HolyC
Raw Normal View History

2024-03-16 10:26:19 +00:00
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;