Up |
_CLRwindow
Clear the background of a window object.
Prototype :
fun [ObjWin] ObjWin
- ObjWin : a source window object
Return : ObjWin the same window object or nil if error
See also :
Example :
typeof win = ObjWin;;
fun cbClick (obj, user_param, xclick, yclick, mousebutton)=
_CLRwindow win;
0;;
fun main ()=
_showconsole;
set win = _CRwindow _channel nil 0 0 300 200 WN_NORMAL "Test CLRwindow";
_PAINTrectangle win 50 20 200 160 DRAW_SOLID 1 0 DRAW_SOLID 0x00FF00;
_CBwinClick win @cbClick 0;
0;;