Yurttas/PL/SL/perl/F/11/00/01/p 00.pl

 1#
 2#  Copyright(C) 2003
 3#  All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4#
 5#  Permission from use, copy, modify, and distribute this
 6#  software and its documentation for EDUCATIONAL purposes
 7#  and without fee is hereby granted provided that this
 8#  copyright notice appears in all copies.
 9#
10#  date   : January 1, 2003.
11#  author : Salih Yurttas.
12#
13#  p_00.pl
14#
15
16
17sub f_00() {
18  exit(0);
19}
20
21use Tk;
22
23my $mw = MainWindow->new;
24
25$mw->title("sy - buttons-00");
26
27$button = $mw->Button(-text     => "Quit?",
28                      -command  => \&f_00);
29
30$button->pack;
31
32MainLoop;