| … | |
… | |
| 164 | return if $self->{prop_edit}; |
164 | return if $self->{prop_edit}; |
| 165 | |
165 | |
| 166 | my $w = $self->{prop_edit} = Gtk2::Window->new; |
166 | my $w = $self->{prop_edit} = Gtk2::Window->new; |
| 167 | $w->set_title ("gcrossedit - preferences"); |
167 | $w->set_title ("gcrossedit - preferences"); |
| 168 | $w->add (my $t = Gtk2::Table->new (2, 4)); |
168 | $w->add (my $t = Gtk2::Table->new (2, 4)); |
| 169 | $t->attach_defaults (my $lbl1 = Gtk2::Label->new ("CROSSFIRE_LIBDIR"), 0, 1, 0, 1); |
169 | $t->attach_defaults (my $lbl1 = Gtk2::Label->new ("LIBDIR"), 0, 1, 0, 1); |
| 170 | $t->attach_defaults (my $lib = Gtk2::Entry->new, 1, 2, 0, 1); |
170 | $t->attach_defaults (my $lib = Gtk2::Entry->new, 1, 2, 0, 1); |
| 171 | $lib->set_text ($::CFG->{LIBDIR}); |
171 | $lib->set_text ($::CFG->{LIBDIR}); |
| 172 | $t->attach_defaults (my $lbl2 = Gtk2::Label->new ("Map path"), 0, 1, 1, 2); |
172 | $t->attach_defaults (my $lbl2 = Gtk2::Label->new ("MAPDIR"), 0, 1, 1, 2); |
| 173 | $t->attach_defaults (my $map = Gtk2::Entry->new, 1, 2, 1, 2); |
173 | $t->attach_defaults (my $map = Gtk2::Entry->new, 1, 2, 1, 2); |
| 174 | $map->set_text ($::CFG->{MAPDIR}); |
174 | $map->set_text ($::CFG->{MAPDIR}); |
| 175 | $t->attach_defaults (my $save = Gtk2::Button->new ('save'), 0, 2, 2, 3); |
175 | $t->attach_defaults (my $save = Gtk2::Button->new ('save'), 0, 2, 2, 3); |
| 176 | $save->signal_connect (clicked => sub { |
176 | $save->signal_connect (clicked => sub { |
| 177 | $::CFG->{LIBDIR} = $lib->get_text; |
177 | $::LIBDIR = $::CFG->{LIBDIR} = $lib->get_text; |
| 178 | $::CFG->{MAPDIR} = $map->get_text; |
178 | $::MAPDIR = $::CFG->{MAPDIR} = $map->get_text; |
| 179 | Crossfire::set_libdir ($::CFG->{LIBDIR}); |
179 | Crossfire::set_libdir ($::CFG->{LIBDIR}); |
| 180 | Crossfire::load_archetypes; |
180 | Crossfire::load_archetypes; |
| 181 | Crossfire::load_tilecache; |
181 | Crossfire::load_tilecache; |
| 182 | main::write_cfg ("$Crossfire::VARDIR/gceconfig"); |
182 | main::write_cfg ("$Crossfire::VARDIR/gceconfig"); |
| 183 | $w->destroy; |
183 | $w->destroy; |
