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 GCE::Util;
use GCE::InventoryEditor;
use GCE::AttachEditor;

use Glib::Object::Subclass
    Gtk2::HPaned;

use AnyEvent::EditText;

use Deliantra;
use strict;

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

   $::CFG->{attr_view_hpane_pos} = $self->get_position;
   $::CFG->{attr_view_show_use}  = $self->{use_btn}->get_active * 1;

   $self->{attach_editor}->save_layout
      if $self->{attach_editor};
}

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

   $self->set_position ($::CFG->{attr_view_hpane_pos} || 350);
   $self->{use_btn}->set_active ($::CFG->{attr_view_show_use} * 1);

   $self->{use_al}->remove ($_) for $self->{use_al}->get_children;
   if ($self->{use_btn}->get_active) {
      $self->{use_al}->add ($self->{use_lbl});
      $self->{use_lbl}->show;
   }
}

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

   my $pb = $self->{arch_pb} = new_arch_pb;

   $self->add (my $topvb = Gtk2::VBox->new);
      $topvb->pack_start (my $menubar = Gtk2::MenuBar->new, 0, 0, 0);
         $menubar->append (my $actions_menu = Gtk2::MenuItem->new ('Actions'));
            my $actmenu = Gtk2::Menu->new;
            $actmenu->append (my $defitm = Gtk2::MenuItem->new ('reset to defaults'));
               $defitm->signal_connect (activate => sub {
                  my $ar = $self->{archref};
                  $ar->reset_to_defaults;
                  #XXXAR $self->set_arch ($arch, $self->{change_cb});
               });

            $actmenu->append (my $attitm = Gtk2::MenuItem->new ('attach'));
               $attitm->signal_connect (activate => sub {
                  my $ar = $self->{archref};
                  return unless $ar;
                  unless ($self->{attach_editor}) {
                     my $w = GCE::AttachEditor->new;
                     $w->set_attachment (
                        $ar->get ('attach'),
                        sub {
                           if (@{$_[0]}) {
                              $ar->set_silent (attach => $_[0])
                           } else {
                              $ar->set_silent (attach => undef)
                           }
                        }
                     );
                     $self->{attach_editor} = $w;
                     $w->signal_connect (destroy => sub { delete $self->{attach_editor} });
                     $w->show_all;
                  }
               });

            $actions_menu->set_submenu ($actmenu);
            $actmenu->show_all;

      $topvb->pack_start (my $hb2 = Gtk2::HBox->new, 0, 1, 0);
         $hb2->pack_start (my $img = $self->{arch_img} = (new_from_pixbuf Gtk2::Image $pb), 0, 0, 0);
         $img->set_alignment (0, 0.5);

         $hb2->pack_start (my $lbl = $self->{arch_name_lbl} = Gtk2::Label->new, 0, 0, 0);
         $lbl->set_alignment (0, 0.5);

         $hb2->pack_start (my $statbtn = $self->{arch_stat_btn} = Gtk2::Button->new, 0, 0, 0);

      $topvb->pack_start (my $docal = Gtk2::Alignment->new (0, 0.5, 0, 1), 0, 1, 0);
      $topvb->pack_start (my $usebtn = $self->{use_btn} = Gtk2::ToggleButton->new ('show use'), 0, 1, 0);
      $topvb->pack_start (my $useal = $self->{use_al} = Gtk2::Alignment->new (0, 0.5, 0, 1), 0, 1, 0);
      $topvb->pack_start (my $ntbook = $self->{ntbook} = Gtk2::Notebook->new, 1, 1, 0);
         $ntbook->set_scrollable (1);
         $docal->add ($self->{doc_lbl} = Gtk2::Label->new);

         $usebtn->set_active (0);
         $self->{use_lbl} = Gtk2::Label->new;
         $usebtn->signal_connect (toggled => sub {
            my ($usebtn) = @_;

            $useal->remove ($_) for $useal->get_children;
            if ($usebtn->get_active) {
               $useal->add ($self->{use_lbl});
               $self->{use_lbl}->show;
            }
         });
         $self->{doc_lbl}->set_line_wrap (1);
         $self->{use_lbl}->set_line_wrap (1);

   $self->add2 (my $sw = Gtk2::ScrolledWindow->new);
      $sw->set_policy ('automatic', 'automatic');
      $sw->add_with_viewport (my $inv = $self->{inv_edit} = GCE::InventoryEditor->new);
}

#sub spawn_editor {
#   my ($arch, $cb) = @_;
#
#   my $w = Gtk2::Window->new;
#   $w->set_title ("gce - edit attrs");
#   $w->add (my $ae = GCE::AttrEdit->new);
#
#   main::set_pos_and_size ($w, $main::CFG->{attr_view}, 200, 200);
#
#   $ae->set_arch ($arch, $cb);
#   $w->set_title ("gce - edit $arch->{_name}");
#
#   $w->show_all;
#}

sub update_arch {
   my ($self, $ar, $key, $value) = @_;
   $ar->set ($key, $value);
}

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

   my $attr = $self->{archref}->get ($key);

   unless (ref $attr) {

      $self->{archref}->set ($key, $value);
   }
}

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

   $self->{archref}
}

#sub update {
#   my ($self, $narch) = @_;
#
#   if (ref ($narch) ne 'GCE::ArchRef') { require Carp; Carp::confess ("NO ARCH REF!") }
#
#   if ($narch) {
#      $self->set_arch ($narch);
#   } else {
#      $self->set_arch ($self->{archref});
#   }
#}

