1 use Awt;
2 use Awt::Event;
3 use Applet;
4
5 #OK, so Perl can't do applets yet
6
7 sub init {
8 my $this = shift;
9
10 @drugs = qw(Amitriptyline Prozac Wellbutrin Desipramine);
11
12 $this->setLayout (new GridLayout (1, scalar @drugs));
13
14 my @buttons;
15 foreach my $drug (@drugs) {
16 my $button = new Button ($drug);
17
18 $button->setOnPress
19 (sub {
20 my $f = new Frame ($drug);
21 $f->setOnClose (sub {
22 $f->hide ();
23 $f->dispose ();
24 });
25 $f->add (new Label ($drug));
26 $f->pack ();
27 $f->show ();
28 });
29 $this->add ($button);
30 }
31 }