1 |
|
2 |
package GCE::PickWindow; |
3 |
|
4 |
=head1 NAME |
5 |
|
6 |
GCE::PickWindow - the arch picker window class for gce |
7 |
|
8 |
=cut |
9 |
|
10 |
use Gtk2; |
11 |
use Gtk2::Gdk::Keysyms; |
12 |
|
13 |
use Glib::Object::Subclass |
14 |
Gtk2::Window; |
15 |
|
16 |
sub INIT_INSTANCE { |
17 |
my ($self) = @_; |
18 |
$self->set_title ("gce - picker window"); |
19 |
|
20 |
$self->add (my $b = Gtk2::Label->new ("<map here>")); |
21 |
} |
22 |
|
23 |
=head1 AUTHOR |
24 |
|
25 |
Marc Lehmann <schmorp@schmorp.de> |
26 |
http://home.schmorp.de/ |
27 |
|
28 |
Robin Redeker <elmex@ta-sa.org> |
29 |
http://www.ta-sa.org/ |
30 |
|
31 |
=cut |
32 |
1; |