head	1.5;
access;
symbols;
locks; strict;
comment	@# @;


1.5
date	99.04.28.09.46.20;	author alexis;	state Exp;
branches;
next	1.4;

1.4
date	99.01.07.13.08.51;	author alexis;	state Exp;
branches;
next	1.3;

1.3
date	98.10.07.16.27.55;	author alexis;	state Exp;
branches;
next	1.2;

1.2
date	98.08.28.13.21.45;	author alexis;	state Exp;
branches;
next	1.1;

1.1
date	98.08.28.13.20.25;	author alexis;	state Exp;
branches;
next	;


desc
@PerlTk version of ppplcc
@


1.5
log
@./sm.h.shpp
./getmsg.c
./gep.sh.shpp
./sm.c
./ppplc_msgids.shpp
./ppplc_msgids.h.shpp
@
text
@#!MARKER_PERL_CMD -w

#  MARKER_PATCHLEVEL <-- to satisfy mkrel while this is still in development
#  $Header: /diskb/home/alexis/dev/supported/ppplc/bin/RCS/xppplcc.shpp,v 1.4 1999/01/07 13:08:51 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;
@


1.4
log
@symbol name changes
@
text
@d4 4
a7 1
#  $Header: xppplcc.shpp,v 1.3 1998/10/07 16:27:55 alexis Exp alexis $
a11 5
sub handler
{
    print "alarm went off!\n";
}

a14 2
# $SIG{'ALRM'} = \&handler;

d17 1
a17 1
              -command => sub{ system("$SNDMSG 0") }
d20 1
a20 1
              -command => sub{ system("$SNDMSG 5") }
d23 1
a23 1
              -command => sub{ system("$SNDMSG 33 27 0 0") }
a28 2
# alarm(10);

a29 1

@


1.3
log
@added button to disable news and turn off quality checks
@
text
@d1 1
a1 1
#!PERLCMD_MARKER -w
d3 2
a4 2
#  PATCHLEVEL_MARKER <-- to satisfy mkrel while this is still in development
#  $Id: xppplcc.shpp,v 1.2 1998/08/28 13:21:45 alexis Exp alexis $
d15 1
a15 1
my $SNDMSG = "LCLBINDIR_MARKER/sndmsg";
@


1.2
log
@added RCS id and PATCHLEVEL_MARKER
@
text
@d4 1
a4 1
#  $Id$
d25 3
@


1.1
log
@Initial revision
@
text
@d3 3
@