diff -r 228412f59c2c -r 22261417679a MenuPanel.st
--- a/MenuPanel.st	Fri Apr 15 18:27:48 2016 +0100
+++ b/MenuPanel.st	Fri Apr 15 18:31:18 2016 +0100
@@ -6891,13 +6891,9 @@
     ifTrue:[
         ^ self "/ suppressed
     ].
-    aMessage infoPrint.
-"/    app notNil ifTrue:[
-"/        ' Application: ' infoPrint. app infoPrint
-"/    ].
-    '' infoPrintCR.
-
-    "Modified: / 15-04-2016 / 18:24:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    Logger info: aMessage
+
+    "Modified: / 15-04-2016 / 18:29:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 indication
@@ -7471,7 +7467,7 @@
             ex reject
         ].
         self ifNotInUIBuilderInfoPrintCR:
-            ('MenuPanel::Item [error]: application (%1) does not provide aspect: %2 (in %3)'
+            ('application (%1) does not provide aspect: %2 (in %3)'
              bindWith:appl classNameWithArticle
              with:aKey
              with:(label isString ifTrue:[label] ifFalse:[self nameKey ? self itemValue ? '???'])).
@@ -7489,6 +7485,7 @@
     ^ value
 
     "Modified: / 02-08-2013 / 16:44:28 / cg"
+    "Modified: / 15-04-2016 / 18:29:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MenuPanel::Item methodsFor:'change & update'!
@@ -8508,39 +8505,40 @@
     indication isNil ifTrue:[^ self].                                   "no indication specified"
 
     indication isSymbol ifFalse:[
-	indication perform:#value: with:aValue ifNotUnderstood:nil.     "block or model"
-	^ self
+        indication perform:#value: with:aValue ifNotUnderstood:nil.     "block or model"
+        ^ self
     ].
 
     (numArgs := indication numArgs) == 0 ifTrue:[                       "no arguments to selector; cannot set"
-	^ self
+        ^ self
     ].
 
     recv := menuPanel receiver.
     recv isValueModel ifTrue:[^ self].
 
     recv isNil ifTrue:[
-	recv := menuPanel application.
-	recv isNil ifTrue:[^ self].
+        recv := menuPanel application.
+        recv isNil ifTrue:[^ self].
     ].
 
     MessageNotUnderstood handle:[:ex|
-	(ex selector ~~ indication) ifTrue:[
-	    ex reject
-	].
-	self ifNotInUIBuilderInfoPrintCR:
-	    ('MenuPanel::Item [info]: application (%1) does not respond to: %2'
-	     bindWith:recv classNameWithArticle
-	     with:indication).
+        (ex selector ~~ indication) ifTrue:[
+            ex reject
+        ].
+        self ifNotInUIBuilderInfoPrintCR:
+            ('application (%1) does not respond to: %2'
+             bindWith:recv classNameWithArticle
+             with:indication).
     ] do:[
-	numArgs == 1 ifTrue:[
-	    recv perform:indication with:aValue
-	] ifFalse:[
-	    recv perform:indication with:(menuItem argument ? self) with:aValue
-	]
+        numArgs == 1 ifTrue:[
+            recv perform:indication with:aValue
+        ] ifFalse:[
+            recv perform:indication with:(menuItem argument ? self) with:aValue
+        ]
     ].
 
     "Modified (format): / 02-08-2013 / 16:42:20 / cg"
+    "Modified: / 15-04-2016 / 18:28:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 isEntered