#BUGFIX by cg
class: MenuItem
oops - copy paste error
class definition
changed:
#hideMenuOnActivated
#hideMenuOnActivated:
#translateLabel
#translateLabel:
class: MenuItem class
changed: #initialize
--- a/MenuItem.st Sat Aug 11 17:40:26 2018 +0200
+++ b/MenuItem.st Tue Aug 14 12:30:01 2018 +0200
@@ -24,7 +24,8 @@
FLAG_HIDE_ONACTIVATED FLAG_TRIGGER_ONDOWN
FLAG_SHOW_BUSYCURSOR_WHILE_PERFORMING FLAG_KEEP_LINKEDMENU
FLAG_SEND_TO_ORIGINATOR FLAG_IGNORE_MNEMONIC_KEYS
- FLAG_IGNORE_SHORTCUTS FLAG_IS_MENUSLICE FLAG_HORIZONTAL_LAYOUT'
+ FLAG_IGNORE_SHORTCUTS FLAG_IS_MENUSLICE FLAG_HORIZONTAL_LAYOUT
+ FLAG_NOHIDE_ONACTIVATED FLAG_NOTRANSLATE_LABEL'
poolDictionaries:''
category:'Views-Support'
!
@@ -215,9 +216,9 @@
initialize
FLAG_HORIZONTAL_LAYOUT := 16r0001.
- FLAG_TRANSLATE_LABEL := 16r0002.
+ FLAG_NOTRANSLATE_LABEL := 16r0002.
FLAG_ISBUTTON := 16r0004.
- FLAG_HIDE_ONACTIVATED := 16r0008.
+ FLAG_NOHIDE_ONACTIVATED := 16r0008.
FLAG_TRIGGER_ONDOWN := 16r0010.
FLAG_SHOW_BUSYCURSOR_WHILE_PERFORMING := 16r0020.
FLAG_KEEP_LINKEDMENU := 16r0040.
@@ -228,6 +229,7 @@
FLAG_FORCE_MENUINDICATOR := 16r0800.
"Created: / 09-08-2018 / 16:36:25 / Claus Gittinger"
+ "Modified: / 14-08-2018 / 12:29:30 / Claus Gittinger"
! !
!MenuItem class methodsFor:'constants'!
@@ -749,9 +751,9 @@
"hide the menu when the item was activated; the default is true"
"/ notice: here the default is true
- ^ ((flags ? 0) bitTest:FLAG_HIDE_ONACTIVATED) not "/ hideMenuOnActivated ? true
+ ^ ((flags ? 0) bitTest:FLAG_NOHIDE_ONACTIVATED) not "/ hideMenuOnActivated ? true
- "Modified (comment): / 09-08-2018 / 17:00:01 / Claus Gittinger"
+ "Modified: / 14-08-2018 / 12:28:18 / Claus Gittinger"
!
hideMenuOnActivated:aBoolean
@@ -760,9 +762,9 @@
"/ notice: here the default is true
"/ hideMenuOnActivated := aBool ? true
- flags := (flags ? 0) changeMask:FLAG_HIDE_ONACTIVATED to:aBoolean not.
+ flags := (flags ? 0) changeMask:FLAG_NOHIDE_ONACTIVATED to:aBoolean not.
- "Modified (comment): / 09-08-2018 / 17:00:05 / Claus Gittinger"
+ "Modified: / 14-08-2018 / 12:28:22 / Claus Gittinger"
!
keepLinkedMenu
@@ -827,9 +829,9 @@
The default is true"
"/ notice: here the default is true
- ^ ((flags ? 0) bitTest:FLAG_TRANSLATE_LABEL) not "/ translateLabel ? true
+ ^ ((flags ? 0) bitTest:FLAG_NOTRANSLATE_LABEL) not "/ translateLabel ? true
- "Modified (comment): / 09-08-2018 / 17:27:00 / Claus Gittinger"
+ "Modified: / 14-08-2018 / 12:29:23 / Claus Gittinger"
!
translateLabel:aBoolean
@@ -838,9 +840,9 @@
"/ notice: here the default is true
"/ translateLabel := aBoolean
- flags := (flags ? 0) changeMask:FLAG_HIDE_ONACTIVATED to:aBoolean not.
+ flags := (flags ? 0) changeMask:FLAG_NOTRANSLATE_LABEL to:aBoolean not.
- "Modified (comment): / 09-08-2018 / 17:27:20 / Claus Gittinger"
+ "Modified: / 14-08-2018 / 12:29:12 / Claus Gittinger"
!
triggerOnDown