gde/GCE/AttrEdit.pm

package GCE::AttrEdit;

=head1 NAME

  GCE::AttrEdit - an edit wiget for attributes

=cut

use Gtk2;
use Gtk2::Gdk::Keysyms;
use Gtk2::SimpleList;

use Glib::Object::Subclass Gtk2::ScrolledWindow;

use Crossfire;

sub INIT_INSTANCE {
   my ($self) = @_;

   $self->add_with_viewport (my $vb = new Gtk2::VBox);

   $vb->pack_start (my $lbl = $self->{arch_name_lbl} = Gtk2::Label->new, 0, 1, 0);
   $vb->pack_start (my $ntbook = $self->{ntbook} = Gtk2::Notebook->new, 1, 1, 0);
}

sub update_arch {
   my ($self, $arch, $key, $value) = @_;

   if ($value ne '') {

      my $al_arch = $Crossfire::ARCH{$arch->{_name}};
      print "**********************> SET $key = $value\n";
      if (ref $value) {
         $arch->{$key} = $value;

      } else {
         if (not defined $al_arch->{$key}) {
            if (not $value) {
               # try to normalize
               print ">>>>>>>>>>>>>>>>>>>>>> DEL $key\n";
               delete $arch->{$key};
            } else {
               # try to normalize
               print ">>>>>>>>>>>>>>>>>>>>>> SET $key = $value\n";
               $arch->{$key} = $value;
            }
         } else {
            if ($al_arch->{$key} ne $value) {
               print ">>>>>>>>>>>>>>>>>>>>>>> SET $key = $value\n";
               $arch->{$key} = $value;
            } else {
               # try to normalize
               print ">>>>>>>>>>>>>>>>>>>>>> DEL $key\n";
               delete $arch->{$key};
            }
         }
      }

   } else {

      delete $arch->{$key};
   }

   $self->{change_cb}->($arch)
      if defined $self->{change_cb};
}

sub set_attr {
   my ($self, $key, $value) = @_;

   my $attr = $self->{arch}->{$key};

   unless (ref $attr) {

      $self->update_arch ($self->{arch}, $key, $value);
   }
}

sub set_arch {
   my ($self, $arch, $change_cb) = @_;

   $self->{change_cb} = $change_cb;

   $self->{arch} = $arch;

   $self->{arch_name_lbl}->set_text (
      $arch->{_name} . ($arch->{name} ? " - $arch->{name}" : "")
   );

   if (not defined $change_cb) {

   } else {

   }

   my $al_arch = $Crossfire::ARCH{$arch->{_name}};

   if ($al_arch) {
      $self->hide;
      $self->{ntbook}->remove ($_)
         for $self->{ntbook}->get_children;

      my $ar = Crossfire::arch_attr $al_arch;
#      warn "FO1:" . Data::Dumper::Dumper ($al_arch) . ">\n";
#      warn "FO2:" . Data::Dumper::Dumper ($ar) . ">\n";
#      warn "REAL: " . Data::Dumper::Dumper ($arch) . "\n";

      $self->{ttip} = Gtk2::Tooltips->new;

      $self->add_section_edit_widgets ($self->{ntbook}, 'general', $arch, $ar->{attr});

      my %sects = map { @$_ } @{$ar->{section}};


      for my $sec (keys %sects) {
         my $cnt = scalar keys %{$sects{$sec}};
         $self->add_section_edit_widgets ($self->{ntbook}, $sec, $arch, $sects{$sec});
      }

      for my $key (qw/lore msg/) {
         $self->{ntbook}->append_page (my $v = Gtk2::VBox->new, $key);
            $v->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0);
               $sw->set_policy ('automatic', 'automatic');
               $sw->add (my $tb = $self->{"${key}_txt"} = Gtk2::TextView->new);
                  my $buf = $tb->get_buffer->set_text ($arch->{$key});

            $v->pack_start (my $b = Gtk2::Button->new_with_label ("save"), 0, 1, 0);
               $b->signal_connect (clicked => sub {
                  my $buf = $tb->get_buffer;
                  $self->update_arch ($arch, $key,
                     $buf->get_text ($buf->get_start_iter, $buf->get_end_iter, 0)
                  );
               });
      }

      $self->{ttip}->enable;

      $self->show_all;

   } else {
      print "NOARCH FOR: $arch->{_name}\n";
   }
}

