Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.513.mcz==================== Summary ====================
Name: Morphic-cmm.513
Author: cmm
Time: 12 January 2011, 10:35:12.92 am
UUID: 16638693-c843-453b-90db-bb6095f4db3c
Ancestors: Morphic-cmm.512
- Present the message, "Enter text to narrow selection down to matching items" to users who have NOT discovered that menus accept keyboard input, instead of the users who already have.
=============== Diff against Morphic-cmm.512 ===============
Item was changed:
----- Method: MenuMorph>>handleFiltering: (in category 'keystroke helpers') -----
handleFiltering: evt
| matchString |
matchString := self valueOfProperty: #matchString ifAbsentPut: [ String new ].
matchString := evt keyValue = 8 " Character backspace asciiValue "
ifTrue: [
matchString isEmpty
ifTrue: [ matchString ]
ifFalse: [ matchString allButLast ] ]
ifFalse: [
matchString copyWith: evt keyCharacter ].
self setProperty: #matchString toValue: matchString.
+ self displayFiltered: evt!
- self displayFiltered: evt.
- self showKeyboardHelp !
Item was added:
+ ----- Method: MenuMorph>>hideKeyboardHelp (in category 'keystroke helpers') -----
+ hideKeyboardHelp
+ self deleteBalloon!
Item was changed:
----- Method: MenuMorph>>keyStroke: (in category 'keyboard control') -----
keyStroke: evt
+ self hideKeyboardHelp; noteRootMenuHasUsedKeyboard.
-
- self
- showKeyboardHelp;
- noteRootMenuHasUsedKeyboard.
self keyStrokeHandlers
+ detect: [:each | self perform: each with: evt]
+ ifNone: [self handleFiltering: evt]!
- detect: [ :each | self perform: each with: evt ]
- ifNone: [ self handleFiltering: evt ].!
Item was changed:
----- Method: MenuMorph>>popUpAt:forHand:in:allowKeyboard: (in category 'control') -----
popUpAt: aPoint forHand: hand in: aWorld allowKeyboard: aBoolean
+ "Present this menu at the given point under control of the given
- "Present this menu at the given point under control of the given
hand."
| evt |
aWorld submorphs
+ select: [:each | (each isKindOf: MenuMorph)
+ and: [each stayUp not]]
+ thenCollect: [:menu | menu delete].
- select: [ :each | (each isKindOf: MenuMorph)
- and: [each stayUp not]]
- thenCollect: [ :menu | menu delete].
-
self items isEmpty
ifTrue: [^ self].
-
MenuIcons decorateMenu: self.
-
(self submorphs
select: [:m | m isKindOf: UpdatingMenuItemMorph])
do: [:m | m updateContents].
"precompute width"
self
positionAt: aPoint
relativeTo: (selectedItem
ifNil: [self items first])
inWorld: aWorld.
aWorld addMorphFront: self.
"Acquire focus for valid pop up behavior"
hand newMouseFocus: self.
aBoolean
+ ifTrue: [hand newKeyboardFocus: self.
+ self showKeyboardHelp].
- ifTrue: [hand newKeyboardFocus: self].
evt := hand lastEvent.
(evt isKeyboard
or: [evt isMouse
and: [evt anyButtonPressed not]])
ifTrue: ["Select first item if button not down"
+ self moveSelectionDown: 1 event: evt
+ "Select first item if button not down"].
- self moveSelectionDown: 1 event: evt].
self updateColor.
self changed!
Locked
