summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dviout/SPECIAL/srcspecial.mac
blob: a4ab37cecca685e18c39d1cabfa37c8e5c86a35a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ddeinitiate "dviout", "dviout";
if(!result) {
  run "dviout ";
  ddeinitiate "dviout", "dviout";
}else
  $basefile = dderequest("dvifile");
if(strlen($basefile) < 1)
  $basefile = leftstr(filename,strlen(filename)-3)+"dvi";
if(selecting){$SrcWord = "/" + gettext(seltopx,seltopy,selendx,selendy);}
else $SrcWord="";
ddeexecute "[PageOpen(# "+str(lineno)+$SrcWord+" '"+filename+"')]";
ddeexecute "[WinNormal]";
ddeexecute "[FileOpen("+$basefile+")]";
ddeterminate;
endmacro;