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;
         });

   } 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}}) {
      $self->{ref_hash}->{$_} = $self->{edit_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;
   });

   $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.4
Committed:	Sat Jan 6 09:41:17 2007 UTC (17 years, 4 months ago) by elmex
Branch:	MAIN
Changes since 1.3:	+9 -0 lines
Log Message:	improved coordselection dialog
#	Content
1	package GCE::HashDialogue;
2
3	=head1 NAME
4
5	GCE::HashDialogue - this is a editor for hashes (eg. for properties and meta info)
6
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	if ($type eq 'string' \|\| $type eq 'password') {
53	$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	$edwid->set (visibility => 0) if $type eq 'password';
56	$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	} elsif ($type eq 'desc') {
70	$table->attach_defaults (Gtk2::Label->new ($desc), 0, 2, $idx, $idx + 1);
71
72	} 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	} 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	$self->{edit_hash}{$key} = $lbl->get_active * 1;
88	});
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	$self->{ref_hash}->{$_} = $self->{edit_hash}->{$_};
109	}
110	}
111
112	sub reset {
113	my ($self) = @_;
114
115	for (@{$self->{hash_keys}}) {
116	$self->{edit_hash}->{$_} = $self->{ref_hash}->{$_};
117	}
118	}
119
120	sub build_table {
121	my ($self) = @_;
122	$self->{table}->remove ($_) for $self->{table}->get_children;
123
124	$self->{table_idx} = 0;
125
126	for (@{$self->{dialog}}) {
127	$self->_add_prop_entry (@$_);
128	}
129	}
130
131	sub init {
132	my ($self, %args) = @_;
133	for (keys %args) { $self->{$_} = $args{$_} }
134
135	$self->set_title ("gcrossedit - $self->{title}");
136
137	::set_pos_and_size ($self, $::CFG->{$self->{layout_name}}, @{$self->{dialog_default_size}});
138
139	my $cfg_lines = scalar @{$self->{dialog}};
140
141	for (@{$self->{dialog}}) {
142	push @{$self->{hash_keys}}, $_->[0] if defined $_->[0];
143	}
144
145	$self->add (my $vb = Gtk2::VBox->new);
146	$vb->pack_start (my $ilbl = Gtk2::Label->new ($self->{info}), 0, 1, 0)
147	if $self->{info};
148	$vb->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0);
149	$sw->set_policy ('automatic', 'automatic');
150	$sw->add_with_viewport (my $v = Gtk2::VBox->new);
151	$v->pack_start ($self->{table} = Gtk2::Table->new (2, $cfg_lines), 0, 0, 0);
152	if ($self->{text_entry}) {
153	$vb->pack_start (Gtk2::Label->new ($self->{text_entry}->{label}), 0, 1, 0)
154	if $self->{text_entry}->{label};
155	$vb->pack_start (my $txt = Gtk2::TextView->new, 1, 1, 0);
156	# TODO/XXX: Implement hash-changes!
157	}
158	$vb->pack_start (my $hb = Gtk2::HBox->new (1, 0), 0, 0, 0);
159	$hb->pack_start (my $save_btn = Gtk2::Button->new ($self->{save_button_label} \|\| "save"), 1, 1, 0);
160	$hb->pack_start (my $reset_btn = Gtk2::Button->new ("reset"), 1, 1, 0);
161	$hb->pack_start (my $close_btn = Gtk2::Button->new ("cancel"), 1, 1, 0);
162
163	$self->reset;
164
165	$self->build_table;
166
167	$save_btn->signal_connect (clicked => sub {
168	$self->save;
169	});
170
171	$reset_btn->signal_connect (clicked => sub {
172	$self->reset;
173	$self->build_table;
174	$self->show_all;
175	});
176
177	$close_btn->signal_connect (clicked => sub {
178	$self->destroy;
179	});
180	}
181
182	sub INIT_INSTANCE {
183	my ($self) = @_;
184	}
185
186	1;