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@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@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@0 corner: 0.4@0) - offsets: (20@ -20 corner: 0@0)); - hResizing: #spaceFill; - vResizing: #spaceFill. - self addMorphFront: labelButton. - self adjustExtraButton! |
Free forum by Nabble | Edit this page |