Por que o GTK2 :: Builder mistura meus sinais?
-
23-09-2019 - |
Pergunta
Estou tendo este código Perl:
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use Gtk2 '-init';
my $data;
my $builder_file = "lists.glade";
my $builder = Gtk2::Builder->new();
$builder->add_from_file( $builder_file )
or die "Couldn't read $builder_file";
$builder->connect_signals( undef );
my $window = $builder->get_object( "top_window" )
or die "Error while setting up GUI";
$window->show_all();
# Dealloc builder
$builder = undef;
Gtk2->main();
sub top_window_destroy_cb
{
Gtk2->main_quit();
}
sub on_radiobutton1_group_changed
{
my ($self, $choice) = @_;
print Dumper($self, $choice, $choice->get_text());
}
E este arquivo do construtor:
<?xml version="1.0"?>
<interface>
<requires lib="gtk+" version="2.16"/>
<!-- interface-naming-policy project-wide -->
<object class="GtkWindow" id="top_window">
<signal name="destroy" handler="top_window_destroy_cb"/>
<child>
<object class="GtkVBox" id="vbox1">
<property name="visible">True</property>
<property name="orientation">vertical</property>
<child>
<object class="GtkVButtonBox" id="vbuttonbox1">
<property name="visible">True</property>
<property name="orientation">vertical</property>
<child>
<object class="GtkRadioButton" id="radiobutton1">
<property name="label" translatable="yes">Pera</property>
<property name="visible">True</property>
<property name="can_focus">True</property>
<property name="receives_default">False</property>
<property name="active">True</property>
<property name="draw_indicator">True</property>
<signal name="group_changed" handler="on_radiobutton1_group_changed" object="choice"/>
</object>
<packing>
<property name="expand">False</property>
<property name="fill">False</property>
<property name="position">0</property>
</packing>
</child>
<child>
<object class="GtkRadioButton" id="radiobutton2">
<property name="label" translatable="yes">Mika</property>
<property name="visible">True</property>
<property name="can_focus">True</property>
<property name="receives_default">False</property>
<property name="draw_indicator">True</property>
<property name="group">radiobutton1</property>
</object>
<packing>
<property name="expand">False</property>
<property name="fill">False</property>
<property name="position">1</property>
</packing>
</child>
</object>
<packing>
<property name="position">0</property>
</packing>
</child>
<child>
<object class="GtkLabel" id="choice">
<property name="visible">True</property>
<property name="label" translatable="yes">Choice</property>
</object>
<packing>
<property name="position">1</property>
</packing>
</child>
</object>
</child>
</object>
</interface>
Mas ele conecta falsamente "on_radiobutton1_group_changed" com o sinal "Destroy" de "top_window". Eu sei disso porque ele executa a instrução "Imprimir Dumper ..." somente ao fechar a janela. Alguém tem ideia do que estou fazendo de errado?
Solução
O sinal "mudou o grupo"
Emitido quando o grupo de botões de rádio que um botão de rádio pertence a alterações. Isso é emitido quando um botão de rádio muda de ficar sozinho para fazer parte de um grupo de 2 ou mais botões, ou vice-versa, e quando um botão é movido de um grupo de 2 ou mais botões para um diferente, mas não quando quando A composição do grupo de que um botão pertence a alterações.
Realmente não soa como o que você quer. Acho que é chamado à destruição da janela.
Eu adicionei o seguinte sub
sub on_radiobutton_toggled {
my $self = shift;
if ($self->get_active) {
print Dumper($self, $self->get_label);
}
}
e defina o sinal alternado de cada radiobutton (sob GTKToggleButton) como on_radiobutton_toggled, que agora faz o que você deseja.