gde/GCE/HashDialog.pm

package GCE::HashDialogue;

=head1 NAME

  GCE::HashDialogue - this is a editor for hashes (eg. for properties and meta info)

=cut

use Gtk2;
use Gtk2::Gdk::Keysyms;
use Gtk2::SimpleMenu;

use Crossfire;

use GCE::Util;

use Glib::Object::Subclass Gtk2::Window;

use Storable qw/dclone/;

use strict;

=head1 SYNOPSIS

   my $to_edit_hash = { test => 1, blah => "foo" },

   my $diag = GCE::HashDialogue->new ();
   $diag->init (
      layout_name => 'cool_dialog_cfg_layout',
      title       => 'Cool dialog!',
      ref_hash    => $to_edit_hash,
      dialog      => [
         [qw/blah   Blah string/],
         [undef, qw/x    sep/],
         [qw/test   Test check/],
      ],
   );

=cut

sub save_layout {
   my ($self) = @_;
   $::CFG->{$self->{layout_name}} = ::get_pos_and_size ($self);
}

sub _add_prop_entry {
   my ($self, $key, $desc, $type, $cb) = @_;

   my $table = $self->{table};
   my $idx   = $self->{table_idx};

   if ($type eq 'string' || $type eq 'password') {
      $table->attach_defaults (Gtk2::Label->new ($desc), 0, 1, $idx, $idx + 1);
      $table->attach_defaults (my $edwid = Gtk2::Entry->new, 1, 2, $idx, $idx + 1);
         $edwid->set (visibility => 0) if $type eq 'password';
         $edwid->set_text ($self->{edit_hash}{$key});
         $edwid->signal_connect (changed => sub {
            $self->{edit_hash}->{$key} = $_[0]->get_text;
         });

   } elsif ($type eq 'button') {
      $table->attach_defaults (my $b = Gtk2::Button->new_with_label ($desc), 0, 2, $idx, $idx + 1);
         $b->signal_connect (clicked => sub { $cb->(\$self->{edit_hash}{$key}) if $cb });

   } elsif ($type eq 'label') {
      $table->attach_defaults (Gtk2::Label->new ($desc), 0, 1, $idx, $idx + 1);
      $table->attach_defaults (Gtk2::Label->new ($self->{edit_hash}{$key}), 1, 2, $idx, $idx + 1);

   } elsif ($type eq 'desc') {
      $table->attach_defaults (Gtk2::Label->new ($desc), 0, 2, $idx, $idx + 1);

   } elsif ($type eq 'spin') {
      $table->attach_defaults (Gtk2::Label->new ($desc), 0, 1, $idx, $idx + 1);
      $table->attach_defaults (my $spn = Gtk2::SpinButton->new_with_range ($cb->()), 1, 2, $idx, $idx + 1);
         $spn->set_value ($self->{edit_hash}{$key});
         $spn->signal_connect (value_changed => sub {
            my ($spn) = @_;
            $self->{edit_hash}{$key} = $spn->get_value;
         });

   } elsif ($type eq 'check') {
      $table->attach_defaults (Gtk2::Label->new ($desc), 0, 1, $idx, $idx + 1);
      $table->attach_defaults (my $chk = Gtk2::CheckButton->new, 1, 2, $idx, $idx + 1);
         $chk->set_active ($self->{edit_hash}{$key});
         $chk->signal_connect (toggled => sub {
            my ($lbl) = @_;
            $self->{edit_hash}{$key} = $lbl->get_active ? 1 : undef;
         });

   } elsif ($type eq 'sep') {
      $table->attach_defaults (Gtk2::HSeparator->new, 0, 2, $idx, $idx + 1);

   } else {
      die "Unrecognized dialogue type: $type\n";
   }

   $self->{table_idx}++;
}

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

   if ($self->{save_cb}) {
      $self->{save_cb}->($self->{edit_hash});
   }

   for (@{$self->{hash_keys}}) {
      if ((defined $self->{edit_hash}->{$_}) && $self->{edit_hash}->{$_} ne "") {
         $self->{ref_hash}->{$_} = $self->{edit_hash}->{$_}
      } else {
         delete $self->{ref_hash}->{$_};
      }
   }
}

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

   for (@{$self->{hash_keys}}) {
      $self->{edit_hash}->{$_} = $self->{ref_hash}->{$_};
   }
}

sub build_table {
   my ($self) = @_;
   $self->{table}->remove ($_) for $self->{table}->get_children;

   $self->{table_idx} = 0;

   for (@{$self->{dialog}}) {
      $self->_add_prop_entry (@$_);
   }
}

