Squeak-dev May 2018

squeak-dev@lists.squeakfoundation.org

44 participants
189 discussions

The Trunk: Tests-dtl.396.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-dtl.396.mcz ==================== Summary ==================== Name: Tests-dtl.396 Author: dtl Time: 13 May 2018, 9:25:11.98605 pm UUID: 5caece86-0310-4cd3-8e10-9e80d1d28c49 Ancestors: Tests-dtl.395 Revert last update, which was based on bad assumptions about how a proxy should behave (thanks Levente). If a proxy doesn't want to forward a message, it can just implement the method. If you want direct access to the proxy object, you can use the mirror primitives. =============== Diff against Tests-dtl.395 =============== Item was removed: - MCTestCase subclass: #MCPackageInEnvironmentTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Monticello'! Item was removed: - ----- Method: MCPackageInEnvironmentTest>>testPerformIdentityEquals (in category 'testing') ----- - testPerformIdentityEquals - "Verify that #perform:with: can be used to send #== for identity test. Required - for identity test in PluggableDictionary. Delegation to the MCPackage does not - work in that case because the package is a different object." - - | aProtoObj | - aProtoObj :=MCPackageInEnvironment - decorating: (MCPackage new name: 'No Name Yet') - in: Environment default. - self assert: [aProtoObj == aProtoObj] - description: 'Direct test for identity does not invoke delegation'. - - "Normal perform:with: delegation with any selector other than #==" - aProtoObj perform: #name: with: #FOO. - self assert: #FOO equals: aProtoObj name - description: 'name of the MCPackage should have been set to #FOO'. - - "Selector #== must refer to aProtoObj, not to the MCPackage to which it delegates" - self assert: [aProtoObj perform: #== with: aProtoObj] - description: 'If aProtoObj delegates to the MCPackage the identity test will fail'. - !

1 0

The Trunk: Monticello-dtl.682.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.682.mcz ==================== Summary ==================== Name: Monticello-dtl.682 Author: dtl Time: 13 May 2018, 7:14:27.068827 pm UUID: 76fc84e6-7e2b-4a6a-af6b-2d02d11c38eb Ancestors: Monticello-nice.681 Sending perform: #== with: anObject to an instance of MCPackageInEnvironment should test identity of the actual instance, not the MCPackage to which it refers. If this is not so, a PluggableDictionary will fail when doing identity checks on its keys, as is the case for a SystemTracer adding all objects to its oop dictionary. Implement MCPackageInEnvironment>>perform:with: such that performing #== will call primitivePerform, and all other selectors are delegated to the MCPackage as before. =============== Diff against Monticello-nice.681 =============== Item was added: + ----- Method: MCPackageInEnvironment>>perform:with: (in category 'delegating') ----- + perform: aSymbol with: anObject + "If aSymbol is #== then the sender is trying to perform an identity comparison. + This cannot be delegated, because the delegate will be a different object. + Implement perform:with: here to protect for this case. An important example + is the case of PluggableDictionary, which relies on perform:with: to implement + comparisons for an identity dictionary." + + aSymbol == #== + ifTrue: [ ^self privatePerform: aSymbol with: anObject ] + ifFalse: [ ^package perform: aSymbol with: anObject "as per doesNotUnderStand:" ] + ! Item was added: + ----- Method: MCPackageInEnvironment>>privatePerform:with: (in category 'delegating') ----- + privatePerform: aSymbol with: anObject + "aSymbol is #== and the sender is trying to perform an identity comparison. + Invoke primitivePerform." + + <primitive: 83> + ^ self primitiveFailed!

3 5

