[perl-win32-gui] lines, root lines, buttons

[Timothy Thomas]

In the Treeview.pl example program(attached) that came with win32::gui,
the options: lines, buttons and root lines do not work, does anyone know
what is the correct syntax for making this code work, the syntax:
$TV->Change(-lines => $HasLines->Checked); doesn't seem to make the
change properly.

        Tim Thomas

sub HasLines_Click {
    $HasLines->Checked(!$HasLines->Checked);
    print "TV.Style is: ", $TV->GetWindowLong(-16), "\n";
    $TV->Change(-lines => $HasLines->Checked);
    print "TV.Style after -lines => ",$HasLines->Checked," is: ",
$TV->GetWindowLong(-16), "\n";
}

sub RootLines_Click {
    $RootLines->Checked(($RootLines->Checked) ? 0 : 1);
    $TV->Change(-rootlines => $RootLines->Checked);
}

sub HasButtons_Click {
    $HasButtons->Checked(($HasButtons->Checked) ? 0 : 1);
    $TV->Change(-buttons => $HasButtons->Checked);
}

treeview.pl