1#!/usr/local/bin/perl
2
3use Tk;
4use Tk::Pretty;
5
6sub lots
7{
8 &Tk::Pretty::PrintArgs;
9 return (0..10);
10}
11
12sub one
13{
14 &Tk::Pretty::PrintArgs;
15 return "Something";
16}
17
18print Pretty(Tk::Callback->new(\&lots)->Call('a'..'d')),"\n";
19print Pretty(Tk::Callback->new([\&lots,'A'..'F'])->Call('a'..'d')),"\n";
20print Pretty(Tk::Callback->new(\&one)->Call('a'..'d')),"\n";
21print Pretty(Tk::Callback->new([\&one,'A'..'F'])->Call('a'..'d')),"\n";
22
23