/* Copyright(c) 1995 by SAS Institute Inc., Cary, NC USA */
length text $ 200;
init: method;
   /* Set up the event handler for the ete to handle the    */
   /* DATA_CHANGE event and set the text in the ete.        */
  call super(_self_,'_INIT_');
  call send(_self_,'_SET_EVENT_HANDLER_','*',
            'DATA_CHANGE','_SET_TEXT_',_self_);
  endmethod;

feedbk: method event $20 line offset 8;
   /* Get the text and send text in an event.               */
   call send(_self_,'_GET_TEXT_',text);
   call send(_self_,'_SEND_EVENT_','TABLE_WHERE_DATA', text);
   endmethod;

set_text: method text $200;
   /* Get the text and send text in an event.               */
   call super(_self_,'_SET_TEXT_',text);
   call send(_self_,'_SEND_EVENT_','TABLE_WHERE_DATA', text);

   /* Position the cursor on the next character.            */
   len=length(text) + 1;
   call super(_self_,'_CURSOR_',1,len);
   endmethod;