/[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.1.1 - (hide annotations) (download) (as text) (vendor branch)
Sat Mar 30 13:47:55 2002 UTC (22 years, 8 months ago) by wakaba
Branch: MAIN, wakaba
CVS Tags: initiali, HEAD
Branch point for: experimental
Changes since 1.1: +0 -0 lines
File MIME type: text/html

1 wakaba 1.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