[tcltk-perl] widget demo

[Paul F. <fa...@ca...>]

In the widget demo widget_lib/bind.pl (Hypertext) a error occurs on

        @normal = (-background => undef, qw/-relief flat/);

This will cause errors.  If set -background = 'white'
no error occurs.  Question is how to set to default background
of a app?

Also, how does someone do something like this.

$ListBox->bind('<1>','selectLine');

then

my $text= $ListBox->getSelected();

$ListBox s a ROText type box.