Squeak-dev May 2011

squeak-dev@lists.squeakfoundation.org

84 participants
303 discussions

The Inbox: Morphic-ul.544.mcz
by commits＠source.squeak.org 29 May '11

29 May '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ul.544.mcz ==================== Summary ==================== Name: Morphic-ul.544 Author: ul Time: 29 May 2011, 7:50:51.766 pm UUID: 3380e546-7615-5844-8c23-5098e78b2f92 Ancestors: Morphic-bf.543 Don't install doits into MethodDictionaries. =============== Diff against Morphic-bf.543 =============== Item was changed: ----- Method: TextEditor>>debug:receiver:in: (in category 'do-its') ----- debug: aCompiledMethod receiver: anObject in: evalContext + | guineaPig debugger context | + guineaPig := [ + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) + executeMethod: aCompiledMethod ] newProcess. - | selector guineaPig debugger context | - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. - guineaPig := evalContext isNil - ifTrue: [[anObject DoIt] newProcess] - ifFalse: [[anObject DoItIn: evalContext] newProcess]. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: nil context: context. debugger openFullNoSuspendLabel: 'Debug it'. + [ debugger interruptedContext method == aCompiledMethod ] + whileFalse: [ debugger send ]! - [debugger interruptedContext method == aCompiledMethod] - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector!

1 0

The Inbox: Tools-ul.357.mcz
by commits＠source.squeak.org 29 May '11

29 May '11

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ul.357.mcz ==================== Summary ==================== Name: Tools-ul.357 Author: ul Time: 29 May 2011, 7:51:18.372 pm UUID: 9b7529a4-621a-0440-b9aa-3d99daefe41e Ancestors: Tools-ul.356 Don't install doits into MethodDictionaries. =============== Diff against Tools-ul.356 =============== Item was changed: ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') ----- debug: aCompiledMethod receiver: anObject in: evalContext + | guineaPig debugger context | + guineaPig := [ + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) + executeMethod: aCompiledMethod ] newProcess. - | selector guineaPig debugger context | - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. - guineaPig := evalContext isNil - ifTrue: [[anObject DoIt] newProcess] - ifFalse: [[anObject DoItIn: evalContext] newProcess]. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) ifTrue: [ScheduledControllers activeController] ifFalse: [nil]) context: context. debugger openFullNoSuspendLabel: 'Debug it'. [debugger interruptedContext method == aCompiledMethod] + whileFalse: [debugger send]! - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector!

1 0

Re: Block closure and scope problem
by Rodney Polkinghorne 28 May '11

28 May '11

Levente Uzonyi, replying to me: > self means the defining method's receiver In other words, [ self ] refers to the same thing as self. That makes sense. > Here ^ means return from the defining method. That's what I was missing: answering a message differs from returning from a block. Thank you. Bert Freudenberg: > your approach is very unusual for Smalltalk. Smells lispy to me. I expected someone might say that. > Blocks are typically used to make a single class customizable I want DotMorph's instances to derive their position from a complex number, elements 5 and 7 of a particular array, or whatever. This is my reaction to StarMorph storing 20 vertices as 40 numbers, only 6 of which are independent: the center, orientation, number of points, and radii. I'd prefer a PolygonMorph that derived each vertex from the same data, but in different ways. Dots seemed like a good place to start. It's possible - likely - that I've missed the intent of Morphic's design, and there's a good reason for StarMorph to do that. I'm learning Morphic by trial and error, and would be very happy to find a better way. Why have a subclass at all? To provide an instance variable in case there's nowhere better to store the locus. (So the locus is stored literally, instead of being derived from an abstract representation.) My intent was a subclass-specific representation, with the same behavior and the same mechanism as the general case. Thanks for your help. Rodney

2 1

NetNameResolver localHostAddress returns 0.0.0.0 in FreeBSD
by Gary Dunn 28 May '11

28 May '11

Mantis 7624. Originally reported as an error pulling out a badge. Investigation reveals that the primitive is failing to return the local IP address. <primitive: 'primitiveResolverLocalAddress' module: 'SocketPlugin'> in class NetNameResolver. Works correctly in Win7 and Mac OS X. FreeBSD has a reputation of dealing with network configuration differently than Linux. -- Gary Dunn Honolulu

