Warum mischt GTK2 :: Builder meine Signale?

Question

Ich habe diesen Perl -Code:

#!/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());
}

und diese Builder -Datei:

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

Aber es verbindet fälschlicherweise "On_Radiobutton1_Group_Changed" mit "Destroy" -Signal von "top_window". Ich weiß das, weil es nur beim Schließen des Fensters "Druckdumper ..." ausgeführt wird. Hat jemand eine Idee, was ich falsch mache?

Answer 1

Das "gruppenveränderte" Signal

Emittiert, wenn die Gruppe der Optionsfelder, zu der ein Optionsfeld gehört, Änderungen gehört. Dies wird emittiert, wenn ein Optionsknopf von allein zu einem Teil einer Gruppe von 2 oder mehr Tasten oder umgekehrt wird und wenn eine Taste von einer Gruppe von 2 oder mehr Schaltflächen zu einem anderen verschoben wird, jedoch nicht, wenn nicht Die Zusammensetzung der Gruppe, dass ein Knopf zu Änderungen gehört.

Es klingt wirklich nicht nach dem, was Sie wollen. Ich vermute, es wird zur Zerstörung des Fensters aufgefordert.

Ich habe das folgende Sub hinzugefügt

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

und stellen Sie das umgeschaltete Signal des einzelnen Radiobuttons (unter gtktoggleButton) auf on_radiobutton_toggled ein, was jetzt das tut, was Sie wollen.