traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

- add title attributes to the navigation icons on the navigation bars; 

this causes some browsers to offer descriptive tooltips when the
  mouse hovers over the linked icon
- clean up the code in this area
This commit is contained in:
Fred Drake 2003-05-03 02:07:22 +00:00
parent d77bee1476
commit 8b34e7cc40
1 changed files with 27 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Doc/perl/l2hinit.perl
View File

@ -141,27 +141,39 @@ sub get_my_icon($) {
. " height='32' alt='$text' width='32'>";
}
sub use_my_icon($$) {
my($s,$rel) = @_;
sub unlinkify($) {
my $text = "$_[0]";
$text =~ s|</[aA]>||;
$text =~ s|<a\s+[^>]*>||i;
return $text;
}
sub use_icon($$$) {
my($rel,$str,$title) = @_;
if ($title) {
my $s = "$str";
if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
my $r = get_my_icon($1);
$s =~ s/\<tex2html_[a-z_]+_visible_mark\>/$r/;
}
$s =~ s/<[aA] /<a rel="$rel" /;
$s =~ s/<[aA] /<a rel="$rel" title="$title" \n /;
return $s;
}
else {
return get_my_icon('blank');
}
}
sub make_nav_panel() {
my $s;
my $BLANK_ICON = get_my_icon('blank');
$NEXT = $NEXT_TITLE ? use_my_icon("$NEXT", 'next') : $BLANK_ICON;
$UP = $UP_TITLE ? use_my_icon("$UP", 'parent') : $BLANK_ICON;
$PREVIOUS = ($PREVIOUS_TITLE
? use_my_icon("$PREVIOUS", 'prev') : $BLANK_ICON);
$CONTENTS = use_my_icon("$CONTENTS", 'contents');
$INDEX = $INDEX ? use_my_icon("$INDEX", 'index') : $BLANK_ICON;
# new iconic rel iconic page title
$NEXT = use_icon('next', $NEXT, unlinkify($NEXT_TITLE));
$UP = use_icon('parent', $UP, unlinkify($UP_TITLE));
$PREVIOUS = use_icon('prev', $PREVIOUS, unlinkify($PREVIOUS_TITLE));
$CONTENTS = use_icon('contents', $CONTENTS, 'Table of Contents');
$INDEX = use_icon('index', $INDEX, 'Index');
if (!$CUSTOM_BUTTONS) {
$CUSTOM_BUTTONS = $BLANK_ICON;
$CUSTOM_BUTTONS = get_my_icon('blank');
}
$s = ('<table align="center" width="100%" cellpadding="0" cellspacing="2">'
. "\n<tr>"