Hey, happy to help. But my helping you is not done yet. ;}
Program stops after printing "bad event type" message .. .
bad event type or keysym "_" at PMEdit-001.000202-1.pl line 269, <DATA
+> line 81.
... but that goes away (and a Tk window emerges) if I change
_ to one of
[a-zA-Z0-9] but not
[-+].
Other minor problems ... (1) chomp fails to clear ^M in __DATA__ ...
1057 sub LoadConfig {
1058 my $ok = 1;
1059
1060 while (<DATA>) {
1061 # Load the default configuration stuff
1062 chomp;
1063 next if ! length;
...
1067 my ($tag, $htmlTag, $name, $flagsField, @options) = split
+ /\s*,\s*/;
1068
1069 if (! defined $flagsField) {
1070 print "Missing entries in tag line ($.): $_";
...
... which causes above
print() to act; line numbers reported are 32 & 58.
(2) Later in LoadConfig(), chomp() is rendered useless by use of s/\s+$//; ...
1136 while (<DATA>) {
1137 # Load key binding information
1138 next if /^#/;
1139
1140 chomp;
1141 s/^\s+//;
1142 s/\s+$//;
In both cases, I suggest just use
s/\s+$// & chop the
chomp().
(3) There seems to spurious tab characters on lines 228, 769, 771-772, 774-775.
diff -u output follows ...
--- PMEdit-001.000202-1.pl--ORIG Fri Dec 1 00:57:17 2006
+++ PMEdit-001.000202-1.pl Fri Dec 1 02:44:20 2006
@@ -225,7 +225,7 @@
my %commands = (
selAll => \&do_selAll,
copy => \&do_copy,
- paste => \&do_paste,
+ paste => \&do_paste,
);
my $realText = $text->Subwidget ('scrolled');
@@ -766,13 +766,13 @@
sub about {
my $versions = '';
for (@usedModules) {
- my $name = $_->[1];
+ my $name = $_->[1];
- $name =~ s/\..*//;
- $name =~ s|[\\/]|::|g;
+ $name =~ s/\..*//;
+ $name =~ s|[\\/]|::|g;
- my $version = $name->VERSION;
- $versions .= "$name \t$version\n" if defined $version;
+ my $version = $name->VERSION;
+ $versions .= "$name \t$version\n" if defined $version;
}
my $msg = <<"MSG";
@@ -1059,7 +1059,7 @@
while (<DATA>) {
# Load the default configuration stuff
- chomp;
+ s/\s+$//;
next if ! length;
last if /^#key /;
next if /^#/;
@@ -1136,11 +1136,10 @@
while (<DATA>) {
# Load key binding information
next if /^#/;
-
- chomp;
+
s/^\s+//;
s/\s+$//;
-
+
next if ! length;
my ($tag, $key, $menuItem, $toolbarItem, $rightClickItem) = s
+plit /\s*,\s*/;
@@ -1239,7 +1238,7 @@
strike,Control s,Format/Strike out,,Strike out
sub,Control u,Format/Subscript,,Subscript
super,Control s,Format/Superscript,,Superscript
-underline,Control _,Format/Underline,,Underline
+underline,Control 9,Format/Underline,,Underline
-,-,Format/-,-,
code,Control k,Format/Code,,Code
quote,Control q,Format/Blockquote,,Blockquote
@@ -1247,4 +1246,4 @@
#links - still bindings
cpan,,Links/CPAN,,CPAN link
id,Control d,Links/Node,,Node id link
-name,Control n,Links/Name,,Node name link
\ No newline at end of file
+name,Control n,Links/Name,,Node name link