Squeak-dev November 2015

squeak-dev@lists.squeakfoundation.org

40 participants
251 discussions

It's not yet clear how serialization should work in the presence of environments
by David T. Lewis 30 Nov '15

30 Nov '15

Currently we have: Binding>>objectForDataStream: refStream "It's not yet clear how serialization should work in the presence of environments" self shouldBeImplemented. This prevents us from being able to save projects to local disk in Squeak trunk. See Mantis entry at: http://bugs.squeak.org/view.php?id=7814 Any thoughts as to how this should be implemented? Taking the method comment literally, I would expect that serialization in the presence of environments should work identically to serialization in the absence of environments, at least as a default behavior. I suspect that is not hard to make this happen, but I don't know how to do it. Dave

5 6

Daily Commit Log
by commits＠source.squeak.org 28 Nov '15

28 Nov '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-November/009200.h… Name: Environments-cwp.60 Ancestors: Environments-kfr.59 Always serialize Bindings as DiskProxies. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009201.h… Name: System-cwp.781 Ancestors: System-mt.780 Remove specialized serialization of Associations. Since associations are no longer used as globals, we never need to serialize them using DiskProxy. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009202.h… Name: System-cwp.782 Ancestors: System-cwp.781 Reload DiskProxies using the current environment When looking up objects from the destination image, DiskProxies should use the current environment, rather than referring to to Smalltalk. This lets objects on disk be loaded into arbitrary environments. =============================================

1 0

The Inbox: Morphic-jmg.1055.mcz
by commits＠source.squeak.org 28 Nov '15

28 Nov '15

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-jmg.1055.mcz ==================== Summary ==================== Name: Morphic-jmg.1055 Author: jmg Time: 27 November 2015, 11:34:49.151 pm UUID: 2866bfd1-711c-4f03-b944-b8d4adb0f6cb Ancestors: Morphic-mt.1054 If you're like me and have the swapMouseButtons perference unselected because you are on windows, then right-clicking on a morph and picking the 'select' menu item raises an exception because popUpFor:at:hand: is expecting a position for the at: argument, and currently this sends in a MouseEvent transformed by the relevant amount. We need to take one additional step and extract the position from this newly translated event, which I do in this change. =============== Diff against Morphic-mt.1054 =============== Item was changed: ----- Method: SimpleHaloMorph>>popUpFor:hand: (in category 'pop up') ----- popUpFor: morph hand: hand self popUpFor: morph + at: (hand lastEvent transformedBy: (morph transformedFrom: nil)) position - at: (hand lastEvent transformedBy: (morph transformedFrom: nil)) hand: hand!

1 0

The Inbox: Morphic-cwp.1055.mcz
by commits＠source.squeak.org 28 Nov '15

28 Nov '15

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-cwp.1055.mcz ==================== Summary ==================== Name: Morphic-cwp.1055 Author: cwp Time: 27 November 2015, 9:46:27.986 pm UUID: 75600228-b4f9-4739-b9c8-0318e1ef1d3a Ancestors: Morphic-mt.1054 Implement PasteUpMorph>>referencePool Loading a project seems to require it. =============== Diff against Morphic-mt.1054 =============== Item was added: + ----- Method: PasteUpMorph>>referencePool (in category 'objects from disk') ----- + referencePool + | pool | + pool := OrderedCollection new. + self setProperty: #References toValue: pool. + ^ pool!

1 0

The Trunk: System-cwp.782.mcz
by commits＠source.squeak.org 28 Nov '15

