Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
oops - care for non-existing selection
authorClaus Gittinger <cg@exept.de>
Tue, 23 Mar 1999 11:34:49 +0100
changeset 1078 84683b5a6979
parent 1077 46793bf50415
child 1079 deda6cdfe287
oops - care for non-existing selection
MenuEditor.st file | annotate | diff | comparison | revisions 
--- a/MenuEditor.st	Tue Mar 23 11:33:40 1999 +0100
+++ b/MenuEditor.st	Tue Mar 23 11:34:49 1999 +0100
@@ -2190,9 +2190,12 @@
 !MenuEditor methodsFor:'selection'!
 
 imageSelected
-
-    (aspects at: #icon) value: self selectionOfImage value string
-
+    |imgSel|
+
+    imgSel := self selectionOfImage value.
+    imgSel notNil ifTrue:[
+        (aspects at: #icon) value: imgSel string
+    ]
 !
 
 menuChanged
hg/stx-libtool2