The Trunk: Tests-dtl.395.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-dtl.395.mcz ==================== Summary ==================== Name: Tests-dtl.395 Author: dtl Time: 13 May 2018, 7:12:22.626004 pm UUID: da0200e6-5c03-4bf3-9f9f-60f6f92beeee Ancestors: Tests-mt.394 Sending perform: #== with: anObject to an instance of MCPackageInEnvironment should test identity of the actual instance, not the MCPackage to which it refers. If this is not so, a PluggableDictionary will fail when doing identity checks on its keys, as is the case for a SystemTracer adding all objects to its oop dictionary. Add MCPackageInEnvironmentTest to document the issue. =============== Diff against Tests-mt.394 =============== Item was added: + MCTestCase subclass: #MCPackageInEnvironmentTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Monticello'! Item was added: + ----- Method: MCPackageInEnvironmentTest>>testPerformIdentityEquals (in category 'testing') ----- + testPerformIdentityEquals + "Verify that #perform:with: can be used to send #== for identity test. Required + for identity test in PluggableDictionary. Delegation to the MCPackage does not + work in that case because the package is a different object." + + | aProtoObj | + aProtoObj :=MCPackageInEnvironment + decorating: (MCPackage new name: 'No Name Yet') + in: Environment default. + self assert: [aProtoObj == aProtoObj] + description: 'Direct test for identity does not invoke delegation'. + + "Normal perform:with: delegation with any selector other than #==" + aProtoObj perform: #name: with: #FOO. + self assert: #FOO equals: aProtoObj name + description: 'name of the MCPackage should have been set to #FOO'. + + "Selector #== must refer to aProtoObj, not to the MCPackage to which it delegates" + self assert: [aProtoObj perform: #== with: aProtoObj] + description: 'If aProtoObj delegates to the MCPackage the identity test will fail'. + !

1 0

The Trunk: Installer-Core-ul.421.mcz
by commits＠source.squeak.org 14 May '18

14 May '18

Levente Uzonyi uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ul.421.mcz ==================== Summary ==================== Name: Installer-Core-ul.421 Author: ul Time: 13 May 2018, 10:38:47.570893 pm UUID: 5116baf0-5442-4586-87b5-ca08a9708de4 Ancestors: Installer-Core-mt.420 Updated the way #ensureRecentMetacello tests the network connection and ssl support: - use github.com instead of google.de - use HEAD instead of GET - use #classNamed: to look up classes - use symbols for class names, so these uses will appear along with real class references while browsing senders =============== Diff against Installer-Core-mt.420 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" + | metacello | + ((Smalltalk classNamed: #WebClient) + ifNil: [ false ] + ifNotNil: [ :webClient | + [ (webClient httpHead: 'https://github.com') isSuccess ] + on: Error + do: [ false ] ]) + ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. - ([((Smalltalk classNamed: 'WebClient') httpGet: 'https://www.google.de') isSuccess] on: Error do: [:err | false]) - ifFalse: [^ self inform: 'Could not resolve "https://www.google.de".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs]. + metacello := (Smalltalk classNamed: #Metacello) ifNil: [ - (Smalltalk hasClassNamed: 'Metacello') ifFalse: [ "Get the Metacello configuration (for Squeak users)" Installer gemsource + project: 'metacello'; + addPackage: 'ConfigurationOfMetacello'; + install. - project: 'metacello'; - addPackage: 'ConfigurationOfMetacello'; - install. "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version" + ((Smalltalk classNamed: #ConfigurationOfMetacello) project + version: #'previewBootstrap') load. - ((Smalltalk at: #ConfigurationOfMetacello) project - version: #'previewBootstrap') load. "Load the Preview version of Metacello from GitHub" + (Smalltalk classNamed: #Metacello) new + configuration: 'MetacelloPreview'; + version: #stable; + repository: 'github://Metacello/metacello:configuration'; + load. - (Smalltalk at: #Metacello) new - configuration: 'MetacelloPreview'; - version: #stable; - repository: 'github://Metacello/metacello:configuration'; - load]. + Smalltalk classNamed: #Metacello ]. + "Now load latest version of Metacello" + metacello new + baseline: 'Metacello'; + repository: 'github://Metacello/metacello:master/repository'; + get. + metacello new + baseline: 'Metacello'; + repository: 'github://Metacello/metacello:master/repository'; + load.! - (Smalltalk at: #Metacello) new - baseline: 'Metacello'; - repository: 'github://Metacello/metacello:master/repository'; - get. - (Smalltalk at: #Metacello) new - baseline: 'Metacello'; - repository: 'github://Metacello/metacello:master/repository'; - load.!

1 0

