Hi All,

 

Can anyone explain to me why I get the error:

 

Can't call method "g_bind" without a package or object reference at
C:\scripts\Error Code\listbox_error.pl line 17.

 

Whenever I run the following code. This is put together from a larger
program and if you take out the bind language you get the same basic
error on the curselection statement. This is driving me crazy at this
point. 

 

 

use Tkx;

my $mw = Tkx::widget-> new(".");

$mw-> g_wm_title("Test Program");

(my $nb = $mw-> new_ttk__notebook(-height => 768, -width =>
1024))-> g_grid();

testtab1();

testtab2();

Tkx::MainLoop();

sub testtab1 {

    $tab1 = $nb-> new_ttk__frame(-padding => "10");

    $userbox = $tab1-> new_tk__listbox(-height => 20,
-listvariable=> \$cnames)->g_grid(-column=>1,-row=>1);

    

    $userbox-> g_bind("<<ListboxSelect>>", sub {GetSecurity()});

    $nb-> add($tab1, -text => 'Test Tab', -state=>'hidden');

}

@countrynames = ("Argentina", "Australia", "Belgium", "Brazil",
"Canada", "China", "Denmark", 

        "Finland", "France", "Greece", "India", "Italy", "Japan",
"Mexico", "Netherlands", "Norway", "Spain", 

        "Sweden", "Switzerland");

$cnames = ''; foreach $i (@countrynames) {$cnames = $cnames . ' {' . $i
. '}';};

sub GetSecurity {

    my $u;

    my @idx = $userbox-> curselection;

    if ($#idx==0) {

        $u = $countrynames[$idx[0]];

    }

    print "$u\n";

}

 

Thanks immensely for any help.

 

Tony Bass