Index: examples/interactive.pl
===================================================================
--- examples/interactive.pl	(revision 447)
+++ examples/interactive.pl	(working copy)
@@ -83,12 +100,16 @@
     sprintf "(%d, %d)-[%d, %d]", $r->x, $r->y, $r->width, $r->height;
 }
 
+sub get_enum_nick {
+    my ($package, $value) = @_;
+    my @v = Glib::Type->list_values ($package);
+    return $v[$value]{nick};
+}
+
 sub get_enum_value {
     my ($package, $string) = @_;
     my @v = Glib::Type->list_values ($package);
     for (my $i = 0 ; $i < @v ; $i++) {
         use Data::Dumper;
         print Dumper($v[$i]);
         return $i if $v[$i]{name} eq $string or $v[$i]{nick} eq $string;
     }
 }
@@ -199,11 +220,11 @@
 sub change_transp_type_cb {
     my ($action, $current) = @_;
     my $color = 0;
     my $transp = $current->get_current_value ();
     if ($transp == GTK_IMAGE_TRANSP_COLOR) {
         $color = 0x000000;
     }
-    $view->set_transp ($transp, $color);
+    $view->set_transp (get_enum_nick('Gtk2::ImageTransp', $transp), $color);
 }
 
 sub menu_item_select_cb {
@@ -495,7 +516,7 @@
     $uimanager->insert_action_group ($image_group, 0);
 
     # Transform group
-    my $transform_group = Gtk2::ActionGroup->new ("transform");
+    $transform_group = Gtk2::ActionGroup->new ("transform");
     if ($transform_group) {
         $transform_group->add_actions (\ transform_actions);
         $transform_group->set_sensitive (FALSE);