Up |
Returns the father of any OBJ object, if exists.
fun [u0 u1] u1
Return : u1 the Scol father object. It returns nil if error.
Error :
typeof win = ObjWin;;
typeof text = ObjText;;
fun main ()=
_showconsole;
// ...
set win = _CRwindow _channel nil 200 250 400 500 WN_NORMAL "test _OBJfather";
set text = _CRtext _channel win 5 5 390 450 ET_BORDER|ET_HSCROLL|ET_VSCROLL "";
// ...
_CRbutton _channel _OBJfather text nil 5 460 390 35 0 "BUTTON !";
// ...
0;;