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 ...
|