sub add_section_edit_widgets {
   my ($self, $ntbook, $name, $arch, $section) = @_;


   $self->{ntbook}->append_page (my $vb = Gtk2::VBox->new, $name);
      $vb->pack_start (my $table = new Gtk2::Table (2, $cnt), 0, 1, 0);

   my $i = 0;
   for my $key (keys %{$section}) {
      my $bwid;
      if ($section->{$key}->{desc} =~ m/^\s*$/s) {
         $bwid = Gtk2::Label->new ($section->{$key}->{name} || $key);
      } else {
         $bwid = Gtk2::Button->new_with_label ($section->{$key}->{name} || $key);
         $self->{ttip}->set_tip ($bwid, $section->{$key}->{desc});
         $bwid->signal_connect (clicked => sub { $self->description_popup ($section->{$key}->{desc}) });
      }
      $table->attach_defaults ($bwid, 0, 1, $i, $i + 1);
      $table->attach_defaults (
         $self->get_edit_widget ($key, $section->{$key}, $arch),
         1, 2, $i, $i + 1
      );
      $i++;
   }
}

sub description_popup {
   my ($self, $desc) = @_;

   my $w = Gtk2::Window->new ('toplevel');
   $w->set_default_size (300, 200);
   $w->add (my $v = Gtk2::VBox->new);
      $v->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0);
         $sw->set_policy ('automatic', 'automatic');
         $sw->add (my $txtv = Gtk2::TextView->new);
         $txtv->set_wrap_mode ('word');
         $txtv->get_buffer->set_text ($desc);
      $v->pack_start (my $b = Gtk2::Button->new_with_label ("close"), 0, 1, 0);
         $b->signal_connect (clicked => sub {
            $w->destroy;
            $w = undef;
         });
   $w->show_all;
}

sub get_edit_widget {
   my ($self, $key, $edspec, $arch) = @_;

   my $type = $edspec->{type};
   my $al_arch = $Crossfire::ARCH{$arch->{_name}};

   if ($type eq 'bool') {
      my $chk = new Gtk2::CheckButton ($edspec->{name} || $key);
      $chk->set_active ($arch->{$key} || $al_arch->{$key});
      $chk->signal_connect (clicked => sub {
         my ($chk) = @_;
         $self->update_arch ($arch, $key, $chk->get_active * 1);
         print "SET $attr :" . $chk->get_active . "\n";
      });
      return $chk

   } elsif (grep { $type eq $_ } qw/string int treasurelist float/) {
      my $entry = new Gtk2::Entry;
      $entry->set_text ($arch->{$key} || $al_arch->{$key});
      $entry->signal_connect (activate => sub {
         my ($entry) = @_;
         $self->update_arch ($arch, $key, $entry->get_text);
      });
      return $entry

#   } elsif ($type eq 'bitmask') {
   } elsif ($type eq 'spell' or $type eq 'nz_spell') { # XXX: nz_spell bug in datafiles?
      my $comb = Gtk2::ComboBox->new_text;
      my $spells_idx = {};
      my $spells_cmb_idx = {};
      my $sp = \%Crossfire::Data::SPELL;

      $comb->append_text ("<none>");

      my $idx = 1; # XXX: replace this idx with a more save/correct method?
      for (sort { $sp->{$a} cmp $sp->{$b} } keys %$sp) {
         $spells_cmd_idx{$idx} = $_;
         $spells_idx{$_} = $idx++;

         $comb->append_text ($sp->{$_});
      }
      $comb->set_active ($spells_idx{$arch->{$key} || $al_arch->{$key}});

      $comb->signal_connect (changed => sub {
         my ($comb) = @_;
         $self->update_arch ($arch, $key, $spells_cmd_idx{$comb->get_active});
      });
      return $comb

   } elsif ($type eq 'fixed') {
      return Gtk2::Label->new ("$edspec->{name} = $edspec->{value}");

   } elsif ($type eq 'text') {
      my $b = $arch->{$key};
      $b =~ s/\n\r?//gs;
      if (length $b > 20) {
         $b = (substr $b, 0, 20) . "...";
      }
      return Gtk2::Label->new ($b);


   } else {
      return Gtk2::Label->new ("$key => $edspec->{name} ($type)");

   }
}


=head1 AUTHOR

 Marc Lehmann <schmorp@schmorp.de>
 http://home.schmorp.de/

 Robin Redeker <elmex@ta-sa.org>
 http://www.ta-sa.org/

