[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