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

commits at source.squeak.org commits at source.squeak.org
Sat Jan 18 16:51:02 UTC 2014


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

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

Name: Morphic-fbs.717
Author: fbs
Time: 18 January 2014, 4:49:29.621 pm
UUID: 4fadfd1a-dc41-e746-96b7-f1f34f35ca90
Ancestors: Morphic-fbs.716, Morphic-cwp.716

Merge Sean DeNigris' fix back in.

=============== Diff against Morphic-cwp.716 ===============

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!



More information about the Packages mailing list