Hi,

> I don't think perl/tk uses Tix for megawidgets. It uses its 
> own perl delegation mechanism to achieve mega-widgets. 

In the perl/Tk source distribution there is a file 
\Tk-804.027\pTk\mTk\tixGeneric\tixWidget.c which contains 
/*
 * tixWidget.c --
 *
 *      Constructs Tix-based compound widgets
 *

moreover in ...\Tk-804.027\Compound\Compound.xs we read

...
#include "pTk/tixPort.h"
#include "pTk/tixInt.h"
#include "tkGlue.h"
#include "tkGlue.m"
#include "pTk/tkVMacro.h"

DECLARE_VTABLES;
DECLARE_TIX;

extern Tk_ImageType tixCompoundImageType;
...

and megawidget constructing methods resemble those in pure Tix - if you'll read 
the Tix manual, you'll see all the "ConstructXXXX" methods there...

I am not expert in perl/Tk pure-perl widgets: I created one megawidget only 
once, became allergic and never returned to it, so I could miss the details.


Actually about 2 years ago I tried to mimic perl/Tk megawidgets with 
Tcl::Tk+Tix, and some pure-perl megawidgets started to work, but then I quickly 
lost interest in this, because I was distracted by ordinary Tcl::Tk programming.

> I have implemented pure-perl mega widgets using the same 
> mechanism that perl/tk uses, primarily for compatibility with 
> existing perl/tk megawidgets. 

If you achieved this w/out tix - well, that's a win!
:)

> I will tar up the pacakge with the changed files, make up a 
> README file and send it out.

That's wonderful!

Thank you a lot for your efforts!

Best regards,
Vadim.

Reply via email to