[Question][try.squeak.org] Is it possible to get/store values in localStorage of the browser
by H. Hirzel 12 May '18

12 May '18

Hello Bert I wonder if and how it is possible to get/store values of the localStorage of the browser. Or are there other mechanisms to save state between subsequent calls to work with a Squeak image file in the browser? Regards Hannes

2 2

The Trunk: Tools-tpr.813.mcz
by commits＠source.squeak.org 12 May '18

12 May '18

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.813.mcz ==================== Summary ==================== Name: Tools-tpr.813 Author: tpr Time: 10 May 2018, 2:54:14.550558 pm UUID: 01e3ab07-6692-4a92-a287-da9d4452de56 Ancestors: Tools-cmm.812 Remove the non-working (and too much work to be worth it) #browseClass send. Opening a full class browser is as useful and actually works. Rename #classHierarchy to #browseClassHiearchy because it actually makes sense to name similar methods similarly rather than with wildy unconnected names that just makes life more annoying that is strictly required. Deprecate the old version. (See 60Deprecated-tpr.19) =============== Diff against Tools-cmm.812 =============== Item was added: + ----- Method: ObjectExplorer>>browseClassHierarchy (in category 'menus - actions') ----- + browseClassHierarchy + "Create and schedule a class list browser on the receiver's hierarchy." + + self systemNavigation + spawnHierarchyForClass: self selectedClass + selector: nil + ! Item was removed: - ----- Method: ObjectExplorer>>classHierarchy (in category 'menus - actions') ----- - classHierarchy - "Create and schedule a class list browser on the receiver's hierarchy." - - self systemNavigation - spawnHierarchyForClass: self selectedClass - selector: nil - ! Item was changed: ----- Method: ObjectExplorer>>explorerKey:from:event: (in category 'menus') ----- explorerKey: aChar from: view event: event event anyModifierKeyPressed ifFalse: [^ false]. self object ifNotNil: [ aChar == $i ifTrue: [self inspectSelection. ^ true]. aChar == $I ifTrue: [self exploreSelection. ^ true]. aChar == $b ifTrue: [self browseFull. ^ true]. + aChar == $h ifTrue: [self browseClassHierarchy. ^ true]. - aChar == $h ifTrue: [self classHierarchy. ^ true]. aChar == $c ifTrue: [self copyName. ^ true]. aChar == $p ifTrue: [self browseFullProtocol. ^ true]. aChar == $N ifTrue: [self browseClassRefs. ^ true]. aChar == $v ifTrue: [self viewerForValue. ^ true]]. ^ false! Item was changed: ----- Method: ObjectExplorer>>mainTreeListMenu: (in category 'menus') ----- mainTreeListMenu: aMenu <treeListMenu> aMenu addStayUpItemSpecial. aMenu addList: #( ('inspect (i)' inspectSelection) ('explore (I)' exploreSelection) - ('method refs to this inst var' referencesToSelection) ('methods storing into this inst var' defsOfSelection) ('objects pointing to this value' objectReferencesToSelection) ('chase pointers' chasePointersForSelection) + ('explore pointers' explorePointersForSelection) - ('explore pointers' explorePointersForSelection) - ('browse full (b)' browseFull) + ('browse hierarchy (h)' browseClassHierarchy) - ('browse class' browseClass) - ('browse hierarchy (h)' classHierarchy) ('browse protocol (p)' browseFullProtocol) - ('references... (r)' browseVariableReferences) + ('assignments... (a)' browseVariableAssignments) - ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('copy name (c)' copyName) ('copy value' copyValue) ('basic inspect' inspectBasic)). Smalltalk isMorphic ifTrue: [ aMenu addList: #( - ('viewer for this value (v)' viewerForValue))]. aMenu addList: #( - ('monitor changes' monitorSelection)). monitorList isEmptyOrNil ifFalse: [ aMenu addList: #( ('stop monitoring all' stopMonitoring))]. ^ aMenu!

5 6

MagnifierMorph broken in 6.0 alpha
by Stéphane Rollandin 12 May '18

12 May '18

