SpecTcl

Looking at the activity, I think this project is not maintened anymore, but
maybe this will help somebody...


I have a large Perl/TK 8.4 project based on the ActiveState GUI Builder
Build 146.
Someday I got an error message while generating the .pl and _ui.pm files.
Header: Error Generating Include File
Message: unmatched open brace in list

The .ui and _ui.pm file were saved properly, but if I added another button,
the callback sub was not generated. The .pl file should contain something
like:

# _button_1_command --
#
# Callback to handle $_button_1 widget option -command
#
# ARGS:
# <NONE>
#
sub _button_1_command { }

but that code was never generated.

I found out that this happens if you have a quoutet statement without a
closing brace.
Example:
sub _button_1_command {
#if ($x==5) {
if ($x==5 && &y==10) {
print "Hello World\n";
}
}

As you see, the first statement ist quoted, so it is ignored by perl. But
the GUI-Builder produces an error messages and the .pl file is never
updated. If I change the line to
#if ($x==5) { }
(notice the additional "}"
no error occures.

This behaviour occures only within the auto generated ..._command subs and
not within
# BEGIN USER CODE

# END USER CODE

I also figured out that this bug is not present in SpecTcl122a.