| 1 | package GCE::MainWindow; |
1 | package GCE::MainWindow; |
| 2 | |
2 | |
| 3 | =head1 NAME |
3 | =head1 NAME |
| 4 | |
4 | |
| 5 | GCE::MainWindow - the main window class for gce |
5 | GCE::MainWindow - the main window class for gde |
| 6 | |
6 | |
| 7 | =cut |
7 | =cut |
| 8 | |
8 | |
| 9 | use Cwd qw/abs_path getcwd/; |
9 | use Cwd qw/abs_path getcwd/; |
| 10 | use Gtk2; |
10 | use Gtk2; |
| … | |
… | |
| 27 | use GCE::Util; |
27 | use GCE::Util; |
| 28 | use GCE::DragHelper; |
28 | use GCE::DragHelper; |
| 29 | |
29 | |
| 30 | use strict; |
30 | use strict; |
| 31 | |
31 | |
| 32 | my $recentfile = "$Deliantra::VARDIR/gcerecent"; |
32 | my $recentfile = "$Deliantra::VARDIR/gderecent"; |
| 33 | |
33 | |
| 34 | # XXX: make a recursive call from save_layout to all (interesting) sub-widgets |
34 | # XXX: make a recursive call from save_layout to all (interesting) sub-widgets |
| 35 | sub save_layout { |
35 | sub save_layout { |
| 36 | my ($self) = @_; |
36 | my ($self) = @_; |
| 37 | |
37 | |
