#!/usr/local/bin/perl

use Tk;
use Tk::Pretty;

sub lots
{
 &Tk::Pretty::PrintArgs;
 return (0..10);
}

sub one
{
 &Tk::Pretty::PrintArgs;
 return "Something";
}

print Pretty(Tk::Callback->new(\&lots)->Call('a'..'d')),"\n";
print Pretty(Tk::Callback->new([\&lots,'A'..'F'])->Call('a'..'d')),"\n";
print Pretty(Tk::Callback->new(\&one)->Call('a'..'d')),"\n";
print Pretty(Tk::Callback->new([\&one,'A'..'F'])->Call('a'..'d')),"\n";