28 Nov '15

Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.782.mcz ==================== Summary ==================== Name: System-cwp.782 Author: cwp Time: 27 November 2015, 9:00:42.904 pm UUID: ae1f1166-0438-4e78-8ded-46c59c212210 Ancestors: System-cwp.781 Reload DiskProxies using the current environment When looking up objects from the destination image, DiskProxies should use the current environment, rather than referring to to Smalltalk. This lets objects on disk be loaded into arbitrary environments. =============== Diff against System-cwp.781 =============== Item was changed: ----- Method: DiskProxy>>comeFullyUpOnReload: (in category 'i/o') ----- comeFullyUpOnReload: smartRefStream "Internalize myself into a fully alive object after raw loading from a DataStream. (See my class comment.) DataStream will substitute the object from this eval for the DiskProxy." + | globalObj symbol pr nn arrayIndex env | - | globalObj symbol pr nn arrayIndex | - self flag: #environments. symbol := globalObjectName. "See if class is mapped to another name" (smartRefStream respondsTo: #renamed) ifTrue: [ "If in outPointers in an ImageSegment, remember original class name. See mapClass:installIn:. Would be lost otherwise." ((thisContext sender sender sender sender sender sender sender sender receiver class == ImageSegment) and: [ thisContext sender sender sender sender method == (DataStream compiledMethodAt: #readArray)]) ifTrue: [ arrayIndex := (thisContext sender sender sender sender) tempAt: 4. "index var in readArray. Later safer to find i on stack of context." smartRefStream renamedConv at: arrayIndex put: symbol]. "save original name" symbol := smartRefStream renamed at: symbol ifAbsent: [symbol]]. "map" + env := Environment current. + globalObj := env valueOf: symbol ifAbsent: [ - globalObj := Smalltalk at: symbol ifAbsent: [ preSelector == nil & (constructorSelector = #yourself) ifTrue: [ Transcript cr; show: symbol, ' is undeclared.'. + env undeclare: symbol. - (Undeclared includesKey: symbol) ifTrue: [^ Undeclared at: symbol]. - Undeclared at: symbol put: nil. ^ nil]. ^ self error: 'Global "', symbol, '" not found']. ((symbol == #World) and: [Smalltalk isMorphic not]) ifTrue: [ self inform: 'These objects will work better if opened in a Morphic World. Dismiss and reopen all menus.']. preSelector ifNotNil: [ Symbol hasInterned: preSelector ifTrue: [:selector | [globalObj := globalObj perform: selector] on: Error do: [:ex | ex messageText = 'key not found' ifTrue: [^ nil]. ^ ex signal]] ]. symbol == #Project ifTrue: [ (constructorSelector = #fromUrl:) ifTrue: [ nn := (constructorArgs first findTokens: '/') last. nn := (nn findTokens: '.|') first. pr := Project named: nn. ^ pr ifNil: [self] ifNotNil: [pr]]. pr := globalObj perform: constructorSelector withArguments: constructorArgs. ^ pr ifNil: [self] ifNotNil: [pr]]. "keep the Proxy if Project does not exist" constructorSelector ifNil: [^ globalObj]. Symbol hasInterned: constructorSelector ifTrue: [:selector | [^ globalObj perform: selector withArguments: constructorArgs] on: Error do: [:ex | ex messageText = 'key not found' ifTrue: [^ nil]. ^ ex signal] ]. "args not checked against Renamed" ^ nil "was not in proper form"!

1 0

The Trunk: System-cwp.781.mcz
by commits＠source.squeak.org 28 Nov '15

28 Nov '15

Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.781.mcz ==================== Summary ==================== Name: System-cwp.781 Author: cwp Time: 27 November 2015, 5:22:38.591 pm UUID: c0ffbab7-f7ee-4966-ba07-d57436ac42f2 Ancestors: System-mt.780 Remove specialized serialization of Associations. Since associations are no longer used as globals, we never need to serialize them using DiskProxy. =============== Diff against System-mt.780 =============== Item was removed: - ----- Method: Association>>objectForDataStream: (in category '*System-Object Storage-objects from disk') ----- - objectForDataStream: refStrm - | dp | - "I am about to be written on an object file. If I am a known global, write a proxy that will hook up with the same resource in the destination system." - self flag: #environments. - - ^ (Smalltalk globals associationAt: key ifAbsent: [nil]) == self - ifTrue: [dp := DiskProxy global: #Smalltalk selector: #associationOrUndeclaredAt: - args: (Array with: key). - refStrm replace: self with: dp. - dp] - ifFalse: [self]!

1 0

The Trunk: Environments-cwp.60.mcz
by commits＠source.squeak.org 28 Nov '15

28 Nov '15

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.60.mcz ==================== Summary ==================== Name: Environments-cwp.60 Author: cwp Time: 27 November 2015, 5:14:36.376 pm UUID: c8836cde-f21e-4652-a2e9-73f8de6f00e0 Ancestors: Environments-kfr.59 Always serialize Bindings as DiskProxies. =============== Diff against Environments-kfr.59 =============== Item was changed: ----- Method: Binding>>objectForDataStream: (in category 'as yet unclassified') ----- objectForDataStream: refStrm + "I am about to be written on an object file. I am a global, so write a proxy that + will hook up with the same resource in the destination system." - | dp | - "I am about to be written on an object file. If I am a known global, write a proxy that will hook up with the same resource in the destination system." - self flag: #environments. + | dp | + dp := DiskProxy + global: #Smalltalk + selector: #associationOrUndeclaredAt: + args: (Array with: key). + refStrm replace: self with: dp. + ^ dp! - ^ (Smalltalk globals associationAt: key ifAbsent: [nil]) == self - ifTrue: [dp := DiskProxy global: #Smalltalk selector: #associationOrUndeclaredAt: - args: (Array with: key). - refStrm replace: self with: dp. - dp] - ifFalse: [self]!