6 14

Daily Commit Log
by commits＠source.squeak.org 28 May '11

28 May '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-May/004734.html Name: CollectionsTests-topa.185 Ancestors: CollectionsTests-nice.184 Mall testcase for RWBinaryOrTextStream on exisiting collections. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004735.html Name: Graphics-cmm.183 Ancestors: Graphics-nice.182 Added remaining Rectangle position accessors (besides just #center) to Form, for placement convenience. =============================================

1 0

[Pharo-project] cog vm for iOS
by Chris Cunnington 27 May '11

27 May '11

>About Android: A Squeak version by Andreas Raab (proof of concept) >made it to the market, but seems to be unmaintained. Is there any >information, about how it was done, what the caveats are and how this >might leverage smalltalk development on Android? http://code.google.com/p/squeak-android-vm/ I bought a Xoom on Monday and downloaded Squeak onto it from Android Market. It works. It's very small. And there's no keyboard. There is no Squeak on the Apple App Store and likely will never be. I'm beyond caring at this point. You need to download the Android SDK and then because you're building a non-Java app you need to download the NDK (N for Native.) All of this is built into Eclipse. Andreas provides all the files you load into the NDK/jni compiling suite. You get a set of vm C files for compiling. He wrote one that bridges to Android called squeakvm.c. Then you compile a file called libsqueakvm.so. He's included an image, which for reasons I haven't reached yet has been sliced into 12 1M pieces. He also wrote some Java files, which act as a wrapper between Android and Squeak. They handle the Android "Aspect" and "Intent" or something. I just got the books so it's a bit hazy. Oh, the Dalvik debugger is essential. And RFB is used for some reason I can't fathom yet. And development happens using an emulator provided by the Android SDK. Whether I'm supposed to build or find the device description (the AVD - for Android Virtual Device) at this point that describes the Xoom, I'm not sure. It's a pretty fun exploration. Now you know all I do. Really, I just want to make the screen bigger. That's related to this in squeakvm.c: sqInt ioScreenSize(void) { return ( 800<< 16 ) | (600) } I have no idea how a left bit shift produces a screen size near the 300x200 pixels that I get on my Xoom. But if I knew what I was doing I wouldn't do it. Chris

6 6

The Trunk: Graphics-cmm.183.mcz
by commits＠source.squeak.org 27 May '11

27 May '11

