[Pkg] The Trunk: Morphic-fbs.651.mcz

commits at source.squeak.org commits at source.squeak.org
Tue May 21 21:50:51 UTC 2013


Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.651.mcz

==================== Summary ====================

Name: Morphic-fbs.651
Author: fbs
Time: 21 May 2013, 10:48:36.892 pm
UUID: d823fc4c-22e8-42de-bd2f-afefdedb5d1a
Ancestors: Morphic-fbs.650

MethodReference new setStandardClass: foo methodSymbol: bar -> MethodReference class: foo selector: bar.

=============== Diff against Morphic-fbs.650 ===============

Item was changed:
  ----- Method: EventHandler>>methodRefList (in category 'access') -----
  methodRefList
  	"Return a MethodReference for each message I can send. tk 9/13/97, raa 
  	5/29/01 "
  	| list adder |
  	list := SortedCollection new.
  	adder := [:recip :sel | recip
  				ifNotNil: [list
  						add: (MethodReference new
+ 								class: (recip class whichClassIncludesSelector: sel)
+ 								selector: sel)]].
- 								setStandardClass: (recip class whichClassIncludesSelector: sel)
- 								methodSymbol: sel)]].
  	adder value: mouseDownRecipient value: mouseDownSelector.
  	adder value: mouseMoveRecipient value: mouseMoveSelector.
  	adder value: mouseStillDownRecipient value: mouseStillDownSelector.
  	adder value: mouseUpRecipient value: mouseUpSelector.
  	adder value: mouseEnterRecipient value: mouseEnterSelector.
  	adder value: mouseLeaveRecipient value: mouseLeaveSelector.
  	adder value: mouseEnterDraggingRecipient value: mouseEnterDraggingSelector.
  	adder value: mouseLeaveDraggingRecipient value: mouseLeaveDraggingSelector.
  	adder value: doubleClickRecipient value: doubleClickSelector.
  	adder value: keyStrokeRecipient value: keyStrokeSelector.
  	^ list!

Item was changed:
  ----- Method: Morph>>showActions (in category 'meta-actions') -----
  showActions
  	"Put up a message list browser of all the code that this morph  
  	would run for mouseUp, mouseDown, mouseMove, mouseEnter,  
  	mouseLeave, and  
  	mouseLinger. tk 9/13/97"
  	| list cls selector adder |
  	list := SortedCollection new.
  	adder := [:mrClass :mrSel | list
+ 				add: (MethodReference class: mrClass selector: mrSel)].
- 				add: (MethodReference new setStandardClass: mrClass methodSymbol: mrSel)].
  	"the eventHandler"
  	self eventHandler
  		ifNotNil: [list := self eventHandler methodRefList.
  			(self eventHandler handlesMouseDown: nil)
  				ifFalse: [adder value: HandMorph value: #grabMorph:]].
  	"If not those, then non-default raw events"
  	#(#keyStroke: #mouseDown: #mouseEnter: #mouseLeave: #mouseMove: #mouseUp: #doButtonAction )
  		do: [:sel | 
  			cls := self class whichClassIncludesSelector: sel.
  			cls
  				ifNotNil: ["want more than default behavior"
  					cls == Morph
  						ifFalse: [adder value: cls value: sel]]].
  	"The mechanism on a Button"
  	(self respondsTo: #actionSelector)
  		ifTrue: ["A button"
  			selector := self actionSelector.
  			cls := self target class whichClassIncludesSelector: selector.
  			cls
  				ifNotNil: ["want more than default behavior"
  					cls == Morph
  						ifFalse: [adder value: cls value: selector]]].
  	MessageSet openMessageList: list name: 'Actions
  of ' , self printString autoSelect: nil!



More information about the Packages mailing list