previous next

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;