blob: 1379e0c9d35ab2b62296c9a2ae87f42ffd7e86f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!/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";
}
}
}
|
