>*-- Create the XFRX Listener >This.oListener = XFRX('XFRX#LISTENER') > >*-- Create a listenter for the progress bar >This.oListenerProgress = CREATEOBJECT('updatelistener') > >*-- Chain the progress bar to XFRX listener >This.oListener.Successor = This.oListenerProgress > >*-- If other listeners have been instantiated, chain them to the progress bar >IF VARTYPE(This.oListeners) = 'O' AND This.oListeners.Count > 0 > This.oListenerProgress.Successor = This.oListeners.Item[1] >ENDIF >