home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / komunik / ie40 / ie4nt_s2.cab / IE4NT_2.CAB / MSHTML.DLL / 2110 / EDLINK.DLG < prev    next >
Encoding:
Text File  |  1997-07-12  |  7.0 KB  |  264 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
  2. <HTML id=dlgLink style="font-family: ms sans serif; font-size: 8pt;
  3. width: 36.7em; height: 12.3em; ">
  4. <HEAD>
  5. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  6. <TITLE>Hyperlink</TITLE>
  7. <SCRIPT>
  8. function callHelp(elm)
  9. {
  10. if (null != elm.helpid)
  11. {
  12.  window.showHelp(elm.helpfile, "" + parseInt(elm.helpid));
  13. }
  14. else
  15. {
  16.  if ("BODY" != elm.tagName)
  17.  {
  18.   callHelp(elm.parentElement);
  19.  }
  20. }
  21. } 
  22. function btnCancelClick()
  23. {
  24. window.close();
  25. } 
  26. function getTextRange(elm)
  27. {
  28. var r = elm.parentTextEdit.createTextRange();
  29. r.moveToElementText(elm);
  30. return r;
  31. } 
  32. function mouseClick()
  33. {
  34. if (window.event.srcElement.id.substring(0,3)
  35.  == "txt")
  36. {
  37.  return;
  38. }
  39. if (window.event.button == 2)
  40. {
  41.  callHelp(window.event.srcElement);
  42. }
  43. } 
  44. function txtDefaultESC()
  45. {
  46. if (event.keyCode == 27)
  47. {
  48.  window.close();
  49.  return;
  50. }
  51. } 
  52. var g_fOKEnabled = false; 
  53. var g_fURLLoaded = false; 
  54. function findAnchor(range)
  55. {
  56.  var rangeWorking;
  57.  var elmWorking;
  58.  var index;
  59.  elmWorking = range.parentElement()
  60.  while ("HTML" != elmWorking.tagName)
  61.  {
  62.   if ("A" == elmWorking.tagName)
  63.   {
  64.    return elmWorking;
  65.   }
  66.   else
  67.   {
  68.    elmWorking = elmWorking.parentElement
  69.   }
  70.  }
  71.  rangeWorking = range.duplicate();
  72.  rangeWorking.collapse(true);
  73.  rangeWorking.moveEnd("character", 1);
  74.  while (rangeWorking.compareEndPoints("EndToEnd", range) < 0)
  75.  {
  76.   rangeWorking.move("Character");
  77.   if (null != findAnchor(rangeWorking))
  78.   {
  79.    return findAnchor(rangeWorking);
  80.   }
  81.  }
  82.  return null;
  83. } 
  84. function getProtocolFromURL(strURL)
  85. {
  86.  var index;
  87.  return strURL.substring(0, strURL.indexOf(":") + 1);
  88. } 
  89. function updateProtocolSel()
  90. {
  91.  var index;
  92.  var strProtocol = getProtocolFromURL(txtURL.value);
  93.  selProtocol.value = strProtocol;
  94.  if (selProtocol.value != strProtocol)
  95.  {
  96.   selProtocol.value = "";
  97.  }
  98. } 
  99. function updateProtocolTxt()
  100. {
  101.  var strSlashProts = " file:ftp:gopher:http:https:";
  102.  var strProtocolTxt = getProtocolFromURL(txtURL.value);
  103.  var strProtocolSel = selProtocol.value;
  104.  var strTempURL;
  105.  if ("//" == (txtURL.value.substring(strProtocolTxt.length,
  106.   strProtocolTxt.length + 2)))
  107.  {
  108.   strProtocolTxt = strProtocolTxt + "//";
  109.  }
  110.  strTempURL = txtURL.value.substring(strProtocolTxt.length);
  111.  if (0 < strSlashProts.indexOf(strProtocolSel))
  112.  {
  113.   strProtocolSel = strProtocolSel + "//";
  114.  }
  115.  txtURL.value = strProtocolSel + strTempURL;
  116. } 
  117. function setOKState(fKeyPress)
  118. {
  119.  var htmlKeyAlt = 18;
  120.  if (!g_fURLLoaded)
  121.  {
  122.   if (!fKeyPress || htmlKeyAlt != event.keyCode)
  123.   {
  124.    if ((("" == txtURL.value) || (txtURL.value == selProtocol.value)
  125.     ||(txtURL.value == selProtocol.value + "//"))
  126.     == g_fOKEnabled)
  127.    {
  128.     btnOK.disabled = g_fOKEnabled
  129.     g_fOKEnabled = !g_fOKEnabled;
  130.    }
  131.   }
  132.   else
  133.   {
  134.    window.setTimeout("setOKState(false)", 10);
  135.   }
  136.  }
  137. } 
  138. function bdyLoad()
  139. {
  140.  var globalDoc = window.dialogArguments.document;
  141.  var rngMaster;
  142.  var rngLink;
  143.  var elmLink;
  144.  document.onhelp  = new 
  145.   Function("callHelp(window.event.srcElement)");
  146.  document.onmouseup = new Function("mouseClick()");
  147.  selProtocol.onchange = new Function("updateProtocolTxt()");
  148.  btnOK.onclick = new Function("btnOKClick()");
  149.  btnCancel.onclick = new Function("btnCancelClick()");
  150.  txtURL.onfocus = new Function("txtURL.select()");
  151.  txtURL.onkeyup = new Function("setOKState(true)");
  152.  txtURL.onkeypress = new Function("txtDefaultESC()");
  153.  if (("Text" == globalDoc.selection.type) ||
  154.   ("None" == globalDoc.selection.type))
  155.  {
  156.   rngMaster = globalDoc.selection.createRange();
  157.   elmLink = findAnchor(rngMaster);
  158.   if (null != elmLink)
  159.   {
  160.    rngLink = getTextRange(elmLink);
  161.    if (rngLink.compareEndPoints("StartToStart", rngMaster) < 0)
  162.    {
  163.     rngMaster.setEndPoint("StartToStart", rngLink);
  164.    }
  165.    if (rngLink.compareEndPoints("EndToEnd", rngMaster) > 0)
  166.    {
  167.     rngMaster.setEndPoint("EndToEnd", rngLink);
  168.    }
  169.    rngMaster.select();
  170.    if ("" != elmLink.href)
  171.    {
  172.     txtURL.value = elmLink.href;
  173.     txtURL.href = elmLink.href;
  174.     g_fURLLoaded = true;
  175.     btnOK.disabled = false;
  176.    }
  177.    updateProtocolSel();
  178.   }
  179.  txtURL.select();
  180.  setOKState(false);
  181.  }
  182. } 
  183. function btnOKClick()
  184. {
  185.  var globalDoc = window.dialogArguments.document;
  186.  var cmdCreateLink = "CreateLink";
  187.  var cmdUnlink  = "Unlink";
  188.  var range = globalDoc.selection.createRange();
  189.  var strSlashProts = " file:ftp:gopher:http:https:";
  190.  var strProtocol = selProtocol.value; 
  191.  if ("" == txtURL.value)
  192.  {
  193.   range.execCommand(cmdUnlink, false);
  194.   window.close();
  195.   return;
  196.  }
  197.  if (g_fURLLoaded && (txtURL.value == txtURL.href))
  198.  {
  199.   window.close();
  200.   return;
  201.  }
  202.  updateProtocolSel();
  203.  if (0 < strSlashProts.indexOf(strProtocol))
  204.  {
  205.   strProtocol = strProtocol + "//";
  206.  }
  207.  range.execCommand(cmdCreateLink, false, txtURL.value);
  208.  window.close();
  209. } 
  210. </SCRIPT>
  211. </HEAD>
  212. <BODY style="font-family: ms sans serif; font-size: 8pt;
  213. background: threedface;" onLoad="bdyLoad()">
  214. <FIELDSET id=fldLink style="font-family: ms sans serif; font-size: 8pt; 
  215. position: absolute; left: 0.98em; top: .8em; width: 25.76em; 
  216. height: 7.9em;">
  217. <LEGEND>
  218. Hyperlink Information
  219. </LEGEND>
  220. </FIELDSET>
  221. <DIV style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  222. left: 1.82em; top: 2.8899em; width: 2.66em; height: 1.2168em; " id=div2>
  223. <LABEL FOR=selProtocol tabIndex=-1 helpid="35550" helpfile="msimn.hlp">
  224. <u>T</u>ype:
  225. </LABEL>
  226. </DIV>
  227. <select id=selProtocol size=1 ACCESSKEY=t tabIndex=50
  228. style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  229. left: 5.04em; top: 2.7378em; width: 6.44em; height: 2.1294em; "
  230. helpid="35550" helpfile="msimn.hlp">
  231. <OPTION value="">     (other) </OPTION>
  232. <OPTION value="file:">   file: </OPTION>
  233. <OPTION value="ftp:">    ftp: </OPTION>
  234. <OPTION value="gopher:">   gopher: </OPTION>
  235. <OPTION value="http:" SELECTED> http: </OPTION>
  236. <OPTION value="https:">   https: </OPTION>
  237. <OPTION value="mailto:">   mailto: </OPTION>
  238. <OPTION value="news:">   news: </OPTION>
  239. <OPTION value="telnet:">   telnet: </OPTION>
  240. <OPTION value="wais:">   wais: </OPTION>
  241. </select>
  242. <DIV style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  243. left: 1.82em; top: 5.9319em; width: 2.52em; height: 1.2168em; " id=div3>
  244. <LABEL FOR=txtURL tabIndex=-1 helpid="35550" helpfile="msimn.hlp">
  245. <u>U</u>RL:
  246. </LABEL>
  247. </DIV>
  248. <input accesskey=u ID="txtURL" value="http://" type=text size=35
  249. maxlength=256 tabIndex=15 helpid="35550" helpfile="msimn.hlp"
  250. style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  251. left: 5.04em; top: 5.6277em; width: 20.72em; height: 2.1294em; ">
  252. <BUTTON id=btnOK tabIndex=35 DISABLED=1 helpid="28443" helpfile="windows.hlp"
  253. style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  254. left: 28em; top: 1.521em; width: 7em; height: 2.1294em; " type=submit>
  255. OK
  256. </BUTTON>
  257. <BUTTON id=btnCancel tabIndex=40 helpid="28444" helpfile="windows.hlp"
  258. style="font-family: ms sans serif; font-size: 8pt; position: absolute;
  259. left: 28em; top: 4.1067em; width: 7em; height: 2.1294em; " type=reset>
  260. Cancel
  261. </BUTTON>
  262. </BODY>
  263. </HTML>
  264.