Still in the latest downloadable 6.0 alpha: The MagnifierMorph is supposed to grow in size and zooming factor when one does a mouse drag with control key pressed. This does not work anymore. More generally, it is not possible to define a ctrl+drag behavior (this have been true for a while). I did fix this for muO though. In 6.0, here is how I did it: I added a line in the following method: ----------------------- PasteUpMorph>>tryInvokeMetaMenu: anEvent | innerMost target | Preferences cmdGesturesEnabled ifFalse: [^ self]. Preferences eToyFriendly ifTrue: [^ self]. innerMost := (self morphsAt: anEvent position unlocked: true) first. innerMost honorsCtrlMetaMenu ifFalse: [^ self]. "<=== here" "Traverse the owner chain if some morph does not want to show its meta menu." target := innerMost. [target isNil or: [target wantsMetaMenu]] whileFalse: [target := target owner]. target ifNil: [^ self]. target invokeMetaMenu: anEvent. anEvent ignore. ------------------------ ... with Morph>>#honorsCtrlMetaMenu returning true, overriden by false for any morph wanting to have ctrl+drag work (for example, MagnifierMorph) Stef

3 2

SectorMorph initialization bug
by karl ramberg 12 May '18

12 May '18

I got this bug clicking the Graphics tab in Objects tool. Seem it try to compute bounds before it is fully initialized and vertices are nil. Best, Karl 11 May 2018 9:59:11.58749 pm VM: Win32 - Smalltalk Image: Squeak6.0alpha [latest update: #17975] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir C:\Users\Karl\Downloads\Squeak6.0alpha-17873-64bit\Squeak6.0alpha-17873-64bit-201712221331-Windows Trusted Dir C:\Users\Karl\Downloads\Squeak6.0alpha-17873-64bit\Squeak6.0alpha-17873-64bit-201712221331-Windows\Karl Untrusted Dir C:\Users\Karl\Documents\My Squeak UndefinedObject(Object)>>doesNotUnderstand: #first Receiver: nil Arguments and temporary variables: aMessage: first exception: MessageNotUnderstood: UndefinedObject>>first resumeValue: nil Receiver's instance variables: nil SectorMorph>>computeBounds Receiver: a SectorMorph(802620) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color orange extension: a MorphExtension (1711903) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color black vertices: nil closed: nil filledForm: nil arrows: nil arrowForms: nil smoothCurve: nil curveState: nil borderDashSpec: nil handles: nil borderForm: nil angle: 45 SectorMorph(PolygonMorph)>>borderStyle: Receiver: a SectorMorph(802620) Arguments and temporary variables: aBorderStyle: a SimpleBorder Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color orange extension: a MorphExtension (1711903) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color black vertices: nil closed: nil filledForm: nil arrows: nil arrowForms: nil smoothCurve: nil curveState: nil borderDashSpec: nil handles: nil borderForm: nil angle: 45 SectorMorph(BorderedMorph)>>borderInitialize Receiver: a SectorMorph(802620) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color orange extension: a MorphExtension (1711903) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color black vertices: nil closed: nil filledForm: nil arrows: nil arrowForms: nil smoothCurve: nil curveState: nil borderDashSpec: nil handles: nil borderForm: nil angle: 45 SectorMorph(BorderedMorph)>>initialize Receiver: a SectorMorph(802620) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color orange extension: a MorphExtension (1711903) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color black vertices: nil closed: nil filledForm: nil arrows: nil arrowForms: nil smoothCurve: nil curveState: nil borderDashSpec: nil handles: nil borderForm: nil angle: 45 SectorMorph(PolygonMorph)>>initialize Receiver: a SectorMorph(802620) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color orange extension: a MorphExtension (1711903) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color black vertices: nil closed: nil filledForm: nil arrows: nil arrowForms: nil smoothCurve: nil curveState: nil borderDashSpec: nil handles: nil borderForm: nil angle: 45 SectorMorph>>initialize Receiver: a SectorMorph(802620) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color orange extension: a MorphExtension (1711903) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color black vertices: nil closed: nil filledForm: nil arrows: nil arrowForms: nil smoothCurve: nil curveState: nil borderDashSpec: nil handles: nil borderForm: nil angle: 45 SectorMorph(Morph)>>initializeToStandAlone Receiver: a SectorMorph(802620) Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: #() fullBounds: nil color: Color orange extension: a MorphExtension (1711903) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color black vertices: nil closed: nil filledForm: nil arrows: nil arrowForms: nil smoothCurve: nil curveState: nil borderDashSpec: nil handles: nil borderForm: nil angle: 45 SectorMorph class(Morph class)>>newStandAlone Receiver: SectorMorph Arguments and temporary variables: Receiver's instance variables: superclass: PolygonMorph methodDict: a MethodDictionary(#addCustomMenuItems:hand:->(SectorMorph>>#addCus...etc... format: 65555 instanceVariables: #('angle') organization: ('menu & halo' addCustomMenuItems:hand:) ('editing' addHandles) (...etc... subclasses: nil name: #SectorMorph classPool: nil sharedPools: nil environment: Smalltalk category: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs' PartsBin class>>thumbnailForQuad:color: Receiver: PartsBin Arguments and temporary variables: aQuint: #(#SectorMorph #newStandAlone 'Sector' 'A sector tool that lets you cre...etc... aColor: (Color r: 1 g: 0.911 b: 0.984) aThumbnail: nil aSymbol: 'Sector' formToThumbnail: nil labeledItem: nil Receiver's instance variables: superclass: PasteUpMorph methodDict: a MethodDictionary(#innocuousName->(PartsBin>>#innocuousName "a CompiledMethod...etc... format: 65557 instanceVariables: nil organization: ('dropping/grabbing' morphToDropFrom: wantsDroppedMorph:event:) (...etc... subclasses: nil name: #PartsBin classPool: a Dictionary(#Thumbnails->a Dictionary('Annotations'->a Thumbnail(92...etc... sharedPools: nil environment: Smalltalk category: #'MorphicExtras-PartsBin' [] in PartsBin>>listDirection:quadList:buttonClass: Receiver: a PartsBin<Parts>(405319) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 521@419 corner: 919@583 owner: an ObjectsTool<Objects>(4102703) submorphs: {an IconicButton(2780364) . an IconicButton(845287) . an IconicButton...etc... fullBounds: 521@419 corner: 919@583 color: (Color r: 1 g: 0.911 b: 0.984) extension: a MorphExtension (639364) [externalName = Parts ] [other: (layoutP...etc... borderWidth: 1 borderColor: (Color r: 0.861 g: 1 b: 0.722) presenter: nil model: nil cursor: 1 padding: 3 backgroundMorph: nil turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: nil wantsMouseOverHalos: nil worldState: nil griddingOn: nil OrderedCollection>>do: Receiver: an OrderedCollection(#(#PolygonMorph #arrowPrototype 'Arrow' 'A line with an arrowhead. S...etc... Arguments and temporary variables: aBlock: [closure] in PartsBin>>listDirection:quadList:buttonClass: index: 18 Receiver's instance variables: array: #(#(#PolygonMorph #arrowPrototype 'Arrow' 'A line with an arrowhead. Sh...etc... firstIndex: 1 lastIndex: 20 PartsBin>>listDirection:quadList:buttonClass: Receiver: a PartsBin<Parts>(405319) Arguments and temporary variables: aListDirection: #leftToRight quadList: an OrderedCollection(#(#PolygonMorph #arrowPrototype 'Arrow' 'A line ...etc... buttonClass: IconicButton Receiver's instance variables: bounds: 521@419 corner: 919@583 owner: an ObjectsTool<Objects>(4102703) submorphs: {an IconicButton(2780364) . an IconicButton(845287) . an IconicButton...etc... fullBounds: 521@419 corner: 919@583 color: (Color r: 1 g: 0.911 b: 0.984) extension: a MorphExtension (639364) [externalName = Parts ] [other: (layoutP...etc... borderWidth: 1 borderColor: (Color r: 0.861 g: 1 b: 0.722) presenter: nil model: nil cursor: 1 padding: 3 backgroundMorph: nil turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: nil wantsMouseOverHalos: nil worldState: nil griddingOn: nil PartsBin>>listDirection:quadList: Receiver: a PartsBin<Parts>(405319) Arguments and temporary variables: aListDirection: #leftToRight quadList: an OrderedCollection(#(#PolygonMorph #arrowPrototype 'Arrow' 'A line ...etc... Receiver's instance variables: bounds: 521@419 corner: 919@583 owner: an ObjectsTool<Objects>(4102703) submorphs: {an IconicButton(2780364) . an IconicButton(845287) . an IconicButton...etc... fullBounds: 521@419 corner: 919@583 color: (Color r: 1 g: 0.911 b: 0.984) extension: a MorphExtension (639364) [externalName = Parts ] [other: (layoutP...etc... borderWidth: 1 borderColor: (Color r: 0.861 g: 1 b: 0.722) presenter: nil model: nil cursor: 1 padding: 3 backgroundMorph: nil turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: nil wantsMouseOverHalos: nil worldState: nil griddingOn: nil ObjectsTool>>installQuads:fromButton: Receiver: an ObjectsTool<Objects>(4102703) Arguments and temporary variables: quads: an OrderedCollection(#(#PolygonMorph #arrowPrototype 'Arrow' 'A line wit...etc... aButton: a SimpleButtonMorph(3690148) aPartsBin: a PartsBin<Parts>(405319) sortedQuads: an OrderedCollection(#(#PolygonMorph #arrowPrototype 'Arrow' 'A li...etc... oldResizing: #spaceFill Receiver's instance variables: bounds: 520@304 corner: 920@584 owner: a PasteUpMorph(2434915) [world] submorphs: {a PartsBin<Parts>(405319) . an AlignmentMorph<TabPane>(1239479) . a...etc... fullBounds: 520@304 corner: 920@584 color: (Color r: 1 g: 0.85 b: 0.975) extension: a MorphExtension (997972) [externalName = Objects ] [other: (layou...etc... borderWidth: 1 borderColor: (Color r: 0.9 g: 0.801 b: 0.2) searchString: nil modeSymbol: #categories [] in ObjectsTool>>showCategory:fromButton: Receiver: an ObjectsTool<Objects>(4102703) Arguments and temporary variables: aCategoryName: 'Graphics' aButton: a SimpleButtonMorph(3690148) quads: an OrderedCollection(#(#PolygonMorph #arrowPrototype 'Arrow' 'A line wit...etc... Receiver's instance variables: bounds: 520@304 corner: 920@584 owner: a PasteUpMorph(2434915) [world] submorphs: {a PartsBin<Parts>(405319) . an AlignmentMorph<TabPane>(1239479) . a...etc... fullBounds: 520@304 corner: 920@584 color: (Color r: 1 g: 0.85 b: 0.975) extension: a MorphExtension (997972) [externalName = Objects ] [other: (layou...etc... borderWidth: 1 borderColor: (Color r: 0.9 g: 0.801 b: 0.2) searchString: nil modeSymbol: #categories BlockClosure>>ensure: Receiver: [closure] in ObjectsTool>>showCategory:fromButton: Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor)>>showWhile: complete: nil returnValue: nil Receiver's instance variables: outerContext: ObjectsTool>>showCategory:fromButton: startpc: 137 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r11111111111111000000000...etc... Arguments and temporary variables: aBlock: [closure] in ObjectsTool>>showCategory:fromButton: oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@ -1 maskForm: Form(16x16x1) ObjectsTool>>showCategory:fromButton: Receiver: an ObjectsTool<Objects>(4102703) Arguments and temporary variables: aCategoryName: 'Graphics' aButton: a SimpleButtonMorph(3690148) Receiver's instance variables: bounds: 520@304 corner: 920@584 owner: a PasteUpMorph(2434915) [world] submorphs: {a PartsBin<Parts>(405319) . an AlignmentMorph<TabPane>(1239479) . a...etc... fullBounds: 520@304 corner: 920@584 color: (Color r: 1 g: 0.85 b: 0.975) extension: a MorphExtension (997972) [externalName = Objects ] [other: (layou...etc... borderWidth: 1 borderColor: (Color r: 0.9 g: 0.801 b: 0.2) searchString: nil modeSymbol: #categories --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #first SectorMorph>>computeBounds SectorMorph(PolygonMorph)>>borderStyle: SectorMorph(BorderedMorph)>>borderInitialize SectorMorph(BorderedMorph)>>initialize SectorMorph(PolygonMorph)>>initialize SectorMorph>>initialize SectorMorph(Morph)>>initializeToStandAlone SectorMorph class(Morph class)>>newStandAlone PartsBin class>>thumbnailForQuad:color: [] in PartsBin>>listDirection:quadList:buttonClass: OrderedCollection>>do: PartsBin>>listDirection:quadList:buttonClass: PartsBin>>listDirection:quadList: ObjectsTool>>installQuads:fromButton: [] in ObjectsTool>>showCategory:fromButton: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ObjectsTool>>showCategory:fromButton: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SimpleButtonMorph>>doButtonAction SimpleButtonMorph>>mouseDown: SimpleButtonMorph(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: SimpleButtonMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: [] in MorphicEventDispatcher>>dispatchMouseDown:with: BlockClosure>>ensure: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: SimpleButtonMorph(Morph)>>processEvent:using: [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Array(SequenceableCollection)>>do: AlignmentMorph(Morph)>>submorphsDo: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: [] in MorphicEventDispatcher>>dispatchMouseDown:with: BlockClosure>>ensure: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: AlignmentMorph(Morph)>>processEvent:using: [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Array(SequenceableCollection)>>do: ObjectsTool(Morph)>>submorphsDo: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: [] in MorphicEventDispatcher>>dispatchMouseDown:with: BlockClosure>>ensure: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: ObjectsTool(Morph)>>processEvent:using: [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Array(SequenceableCollection)>>do: PasteUpMorph(Morph)>>submorphsDo: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: [] in MorphicEventDispatcher>>dispatchMouseDown:with: BlockClosure>>ensure: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph(Morph)>>processEvent:using: [] in PasteUpMorph>>processEvent:using: -- and more not shown --

2 1

The Trunk: EToys-mt.328.mcz
by commits＠source.squeak.org 12 May '18

12 May '18

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.328.mcz ==================== Summary ==================== Name: EToys-mt.328 Author: mt Time: 12 May 2018, 10:57:29.401582 am UUID: 5269f6c3-6d89-294a-a49c-dbd1381b3eb4 Ancestors: EToys-mt.327 Duplicate a check from PolygonMorph in SectorMorph. Would be nice if we could see if a super call had an early exit. :-) There are several examples in the image such as Morph >> #extent: and the #closeTo: check. =============== Diff against EToys-mt.327 =============== Item was changed: ----- Method: SectorMorph>>computeBounds (in category 'updating') ----- computeBounds super computeBounds. + vertices ifNil: [^ self]. self setRotationCenterFrom: vertices first!

