//-*- ASCII:EDT -*-
// Browse & insert a filename
//   including the full path
// Anthony Roy
// work@ant-roy.co.uk
/////////////////////

BeginGroup;
 GetChildName(2);
 GetFileType("%!2",3);
// If the file is a .dat or .edt file,
// let's assume you want to insert the name of a macro file
 IfIStr("%!3",".dat","=",>
  "LetReg(2,'%B\Macros\');LetReg(4,'Macro|*.edt|')",>
  "IfIStr(""%!3"","".edt"",""="",>
    ""LetReg(2,'%B\Macros\');LetReg(4,'Macro|*.edt|')"",>
    ""LetReg(4,'');>
// Put in your favourite directory for picture and LaTeX files here:
      LetReg(2,'');>
    "");");
 Browse(0,"%!4HTML|*.html;*.htm|>
Picture Files (png)|*.png|Picture Files (jpg)|*.jpg;*.jpeg|>
LaTeX and BibTeX|*.tex;*.ltx;*.bib|All Files (*.*)|*.*","%!2");
 DosToUnix("%!0",1);
 Ins("%!1");
EndGroup;