On Fri, 2010-11-19 at 18:52 +0200, haratron wrote:
I'm using Glade3 and Perl to make a Gtk GUI.
At the moment, I have 3 Gtk2::Entry and 3 Gtk2::ComboBox objects.
I want to read their contents when a button is pressed (the OK button).
To illustrate better, the user is entering his data (Entry) and makes
his selections (ComboBox) and hits a button that reads "OK" . At that
moment, I want to read in the contents of each Entry and Combobox.
Following is the code that I currently have (handles only one Entry
and one ComboBox). What changes should I do to accomplish the above?
One thing to note is that there are different ways to interface with the
Gtk2::ComboBox object depending on how it is constructed, and you seem
to be mixing them. If you create it using
Gtk2::ComboBox->new_text
you can use the helper functions "append_text" and "get_active_text" as
you have below. In this case your code to build the associated model is
unnecessary.
If you create the Gtk2::ComboBox with the more fundamental
Gtk2::ComboBox->new
you can't use those helper functions and will need calls to
"get_active_iter" from the ComboBox and then "get_value" from the
associated model using the iter you retrieved and the column you want
(probably 0).
Reading from the Gtk2::Entry is simpler, and you already have the
correct code for that. You just need to move everything within the
'clicked' callback. See below:
$window= $builder->get_object('window1');
$window->set_border_width(0);
$window->set_position('center_always');
$window->signal_connect( "destroy" => sub {
Gtk2->main_quit;
});
$engine_cbox= $builder->get_object('combobox1');
The block of code below is unnecessary if you used the "new_text"
construcutor. If not, I don't think this is quite correct anyway - the
renderer should be added to a column, which can be appended to your
model. TreeViews and their associated models, columns, renderers, iters,
paths, etc can be one of the more difficult parts of Gtk to grasp. If
you need help with this, ask a separate question or look at the sample
code in the source package.
my $model1 = new Gtk2::ListStore('Glib::String');
$engine_cbox->clear();
my $renderer1 = new Gtk2::CellRendererText;
$engine_cbox->pack_start($renderer1, FALSE);
$engine_cbox->set_attributes($renderer1, text => 0);
$engine_cbox->set_model($model1);
my @listing = qw/a b c d/;
foreach $text (@listing) {
$engine_cbox->append_text ($text)
}
$engine_cbox->set_active(1);
move this into your 'clicked' callback
$engine=$engine_cbox->get_active_text();
print "engine is $engine\n";
$source_Entry= $builder->get_object('entry1');
move this into your 'clicked' callback
# $sourceimg= $source_Entry->get_text;
# $source_Entry->signal_connect(changed => \&convert, $source_Entry);
$source_Entry->signal_connect(changed => \&convert, $source_Entry);
$button= $builder->get_object('button1');
$button->signal_connect('clicked' => sub {
my ($button,$userdata) = @_;
$engine=$engine_cbox->get_active_text();
print "engine is $engine\n";
$sourceimg= $source_Entry->get_text;
print "sourceimg is $sourceimg\n";
#Do whatever else you want with these values...
},$userdata);
$window->show();
$builder =undef;
Gtk2->main();
exit;
sub convert {
($widget, $data) = @_;
$text = $data->get_text();
# print "$text and $engine\n";
}
I've never used Glade so I can't help you further than this. If you
provide a full working sample of code it might be easier to answer your
question, but I hope this helps.
Jeremy
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list gnome org
http://mail.gnome.org/mailman/listinfo/gtk-perl-list
