From 2fc4dd61e5607569909548975eaf54cef87be96e Mon Sep 17 00:00:00 2001
From: Andrej Shadura <andrewsh@debian.org>
Date: Tue, 8 May 2018 16:00:42 +0200
Subject: New upstream version 1.4.9

---
 lib/dialogues/selectmcu.tcl | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

(limited to 'lib/dialogues/selectmcu.tcl')

diff --git a/lib/dialogues/selectmcu.tcl b/lib/dialogues/selectmcu.tcl
index 584a59f..711b9c7 100644
--- a/lib/dialogues/selectmcu.tcl
+++ b/lib/dialogues/selectmcu.tcl
@@ -1,10 +1,13 @@
 #!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
 
 ############################################################################
 #    Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin Ošmera     #
 #    martin.osmera@gmail.com                                               #
 #                                                                          #
+#    Copyright (C) 2014 by Moravia Microsystems, s.r.o.                    #
+#    martin.osmera@moravia-microsystems.com                                #
+#                                                                          #
 #    This program is free software; you can redistribute it and#or modify  #
 #    it under the terms of the GNU General Public License as published by  #
 #    the Free Software Foundation; either version 2 of the License, or     #
@@ -1392,15 +1395,17 @@ namespace eval SelectMCU {
 			image delete $image
 		}
 		update
-		if {[catch {
-			$image_label configure -text { } -image [image create photo	\
-				-format png -file "${::ROOT_DIRNAME}/icons/mcu/$mcu_name.png"
-			]
-		}]} then {
-			$image_label configure			\
-				-fg {#DD0000}			\
-				-text [mc "  Image not found"]	\
-				-image ::ICONS::16::no
+		if {[winfo exists $image_label]} {
+			if {[catch {
+				$image_label configure -text { } -image [image create photo	\
+					-format png -file "${::ROOT_DIRNAME}/icons/mcu/$mcu_name.png"
+				]
+			}]} then {
+				$image_label configure			\
+					-fg {#DD0000}			\
+					-text [mc "  Image not found"]	\
+					-image ::ICONS::16::no
+			}
 		}
 	}
 
-- 
cgit v1.2.3