#!/usr/bin/perl -w

use strict;
use Gtk2 '-init';

my $vbox = Gtk2::VBox->new(0, 0);

print "Gtk2::VBox methods: \n";
my @methods = $vbox->methods;
foreach (@methods)
{
	print "\t$_\n";
}
print "\n\n";

print "Gtk2::VBox methods only 1 level deep: \n";
@methods = $vbox->methods(1);
foreach (@methods)
{
	print "\t$_\n";
}
print "\n\n";

print "Gtk2::VBox methods only 2 level2 deep: \n";
@methods = $vbox->methods(2);
foreach (@methods)
{
	print "\t$_\n";
}