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