sub set_arch {
   my ($self, $ar, $clear_inv) = @_;

   if ((defined $self->{archref}) && ($self->{archref} != $ar)) {
      $self->{archref}->remove_on_change ('attredit')
         if defined $self->{archref};
      $ar->add_on_change (attredit => sub { $self->set_arch ($_[0]) });
      $self->{attach_editor}->destroy if $self->{attach_editor};

   } elsif (not defined $self->{archref}) {
      $ar->add_on_change (attredit => sub { $self->set_arch ($_[0]) });
   }

   $self->{inv_edit}->clear_inv_hist if $clear_inv;
   $self->{inv_edit}->set_arch ($ar);

   $self->{archref} = $ar;

   $self->{arch_name_lbl}->set_text ($ar->longname);

   fill_pb_from_arch ($self->{arch_pb}, $ar->getarch);
   $self->{arch_img}->set_from_pixbuf ($self->{arch_pb});
   $self->label_set_color ($self->{arch_name_lbl}, 0);

   $self->{arch_stat_btn}->set_label ($ar->{source});

   # get current page (to remember it for later)
   my $pgnum = $self->{ntbook}->get_current_page;
   my $curwid = $self->{ntbook}->get_nth_page ($pgnum);
   my $curpage_text =
      defined $curwid
         ? $self->{ntbook}->get_tab_label_text ($curwid) 
         : undef;

   my $al_arch = $ar->archetype;

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

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

   my $type = $ar->type;

   for my $sec (@{$type->{section}}) {
      my $secname = shift @$sec;
      $self->add_section_edit_widgets ($self->{ntbook}, $secname, $ar, $sec);
   }

   for my $key (qw/lore msg/) {

      $self->{ntbook}->append_page (my $v = Gtk2::VBox->new, $key);
         $v->pack_start (my $ed = Gtk2::Button->new ("Open Editor"), 0, 1, 0);
         $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 $change_field = sub {
                  my ($txt) = @_;

                  my $buf = $tb->get_buffer;

                  my $old_txt = $buf->get_text ($buf->get_start_iter, $buf->get_end_iter, 0);
                  $txt = $old_txt unless defined $txt;

                  $ar->set_silent ($key, $txt)
                     if $txt ne $ar->get ($key);
                  $buf->set_text ($txt)
                     if $txt ne $old_txt;
               };

               my $buf = $tb->get_buffer;
               $change_field->($ar->get ($key));
               $buf->signal_connect (changed => sub {
                  $change_field->();
                  1
               });

      $ed->signal_connect (clicked => sub {
         AnyEvent::EditText::edit ($ar->get ($key), sub {
            my ($new, $change, $err) = @_;

            if (not defined $new) {
               quick_msg ("Error while starting editor: $err");
               return;
            }

            $change_field->($new)
               if $change;
         });
      });
   }

   my $desc = pseudohtml2txt $type->{desc};
   my $use  = pseudohtml2txt $type->{use};
   $self->{doc_lbl}->set_text ($desc);
   $self->{use_lbl}->set_text ($use);

   $self->{ttip}->enable;

   $self->show_all;

   # reset the current page if found
   # XXX: it's braindamaged: it has to be done AFTER show all for some reason
   if (defined $curpage_text) {

      for (my $i = 0; $i <= $self->{ntbook}->get_n_pages; $i++) {
         my $w = $self->{ntbook}->get_nth_page ($i);

         if ($w && $self->{ntbook}->get_tab_label_text ($w) eq $curpage_text) {
            $self->{ntbook}->set_current_page ($i);
            last;
         }
      }
   }
}

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

   $self->{ntbook}->append_page (my $sw = Gtk2::ScrolledWindow->new, $name);
      $sw->set_policy ('automatic', 'automatic');
      $sw->add_with_viewport (my $vb = Gtk2::VBox->new);
      $vb->pack_start (my $table = new Gtk2::Table (2, (scalar @$section) + 1), 0, 1, 0);

   my $i = 0;
   for my $sec (@$section) {
      my ($key, $sec) = ($sec->[0], $sec->[1]);

      next if grep { $key eq $_ } qw/msg lore/;

      my $bwid = Gtk2::EventBox->new;
      $bwid->add (my $al = Gtk2::Alignment->new (0.0, 0.5, 0, 1));
         $al->add (Gtk2::Label->new (def ($sec->{name}, $key)));

      if ($sec->{desc} !~ m/^\s*$/s) {
         $self->{ttip}->set_tip ($bwid, $sec->{desc});
      }

      $table->attach ($bwid, 0, 1, $i, $i + 1, ['shrink','fill'], 'fill', 5, 0);

      $al = Gtk2::Alignment->new (0.0, 0.5, 1, 0);
      $table->attach ($al,   1, 2, $i, $i + 1, ['expand', 'fill'], 'expand', 0, 0);
         $al->add ($self->get_edit_widget ($key, $sec, $ar, $bwid));

      $i++;
   }
}

sub label_set_color {
   my ($self, $lbl, $dark) = @_;
   if ($dark) {
      for (qw/normal active prelight selected insensitive/) {
         $lbl->modify_bg ($_, $lbl->get_default_style->bg ('active'));
         $lbl->modify_fg ($_, $lbl->get_default_style->fg ('active'));
      }

  } else {
     for (qw/normal active prelight selected insensitive/) {
        $lbl->modify_bg ($_, $lbl->get_default_style->bg ($_));
     }
  }

}

sub label_set_color_default {
   my ($self, $lbl, $ar, $key, $val) = @_;
   require Carp; $ar or Carp::confess ("UNDEF");
   my $al_arch = $ar->archetype;
   $self->label_set_color ($lbl, $ar->field_value_is_default ($key, $val));

}

