> I went through your example and realized that all I needed was to
> capilalize f->F:
> Perl/Tk widget is "Labelframe"
> Tcl/Tk one is named "LabelFrame"
Following one-line change will bring Labelframe to Tcl::Tk
--- Tk.pm.orig 2005-09-27 15:50:18.886801600 +0400
+++ Tk.pm 2006-05-18 18:45:54.123516800 +0400
@@ -1454,6 +1454,7 @@
Entry => ['entry', 'ent',],
Frame => ['frame', 'f',],
LabelFrame => ['labelframe', 'lf',],
+ Labelframe => ['labelframe', 'lf',],
#LabFrame => ['labelframe', 'lf',],
Label => ['label', 'lbl',],
Listbox => ['listbox', 'lb',],
> Otherwise I didn't have to modify anything in the original
> Perl/Tk code.
> It is very nice, thanks.
Perl/Tk also differs slightly WRT %-substitutions and Ev/X-events, but this
isn't very hard to deal with.
>
> One (very small) thing remains strange though: Unicode (utf8) does
> not work in Labels (incl. LabelFrame), Entry and Text, but
> works fine
> in Title and Button. See attached screenshot.
I suspect this is encoding. What encoding is your script in? May be all you
need is to "use utf8;"?
Can you send simple example to check?
Mine unicodish programs run just fine, but with following line at the top:
use encoding "cp1251", filter=>1;
