Slaven Rezic <slaven@xxxxxxxx> writes:
>Someone on comp.lang.perl.tk posted that assinging "button" as a
>Tk::ItemStyle name causes errors which are new in Tk804.
>
>I narrowed the script to the following lines:
Styles, fonts, images and widgets all live in one "namespace".
(A hash hiding behind the $top object.)
This is no worse than Tcl.
Live with it?
>
>use Tk;
>$top = new MainWindow;
>$top->ItemStyle('window', -stylename => 'button');
>$top->Button;
>
>This seems to happen to other named objects, too. Just replace the
>ItemStyle definition with
>
>$top->Photo('button', -file => Tk->findINC("Xcamel.gif"))
>
>and I suspect that any other widget name causes the same error.
>
>The problem seems to be in the part braced with "if (1 || !mwcd) {" in
>XSTkCommand in tkGlue.c, specifically the new call to
>Tcl_GetCommandInfo puts the wrong callback into info.Tk.
Core tk now associates info with 'button' using Tcl_GetCommandInfo.
Hence the if (1 || ...) i.e. always do that.
we also associate info with images fonts and styles.
>
>Regards,
> Slaven
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx
|
