Почему Gtk2 :: Builder смешивает мои сигналы? - PullRequest
Новая
       5

Почему Gtk2 :: Builder смешивает мои сигналы?

1 голос
/ 27 февраля 2010

У меня есть этот код 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());
}

и этот файл компоновщика: 

<?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>

Но он ложно связывает "on_radiobutton1_group_changed" с сигналом "destroy" из "top_window". Я знаю это, потому что он выполняет оператор print Dumper ... только при закрытии окна. У кого-нибудь есть идеи, что я делаю не так?

1 Ответ

2 голосов
/ 27 февраля 2010

Сигнал "смена группы"

Издается, когда группа радиокнопок, которой принадлежит радиокнопка, изменяется. Это излучается, когда переключатель переключается с одиночной на часть группы из 2 или более кнопок или наоборот, и когда кнопка перемещается из одной группы из 2 или более кнопок в другую, но не когда состав группы, к которой принадлежит кнопка.

Это действительно не похоже на то, что вы хотите. Я предполагаю, что это вызвано разрушением окна.

Я добавил следующий подпункт 

sub on_radiobutton_toggled {
    my $self = shift;
    if ($self->get_active) {
        print Dumper($self, $self->get_label);
    }
}

и установите переключаемый сигнал каждой кнопки (под GtkToggleButton) на on_radiobutton_toggled, который теперь делает то, что вы хотите.

...