package XYListbox;
@ISA = (Listbox);
sub new {
    local($w) = shift;
    local($f1) = Frame::new($w);
    local($xscroll) = Scrollbar::new($f1, "-orient" => "horizontal");
    local($f2) = Frame::new($f1);
    local($yscroll) = Scrollbar::new($f2, "-orient" => "vertical");
    local($l) = Listbox::new($f2, "-setgrid" => 1,
                                  "-yscrollslave" => $yscroll,
                                  "-yscrollmethod" => "set",
                                  "-xscrollslave" => $xscroll,
                                  "-xscrollmethod" => "set");
    $xscroll->configure("-slave" => $l, "-method" => "xview");
    $yscroll->configure("-slave" => $l, "-method" => "yview");
    main::tkpack $xscroll, "-fill" => "x";
    main::tkpack $yscroll, "-side" => "left", "-fill" => "y";
    main::tkpack $l, "-side" => "left", "-fill" => "both", "-expand" => "y";
    main::tkpack $f2, "-fill" => "both", "-expand" => "y";
    bless {Listbox => $l, Default => $f1};
}

