--- 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