1 0

A suggestion: allowing ctrl+drag in morphs
by Stéphane Rollandin 11 May '18

11 May '18

Currently, it is not straightforward to define a ctrl+drag behavior for a morph when preference cmdGesturesEnabled is true (the case by default), because mouseDown when the control key is pressed opens a menu. I did implement this for muO though. In 6.0, it is very easy to do; we just need to add a line in the following method: ----------------------- PasteUpMorph>>tryInvokeMetaMenu: anEvent | innerMost target | Preferences cmdGesturesEnabled ifFalse: [^ self]. Preferences eToyFriendly ifTrue: [^ self]. innerMost := (self morphsAt: anEvent position unlocked: true) first. innerMost honorsCtrlMetaMenu ifFalse: [^ self]. "<=== here" "Traverse the owner chain if some morph does not want to show its meta menu." target := innerMost. [target isNil or: [target wantsMetaMenu]] whileFalse: [target := target owner]. target ifNil: [^ self]. target invokeMetaMenu: anEvent. anEvent ignore. ------------------------ ... with Morph>>#honorsCtrlMetaMenu returning true (so the current behavior does not change), overriden to false by any morph wanting to implement a ctrl+drag behavior. Stef

3 10

← Newer
1
...
10
11
12
13
14
15
16
...
19
Older →

Jump to page: