Re: An automatic signal stub function generator

[Chas Owens <alas widomaker com>]

Quoting Ross McFarland <rwmcfa1 neces com>:
> true, forgot about the fact that the view is separate from the model.
> it would be an acceptable/workable feature to have a SimpleList populate
> an existing treeview, but it would be more appropriate for it to be
> something like 
>
> Gtk2::SimpleList->new( tree_view => $treeview );
>
> -rm


Dn't forget the custom widget placeholder in glade (1 and 2).  You can use the
custom widget in the Glade tool and specify the arguments the custom_handler()
will recieve.  You can then set the custom_handler() with

Gtk2::GladeXML->set_custom_handler()

I did this as part of my "put everything in one file" project.  It was simple to
add the XML to the end of the Perl script, read it in with <DATA>, and pass the
resulting string to Gtk2::GladeXML->new_from_memory(), but the pixmaps were
harder to deal with (the Glade tool wanted a path not the pixmap info).  So I
made all of the pixmaps custom widgets with "create_pixmap" as the
creation_function and put the xpm data in the XML file as the first string
argument.  Well, that is what I did at first and had some problems with creating
the Gtk::ToggleButton the pixmap was in the right size, so I wound up doing this
instead, but the principle is the same.

The following code is from gnome-sql-editor version 5.2 available at
gsqleditor.sf.net.

<snip>
sub create_togglebutton_many_sql {
        my $toggle = Gtk::ToggleButton->new;
        my $vbox   = Gtk::VBox->new(0, 0);
        my $pixmap = create_pixmap(@_);
        my $label  = Gtk::Label->new('Statements');

        $toggle->set_active(1);
        $toggle->add($vbox);
        $vbox->add($pixmap);
        $vbox->add($label);

        $toggle->show_all;

        return $toggle;
}

sub create_pixmap {
        my ($app, $pixmap_string) = @_;
        my @xpm_data = split /\n/, $pixmap_string;

        my $window = $app->get_widget('app');
        $window->show;

        my $style = $window->get_style()->bg( 'normal' );
        my ( $pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm_d(
                $window->window,
                $style,
                @xpm_data
        );

        return Gtk::Pixmap->new($pixmap, $mask);
}

sub custom_handler {
        my ($glade_obj, $funcname, $widget, $str1, $str2, $int1, $int2) = @_;
        return eval "$funcname(\$glade_obj, '$str1', '$str2', $int1, $int2)";
}
</snip>

<snip>
        <widget>
          <class>Custom</class>
          <name>togglebutton_many_sql</name>
          <width>80</width>
          <height>48</height>
          <creation_function>create_togglebutton_many_sql</creation_function>
          <string1>24 24 2 1
.       c None
#       c #000000
........................
........................
........................
......##....#####.......
..######..#########.....
..######.###..######....
....######......####....
.....####........###....
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
.....###.........####...
..#########......######.
..#########.......#####.
........................
........................</string1>
          <int1>0</int1>
          <int2>0</int2>
          <last_modification_time>Tue, 18 Jun 2002 16:44:19 GMT</last_modification_time>
        </widget>
</snip>