PS.: The following doesn't also work with the override, no matter whether the Gtk3::Application was created with "my $app = Gtk3::Application->new('app.pp','flags-none');" or with "Gtk3::Application::new(my $app,'app.pp','flags-none');"!
my $window = Gtk3::ApplicationWindow->new($app); The error message is: undef is not of type Gtk3::Application at /usr/local/lib/x86_64-linux-gnu/perl/5.20.2/Glib/Object/Introspection.pm line 67. This is very curious and I don't know why this is so??? I thought Gtk3::ApplicationWindow->new is the short form of Gtk3::Window->new and $window->set_application? Am Sonntag, den 29.05.2016, 18:03 +0200 schrieb Maximilian Lika: > Dear Gtk3 Maintainers, > > I suggest to add the following override to the Gtk3 Perl module: > > sub Gtk3::Application::new { > my ($class, $app_id, $flags) = @_; > print "flags \n"; > Glib::Object::Introspection->invoke ( > $_GTK_BASENAME, 'Application', 'new', my $app, $app_id, $flags); > return $app; > } > > > Explantation: > If you call "my $app = Gtk3::Application->new('app.id','flags-none');", > I get an segmentation fault error (perhaps someone can confirm the > bug?). Creating a Gtk Application is important for a Application Window! > By contrats the command "Gtk3::Application::new($app, 'app.id', > 'flags-none')" works like a charme. For a beginner this is a big source > of errors. With the override above also the more perlish command "my > $app = Gtk3::Application->new('app.id','flags-none');" works well. > > Here a little example (translated from the python beginners tutorial): > > #! /usr/bin/perl > > use strict; > use warnings; > use utf8; > use Gtk3 -init; > use Glib ('TRUE','FALSE'); > > > # this works at the moment > Gtk3::Application::new(my $app,'app.pp','flags-none'); > > # this causes on my machine a segmentation fault error > # my $app = Gtk3::Application->new('app.pp','flags-none'); > my $window = Gtk3::Window->new(); > $window->set_application($app); > $window->set_title('Welcome to GNOME'); > $window->signal_connect('delete-event'=>sub {Gtk3->main_quit()}); > > $window->show_all(); > Gtk3->main; > > Please let me know, whether this patch submission was submitted in the > right way? I am very inexperiments with this! > > Best regards, > Max > > _______________________________________________ > gtk-perl-list mailing list > gtk-perl-list@gnome.org > https://mail.gnome.org/mailman/listinfo/gtk-perl-list _______________________________________________ gtk-perl-list mailing list gtk-perl-list@gnome.org https://mail.gnome.org/mailman/listinfo/gtk-perl-list