=cut
1;
Revision:	1.9
Committed:	Sun Mar 12 13:40:34 2006 UTC (18 years, 2 months ago) by elmex
Branch:	MAIN
Changes since 1.8:	+62 -14 lines
Log Message:	Simple attribute editing now works. Still missing: bitmasks and there are some refreshbugs in the StackView and AttrEdit. Should be refreshed when the map detects changes...
#	Content
1	package GCE::AttrEdit;
2
3	=head1 NAME
4
5	GCE::AttrEdit - an edit wiget for attributes
6
7	=cut
8
9	use Gtk2;
10	use Gtk2::Gdk::Keysyms;
11	use Gtk2::SimpleList;
12
13	use Glib::Object::Subclass Gtk2::ScrolledWindow;
14
15	use Crossfire;
16
17	sub INIT_INSTANCE {
18	my ($self) = @_;
19
20	$self->add_with_viewport (my $vb = new Gtk2::VBox);
21
22	$vb->pack_start (my $lbl = $self->{arch_name_lbl} = Gtk2::Label->new, 0, 1, 0);
23	$vb->pack_start (my $ntbook = $self->{ntbook} = Gtk2::Notebook->new, 1, 1, 0);
24	}
25
26	sub update_arch {
27	my ($self, $arch, $key, $value) = @_;
28
29	if ($value ne '') {
30
31	my $al_arch = $Crossfire::ARCH{$arch->{_name}};
32	print "**********************> SET $key = $value\n";
33	if (ref $value) {
34	$arch->{$key} = $value;
35
36	} else {
37	if (not defined $al_arch->{$key}) {
38	if (not $value) {
39	# try to normalize
40	print ">>>>>>>>>>>>>>>>>>>>>> DEL $key\n";
41	delete $arch->{$key};
42	} else {
43	# try to normalize
44	print ">>>>>>>>>>>>>>>>>>>>>> SET $key = $value\n";
45	$arch->{$key} = $value;
46	}
47	} else {
48	if ($al_arch->{$key} ne $value) {
49	print ">>>>>>>>>>>>>>>>>>>>>>> SET $key = $value\n";
50	$arch->{$key} = $value;
51	} else {
52	# try to normalize
53	print ">>>>>>>>>>>>>>>>>>>>>> DEL $key\n";
54	delete $arch->{$key};
55	}
56	}
57	}
58
59	} else {
60
61	delete $arch->{$key};
62	}
63
64	$self->{change_cb}->($arch)
65	if defined $self->{change_cb};
66	}
67
68	sub set_attr {
69	my ($self, $key, $value) = @_;
70
71	my $attr = $self->{arch}->{$key};
72
73	unless (ref $attr) {
74
75	$self->update_arch ($self->{arch}, $key, $value);
76	}
77	}
78
79	sub set_arch {
80	my ($self, $arch, $change_cb) = @_;
81
82	$self->{change_cb} = $change_cb;
83
84	$self->{arch} = $arch;
85
86	$self->{arch_name_lbl}->set_text (
87	$arch->{_name} . ($arch->{name} ? " - $arch->{name}" : "")
88	);
89
90	if (not defined $change_cb) {
91
92	} else {
93
94	}
95
96	my $al_arch = $Crossfire::ARCH{$arch->{_name}};
97
98	if ($al_arch) {
99	$self->hide;
100	$self->{ntbook}->remove ($_)
101	for $self->{ntbook}->get_children;
102
103	my $ar = Crossfire::arch_attr $al_arch;
104	# warn "FO1:" . Data::Dumper::Dumper ($al_arch) . ">\n";
105	# warn "FO2:" . Data::Dumper::Dumper ($ar) . ">\n";
106	# warn "REAL: " . Data::Dumper::Dumper ($arch) . "\n";
107
108	$self->{ttip} = Gtk2::Tooltips->new;
109
110	$self->add_section_edit_widgets ($self->{ntbook}, 'general', $arch, $ar->{attr});
111
112	my %sects = map { @$_ } @{$ar->{section}};
113
114
115	for my $sec (keys %sects) {
116	my $cnt = scalar keys %{$sects{$sec}};
117	$self->add_section_edit_widgets ($self->{ntbook}, $sec, $arch, $sects{$sec});
118	}
119
120	for my $key (qw/lore msg/) {
121	$self->{ntbook}->append_page (my $v = Gtk2::VBox->new, $key);
122	$v->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0);
123	$sw->set_policy ('automatic', 'automatic');
124	$sw->add (my $tb = $self->{"${key}_txt"} = Gtk2::TextView->new);
125	my $buf = $tb->get_buffer->set_text ($arch->{$key});
126
127	$v->pack_start (my $b = Gtk2::Button->new_with_label ("save"), 0, 1, 0);
128	$b->signal_connect (clicked => sub {
129	my $buf = $tb->get_buffer;
130	$self->update_arch ($arch, $key,
131	$buf->get_text ($buf->get_start_iter, $buf->get_end_iter, 0)
132	);
133	});
134	}
135
136	$self->{ttip}->enable;
137
138	$self->show_all;
139
140	} else {
141	print "NOARCH FOR: $arch->{_name}\n";
142	}
143	}
144
145	sub add_section_edit_widgets {
146	my ($self, $ntbook, $name, $arch, $section) = @_;
147
148
149	$self->{ntbook}->append_page (my $vb = Gtk2::VBox->new, $name);
150	$vb->pack_start (my $table = new Gtk2::Table (2, $cnt), 0, 1, 0);
151
152	my $i = 0;
153	for my $key (keys %{$section}) {
154	my $bwid;
155	if ($section->{$key}->{desc} =~ m/^\s*$/s) {
156	$bwid = Gtk2::Label->new ($section->{$key}->{name} \|\| $key);
157	} else {
158	$bwid = Gtk2::Button->new_with_label ($section->{$key}->{name} \|\| $key);
159	$self->{ttip}->set_tip ($bwid, $section->{$key}->{desc});
160	$bwid->signal_connect (clicked => sub { $self->description_popup ($section->{$key}->{desc}) });
161	}
162	$table->attach_defaults ($bwid, 0, 1, $i, $i + 1);
163	$table->attach_defaults (
164	$self->get_edit_widget ($key, $section->{$key}, $arch),
165	1, 2, $i, $i + 1
166	);
167	$i++;
168	}
169	}
170
171	sub description_popup {
172	my ($self, $desc) = @_;
173
174	my $w = Gtk2::Window->new ('toplevel');
175	$w->set_default_size (300, 200);
176	$w->add (my $v = Gtk2::VBox->new);
177	$v->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0);
178	$sw->set_policy ('automatic', 'automatic');
179	$sw->add (my $txtv = Gtk2::TextView->new);
180	$txtv->set_wrap_mode ('word');
181	$txtv->get_buffer->set_text ($desc);
182	$v->pack_start (my $b = Gtk2::Button->new_with_label ("close"), 0, 1, 0);
183	$b->signal_connect (clicked => sub {
184	$w->destroy;
185	$w = undef;
186	});
187	$w->show_all;
188	}
189
190	sub get_edit_widget {
191	my ($self, $key, $edspec, $arch) = @_;
192
193	my $type = $edspec->{type};
194	my $al_arch = $Crossfire::ARCH{$arch->{_name}};
195
196	if ($type eq 'bool') {
197	my $chk = new Gtk2::CheckButton ($edspec->{name} \|\| $key);
198	$chk->set_active ($arch->{$key} \|\| $al_arch->{$key});
199	$chk->signal_connect (clicked => sub {
200	my ($chk) = @_;
201	$self->update_arch ($arch, $key, $chk->get_active * 1);
202	print "SET $attr :" . $chk->get_active . "\n";
203	});
204	return $chk
205
206	} elsif (grep { $type eq $_ } qw/string int treasurelist float/) {
207	my $entry = new Gtk2::Entry;
208	$entry->set_text ($arch->{$key} \|\| $al_arch->{$key});
209	$entry->signal_connect (activate => sub {
210	my ($entry) = @_;
211	$self->update_arch ($arch, $key, $entry->get_text);
212	});
213	return $entry
214
215	# } elsif ($type eq 'bitmask') {
216	} elsif ($type eq 'spell' or $type eq 'nz_spell') { # XXX: nz_spell bug in datafiles?
217	my $comb = Gtk2::ComboBox->new_text;
218	my $spells_idx = {};
219	my $spells_cmb_idx = {};
220	my $sp = \%Crossfire::Data::SPELL;
221
222	$comb->append_text ("<none>");
223
224	my $idx = 1; # XXX: replace this idx with a more save/correct method?
225	for (sort { $sp->{$a} cmp $sp->{$b} } keys %$sp) {
226	$spells_cmd_idx{$idx} = $_;
227	$spells_idx{$_} = $idx++;
228
229	$comb->append_text ($sp->{$_});
230	}
231	$comb->set_active ($spells_idx{$arch->{$key} \|\| $al_arch->{$key}});
232
233	$comb->signal_connect (changed => sub {
234	my ($comb) = @_;
235	$self->update_arch ($arch, $key, $spells_cmd_idx{$comb->get_active});
236	});
237	return $comb
238
239	} elsif ($type eq 'fixed') {
240	return Gtk2::Label->new ("$edspec->{name} = $edspec->{value}");
241
242	} elsif ($type eq 'text') {
243	my $b = $arch->{$key};
244	$b =~ s/\n\r?//gs;
245	if (length $b > 20) {
246	$b = (substr $b, 0, 20) . "...";
247	}
248	return Gtk2::Label->new ($b);
249
250
251	} else {
252	return Gtk2::Label->new ("$key => $edspec->{name} ($type)");
253
254	}
255	}
256
257
258	=head1 AUTHOR
259
260	Marc Lehmann <schmorp@schmorp.de>
261	http://home.schmorp.de/
262
263	Robin Redeker <elmex@ta-sa.org>
264	http://www.ta-sa.org/
265
266	=cut
267	1;