GUI Programming with Perl / GTK
0 likes2,050 views
This document provides an overview of GUI programming with Perl and GTK. It introduces GUI toolkits like GTK and describes basic concepts like widgets. It then demonstrates a simple "Hello World" GUI application in Perl/GTK and covers additional topics like layouts, mappings between C and Perl APIs, GUI builders, and installing modules from CPAN.
![Function Parameters
GList replaced by variable number of arguments:
gtk_window_set_icon_list (GtkWindow * window, GList * list)
$window->set_icon_list (@icons)
Same with the array moved to the end of the parameter list:
gtk_list_insert_items (GtkList *list, GList *items, gint position)
$list->insert_items ($position, @items)
Array parameter and integer with the size of that array, replaced by variable number
of arguments:
gtk_curve_set_vector (GtkCurve *curve, int veclen, gfloat vector[])
$curve->set_vector (@vector)
Same with the array moved to the end of parameter list:
gtk_item_factory_create_items (GtkItemFactory * ifactory,
guint n_entries, GtkItemFactoryEntry * entries,
gpointer callback_data)
$itemfactory->create_items ($callback_data, @entries)](https://image.slidesharecdn.com/perlgtk-130920144453-phpapp01/85/GUI-Programming-with-Perl-GTK-15-320.jpg)
GUI Programming with Perl / GTK
- 5. Hello World #!/usr/bin/perl use Gtk2 '-init'; $window = Gtk2::Window->new; $label = Gtk2::Label->new ("Hello World"); $window->add ($label); $window->show_all; Gtk2->main;
- 6. Hello World – Part 2 #!/usr/bin/perl use Gtk2 '-init'; $window = Gtk2::Window->new; $window->signal_connect( destroy => sub { Gtk2->main_quit } ); $label = Gtk2::Label->new ("Hello World"); $window->add ($label); $window->show_all; Gtk2->main;
- 7. Hello World – Part 3 #!/usr/bin/perl use Gtk2 '-init'; $window = Gtk2::Window->new; $window->set_title("Hello"); $window->signal_connect(destroy => sub { Gtk2->main_quit }); $button = Gtk2::Button->new ("Greetings Earthling"); $button->signal_connect(clicked => sub { Gtk2->main_quit }); $window->add ($button); $window->show_all; Gtk2->main;
- 8. Hello World – Part 4 #!/usr/bin/perl use Gtk2 '-init'; sub quit_program { Gtk2->main_quit; print "Program has stopped.n"; } $window = Gtk2::Window->new; $window->set_title("Hello"); $window->signal_connect(destroy => &quit_program); $button = Gtk2::Button->new ("Greetings Earthling"); $button->signal_connect(clicked => &quit_program); $window->add ($button); $window->show_all; Gtk2->main;
- 9. Layout HBox $window = Gtk2::Window->new; $hbox = Gtk2::HBox->new; $button_1 = Gtk2::Button->new ("Button 1"); $button_2 = Gtk2::Button->new ("Button 2"); $hbox->pack_start ($button_1, 0, 0, 0); $hbox->pack_start ($button_2, 0, 0, 0); $window->add ($hbox);
- 10. Layout VBox $window = Gtk2::Window->new; $vbox = Gtk2::VBox->new; $button_1 = Gtk2::Button->new ("Button 1"); $button_2 = Gtk2::Button->new ("Button 2"); $vbox->pack_start ($button_1, 0, 0, 0); $vbox->pack_start ($button_2, 0, 0, 0); $window->add ($vbox);
- 12. Function Name Translation g_ -> Glib gtk_ -> Gtk2 gdk_ -> Gtk2::Gdk gdk_pixbuf_ -> Gtk2::Gdk::Pixbuf pango_ -> Gtk2::Pango
- 13. Function Name Translation gtk_window_ -> Gtk2::Window gtk_button_ -> Gtk2::Button gtk_window_new -> Gtk2::Window->new gtk_button_new -> Gtk2::Button->new
- 14. Function Parameters gtk_window_set_title (GtkWindow *window, gchar string) becomes $window->set_title ($string)
- 15. Function Parameters GList replaced by variable number of arguments: gtk_window_set_icon_list (GtkWindow * window, GList * list) $window->set_icon_list (@icons) Same with the array moved to the end of the parameter list: gtk_list_insert_items (GtkList *list, GList *items, gint position) $list->insert_items ($position, @items) Array parameter and integer with the size of that array, replaced by variable number of arguments: gtk_curve_set_vector (GtkCurve *curve, int veclen, gfloat vector[]) $curve->set_vector (@vector) Same with the array moved to the end of parameter list: gtk_item_factory_create_items (GtkItemFactory * ifactory, guint n_entries, GtkItemFactoryEntry * entries, gpointer callback_data) $itemfactory->create_items ($callback_data, @entries)
- 16. Return Values gtk_window_get_size (GtkWindow *window, gint *width, gint *height) ($width, $height) = $window->get_size gtk_calendar_get_date (GtkCalendar * calendar, guint year, guint month, guint day) ($year, $month, $day) = $calendar->get_date