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
|
#!/usr/bin/perl
# menuhack: Modifies the tasks menu to insert XMLterm as a menu item
# Execute in the mozilla "package" directory
#
# NOTE: ** This is temporary hack until the chrome registry becomes
# available. Do not use it if you build mozilla yourself, as it
# messes up the important "tasksOverlay.xul" file.
# (Unless you know what you are doing, of course, in which case
# you may execute it in your "mozilla/dist/bin" directory.)
# Usage: menuhack
use Cwd;
# Locate taskOverlay.xul file
my $dir = cwd();
($dir =~ m%.*/(package|dist/bin)%) or
die "menuhack: Please execute in the package or dist/bin directory\n";
chdir "chrome/global/content/default"
or die "menuhack: Directory chrome/global/content/default not found\n";
my $menufile = "tasksOverlay.xul";
# Insert XMLterm menu item into file
open INFILE, "<$menufile" or die "menuhack: Unable to read $menufile\n";
open OUTFILE, ">$menufile.new" or die "menuhack: Unable to create $menufile.new\n";
while (<INFILE>) {
print OUTFILE unless m/XMLterm/;
if (s%(.*)"&editorCmd.label;"(.*)"toEditor\(\);"%$1"XMLterm" $2"window.open('chrome://xmlterm/content/xmlterm.xul','_blank','chrome,dialog=no,resizable');"%) {
print OUTFILE;
}
}
close INFILE;
close OUTFILE;
rename $menufile, "$menufile.bak";
rename "$menufile.new", $menufile;
print "Modified tasksOverlay.xul to display XMLterm item\n";
|
