A Subclassed Window Procedure
WindowProc: proc( hwndClient, msg, mp1, mp2) options( byvalue linkage( system )) returns( MRESULT );
Dcl proc_pointer PFNWP ;
Dcl hwndClient HWND; Dcl msg ULONG; Dcl ( mp1, mp2 ) MPARAM; Dcl ps HPS; Dcl mr MRESULT;
mr = null( 0 );
select ( msg );
when( WM_CHAR )
do;
end;
Otherwise ;
end;
return ( proc_pointer( hwndClient, msg, mp1, mp2 ) ) ;
end;
