Revision ad27efa6
Von Sven Donath vor etwa 14 Jahren hinzugefügt
| bin/mozilla/menu.pl | ||
|---|---|---|
| 86 | 86 |
$mainlevel =~ s/\Q$mainlevel\E--//g; |
| 87 | 87 |
my $menu = Menu->new($::menufile); |
| 88 | 88 |
|
| 89 |
$form->{title} = $locale->text('Accounting Menu');
|
|
| 89 |
$form->{title} = $locale->text('Lx-Office');
|
|
| 90 | 90 |
|
| 91 | 91 |
$form->header; |
| 92 | 92 |
|
| ... | ... | |
| 96 | 96 |
|; |
| 97 | 97 |
print qq|<div align="left">\n<table width="| |
| 98 | 98 |
. $framesize |
| 99 |
. qq|" border=0>\n|;
|
|
| 99 |
. qq|" border="0">\n|;
|
|
| 100 | 100 |
|
| 101 | 101 |
§ion_menu($menu); |
| 102 | 102 |
|
| ... | ... | |
| 129 | 129 |
$ml =~ s/--.*//; |
| 130 | 130 |
if ($ml eq $mainlevel) { $zeige = 1; }
|
| 131 | 131 |
else { $zeige = 0; }
|
| 132 |
my $spacer = " " x (($item =~ s/--/--/g) * 1);
|
|
| 132 |
my $spacer = " " x (($item =~ s/--/--/g) * 2);
|
|
| 133 | 133 |
$label =~ s/.*--//g; |
| 134 |
my $label_icon = $label . ".gif";
|
|
| 134 |
my $label_icon = $level . "--" . $label . ".png";
|
|
| 135 | 135 |
my $mlab = $label; |
| 136 | 136 |
$label = $locale->text($label); |
| 137 | 137 |
|
| ... | ... | |
| 197 | 197 |
if ($zeige) {
|
| 198 | 198 |
if (scalar @chunks <= 1) {
|
| 199 | 199 |
|
| 200 |
qq|<tr><td class="hover" height="13" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">| |
|
| 201 |
. $menu->menuitem(\%myconfig, \%$form, $item, $level) |
|
| 202 |
. qq|$label</a></td></tr>\n|; |
|
| 200 |
qq|<tr><td class="hover" height="16" >$spacer| |
|
| 201 |
. $menu->menuitem(\%myconfig, \%$form, $item, $level) ; |
|
| 202 |
|
|
| 203 |
if (-f "image/icons/16x16/$label_icon") |
|
| 204 |
{ print
|
|
| 205 |
qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="| |
|
| 206 |
. $locale->text($item) |
|
| 207 |
. qq|"> | } |
|
| 208 |
else {
|
|
| 209 |
print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|; |
|
| 210 |
} |
|
| 211 |
|
|
| 212 |
|
|
| 213 |
qq|$label</a></td></tr>\n|; |
|
| 203 | 214 |
} else {
|
| 204 | 215 |
my $tmpitem = $menu->menuitem(\%myconfig, \%$form, $item, $level); |
| 205 | 216 |
|
| 206 |
qq|<tr><td class="hover" height="13" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">|
|
|
| 217 |
qq|<tr><td class="hover" height="16" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">|
|
|
| 207 | 218 |
. $tmpitem |
| 208 | 219 |
. qq|$chunks[0]</a></td></tr>\n|; |
| 209 | 220 |
map {
|
| 210 | 221 |
|
| 211 |
qq|<tr style="vertical-align:top""><td class="hover">$spacer<img src="image/unterpunkt.png" style="visibility:hidden; width:23; height=2;">|
|
|
| 222 |
qq|<tr style="vertical-align:top""><td class="hover">$spacer<img src="image/unterpunkt.png" style="visibility:hidden; width:24; height=2;">|
|
|
| 212 | 223 |
. $tmpitem |
| 213 | 224 |
. qq|$chunks[$_]</a></td></tr>\n|; |
| 214 | 225 |
} 1..$#chunks; |
| ... | ... | |
| 218 | 229 |
} else {
|
| 219 | 230 |
my $ml_ = $form->escape($ml); |
| 220 | 231 |
|
| 221 |
qq|<tr><td class="bg" height="24" align="left" valign="middle" ><a href="menu.pl?action=acc_menu&level=$ml_" class="nohover""><img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" titel="Hallo Welt"> $label</a> </td></tr>\n|;
|
|
| 232 |
qq|<tr><td class="bg" height="24" align="left" valign="middle"><a href="menu.pl?action=acc_menu&level=$ml_" class="nohover""><img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="| . $locale->text("Help Menu $item") . qq|"> $label</a> </td></tr>\n|;
|
|
| 222 | 233 |
§ion_menu($menu, $item); |
| 223 | 234 |
|
| 224 |
#print qq|<br>\n|;
|
|
| 235 |
print qq|\n|;
|
|
| 225 | 236 |
} |
| 226 | 237 |
} |
| 227 | 238 |
} |
Auch abrufbar als: Unified diff
Das seitliche Menü hat jetzt Icons für die Unterpunkte, welche auch klickbar sind.
Damit nähert sich die Optik an das XUL-Menü an, ohne von XUL abhängig zu sein.
Evtl. mache ich die kleinen Icons abschaltbar, für die, die das so haben wollen.
Die Icons haben title-tags, die mal in ein Hilfe-System münden sollen. (Baustelle)
Im Gegensatz zum XUL-Menü ist eine durchgängige Bedienung mit Einzelklick möglich.
Den Redirekt für den Aufruf von Lx-Office mit einem Nicht-XUL-fähigen Browser und
aktiviertem XUL-Menü habe ich auf dieses HTML-Menü gelegt, weil alles andere nicht
kompatibel genug ist.