# XXX: Warning: Ugly code ahead:
sub get_edit_widget {
   my ($self, $key, $edspec, $ar, $lbl) = @_;

   my $type    = $edspec->{type};
   my $al_arch = $ar->archetype;

   if ($type eq 'bool') {
      my $boolval = def ($edspec->{value}, [0, 1]);


      $self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));

      my $chk = new Gtk2::CheckButton (def ($edspec->{name}, $key));
         $chk->set_active ($ar->get_or_default ($key) == $boolval->[1]);
         $chk->signal_connect (clicked => sub {
            my ($chk) = @_;

            $ar->set_silent ($key, $boolval->[$chk->get_active * 1], $type);

            $self->label_set_color_default ($lbl, $ar, $key, $boolval->[$chk->get_active * 1]);
         });

      $self->{ttip}->set_tip ($chk, $al_arch->{$key} * 1);

      return $chk

   } elsif (grep { $type eq $_ } qw/string int treasurelist float/) {
      $self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));

      my $entry = new Gtk2::Entry;
         $entry->set_text ($ar->get_or_default ($key));
         $entry->signal_connect (changed => sub {
            my ($entry) = @_;
            $self->label_set_color_default ($lbl, $ar, $key, $entry->get_text);
            $ar->set_silent ($key, $entry->get_text);
            1
         });

      $self->{ttip}->set_tip ($entry, $ar->archetype->{$key});

      return $entry

   } 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_cmd_idx = {};
      my $sp = \%Deliantra::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->{$_});
      }
      #XXX: FIXME: $self->{ttip}->set_tip ($comb, $sp->{$al_arch->{$key}});

      $comb->set_active ($spells_idx->{$ar->get_or_default ($key)});
      $self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));

      $comb->signal_connect (changed => sub {
         my ($comb) = @_;
         $self->label_set_color_default ($lbl, $ar, $key, $spells_cmd_idx->{$comb->get_active});
         $ar->set_silent ($key, $spells_cmd_idx->{$comb->get_active});
      });
      return $comb

   } elsif ($type eq 'bitmask') {
      my $chval = $ar->get_or_default ($key);
      my $btn = Gtk2::Button->new;
      $btn->add (my $lblb = Gtk2::Label->new ("bitmask: " . ($chval * 1)));
      $self->{ttip}->set_tip ($btn, $al_arch->{$key});

      my $menu = $self->create_bitmask_menu ($edspec->{value}, $lbl, $lblb, $ar, $key, \$chval);

      $self->label_set_color_default ($lbl, $ar, $key, $chval);

      $btn->signal_connect (button_press_event => sub {
         my ($btn, $ev) = @_;
         $menu->popup (undef, undef, undef, undef, $ev->button, 0);
      });

      return $btn;

   } elsif ($type eq 'list') {
      my $lblb = Gtk2::Label->new ($edspec->{value}->{$ar->get_or_default ($key) * 1});
      my $btn = Gtk2::Button->new;
      $self->{ttip}->set_tip ($btn, $edspec->{value}->{$al_arch->{$key}});
      $btn->add ($lblb);
      my $menu = $self->create_list_menu ($edspec->{value}, $lbl, $lblb, $ar, $key);

      $self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));

      $btn->signal_connect (button_press_event => sub {
         my ($btn, $ev) = @_;
         $menu->popup (undef, undef, undef, undef, $ev->button, 0);
      });
      return $btn;

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

   } elsif ($type eq 'text') {
      return Gtk2::Label->new ("<see $key tab>");

   } elsif ($type eq 'movement_type') { # ok... this is quite a big one... awww
      my $a = Gtk2::Alignment->new (0, 0, 0, 0);
      $a->add (my $v = Gtk2::VBox->new (0, 0));
      $a->set_padding (4, 4, 0, 0);
      my $btns1 = Gtk2::HButtonBox->new;
      my $btns2 = Gtk2::HButtonBox->new;
      $btns1->set_layout ('start');
      $btns2->set_layout ('start');

      $v->pack_start ($btns1, 0, 1, 0);
      $v->pack_start ($btns2, 0, 1, 0);

      my @lblbtns;
      my $calc_lbl = sub { # update callback for the buttons
         for (@lblbtns) {
            my $btn = $_->[0];
            my $lbl = $_->[1];

            if (defined $ar->get_or_default ($key)) {
               my $res =
                  Deliantra::MoveType->new ($ar->get_or_default ($key))
                     >= $lbl;

               if (defined $res) {
                  $self->label_set_color ($btn, 0);
                  $lbl = ($res ? "+" : "-") . $lbl;

               } else {
                  $self->label_set_color ($btn, 1);
                  $lbl = "$lbl?";
               }
            } else {
               $self->label_set_color ($btn, 1);
               $lbl = "$lbl?";
            }

            $btn->set_label ($lbl);
         }
      };

      $self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));

      my $mid = (scalar @Deliantra::MOVE_TYPE) / 2;
      my $cnt = 0;
      my $box = $btns1;

      for my $mty (@Deliantra::MOVE_TYPE) {
         $box->pack_start (my $btn = Gtk2::Button->new ($calc_lbl->()), 0, 1, 0);
         push @lblbtns, [$btn, $mty];

         $self->{ttip}->set_tip ($btn, $ar->archetype->{$key});
         $btn->signal_connect (clicked => sub {
            my $v = $ar->get ($key) || Deliantra::MoveType->new;

            $v x= $mty;
            $v = $v eq '' ? undef : $v;
            $ar->set_silent ($key, $v);

            $self->label_set_color_default (
               $lbl, $ar, $key, $ar->get_or_default ($key));
            $calc_lbl->();
         });

         if (++$cnt >= $mid) { $box = $btns2 } # for wrapping into the second button box
      }
      $calc_lbl->();

      return $a;

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

   }
}

sub bitmask_to_list {
   my ($self, $bitlist, $bits) = @_;

   my @l;
   for (%$bitlist) {
      if ($bits & (1 << $_)) {
         push @l, $bitlist->{$_};
      }
   }
   return @l;
}

