[Vm-dev] VM Maker: VMMakerUI-eem.52.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of VMMakerUI to project VM Maker:
http://source.squeak.org/VMMaker/VMMakerUI-eem.52.mcz

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

Name: VMMakerUI-eem.52
Author: eem
Time: 25 November 2021, 9:19:07.229851 pm
UUID: 2388a1a4-1dfa-4578-9cd9-364b2e12851b
Ancestors: VMMakerUI-eem.51

Fix some bugs in the SimulatorMorph framework.

=============== Diff against VMMakerUI-eem.51 ===============

Item was changed:
  ----- Method: SimulatorEventTransformer>>degenerateMouseEvent: (in category 'event transformation') -----
  degenerateMouseEvent: aMorphicEvent
  	"see HandMorph>>generateMouseEvent"
  
  	modifiers := aMorphicEvent buttons >> 3. "Sad, but modifiers come in on mouse move events..."
  	^{	EventTypeMouse.
  		aMorphicEvent timeStamp.
  		aMorphicEvent position x.
  		aMorphicEvent position y.
+ 		aMorphicEvent buttons bitAnd: 7.  "thanks Ron T."
- 		aMorphicEvent button bitAnd: 7.  "thanks Ron T."
  		modifiers.     "Thanks dtl"
  		aMorphicEvent class == MouseButtonEvent ifTrue: [aMorphicEvent nClicks] ifFalse: [0].
  		self windowIndex }!

Item was changed:
  ----- Method: SimulatorMorph>>contextPanel (in category 'submorphs - squeakJS') -----
  contextPanel
  	"This should show the currentContext and Special Objects array. as seen at SqueakJS
  	  Doing that requires real talent. talent tty is lacking at the moment
  							on: [ Array with:  (MorphWithSubmorphsWrapper with: self)  ]	
  	Array with: (ObjectExplorerWrapper with: rootObject name: 'root' model: self parent: nil)
  	"
  	^contextPanel ifNil: 
+ 		[contextPanel := SimpleHierarchicalListMorph
- 		[contextPanel := (SimpleHierarchicalListMorph
  							on: [ Array with: (ObjectExplorerWrapper with: (self model vm) name: 'root' model: (self model vm) parent: nil) ]
  							list: #value
  							selected: nil
  							changeSelected: nil
  							menu: nil
+ 							keystroke: nil.
- 							keystroke: nil) showScrollBarsOnlyWhenNeeded: true.
  		contextPanel		
  			color: Color transparent;
  			hResizing: #spaceFill;
  			vResizing: #spaceFill;
+ 			hScrollBarPolicy: #whenNeeded;
+ 			vScrollBarPolicy: #whenNeeded;
  			cellInset: 5;
  			yourself]
  
  
  !

Item was changed:
  ----- Method: SimulatorMorphicModel>>ioExit (in category 'buttons callbacks') -----
  ioExit
+ 	vm displayView activeHand removeEventListener: self.
- 	vm displayView activeHand removeEventListener: self model.
  	vm ioExit!