#!/usr/local/bin/perl

use Sx;


sub pargs {
  my($w,@a) = @_;
  print "args are [@_]\n";
  SetLabel($w,join('-',@a));
}

OpenDisplay('test',@ARGV);

$w1 = MakeButton('quit','quit',undef);

Sx::AddTrans($w1,":<Btn1Up>:	trback_to_perl(pargs,button1,up) \
	      :<Btn1Down>:	trback_to_perl(pargs,button1,down) \
              :<Btn2Up>:	trback_to_perl(pargs,button2,up) \
	      :<Btn2Down>:	trback_to_perl(pargs,button2,down) \
              :<Btn3Up>:	trback_to_perl(pargs,button3,up) \
	      :<Btn3Down>:	trback_to_perl(pargs,button3,down) \
");

&ShowDisplay;

&MainLoop;