Listing 4

/***  text window activate method ***/

void t_activate(window,windinfo)
WindowPtr window;
WIND      *windinfo;
{
  TEHandle  tehandle;
       
       /*  get data handle */
  
  tehandle =
    (TEHandle)windinfo->data;
       /*  activate event */
  if(event.modifiers & activeFlag)
  {
    TEActivate(tehandle);
    HiliteControl(((WindowPeek) window)
      ->controlList,ENABLE);
    TEFromScrap();
    enable_edit((**tehandle).selEnd
      - (**tehandle).selStart);
    enable_find();
  }
  else  /*  deactivate event */
  {
    TEDeactivate(tehandle);
    HiliteControl(((WindowPeek) window)
      ->controlList,DISABLE);
    ZeroScrap();
    TEToScrap();
    disable_edit();
    disable_find();
  }
}