require Tk;
package Scrolledlistbox;
@ISA = (Listbox, Scrollbar);
sub new {
    local($path) = shift;
    local($f) = Frame::new($path);
    local($l) = Listbox::new($f, @_);
    local($s) = Scrollbar::new($f, "-orient" => "vertical",
                               "-slave" => $l, "-method" => "yview");
    $l->configure("-yscrollslave" => $s, "-yscrollmethod" => "set");
    Tk::tkpack($s, "-side" => "left", "-fill" => "y");
    Tk::tkpack($l, "-side" => "left", "-fill" => "both", "-expand" => "y");
    return bless({Scrollbar => $s, Listbox => $l, Default => $f});
}
