ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/gde/bin/gce
(Generate patch)

Comparing deliantra/gde/bin/gce (file contents):
Revision 1.6 by root, Thu Feb 23 21:48:37 2006 UTC vs.
Revision 1.7 by root, Fri Feb 24 21:19:37 2006 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2
2=head1 NAME 3=head1 NAME
3 4
4 gce - gtk (perl) crossfire editor 5 gce - gtk (perl) crossfire editor
5 6
6=cut 7=cut
… …
34our $CFG; 35our $CFG;
35our $MAINWIN; 36our $MAINWIN;
36 37
37use GCE::MainWindow; 38use GCE::MainWindow;
38use Data::Dumper; 39use Data::Dumper;
39
40read_cfg ("$Crossfire::VARDIR/gceconfig");
41my $w = GCE::MainWindow->new;
42
43$w->load_layout;
44
45$w->show_all;
46
47Gtk2->main;
48 40
49sub read_cfg { 41sub read_cfg {
50 my ($file) = @_; 42 my ($file) = @_;
51 43
52 open CFG, $file 44 open CFG, $file
… …
105 # FIXME: This sucks, moving it after showing it can't be a good thing. 97 # FIXME: This sucks, moving it after showing it can't be a good thing.
106 $window->show_all; 98 $window->show_all;
107 $window->move ($p_and_s->[0], $p_and_s->[1]); 99 $window->move ($p_and_s->[0], $p_and_s->[1]);
108} 100}
109 101
102read_cfg ("$Crossfire::VARDIR/gceconfig");
103
104my $w = GCE::MainWindow->new;
105
106$w->load_layout;
107
108$w->show_all;
109
110Gtk2->main;
111
110=head1 AUTHOR 112=head1 AUTHOR
111 113
112 Marc Lehmann <schmorp@schmorp.de> 114 Marc Lehmann <schmorp@schmorp.de>
113 http://home.schmorp.de/ 115 http://home.schmorp.de/
114 116

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines