summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-09-01 04:04:30 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:37 +0100
commit6996f879c683210337d0fbcdc5c0e24ef9ef0055 (patch)
tree00baa92a43b3880101e44b5b10b8213fb3fc3533 /perl-install
parent452a6077f9356526be17355e008362fbf46309f8 (diff)
downloaddrakx-6996f879c683210337d0fbcdc5c0e24ef9ef0055.tar
drakx-6996f879c683210337d0fbcdc5c0e24ef9ef0055.tar.gz
drakx-6996f879c683210337d0fbcdc5c0e24ef9ef0055.tar.bz2
drakx-6996f879c683210337d0fbcdc5c0e24ef9ef0055.tar.xz
drakx-6996f879c683210337d0fbcdc5c0e24ef9ef0055.zip
(new_with_strings) guard against too early calls by gtk+
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk3.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 07c0ee725..6480330e7 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -1361,6 +1361,8 @@ use MDK::Common;
# try to get combox <==> option menu mapping
sub set_popdown_strings {
my ($w, @strs) = @_;
+ my $model = $w->get_model;
+ return if !$model;
$w->get_model->clear;
# keep string list around for ->set_text compatibilty helper
$w->{strings} = \@strs;