Window creation: Difference between revisions
Content added Content deleted
m (shortened) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: XUL is no longer supported by Mozilla, consolidate to just Gtk3) |
||
| Line 1,657: | Line 1,657: | ||
});</lang> |
});</lang> |
||
==={{libheader |
==={{libheader|Perl/Gtk3}}=== |
||
<lang perl> use |
<lang perl> use Gtk3 '-init'; |
||
$window = |
$window = Gtk3::Window->new; |
||
$window->signal_connect( |
$window->signal_connect( |
||
destroy => sub { |
destroy => sub { Gtk3->main_quit; } |
||
); |
); |
||
$window->show_all; |
$window->show_all; |
||
Gtk3->main;</lang> |
|||
==={{libheader|Perl/Gtk2}}=== |
|||
<lang perl> use Gtk2 '-init'; |
|||
$window = Gtk2::Window->new; |
|||
$window->signal_connect( |
|||
destroy => sub { Gtk2->main_quit; } |
|||
); |
|||
$window->show_all; |
|||
Gtk2->main;</lang> |
|||
==={{libheader|Perl/Qt}}=== |
==={{libheader|Perl/Qt}}=== |
||
| Line 1,686: | Line 1,676: | ||
$window->show; |
$window->show; |
||
exit $app->exec;</lang> |
exit $app->exec;</lang> |
||
==={{libheader|XUL::Gui}}=== |
|||
<lang perl>use XUL::Gui; |
|||
display Window;</lang> |
|||
==={{libheader|Perl/Wx}}=== |
==={{libheader|Perl/Wx}}=== |
||