[squeak-dev] The Trunk: 60Deprecated-ct.109.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 6 17:32:50 UTC 2022
Christoph Thiede uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-ct.109.mcz
==================== Summary ====================
Name: 60Deprecated-ct.109
Author: ct
Time: 6 April 2022, 7:32:46.765385 pm
UUID: 5fc3a8e2-429b-044e-a3df-eae0c2200cbe
Ancestors: 60Deprecated-ct.108
Complements Morphic-ct.1960 (clean-up of MenuMorph's matchString).
=============== Diff against 60Deprecated-ct.108 ===============
Item was changed:
----- Method: MenuMorph>>filterListWith: (in category '*60Deprecated-keyboard control') -----
+ filterListWith: char
+
- filterListWith: char
| matchString |
self deprecated: 'ct: Use #handleFiltering: instead'.
+
+ matchString := self matchString copyWith: char.
+ matchString := matchString copyWithout: Character backspace.
+ self matchString: matchString!
- matchString := self valueOfProperty: #matchString ifAbsentPut: [String new].
- matchString := char = Character backspace
- ifTrue:
- [matchString isEmpty ifTrue: [matchString] ifFalse: [matchString allButLast]]
- ifFalse: [matchString copyWith: char].
- self setProperty: #matchString toValue: matchString!
Item was added:
+ ----- Method: MenuMorph>>unfilterOrEscape: (in category '*60Deprecated-keyboard control') -----
+ unfilterOrEscape: evt
+
+ self deprecated: 'Use #handleEscStroke: instead'.
+
+ self matchString ifNil: [
+ self removeMatchString].
+
+ "If a stand-alone menu, just delete it"
+ popUpOwner ifNil: [^self delete].
+ "If a sub-menu, then deselect, and return focus to outer menu"
+ self selectSuperMenu: evt.!
More information about the Squeak-dev
mailing list
|