#!MARKER_PERL_CMD -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 $

#shpp include sm_msgids.shpp
#shpp include ppplc_msgids.shpp

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 MARKER_MSGID_EXEC_PPPD") }
)->pack(-fill => 'both');
$main->Button(-text    => 'Disconnect',
              -command => sub{ system("$SNDMSG MARKER_MSGID_HANGUP") }
)->pack(-fill => 'both');
$main->Button(-text    => 'Disable News/Quality',
              -command => sub{ system("$SNDMSG MARKER_MSGID_UNSET_DONEWS MARKER_MSGID_SET_QUALITY 0 0") }
)->pack(-fill => 'both');
$main->Button(-text    => 'Quit',
              -command => sub{ exit }
)->pack(-fill => 'both');

MainLoop;