1 0

How does runLocalStepMethodsIn: aWorld work?
by Stephan Eggermont 27 Nov '15

27 Nov '15

Looking at how to do autoscrolling when drag-holding, we ran into: WorldState>>runLocalStepmethodsIn: aWorld does interesting things with the lastStepMessage. Can anyone explain how this works? Why does it not do anything with lastStepMessage value: now. and then test for lastStepMessage ifNotNil: There's a comment about buggy morphs. Were they so buggy that they did a become on a message send? Or do I totally misunderstand this stuff? Stephan

2 3

Raspberry Pi Zero (5USD) with Scratch (Re: Use of the Scratch program in the UK? (Re: [squeak-dev] The Inbox: Nebraska-tpr.42.mcz))
by H. Hirzel 27 Nov '15

27 Nov '15

https://www.youtube.com/watch?v=NFFQmdUc5Vg&feature=youtu.be&a at 4:17 shows the Raspberry Pi Zero (a 5USD computer) running Scratch On 11/24/15, H. Hirzel <hannes.hirzel(a)gmail.com> wrote: > On 11/24/15, H. Hirzel <hannes.hirzel(a)gmail.com> wrote: >> On 11/24/15, David T. Lewis <lewis(a)mail.msen.com> wrote: >>> On Mon, Nov 23, 2015 at 11:30:44PM +0100, karl ramberg wrote: >>>> On Mon, Nov 23, 2015 at 11:17 PM, tim Rowledge <tim(a)rowledge.org> >>>> wrote: >>>> >>>> > >>>> > > On 23-11-2015, at 1:16 PM, Chris Muller <asqueaker(a)gmail.com> >>>> > > wrote: >>>> > > >>>> > > Is this so that Scratch users won't have to see the pre-debugger? >>>> > >>>> > Nah, the Scratch code handles it in ScratchSoundRecroderDialog or >>>> > some-such. These couple of changes are simply suggestions for more >>>> > politely >>>> > handling a possible problem in a way that is a touch less painful >>>> > than >>>> > a >>>> > primitiveFailed within a critical block. If people prefer the plain >>>> > notifier for an unhandled Warning, fine. >>>> > >>>> > ChatNotes etc are not used by Scratch - though enabling group chat >>>> > could >>>> > be fun... >>>> > >>>> > > If >>>> > > a Scratch kid gets a debugger and clicks "Debug" isntead of >>>> > > "Abanadon". They might get confused or they might learn >>>> > > something..? >>>> > >>>> > I suspect a teacher of a class of 30-40 8 year olds trying to keep >>>> > their >>>> > minds on the required lesson might not see it as at all amusing. >>>> > Remember, >>>> > Scratch usage is now part of the national curriculum in the UK. >>>> > >>>> >>>> Oh, that's really big. >>>> Hope they enjoy it :-) >>>> >>> >>> Indeed, it sounds like a pretty big deal, but not something that I would >>> have remembered since I did not know about it in the first place. Tim, >>> can you provide a link to "Scratch usage is now part of the national >>> curriculum in the UK"? >> >> So far I found >> >> http://www.naace.co.uk/curriculum/primaryguide >> >> Page 14 shows a screen with scratch. This is from an association of >> UK ICT teachers. >> >> There are web pages from the UK government but I did not find the >> reference >> yet. > > And here an announcement for teachers to learn about Scratch in Jan 2016 > > https://www.sciencelearningcentres.org.uk/cpd/ondemand/fc0b576e-61a4-46b8-a… > > > "Experience a number of different methods to develop both your skills > in Scratch and the teaching techniques that you can use to make it > work for you and your students." > > "This course takes you through the principles of the computing > curriculum coding programming, giving you ‘hand on’ opportunities to > experience a number of different methods hands on time to develop > both your skills in Scratch and the teaching techniques that you can > use to make it work for you and your students. In 2 days, we will take > you from creating simple programs to the exciting coded world of > creating your own computer games." > > > >> --Hannes >> >> >>> And when they say "Scratch" does it mean the real one, or the "improved" >>> version that was reimplemented in a soon-to-be-dead language by wannabe >>> IT managers? >>> >>> Dave >>> >>> >>> >> >

4 4

Daily Commit Log
by commits＠source.squeak.org 26 Nov '15

26 Nov '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-November/009199.h… Name: Squeak-Version-kfr.4713 Ancestors: Squeak-Version-kfr.4712 Unload and unregister Universes =============================================

1 0

Jump to page: