From 6996f879c683210337d0fbcdc5c0e24ef9ef0055 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 1 Sep 2013 04:04:30 +0200
Subject: (new_with_strings) guard against too early calls by gtk+

---
 perl-install/ugtk3.pm | 2 ++
 1 file changed, 2 insertions(+)

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;
-- 
cgit v1.2.1