>DEFINE CLASS scrhook as Custom > oscr=_screen > PROCEDURE oscr.resize() > IF TYPE("oapp.name")='C' > oapp.RESIZE() > ENDIF > ENDPROC >ENDDEFINE >