sub create_list_menu {
   my ($self, $list, $clbl, $lbl, $ar, $key) = @_;

   my $menu = Gtk2::Menu->new;

   for my $item (sort keys %$list) {
      my $lbltxt = $list->{$item};
      my $menuitem = Gtk2::MenuItem->new_with_label ($lbltxt);
      $menuitem->signal_connect (activate => sub {
         my ($menuitem) = @_;
         $lbl->set_text ($list->{$item});
         $self->label_set_color_default ($clbl, $ar, $key, $item);
         $ar->set_silent ($key, $item);
      });
      $menu->append ($menuitem);
      $menuitem->show;
   }

   return $menu;
}

sub create_bitmask_menu {
   my ($self, $bits, $clbl, $lbl, $ar, $key, $rval) = @_;

   my $menu = Gtk2::Menu->new;

   for my $bit (sort { $a <=> $b } keys %$bits) {
      my $lbltxt = $bits->{$bit};
      my $menuitem = Gtk2::CheckMenuItem->new_with_label ($lbltxt);
      if ($$rval & (1 << $bit)) {
         $menuitem->set_active (1);#$arch->{$key} & (1 << $bit));
      }
      $menuitem->signal_connect (toggled => sub {
         my ($menuitem) = @_;
         my $newval = $ar->get ($key);
         $$rval &= ~(1 << $bit);
         $$rval |= (1 << $bit) if $menuitem->get_active;
         $lbl->set_text ("bitmask: " . ($$rval * 1));
         $self->label_set_color_default ($clbl, $ar, $key, $$rval);
         $ar->set_silent ($key, $$rval);
      });
      $menu->append ($menuitem);
      $menuitem->show;
   }

   return $menu;
}


