drop support for 'Sexy_IconEntry' widget (unused since 2009)

1 files changed, 0 insertions, 25 deletions

diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index c9e987a1d..44065baf8 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -476,31 +476,6 @@ sub _gtk__Title2 {
     _gtk__Title1($w, $opts);
 }
 
-sub _gtk__Sexy_IconEntry {
-    my ($w, $opts) = @_;
-
-    require Gtk3::Sexy;
-    if (!$w) {
-	$w = Gtk3::Sexy::IconEntry->new;
-	$w->set_editable(delete $opts->{editable}) if exists $opts->{editable};
-    }
-
-    $w->add_clear_button if delete $opts->{clear_button};
-    if (my $icon = delete $opts->{primary_icon}) {
-        $w->set_icon('primary', $icon);
-        $w->set_icon_highlight('primary', $icon);
-    }
-    if (my $icon = delete $opts->{secondary_icon}) {
-        $w->set_icon('secondary', $icon);
-        $w->set_icon_highlight('secondary', $icon);
-    }
-
-    $w->signal_connect('icon-released' => delete $opts->{'icon-released'}) if exists $opts->{'icon-released'};
-    $w->signal_connect('icon-pressed' => delete $opts->{'icon-pressed'}) if exists $opts->{'icon-pressed'};
-
-    _gtk__Entry($w, $opts);
-}
-
 sub _gtk__Entry {
     my ($w, $opts) = @_;