/[suikacvs]/www/ie/iemenu/tip-hrefuri.html
Suika

Contents of /www/ie/iemenu/tip-hrefuri.html

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download) (as text)
Sat Mar 30 13:47:55 2002 UTC (22 years, 8 months ago) by wakaba
Branch point for: MAIN, wakaba
File MIME type: text/html
Initial revision

1 <!-- Show anchor target URI as tooltip text
2 #name Enable URI tooltip
3 #context anchor
4 -->
5 <script language="JScript" defer="defer">
6 var doc = external.menuArguments.document;
7
8 var base = doc.getElementsByTagName('base');
9 var baseframe = '_self';
10 for (var i = 0; i < base.length; i++) {
11 if (base[i].target) {
12 baseframe = base[i].target; continue;
13 }
14 }
15
16 for (var i = 0; i < doc.body.all.length; i++) {
17 var el = doc.body.all(i);
18 if (el.tagName == 'A') {
19 var ot = el.href;
20 if (el.title)
21 el.title = el.title + ' (' + ot + ')'
22 else
23 el.title = '(' + ot + ')';
24 var f; if (el.target) {f = el.target} else {f = baseframe}
25 if (f != '_self') {
26 el.title += ' {Target-window=' + f + '}';
27 var euri = replace_specials (el.href);
28 el.outerHTML += ' <a target="_self" href="' + euri
29 + '" title="' + el.innerText
30 + ' {Open in same window}"'
31 + ' class="x-f-anchor-samewindow">'
32 + '[same window]</a> ';
33 }
34 } else if (el.tagName == 'IMG') {
35 var pa = el.parentNode;
36 if (pa.tagName == 'A') {
37 var ot = pa.href;
38 if (el.title)
39 el.title = el.title + ' (' + ot + ')'
40 else if (el.alt)
41 el.title = el.alt + ' (' + ot + ')'
42 else
43 el.title = '(' + ot + ')';
44 var f;
45 if (pa.target) {f = pa.target} else {f = baseframe}
46 if (f) el.title += ' {Target-window=' + f + '}';
47 }
48 }
49 }
50 function replace_specials (rt) {
51 rt = rt.replace(/&/g,'&amp;');
52 rt = rt.replace(/</g,'&lt;');
53 rt = rt.replace(/>/g,'&gt;');
54 return rt;
55 }
56 </script>
57 <!--
58 Copyright 2002 wakaba E<lt>w@suika.fam.cxE<gt>.
59
60 This program is free software; you can redistribute it and/or modify
61 it under the terms of the GNU General Public License as published by
62 the Free Software Foundation; either version 2 of the License, or
63 (at your option) any later version.
64
65 This program is distributed in the hope that it will be useful,
66 but WITHOUT ANY WARRANTY; without even the implied warranty of
67 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
68 GNU General Public License for more details.
69
70 You should have received a copy of the GNU General Public License
71 along with this program; see the file COPYING. If not, write to
72 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
73 Boston, MA 02111-1307, USA.
74
75 $Date: $
76 -->

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24