summaryrefslogtreecommitdiff
path: root/lib/dialogues/selectmcu.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/dialogues/selectmcu.tcl')
-rw-r--r--lib/dialogues/selectmcu.tcl25
1 files changed, 15 insertions, 10 deletions
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
+ }
}
}