=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.51
Committed:	Fri Mar 19 20:57:53 2010 UTC (14 years, 2 months ago) by elmex
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.50:	+6 -1 lines
Log Message:	added env var for text editor.
#	User	Rev	Content
1	elmex	1.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	elmex	1.19	use GCE::Util;
14	elmex	1.15	use GCE::InventoryEditor;
15	elmex	1.37	use GCE::AttachEditor;
16	elmex	1.15
17	elmex	1.37	use Glib::Object::Subclass
18			Gtk2::HPaned;
19	elmex	1.3
20	elmex	1.50	use AnyEvent::EditText;
21
22	root	1.45	use Deliantra;
23	elmex	1.34	use strict;
24	elmex	1.1
25	elmex	1.30	sub save_layout {
26			my ($self) = @_;
27
28			$::CFG->{attr_view_hpane_pos} = $self->get_position;
29	elmex	1.35	$::CFG->{attr_view_show_use} = $self->{use_btn}->get_active * 1;
30	elmex	1.37
31			$self->{attach_editor}->save_layout
32			if $self->{attach_editor};
33	elmex	1.30	}
34
35			sub load_layout {
36			my ($self) = @_;
37
38	elmex	1.33	$self->set_position ($::CFG->{attr_view_hpane_pos} \|\| 350);
39	elmex	1.35	$self->{use_btn}->set_active ($::CFG->{attr_view_show_use} * 1);
40
41			$self->{use_al}->remove ($_) for $self->{use_al}->get_children;
42			if ($self->{use_btn}->get_active) {
43			$self->{use_al}->add ($self->{use_lbl});
44			$self->{use_lbl}->show;
45			}
46	elmex	1.30	}
47
48	elmex	1.1	sub INIT_INSTANCE {
49			my ($self) = @_;
50
51	elmex	1.23	my $pb = $self->{arch_pb} = new_arch_pb;
52
53	elmex	1.30	$self->add (my $topvb = Gtk2::VBox->new);
54	elmex	1.43	$topvb->pack_start (my $menubar = Gtk2::MenuBar->new, 0, 0, 0);
55			$menubar->append (my $actions_menu = Gtk2::MenuItem->new ('Actions'));
56			my $actmenu = Gtk2::Menu->new;
57			$actmenu->append (my $defitm = Gtk2::MenuItem->new ('reset to defaults'));
58			$defitm->signal_connect (activate => sub {
59			my $ar = $self->{archref};
60			$ar->reset_to_defaults;
61			#XXXAR $self->set_arch ($arch, $self->{change_cb});
62			});
63
64			$actmenu->append (my $attitm = Gtk2::MenuItem->new ('attach'));
65			$attitm->signal_connect (activate => sub {
66			my $ar = $self->{archref};
67			return unless $ar;
68			unless ($self->{attach_editor}) {
69			my $w = GCE::AttachEditor->new;
70			$w->set_attachment (
71			$ar->get ('attach'),
72			sub {
73			if (@{$_[0]}) {
74			$ar->set_silent (attach => $_[0])
75			} else {
76			$ar->set_silent (attach => undef)
77			}
78			}
79			);
80			$self->{attach_editor} = $w;
81			$w->signal_connect (destroy => sub { delete $self->{attach_editor} });
82			$w->show_all;
83			}
84			});
85
86			$actions_menu->set_submenu ($actmenu);
87			$actmenu->show_all;
88
89	elmex	1.30	$topvb->pack_start (my $hb2 = Gtk2::HBox->new, 0, 1, 0);
90			$hb2->pack_start (my $img = $self->{arch_img} = (new_from_pixbuf Gtk2::Image $pb), 0, 0, 0);
91			$img->set_alignment (0, 0.5);
92
93			$hb2->pack_start (my $lbl = $self->{arch_name_lbl} = Gtk2::Label->new, 0, 0, 0);
94			$lbl->set_alignment (0, 0.5);
95
96	elmex	1.43	$hb2->pack_start (my $statbtn = $self->{arch_stat_btn} = Gtk2::Button->new, 0, 0, 0);
97	elmex	1.37
98	elmex	1.30	$topvb->pack_start (my $docal = Gtk2::Alignment->new (0, 0.5, 0, 1), 0, 1, 0);
99	elmex	1.35	$topvb->pack_start (my $usebtn = $self->{use_btn} = Gtk2::ToggleButton->new ('show use'), 0, 1, 0);
100			$topvb->pack_start (my $useal = $self->{use_al} = Gtk2::Alignment->new (0, 0.5, 0, 1), 0, 1, 0);
101	elmex	1.30	$topvb->pack_start (my $ntbook = $self->{ntbook} = Gtk2::Notebook->new, 1, 1, 0);
102			$ntbook->set_scrollable (1);
103			$docal->add ($self->{doc_lbl} = Gtk2::Label->new);
104
105			$usebtn->set_active (0);
106			$self->{use_lbl} = Gtk2::Label->new;
107			$usebtn->signal_connect (toggled => sub {
108			my ($usebtn) = @_;
109
110			$useal->remove ($_) for $useal->get_children;
111			if ($usebtn->get_active) {
112			$useal->add ($self->{use_lbl});
113			$self->{use_lbl}->show;
114	elmex	1.24	}
115			});
116	elmex	1.30	$self->{doc_lbl}->set_line_wrap (1);
117			$self->{use_lbl}->set_line_wrap (1);
118	elmex	1.23
119	elmex	1.30	$self->add2 (my $sw = Gtk2::ScrolledWindow->new);
120			$sw->set_policy ('automatic', 'automatic');
121			$sw->add_with_viewport (my $inv = $self->{inv_edit} = GCE::InventoryEditor->new);
122	elmex	1.3	}
123
124	elmex	1.29	#sub spawn_editor {
125			# my ($arch, $cb) = @_;
126			#
127			# my $w = Gtk2::Window->new;
128			# $w->set_title ("gce - edit attrs");
129			# $w->add (my $ae = GCE::AttrEdit->new);
130			#
131			# main::set_pos_and_size ($w, $main::CFG->{attr_view}, 200, 200);
132			#
133			# $ae->set_arch ($arch, $cb);
134			# $w->set_title ("gce - edit $arch->{_name}");
135			#
136			# $w->show_all;
137			#}
138	elmex	1.23
139	elmex	1.3	sub update_arch {
140	elmex	1.32	my ($self, $ar, $key, $value) = @_;
141			$ar->set ($key, $value);
142	elmex	1.1	}
143
144	elmex	1.5	sub set_attr {
145			my ($self, $key, $value) = @_;
146
147	elmex	1.32	my $attr = $self->{archref}->get ($key);
148	elmex	1.5
149			unless (ref $attr) {
150
151	elmex	1.32	$self->{archref}->set ($key, $value);
152	elmex	1.5	}
153			}
154
155	elmex	1.29	sub get_arch {
156			my ($self) = @_;
157
158	elmex	1.32	$self->{archref}
159	elmex	1.29	}
160
161	elmex	1.32	#sub update {
162			# my ($self, $narch) = @_;
163			#
164			# if (ref ($narch) ne 'GCE::ArchRef') { require Carp; Carp::confess ("NO ARCH REF!") }
165			#
166			# if ($narch) {
167			# $self->set_arch ($narch);
168			# } else {
169			# $self->set_arch ($self->{archref});
170			# }
171			#}
172	elmex	1.30
173	elmex	1.2	sub set_arch {
174	elmex	1.32	my ($self, $ar, $clear_inv) = @_;
175	elmex	1.7
176	elmex	1.32	if ((defined $self->{archref}) && ($self->{archref} != $ar)) {
177			$self->{archref}->remove_on_change ('attredit')
178			if defined $self->{archref};
179			$ar->add_on_change (attredit => sub { $self->set_arch ($_[0]) });
180	elmex	1.38	$self->{attach_editor}->destroy if $self->{attach_editor};
181	elmex	1.26
182	elmex	1.32	} elsif (not defined $self->{archref}) {
183			$ar->add_on_change (attredit => sub { $self->set_arch ($_[0]) });
184			}
185	elmex	1.3
186	elmex	1.32	$self->{inv_edit}->clear_inv_hist if $clear_inv;
187			$self->{inv_edit}->set_arch ($ar);
188	elmex	1.30
189	elmex	1.32	$self->{archref} = $ar;
190	elmex	1.21
191	elmex	1.32	$self->{arch_name_lbl}->set_text ($ar->longname);
192	elmex	1.8
193	elmex	1.32	fill_pb_from_arch ($self->{arch_pb}, $ar->getarch);
194	elmex	1.23	$self->{arch_img}->set_from_pixbuf ($self->{arch_pb});
195	elmex	1.43	$self->label_set_color ($self->{arch_name_lbl}, 0);
196
197			$self->{arch_stat_btn}->set_label ($ar->{source});
198	elmex	1.23
199	elmex	1.32	# get current page (to remember it for later)
200			my $pgnum = $self->{ntbook}->get_current_page;
201			my $curwid = $self->{ntbook}->get_nth_page ($pgnum);
202	elmex	1.44	my $curpage_text =
203			defined $curwid
204			? $self->{ntbook}->get_tab_label_text ($curwid)
205			: undef;
206	elmex	1.32
207			my $al_arch = $ar->archetype;
208
209	elmex	1.18	$self->hide;
210			$self->{ntbook}->remove ($_)
211			for $self->{ntbook}->get_children;
212	elmex	1.8
213	elmex	1.18	$self->{ttip} = Gtk2::Tooltips->new;
214	elmex	1.8
215	elmex	1.32	my $type = $ar->type;
216
217			for my $sec (@{$type->{section}}) {
218	elmex	1.18	my $secname = shift @$sec;
219	elmex	1.32	$self->add_section_edit_widgets ($self->{ntbook}, $secname, $ar, $sec);
220	elmex	1.18	}
221	elmex	1.8
222	elmex	1.18	for my $key (qw/lore msg/) {
223	elmex	1.50
224	elmex	1.18	$self->{ntbook}->append_page (my $v = Gtk2::VBox->new, $key);
225	elmex	1.50	$v->pack_start (my $ed = Gtk2::Button->new ("Open Editor"), 0, 1, 0);
226	elmex	1.18	$v->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0);
227			$sw->set_policy ('automatic', 'automatic');
228			$sw->add (my $tb = $self->{"${key}_txt"} = Gtk2::TextView->new);
229	elmex	1.50
230			my $change_field = sub {
231			my ($txt) = @_;
232
233			my $buf = $tb->get_buffer;
234
235			my $old_txt = $buf->get_text ($buf->get_start_iter, $buf->get_end_iter, 0);
236			$txt = $old_txt unless defined $txt;
237
238			$ar->set_silent ($key, $txt)
239			if $txt ne $ar->get ($key);
240			$buf->set_text ($txt)
241			if $txt ne $old_txt;
242			};
243
244	elmex	1.18	my $buf = $tb->get_buffer;
245	elmex	1.50	$change_field->($ar->get ($key));
246	elmex	1.20	$buf->signal_connect (changed => sub {
247	elmex	1.50	$change_field->();
248	elmex	1.36	1
249	elmex	1.20	});
250	elmex	1.50
251			$ed->signal_connect (clicked => sub {
252			AnyEvent::EditText::edit ($ar->get ($key), sub {
253	elmex	1.51	my ($new, $change, $err) = @_;
254
255			if (not defined $new) {
256			quick_msg ("Error while starting editor: $err");
257			return;
258			}
259	elmex	1.50
260			$change_field->($new)
261			if $change;
262			});
263			});
264	elmex	1.18	}
265	elmex	1.15
266	elmex	1.34	my $desc = pseudohtml2txt $type->{desc};
267			my $use = pseudohtml2txt $type->{use};
268	elmex	1.28	$self->{doc_lbl}->set_text ($desc);
269			$self->{use_lbl}->set_text ($use);
270	elmex	1.25
271	elmex	1.18	$self->{ttip}->enable;
272	elmex	1.3
273	elmex	1.18	$self->show_all;
274	elmex	1.26
275			# reset the current page if found
276			# XXX: it's braindamaged: it has to be done AFTER show all for some reason
277			if (defined $curpage_text) {
278
279			for (my $i = 0; $i <= $self->{ntbook}->get_n_pages; $i++) {
280			my $w = $self->{ntbook}->get_nth_page ($i);
281
282			if ($w && $self->{ntbook}->get_tab_label_text ($w) eq $curpage_text) {
283			$self->{ntbook}->set_current_page ($i);
284			last;
285			}
286			}
287			}
288	elmex	1.8	}
289
290			sub add_section_edit_widgets {
291	elmex	1.32	my ($self, $ntbook, $name, $ar, $section) = @_;
292	elmex	1.8
293	elmex	1.13	$self->{ntbook}->append_page (my $sw = Gtk2::ScrolledWindow->new, $name);
294	elmex	1.27	$sw->set_policy ('automatic', 'automatic');
295	elmex	1.13	$sw->add_with_viewport (my $vb = Gtk2::VBox->new);
296	elmex	1.34	$vb->pack_start (my $table = new Gtk2::Table (2, (scalar @$section) + 1), 0, 1, 0);
297	elmex	1.8
298			my $i = 0;
299	elmex	1.11	for my $sec (@$section) {
300	elmex	1.32	my ($key, $sec) = ($sec->[0], $sec->[1]);
301
302	elmex	1.28	next if grep { $key eq $_ } qw/msg lore/;
303	elmex	1.32
304	elmex	1.11	my $bwid = Gtk2::EventBox->new;
305	elmex	1.32	$bwid->add (my $al = Gtk2::Alignment->new (0.0, 0.5, 0, 1));
306			$al->add (Gtk2::Label->new (def ($sec->{name}, $key)));
307
308	elmex	1.11	if ($sec->{desc} !~ m/^\s*$/s) {
309			$self->{ttip}->set_tip ($bwid, $sec->{desc});
310	elmex	1.9	}
311	elmex	1.32
312	elmex	1.12	$table->attach ($bwid, 0, 1, $i, $i + 1, ['shrink','fill'], 'fill', 5, 0);
313	elmex	1.11
314			$al = Gtk2::Alignment->new (0.0, 0.5, 1, 0);
315	elmex	1.32	$table->attach ($al, 1, 2, $i, $i + 1, ['expand', 'fill'], 'expand', 0, 0);
316			$al->add ($self->get_edit_widget ($key, $sec, $ar, $bwid));
317
318	elmex	1.8	$i++;
319	elmex	1.3	}
320	elmex	1.8	}
321	elmex	1.3
322	elmex	1.41	sub label_set_color {
323			my ($self, $lbl, $dark) = @_;
324			if ($dark) {
325	elmex	1.12	for (qw/normal active prelight selected insensitive/) {
326			$lbl->modify_bg ($_, $lbl->get_default_style->bg ('active'));
327			$lbl->modify_fg ($_, $lbl->get_default_style->fg ('active'));
328			}
329	elmex	1.32
330	elmex	1.12	} else {
331			for (qw/normal active prelight selected insensitive/) {
332			$lbl->modify_bg ($_, $lbl->get_default_style->bg ($_));
333			}
334			}
335	elmex	1.41
336			}
337
338			sub label_set_color_default {
339			my ($self, $lbl, $ar, $key, $val) = @_;
340			require Carp; $ar or Carp::confess ("UNDEF");
341			my $al_arch = $ar->archetype;
342			$self->label_set_color ($lbl, $ar->field_value_is_default ($key, $val));
343
344	elmex	1.9	}
345
346	elmex	1.17	# XXX: Warning: Ugly code ahead:
347	elmex	1.8	sub get_edit_widget {
348	elmex	1.32	my ($self, $key, $edspec, $ar, $lbl) = @_;
349	elmex	1.4
350	elmex	1.32	my $type = $edspec->{type};
351			my $al_arch = $ar->archetype;
352	elmex	1.3
353	elmex	1.8	if ($type eq 'bool') {
354	elmex	1.19	my $boolval = def ($edspec->{value}, [0, 1]);
355	elmex	1.15
356	elmex	1.32
357			$self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));
358
359	elmex	1.19	my $chk = new Gtk2::CheckButton (def ($edspec->{name}, $key));
360	elmex	1.32	$chk->set_active ($ar->get_or_default ($key) == $boolval->[1]);
361			$chk->signal_connect (clicked => sub {
362			my ($chk) = @_;
363
364	elmex	1.46	$ar->set_silent ($key, $boolval->[$chk->get_active * 1], $type);
365	elmex	1.32
366			$self->label_set_color_default ($lbl, $ar, $key, $boolval->[$chk->get_active * 1]);
367			});
368	elmex	1.15
369	elmex	1.12	$self->{ttip}->set_tip ($chk, $al_arch->{$key} * 1);
370	elmex	1.15
371	elmex	1.8	return $chk
372
373			} elsif (grep { $type eq $_ } qw/string int treasurelist float/) {
374	elmex	1.32	$self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));
375
376	elmex	1.8	my $entry = new Gtk2::Entry;
377	elmex	1.32	$entry->set_text ($ar->get_or_default ($key));
378			$entry->signal_connect (changed => sub {
379			my ($entry) = @_;
380			$self->label_set_color_default ($lbl, $ar, $key, $entry->get_text);
381			$ar->set_silent ($key, $entry->get_text);
382			1
383			});
384
385			$self->{ttip}->set_tip ($entry, $ar->archetype->{$key});
386
387	elmex	1.8	return $entry
388
389			} elsif ($type eq 'spell' or $type eq 'nz_spell') { # XXX: nz_spell bug in datafiles?
390			my $comb = Gtk2::ComboBox->new_text;
391			my $spells_idx = {};
392	elmex	1.34	my $spells_cmd_idx = {};
393	root	1.45	my $sp = \%Deliantra::Data::SPELL;
394	elmex	1.8
395			$comb->append_text ("<none>");
396
397			my $idx = 1; # XXX: replace this idx with a more save/correct method?
398			for (sort { $sp->{$a} cmp $sp->{$b} } keys %$sp) {
399	elmex	1.34	$spells_cmd_idx->{$idx} = $_;
400			$spells_idx->{$_} = $idx++;
401	elmex	1.8
402			$comb->append_text ($sp->{$_});
403			}
404	elmex	1.12	#XXX: FIXME: $self->{ttip}->set_tip ($comb, $sp->{$al_arch->{$key}});
405	elmex	1.32
406	elmex	1.34	$comb->set_active ($spells_idx->{$ar->get_or_default ($key)});
407	elmex	1.32	$self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));
408	elmex	1.8
409			$comb->signal_connect (changed => sub {
410			my ($comb) = @_;
411	elmex	1.34	$self->label_set_color_default ($lbl, $ar, $key, $spells_cmd_idx->{$comb->get_active});
412			$ar->set_silent ($key, $spells_cmd_idx->{$comb->get_active});
413	elmex	1.8	});
414			return $comb
415	elmex	1.3
416	elmex	1.14	} elsif ($type eq 'bitmask') {
417	elmex	1.32	my $chval = $ar->get_or_default ($key);
418	elmex	1.14	my $btn = Gtk2::Button->new;
419	elmex	1.32	$btn->add (my $lblb = Gtk2::Label->new ("bitmask: " . ($chval * 1)));
420	elmex	1.14	$self->{ttip}->set_tip ($btn, $al_arch->{$key});
421
422	elmex	1.32	my $menu = $self->create_bitmask_menu ($edspec->{value}, $lbl, $lblb, $ar, $key, \$chval);
423
424			$self->label_set_color_default ($lbl, $ar, $key, $chval);
425	elmex	1.14
426			$btn->signal_connect (button_press_event => sub {
427			my ($btn, $ev) = @_;
428			$menu->popup (undef, undef, undef, undef, $ev->button, 0);
429			});
430	elmex	1.32
431	elmex	1.14	return $btn;
432
433			} elsif ($type eq 'list') {
434	elmex	1.32	my $lblb = Gtk2::Label->new ($edspec->{value}->{$ar->get_or_default ($key) * 1});
435	elmex	1.14	my $btn = Gtk2::Button->new;
436			$self->{ttip}->set_tip ($btn, $edspec->{value}->{$al_arch->{$key}});
437			$btn->add ($lblb);
438	elmex	1.32	my $menu = $self->create_list_menu ($edspec->{value}, $lbl, $lblb, $ar, $key);
439	elmex	1.14
440	elmex	1.32	$self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));
441	elmex	1.14
442			$btn->signal_connect (button_press_event => sub {
443			my ($btn, $ev) = @_;
444			$menu->popup (undef, undef, undef, undef, $ev->button, 0);
445			});
446			return $btn;
447
448	elmex	1.8	} elsif ($type eq 'fixed') {
449			return Gtk2::Label->new ("$edspec->{name} = $edspec->{value}");
450	elmex	1.3
451	elmex	1.9	} elsif ($type eq 'text') {
452	elmex	1.20	return Gtk2::Label->new ("<see $key tab>");
453	elmex	1.9
454	elmex	1.41	} elsif ($type eq 'movement_type') { # ok... this is quite a big one... awww
455	elmex	1.42	my $a = Gtk2::Alignment->new (0, 0, 0, 0);
456			$a->add (my $v = Gtk2::VBox->new (0, 0));
457			$a->set_padding (4, 4, 0, 0);
458	elmex	1.41	my $btns1 = Gtk2::HButtonBox->new;
459			my $btns2 = Gtk2::HButtonBox->new;
460			$btns1->set_layout ('start');
461			$btns2->set_layout ('start');
462
463			$v->pack_start ($btns1, 0, 1, 0);
464			$v->pack_start ($btns2, 0, 1, 0);
465
466			my @lblbtns;
467			my $calc_lbl = sub { # update callback for the buttons
468			for (@lblbtns) {
469			my $btn = $_->[0];
470			my $lbl = $_->[1];
471
472	elmex	1.49	if (defined $ar->get_or_default ($key)) {
473			my $res =
474			Deliantra::MoveType->new ($ar->get_or_default ($key))
475			>= $lbl;
476	elmex	1.41
477			if (defined $res) {
478			$self->label_set_color ($btn, 0);
479			$lbl = ($res ? "+" : "-") . $lbl;
480
481			} else {
482			$self->label_set_color ($btn, 1);
483			$lbl = "$lbl?";
484			}
485			} else {
486			$self->label_set_color ($btn, 1);
487			$lbl = "$lbl?";
488			}
489
490			$btn->set_label ($lbl);
491			}
492			};
493
494			$self->label_set_color_default ($lbl, $ar, $key, $ar->get_or_default ($key));
495
496	root	1.45	my $mid = (scalar @Deliantra::MOVE_TYPE) / 2;
497	elmex	1.41	my $cnt = 0;
498			my $box = $btns1;
499
500	root	1.45	for my $mty (@Deliantra::MOVE_TYPE) {
501	elmex	1.41	$box->pack_start (my $btn = Gtk2::Button->new ($calc_lbl->()), 0, 1, 0);
502			push @lblbtns, [$btn, $mty];
503
504			$self->{ttip}->set_tip ($btn, $ar->archetype->{$key});
505			$btn->signal_connect (clicked => sub {
506	root	1.45	my $v = $ar->get ($key) \|\| Deliantra::MoveType->new;
507	elmex	1.41
508			$v x= $mty;
509			$v = $v eq '' ? undef : $v;
510			$ar->set_silent ($key, $v);
511
512	elmex	1.49	$self->label_set_color_default (
513			$lbl, $ar, $key, $ar->get_or_default ($key));
514	elmex	1.41	$calc_lbl->();
515			});
516
517			if (++$cnt >= $mid) { $box = $btns2 } # for wrapping into the second button box
518	elmex	1.40	}
519	elmex	1.41	$calc_lbl->();
520
521	elmex	1.42	return $a;
522	elmex	1.40
523	elmex	1.3	} else {
524	elmex	1.8	return Gtk2::Label->new ("$key => $edspec->{name} ($type)");
525	elmex	1.2
526	elmex	1.3	}
527	elmex	1.2	}
528
529	elmex	1.14	sub bitmask_to_list {
530			my ($self, $bitlist, $bits) = @_;
531
532			my @l;
533			for (%$bitlist) {
534			if ($bits & (1 << $_)) {
535			push @l, $bitlist->{$_};
536			}
537			}
538			return @l;
539			}
540
541			sub create_list_menu {
542	elmex	1.32	my ($self, $list, $clbl, $lbl, $ar, $key) = @_;
543	elmex	1.14
544			my $menu = Gtk2::Menu->new;
545
546			for my $item (sort keys %$list) {
547			my $lbltxt = $list->{$item};
548			my $menuitem = Gtk2::MenuItem->new_with_label ($lbltxt);
549			$menuitem->signal_connect (activate => sub {
550			my ($menuitem) = @_;
551			$lbl->set_text ($list->{$item});
552	elmex	1.32	$self->label_set_color_default ($clbl, $ar, $key, $item);
553			$ar->set_silent ($key, $item);
554	elmex	1.14	});
555			$menu->append ($menuitem);
556			$menuitem->show;
557			}
558
559			return $menu;
560			}
561
562			sub create_bitmask_menu {
563	elmex	1.32	my ($self, $bits, $clbl, $lbl, $ar, $key, $rval) = @_;
564	elmex	1.14
565			my $menu = Gtk2::Menu->new;
566
567	elmex	1.29	for my $bit (sort { $a <=> $b } keys %$bits) {
568	elmex	1.14	my $lbltxt = $bits->{$bit};
569			my $menuitem = Gtk2::CheckMenuItem->new_with_label ($lbltxt);
570	elmex	1.15	if ($$rval & (1 << $bit)) {
571	elmex	1.14	$menuitem->set_active (1);#$arch->{$key} & (1 << $bit));
572			}
573			$menuitem->signal_connect (toggled => sub {
574			my ($menuitem) = @_;
575	elmex	1.32	my $newval = $ar->get ($key);
576	elmex	1.15	$$rval &= ~(1 << $bit);
577			$$rval \|= (1 << $bit) if $menuitem->get_active;
578			$lbl->set_text ("bitmask: " . ($$rval * 1));
579	elmex	1.32	$self->label_set_color_default ($clbl, $ar, $key, $$rval);
580			$ar->set_silent ($key, $$rval);
581	elmex	1.14	});
582			$menu->append ($menuitem);
583			$menuitem->show;
584			}
585
586			return $menu;
587			}
588
589	elmex	1.1
590			=head1 AUTHOR
591
592			Marc Lehmann <schmorp@schmorp.de>
593			http://home.schmorp.de/
594
595			Robin Redeker <elmex@ta-sa.org>
596			http://www.ta-sa.org/
597
598			=cut
599			1;