Chris Muller uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-cmm.183.mcz ==================== Summary ==================== Name: Graphics-cmm.183 Author: cmm Time: 27 May 2011, 2:35:44.268 pm UUID: 08000000-1508-b80b-1508-b80b14000000 Ancestors: Graphics-nice.182 Added remaining Rectangle position accessors (besides just #center) to Form, for placement convenience. =============== Diff against Graphics-nice.182 =============== Item was added: + ----- Method: Form>>bottomCenter (in category 'display box access') ----- + bottomCenter + ^ self boundingBox bottomCenter! Item was changed: + ----- Method: Form>>center (in category 'display box access') ----- - ----- Method: Form>>center (in category 'accessing') ----- center + ^ self boundingBox center! - "Note that offset is ignored here. Are we really going to embrace offset? " - ^ (width @ height) // 2! Item was changed: + ----- Method: Form>>height (in category 'display box access') ----- - ----- Method: Form>>height (in category 'accessing') ----- height ^ height! Item was added: + ----- Method: Form>>leftCenter (in category 'display box access') ----- + leftCenter + ^ self boundingBox leftCenter! Item was added: + ----- Method: Form>>rightCenter (in category 'display box access') ----- + rightCenter + ^ self boundingBox rightCenter! Item was added: + ----- Method: Form>>topCenter (in category 'display box access') ----- + topCenter + ^ self boundingBox topCenter! Item was changed: + ----- Method: Form>>width (in category 'display box access') ----- - ----- Method: Form>>width (in category 'accessing') ----- width ^ width!

1 0

Re: [Pharo-project] cog vm for iOS
by Chris Cunnington 27 May '11

27 May '11

"Because for some inexplicable reason, you could not load assets larger than 1MB in a chunk when I tried. So I said #@!$%^W^W^W^W thank you Google, and split 'em up :-) et alia " Thank you for the explanations of my cursory observations. They will certainly speed the process. Chris

1 0

Block closure and scope problem
by Rodney Polkinghorne 27 May '11

27 May '11

Hi all I'm trying to build a morph whose co-ordinates are set by blocks. My current attempt is below. When I did "(LiteralDot locus: 100@100) openInWorld" in a workspace, the call of locusGetter in computeBounds raised a "Block can not return" error. The debugger and inspector present a trail of BlockContexts and MessageContexts. This failed to enlighten me. I haven't a clue what self and super refer to in a closure, but I thought I knew how lexical variables worked. Apparently not. Would anyone care to explain, or point me to an explanation? Rodney Change set follows: 'From Squeak4.2 of 4 February 2011 [latest update: #10966] on 27 May 2011 at 4:40:43 pm'! Smalltalk renameClassNamed: #StickMorph as: #DotMorph! Morph subclass: #DotMorph instanceVariableNames: 'locusGetter locusSetter' classVariableNames: '' poolDictionaries: '' category: 'UserObjects'! !DotMorph commentStamp: 'resp 5/27/2011 16:27' prior: 0! I am a dot 4 pixels in diameter. My center is computed by a block, which is stored in my instance variable locusGetter. Subclasses should initialize this before I am drawn.! Smalltalk renameClassNamed: #ToyStick as: #LiteralDot! DotMorph subclass: #LiteralDot instanceVariableNames: 'locus' classVariableNames: '' poolDictionaries: '' category: 'UserObjects'! !LiteralDot commentStamp: 'resp 5/27/2011 16:35' prior: 0! I am a dot, whose position is stored explicitly in my instance variable locus. My constructor sends me an initializeBlocks message. This sets my locusGetter to a block that is supposed to return the value of that variable. It actually raises a "cannot return" error.! !DotMorph methodsFor: 'as yet unclassified' stamp: 'resp 5/27/2011 16:28'! drawOn: aCanvas self computeBounds. aCanvas fillOval: self bounds color: Color black.! ! !DotMorph methodsFor: 'private' stamp: 'resp 5/27/2011 16:28'! computeBounds bounds := Rectangle center: locusGetter value extent: 4! ! !DotMorph methodsFor: 'private' stamp: 'resp 5/27/2011 16:28'! locusGetter: aBlock locusGetter := aBlock. ! ! !LiteralDot methodsFor: 'accessing' stamp: 'resp 5/27/2011 16:09'! locus: aPoint locus := aPoint! ! !LiteralDot methodsFor: 'as yet unclassified' stamp: 'resp 5/27/2011 16:10'! initializeBlocks "This must be an instance method for the blocks to close over the right environment." self locusGetter: [ ^ locus ]; locusSetter: [ :p | locus := p ]! ! !LiteralDot class methodsFor: 'as yet unclassified' stamp: 'resp 5/27/2011 16:08'! locus: aPoint ^ (super new) initializeBlocks; locus: aPoint ! ! !LiteralDot reorganize! ('accessing' locus:) ('as yet unclassified' initializeBlocks) ! DotMorph removeSelector: #locusSetter:! !DotMorph reorganize! ('as yet unclassified' drawOn:) ('private' computeBounds locusGetter:) !

3 2

The Trunk: CollectionsTests-topa.185.mcz
by commits＠source.squeak.org 27 May '11

27 May '11

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-topa.185.mcz ==================== Summary ==================== Name: CollectionsTests-topa.185 Author: topa Time: 23 May 2011, 1:50:29.396 pm UUID: 8e536e32-1fb9-4bdd-8d4b-3088b46e41a9 Ancestors: CollectionsTests-nice.184 Mall testcase for RWBinaryOrTextStream on exisiting collections. =============== Diff against CollectionsTests-nice.184 =============== Item was added: + ----- Method: RWBinaryOrTextStreamTest>>testExisiting (in category 'tests') ----- + testExisiting + + | string stream | + + string := 'hello'. + + stream := RWBinaryOrTextStream on: string. + self assert: stream contents = string. + + stream := RWBinaryOrTextStream on: string. + stream setToEnd. + self assert: stream position = string size. + !

1 0

← Newer
1
2
3
4
5
6
7
...
31
Older →

Jump to page: