mirror of
https://github.com/evilneuro/eudora-mac.git
synced 2024-06-06 04:29:31 +00:00
1 line
1.2 KiB
Plaintext
Executable File
1 line
1.2 KiB
Plaintext
Executable File
# creates dlgx and alrx resources from a file containing derezed DLOGs and ALRTs
|
|
# this file will probably have to change as the Appearance.r files change
|
|
|
|
$dlgxHierString = ") {\n\tversionZero {\n\tkDialogFlagsUseThemeBackground + kDialogFlagsUseThemeControls + kDialogFlagsUseControlHierarchy\n\t}\n};\n";
|
|
$dlgxNormString = ") {\n\tversionZero {\n\tkDialogFlagsUseThemeBackground + kDialogFlagsUseThemeControls\n\t}\n};\n";
|
|
$alrxString = ") {\n\tversionOne {\n\t0x09, 0, kUseThemeWindow, \"\"\n\t}\n};\n";
|
|
|
|
$dlist = '1002, ';
|
|
$alist = '1002, ';
|
|
$hlist = '1005, 1034, 1064, 1068, 1075, 1078, 1079, 1080, 1081, 1082, 1083, 1084, 1085, 1086, 1088, 1089, 1090, 1091, 1092, 1093, 1094, 1095, 1098, 1099, 1100, 1101, 1103, 1104, 2000, ';
|
|
|
|
while (<>)
|
|
{
|
|
@line = split(/^/);
|
|
foreach (@line)
|
|
{
|
|
s/data/resource/;
|
|
@word = split(" ",$_,4);
|
|
$word[2] =~ s/\(//;
|
|
if ($_ =~ /DLOG/ && ($dlist !~ $word[2]))
|
|
{
|
|
$dlist .= "$word[2] ";
|
|
s/DLOG/dlgx/;
|
|
if ($hlist =~ $word[2])
|
|
{
|
|
s/\,.*/$dlgxHierString/;
|
|
}
|
|
else
|
|
{
|
|
s/\,.*/$dlgxNormString/;
|
|
}
|
|
print;
|
|
}
|
|
elsif ($_ =~ /ALRT/ && ($alist !~ $word[2]))
|
|
{
|
|
$alist .= "$word[2] ";
|
|
s/ALRT/alrx/;
|
|
s/\,.*/$alrxString/;
|
|
print;
|
|
}
|
|
}
|
|
} |