TDE base libraries and programs
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 
tdebase/kicker/kicker/kicker-3.5-taskbarEnums.pl

54 lines
1.2 KiB

#!/usr/bin/perl
while (<>)
{
($key, $value) = ($_ =~ /([^=]+)=[ \t]*([^\n]+)/);
if ($key eq "GroupTasks")
{
if ($value eq "Never")
{
print "GroupTasks=GroupNever\n";
}
elsif ($value eq "When Taskbar Full")
{
print "GroupTasks=GroupWhenFull\n";
}
elsif ($value eq "Always")
{
print "GroupTasks=GroupAlways\n";
}
}
elsif ($key =~ /ButtonAction/)
{
if ($value eq "Show Task List")
{
print "$key=ShowTaskList\n";
}
elsif ($value eq "Show Operations Menu")
{
print "$key=ShowOperationsMenu\n";
}
elsif ($value eq "Activate, Raise or Minimize Task")
{
print "$key=ActivateRaiseOrMinimize\n";
}
elsif ($value eq "Activate Task")
{
print "$key=Activate\n";
}
elsif ($value eq "Raise Task")
{
print "$key=Raise\n";
}
elsif ($value eq "Lower Task")
{
print "$key=Lower\n";
}
elsif ($value eq "Minimize Task")
{
print "$key=Minimize\n";
}
}
}