A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-fbs.716.mcz

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

Name: Morphic-fbs.716
Author: fbs
Time: 18 January 2014, 2:22:54.751 pm
UUID: 16ecb9a0-e390-c540-a5e0-21da7485aac7
Ancestors: Morphic-fbs.715

Sean DeNigris' bugfix from 2014/01/15:

KeyboardEvent is not storing the event position. If you record keyboard events via EventRecorderMorph, writeTape and then readTape back in, error windows will pop up for each played keyboard event.

=============== Diff against Morphic-fbs.715 ===============

Item was changed:
  ----- Method: KeyboardEvent>>storeOn: (in category 'printing') -----
  storeOn: aStream
  
  	aStream nextPutAll: type.
  	aStream space.
  	self timeStamp storeOn: aStream.
  	aStream space.
+ 	position x asInteger storeOn: aStream.
+ 	aStream space.
+ 	position y asInteger storeOn: aStream.
+ 	aStream space.
  	buttons storeOn: aStream.
  	aStream space.
+ 	keyValue storeOn: aStream.!
- 	keyValue storeOn: aStream.
- !

Item was changed:
  ----- Method: KeyboardEvent>>type:readFrom: (in category 'initialize') -----
  type: eventType readFrom: aStream
+ 	| x y |
  	type := eventType.
  	timeStamp := Integer readFrom: aStream.
  	aStream skip: 1.
+ 	
+ 	x := Integer readFrom: aStream.
+ 	aStream skip: 1.
+ 	y := Integer readFrom: aStream.
+ 	aStream skip: 1.
+ 	position := x at y.
+ 	
  	buttons := Integer readFrom: aStream.
  	aStream skip: 1.
  	keyValue := Integer readFrom: aStream.!

Item was removed:
- PluggableSystemWindow subclass: #PluggableSystemWindowWithLabelButton
- 	instanceVariableNames: 'labelButton'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Morphic-Windows'!
- 
- !PluggableSystemWindowWithLabelButton commentStamp: 'eem 6/29/2010 19:02' prior: 0!
- A PluggableSystemWindowWithLabelButton provides the pull-down menu of browser panes in the multi-pane browser.
- 
- Instance Variables
- 	labelButton:		<BrowserPaneButtonMorph>
- 
- labelButton
- 	- the labelButton is a hack to hold onto the panes of a multi-paned browser so that an inst var doesn't have to be added to the Browser hierarchy.
- !

Item was removed:
- ----- Method: PluggableSystemWindowWithLabelButton>>adjustExtraButton (in category 'resize/collapse') -----
- adjustExtraButton
- 	labelButton ifNil: [^self].
- 	labelButton
- 		position: self innerBounds topLeft + (20 @ -3);
- 		extent: self innerBounds extent * (0.4 at 1)!

Item was removed:
- ----- Method: PluggableSystemWindowWithLabelButton>>extent: (in category 'geometry') -----
- extent: newExtent
- 	super extent: newExtent.
- 	self adjustExtraButton!

Item was removed:
- ----- Method: PluggableSystemWindowWithLabelButton>>savedMultiWindowState: (in category 'accessing') -----
- savedMultiWindowState: aSavedMultiWindowState
- 	labelButton := MultiWindowLabelButtonMorph
- 						on: aSavedMultiWindowState
- 						getState: nil
- 						action: #selectWindowsMenu.
- 	labelButton
- 		triggerOnMouseDown: true;
- 		savedMultiWindowState: aSavedMultiWindowState.
- 	labelButton
- 		layoutFrame: (LayoutFrame "i.e. in the left 40% of the title bar"
- 						fractions: (0 at 0 corner: 0.4 at 0)
- 						offsets: (20@ -20 corner: 0 at 0));
- 		hResizing: #spaceFill;
- 		vResizing: #spaceFill.
- 	self addMorphFront: labelButton.
- 	self adjustExtraButton!