Jeff Hobbs wrote:
> E.R. Uber wrote:
>>
>> how does one distinguish what type of widget is being examined?
>
> Query class with g_winfo_class.
What if it's a megawidget?
C:\>perl -MTkx -MTkx::ROText -de 1
DB<1> $mw = Tkx::widget->new('.')
DB<2> $t = $mw->new_tkx_ROText()
DB<3> x $t->g_winfo_class()
0 'Text'
Since Tkx::ROText registers itself via
__PACKAGE__->_Mega('tkx_ROText');
shouldn't g_winfo_class() return "tkx_ROText" instead? (At least in
theory; I understand that that nugget of information isn't available to
Tcl.)
-mjc
