#!/usr/bin/perl -w

#  MARKER_PATCHLEVEL <-- to satisfy mkrel while this is still in development
#  $Header: /home/ahuxley/dev/arc/ppplc/bin/RCS/xppplcc.shpp,v 1.5 1999/04/28 09:46:20 alexis Exp $




use strict;
use Tk;

my $main = new MainWindow;
my $SNDMSG = "MARKER_LCLBINDIR/sndmsg";

# $main->Label(-text => 'Hello, world!')->pack;
$main->Button(-text    => 'Connect',
              -command => sub{ system("$SNDMSG 1000") }
)->pack(-fill => 'both');
$main->Button(-text    => 'Disconnect',
              -command => sub{ system("$SNDMSG 1005") }
)->pack(-fill => 'both');
$main->Button(-text    => 'Disable News/Quality',
              -command => sub{ system("$SNDMSG 1033 1027 0 0") }
)->pack(-fill => 'both');
$main->Button(-text    => 'Quit',
              -command => sub{ exit }
)->pack(-fill => 'both');

MainLoop;