sub init {
   my ($self, %args) = @_;
   for (keys %args) { $self->{$_} = $args{$_} }

   $self->set_title ("gcrossedit - $self->{title}");

   ::set_pos_and_size ($self, $::CFG->{$self->{layout_name}}, @{$self->{dialog_default_size}});

   my $cfg_lines = scalar @{$self->{dialog}};

   for (@{$self->{dialog}}) {
      push @{$self->{hash_keys}}, $_->[0] if defined $_->[0];
   }

   $self->add (my $vb = Gtk2::VBox->new);
   $vb->pack_start (my $ilbl = Gtk2::Label->new ($self->{info}), 0, 1, 0)
      if $self->{info};
   $vb->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0);
      $sw->set_policy ('automatic', 'automatic');
      $sw->add_with_viewport (my $v = Gtk2::VBox->new);
         $v->pack_start ($self->{table} = Gtk2::Table->new (2, $cfg_lines),     0, 0, 0);
   if ($self->{text_entry}) {
      $vb->pack_start (Gtk2::Label->new ($self->{text_entry}->{label}), 0, 1, 0)
         if $self->{text_entry}->{label};
      $vb->pack_start (my $txt = Gtk2::TextView->new, 1, 1, 0);
      # TODO/XXX: Implement hash-changes!
   }
   $vb->pack_start (my $hb = Gtk2::HBox->new (1, 0), 0, 0, 0);
      $hb->pack_start (my $save_btn  = Gtk2::Button->new ($self->{save_button_label} || "save"),   1, 1, 0);
      $hb->pack_start (my $reset_btn = Gtk2::Button->new ("reset"),  1, 1, 0);
      $hb->pack_start (my $close_btn = Gtk2::Button->new ("cancel"), 1, 1, 0);

   $self->reset;

   $self->build_table;

   $save_btn->signal_connect (clicked => sub {
      $self->save;
      $self->destroy if $self->{close_on_save};
   });

   $reset_btn->signal_connect (clicked => sub {
      $self->reset;
      $self->build_table;
      $self->show_all;
   });

   $close_btn->signal_connect (clicked => sub {
      $self->destroy;
   });
}

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

