// -*- ASCII:EDT -*-
//FindMethod.edt
// Macro to find the Method associated with the method call highlighted.
//
// Installation -
// add FindMethod.edt file to Macro\program\ directory,
// and add a menu item calling: Exe("%B\Macros\program\FindMethod.edt")
//
// Anthony Roy  <work@ant-roy.co.uk>

BeginGroup;
Mark(0);
SetSearchForward(1);
SetSearchCaseSensitive(1);
SetSearchEntire(1);
SetSearchCyclic(1);
SetSearchRelaxed(0);
SetSearchWholeWords(1);
SetSearchInline(0);
SetSearchCurrentDoc;
//SetSearchAllDoc;//Uncomment this and comment out previous line to search through all opened docs.
SetRegEx(1);
SearchReset;

 IfSel(1,'=',>
 !'GetSel(0,0);SetFindStr("%!0@{ }(");>
  IfFound(``,!`Prompt(``Selection %!0 not a valid method call!``);End;`);',>
 !'GetString("Method Name? (omit parentheses)","Find Method Body");LetReg(0,`%!?`);');

 IfIStr('%!0','','=','',>
  `SetFindStr("{private}|{protected}|{public}*%!0@{ }(*)");>
  IfFound(!'',!'Prompt(''Method not found in this file.'');Goto(0);');>
`);

EndGroup;
End;