version 1.274, 2009/07/11 19:58:29
|
version 1.275, 2009/07/13 08:24:21
|
Line 997 ENDOPEN
|
Line 997 ENDOPEN
|
sub clear { |
sub clear { |
my ($row,$col)=@_; |
my ($row,$col)=@_; |
unless ($env{'environment.remote'} eq 'off') { |
unless ($env{'environment.remote'} eq 'off') { |
|
if (($row<1) || ($row>13)) { return ''; } |
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); |
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); |
} else { |
} else { |
$inlineremote[10*$row+$col]=''; |
$inlineremote[10*$row+$col]=''; |
Line 1022 sub switch {
|
Line 1023 sub switch {
|
$category_members{$cat}.=':'.$idx; |
$category_members{$cat}.=':'.$idx; |
|
|
unless ($env{'environment.remote'} eq 'off') { |
unless ($env{'environment.remote'} eq 'off') { |
|
if (($row<1) || ($row>13)) { return ''; } |
# Remote |
# Remote |
return "\n". |
return "\n". |
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
Line 1095 sub openmenu {
|
Line 1097 sub openmenu {
|
sub inlinemenu { |
sub inlinemenu { |
undef(@inlineremote); |
undef(@inlineremote); |
undef(%category_members); |
undef(%category_members); |
|
# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control |
&rawconfig(1); |
&rawconfig(1); |
my $output='<table id="LC_mainmenu"><tr>'; |
my $output='<table id="LC_mainmenu"><tr>'; |
for (my $col=1; $col<=2; $col++) { |
for (my $col=1; $col<=2; $col++) { |