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;