loBinder=CREATEOBJECT("binder") >BINDEVENT(_SCREEN, "caption", loBinder, "bound") >_screen.Caption = _screen.Caption+" " > > >DEFINE CLASS binder as Custom > >*--------------------------------------------------- > PROCEDURE BOUND() >*-- dn 2016/02/04 > SET STEP ON > AEVENTS(aE, THIS) > oSrc=aE[2] > lcP=aE[3] > luVal=GETPEM(oSrc, lcP) > ?luVal >ENDDEFINE >
AEVENTS(aE, 0)to get the caller :)