[Vm-dev] VM Maker: VMMaker.oscog-eem.1424.mcz

[commits at source.squeak.org]

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

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

Name: VMMaker.oscog-eem.1424
Author: eem
Time: 17 July 2015, 4:41:03.737 pm
UUID: 56110fd1-2a81-4bc6-ad9c-e33cafbd2c71
Ancestors: VMMaker.oscog-eem.1423

Simulator:
Allow the displayForm to be resized when the simulator window is resized.

=============== Diff against VMMaker.oscog-eem.1423 ===============

Item was changed:
  ----- Method: CogVMSimulator>>handleListenEvent: (in category 'I/O primitives support') -----
  handleListenEvent: aMorphicEvent
+ 	"openAsMorph[NoTranscript] registered me for listen events via HandMorph>>addEventListener.
+ 	Transform the listen event and add it to my event queue.  ALso check if the displayForm shoudl resize."
+ 	(displayForm ~~ fakeForm and: [displayForm extent ~= displayView extent]) ifTrue:
+ 		[| newForm |
+ 		newForm := Form
+ 						extent: displayView extent
+ 						depth: displayForm depth.
+ 		 displayForm displayOn: newForm.
+ 		 displayForm := newForm].
- 	"openAsMorph[NoTranscript] regsitered me for listen events via HandMorph>>addEventListener.
- 	Transform the listen event and add it to my event queue."
  	((aMorphicEvent isMouse or: [aMorphicEvent isKeyboard])
  	 and: [displayView bounds containsPoint: aMorphicEvent position]) ifTrue:
  		[eventTransformer degenerateEvent: aMorphicEvent for: self]!

Item was added:
+ ----- Method: SimulatorImageMorph>>extent: (in category 'geometry') -----
+ extent: aPoint
+ 	"Override to restore the default resizing behaviour."
+ 	^self perform: #extent: withArguments: {aPoint} inSuperclass: ImageMorph superclass!

Item was changed:
  ----- Method: StackInterpreterSimulator>>handleListenEvent: (in category 'I/O primitives support') -----
  handleListenEvent: aMorphicEvent
+ 	"openAsMorph[NoTranscript] registered me for listen events via HandMorph>>addEventListener.
+ 	Transform the listen event and add it to my event queue.  ALso check if the displayForm shoudl resize."
+ 	(displayForm ~~ fakeForm and: [displayForm extent ~= displayView extent]) ifTrue:
+ 		[| newForm |
+ 		newForm := Form
+ 						extent: displayView extent
+ 						depth: displayForm depth.
+ 		 displayForm displayOn: newForm.
+ 		 displayForm := newForm].
- 	"openAsMorph[NoTranscript] regsitered me for listen events via HandMorph>>addEventListener.
- 	Transform the listen event and add it to my event queue."
  	((aMorphicEvent isMouse or: [aMorphicEvent isKeyboard])
  	 and: [displayView bounds containsPoint: aMorphicEvent position]) ifTrue:
  		[eventTransformer degenerateEvent: aMorphicEvent for: self]!