1;
Revision:	1.5
Committed:	Wed Feb 7 09:18:21 2007 UTC (17 years, 3 months ago) by elmex
Branch:	MAIN
CVS Tags:	rel-2_2, rel-2_0, rel-2_1
Changes since 1.4:	+7 -2 lines
Log Message:	fixed bug with map property settings.
#	User	Rev	Content
1	elmex	1.1	package GCE::HashDialogue;
2
3			=head1 NAME
4
5	elmex	1.2	GCE::HashDialogue - this is a editor for hashes (eg. for properties and meta info)
6	elmex	1.1
7			=cut
8
9			use Gtk2;
10			use Gtk2::Gdk::Keysyms;
11			use Gtk2::SimpleMenu;
12
13			use Crossfire;
14
15			use GCE::Util;
16
17			use Glib::Object::Subclass Gtk2::Window;
18
19			use Storable qw/dclone/;
20
21			use strict;
22
23			=head1 SYNOPSIS
24
25			my $to_edit_hash = { test => 1, blah => "foo" },
26
27			my $diag = GCE::HashDialogue->new ();
28			$diag->init (
29			layout_name => 'cool_dialog_cfg_layout',
30			title => 'Cool dialog!',
31			ref_hash => $to_edit_hash,
32			dialog => [
33			[qw/blah Blah string/],
34			[undef, qw/x sep/],
35			[qw/test Test check/],
36			],
37			);
38
39			=cut
40
41			sub save_layout {
42			my ($self) = @_;
43			$::CFG->{$self->{layout_name}} = ::get_pos_and_size ($self);
44			}
45
46			sub _add_prop_entry {
47			my ($self, $key, $desc, $type, $cb) = @_;
48
49			my $table = $self->{table};
50			my $idx = $self->{table_idx};
51
52	elmex	1.2	if ($type eq 'string' \|\| $type eq 'password') {
53	elmex	1.1	$table->attach_defaults (Gtk2::Label->new ($desc), 0, 1, $idx, $idx + 1);
54			$table->attach_defaults (my $edwid = Gtk2::Entry->new, 1, 2, $idx, $idx + 1);
55	elmex	1.2	$edwid->set (visibility => 0) if $type eq 'password';
56	elmex	1.1	$edwid->set_text ($self->{edit_hash}{$key});
57			$edwid->signal_connect (changed => sub {
58			$self->{edit_hash}->{$key} = $_[0]->get_text;
59			});
60
61			} elsif ($type eq 'button') {
62			$table->attach_defaults (my $b = Gtk2::Button->new_with_label ($desc), 0, 2, $idx, $idx + 1);
63			$b->signal_connect (clicked => sub { $cb->(\$self->{edit_hash}{$key}) if $cb });
64
65			} elsif ($type eq 'label') {
66			$table->attach_defaults (Gtk2::Label->new ($desc), 0, 1, $idx, $idx + 1);
67			$table->attach_defaults (Gtk2::Label->new ($self->{edit_hash}{$key}), 1, 2, $idx, $idx + 1);
68
69	elmex	1.2	} elsif ($type eq 'desc') {
70			$table->attach_defaults (Gtk2::Label->new ($desc), 0, 2, $idx, $idx + 1);
71
72	elmex	1.4	} elsif ($type eq 'spin') {
73			$table->attach_defaults (Gtk2::Label->new ($desc), 0, 1, $idx, $idx + 1);
74			$table->attach_defaults (my $spn = Gtk2::SpinButton->new_with_range ($cb->()), 1, 2, $idx, $idx + 1);
75			$spn->set_value ($self->{edit_hash}{$key});
76			$spn->signal_connect (value_changed => sub {
77			my ($spn) = @_;
78			$self->{edit_hash}{$key} = $spn->get_value;
79			});
80
81	elmex	1.1	} elsif ($type eq 'check') {
82			$table->attach_defaults (Gtk2::Label->new ($desc), 0, 1, $idx, $idx + 1);
83			$table->attach_defaults (my $chk = Gtk2::CheckButton->new, 1, 2, $idx, $idx + 1);
84			$chk->set_active ($self->{edit_hash}{$key});
85			$chk->signal_connect (toggled => sub {
86			my ($lbl) = @_;
87	elmex	1.5	$self->{edit_hash}{$key} = $lbl->get_active ? 1 : undef;
88	elmex	1.1	});
89
90			} elsif ($type eq 'sep') {
91			$table->attach_defaults (Gtk2::HSeparator->new, 0, 2, $idx, $idx + 1);
92
93			} else {
94			die "Unrecognized dialogue type: $type\n";
95			}
96
97			$self->{table_idx}++;
98			}
99
100			sub save {
101			my ($self) = @_;
102
103			if ($self->{save_cb}) {
104			$self->{save_cb}->($self->{edit_hash});
105			}
106
107			for (@{$self->{hash_keys}}) {
108	elmex	1.5	if ((defined $self->{edit_hash}->{$_}) && $self->{edit_hash}->{$_} ne "") {
109			$self->{ref_hash}->{$_} = $self->{edit_hash}->{$_}
110			} else {
111			delete $self->{ref_hash}->{$_};
112			}
113	elmex	1.1	}
114			}
115
116			sub reset {
117			my ($self) = @_;
118
119			for (@{$self->{hash_keys}}) {
120			$self->{edit_hash}->{$_} = $self->{ref_hash}->{$_};
121			}
122			}
123
124			sub build_table {
125			my ($self) = @_;
126			$self->{table}->remove ($_) for $self->{table}->get_children;
127
128			$self->{table_idx} = 0;
129
130			for (@{$self->{dialog}}) {
131			$self->_add_prop_entry (@$_);
132			}
133			}
134
135			sub init {
136			my ($self, %args) = @_;
137			for (keys %args) { $self->{$_} = $args{$_} }
138
139			$self->set_title ("gcrossedit - $self->{title}");
140
141			::set_pos_and_size ($self, $::CFG->{$self->{layout_name}}, @{$self->{dialog_default_size}});
142
143			my $cfg_lines = scalar @{$self->{dialog}};
144
145			for (@{$self->{dialog}}) {
146			push @{$self->{hash_keys}}, $_->[0] if defined $_->[0];
147			}
148
149	elmex	1.2	$self->add (my $vb = Gtk2::VBox->new);
150	elmex	1.3	$vb->pack_start (my $ilbl = Gtk2::Label->new ($self->{info}), 0, 1, 0)
151			if $self->{info};
152	elmex	1.2	$vb->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0);
153	elmex	1.1	$sw->set_policy ('automatic', 'automatic');
154			$sw->add_with_viewport (my $v = Gtk2::VBox->new);
155			$v->pack_start ($self->{table} = Gtk2::Table->new (2, $cfg_lines), 0, 0, 0);
156	elmex	1.2	if ($self->{text_entry}) {
157			$vb->pack_start (Gtk2::Label->new ($self->{text_entry}->{label}), 0, 1, 0)
158			if $self->{text_entry}->{label};
159			$vb->pack_start (my $txt = Gtk2::TextView->new, 1, 1, 0);
160			# TODO/XXX: Implement hash-changes!
161			}
162			$vb->pack_start (my $hb = Gtk2::HBox->new (1, 0), 0, 0, 0);
163			$hb->pack_start (my $save_btn = Gtk2::Button->new ($self->{save_button_label} \|\| "save"), 1, 1, 0);
164			$hb->pack_start (my $reset_btn = Gtk2::Button->new ("reset"), 1, 1, 0);
165			$hb->pack_start (my $close_btn = Gtk2::Button->new ("cancel"), 1, 1, 0);
166	elmex	1.1
167			$self->reset;
168
169			$self->build_table;
170
171			$save_btn->signal_connect (clicked => sub {
172			$self->save;
173	elmex	1.5	$self->destroy if $self->{close_on_save};
174	elmex	1.1	});
175
176			$reset_btn->signal_connect (clicked => sub {
177			$self->reset;
178			$self->build_table;
179			$self->show_all;
180			});
181
182			$close_btn->signal_connect (clicked => sub {
183			$self->destroy;
184			});
185			}
186
187			sub INIT_INSTANCE {
188			my ($self) = @_;
189			}
190
191			1;