Squeak-dev October 2011

squeak-dev@lists.squeakfoundation.org

47 participants
160 discussions

The Trunk: System-ul.455.mcz
by commits＠source.squeak.org 05 Oct '11

05 Oct '11

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.455.mcz ==================== Summary ==================== Name: System-ul.455 Author: ul Time: 4 October 2011, 8:16:21.967 pm UUID: 44122f6e-d177-1040-8c67-84cd32ac9f88 Ancestors: System-eem.454, System-ul.454 - use #becomeForward: instead of #become: if possible - merged System-ul.454 =============== Diff against System-eem.454 =============== Item was changed: ----- Method: SARInstaller>>fileInPackageNamed: (in category 'client services') ----- fileInPackageNamed: memberName "This is to be used from preamble/postscript code to file in zip members as DVS packages." | member current new baseName imagePackageLoader packageInfo streamPackageLoader packageManager | member := self zip memberNamed: memberName. member ifNil: [ ^self errorNoSuchMember: memberName ]. imagePackageLoader := Smalltalk at: #ImagePackageLoader ifAbsent: []. streamPackageLoader := Smalltalk at: #StreamPackageLoader ifAbsent: []. packageInfo := Smalltalk at: #PackageInfo ifAbsent: []. packageManager := Smalltalk at: #FilePackageManager ifAbsent: []. "If DVS isn't present, do a simple file-in" (packageInfo isNil or: [imagePackageLoader isNil or: [streamPackageLoader isNil]]) ifTrue: [ ^ self fileInMemberNamed: memberName ]. + baseName := memberName copyReplaceAll: '.st' with: ''. - baseName := memberName copyReplaceAll: '.st' with: '' asTokens: false. (packageManager allManagers anySatisfy: [ :pm | pm packageName = baseName ]) ifTrue: [ current := imagePackageLoader new package: (packageInfo named: baseName). new := streamPackageLoader new stream: member contentStream ascii. (new changesFromBase: current) fileIn ] ifFalse: [ self class fileIntoChangeSetNamed: baseName fromStream: member contentStream ascii setConverterForCode. ]. packageManager registerPackage: baseName. self installed: member.! Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 56. "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self associationAt: #Processor). "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: Float. newArray at: 11 put: MethodContext. newArray at: 12 put: BlockContext. newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: (self specialObjectsArray at: 18). "(low space Semaphore)" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order. Cog inlines table into machine code at: prim so do not regenerate it." newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: (self specialObjectsArray at: 30). "(delay Semaphore)" newArray at: 31 put: (self specialObjectsArray at: 31). "(user interrupt Semaphore)" "Prototype instances that can be copied for fast initialization" newArray at: 32 put: (Float new: 2). newArray at: 33 put: (LargePositiveInteger new: 4). newArray at: 34 put: Point new. newArray at: 35 put: #cannotInterpret:. "Note: This must be fixed once we start using context prototypes (yeah, right)" "(MethodContext new: CompiledMethod fullFrameSize)." newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)" newArray at: 37 put: BlockClosure. "(BlockContext new: CompiledMethod fullFrameSize)." newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" "array of objects referred to by external code" newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" newArray at: 41 put: nil. "Reserved for a LinkedList instance for overlapped calls in CogMT" "finalization Semaphore" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" "newArray at: 51 put: #attemptToAssign:withIndex:." newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move'). "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallback:stack:registers:jmpbuf:. newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). "Weak reference finalization" newArray at: 56 put: (self at: #WeakFinalizationList ifAbsent: []). "Now replace the interpreter's reference in one atomic operation" + self specialObjectsArray becomeForward: newArray - self specialObjectsArray become: newArray !

1 0

The Trunk: ST80-ul.137.mcz
by commits＠source.squeak.org 05 Oct '11

05 Oct '11

Levente Uzonyi uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-ul.137.mcz ==================== Summary ==================== Name: ST80-ul.137 Author: ul Time: 4 October 2011, 8:19:05.394 pm UUID: 7aaddc8c-1a28-274f-97bb-acdfe76b5307 Ancestors: ST80-nice.136 - use #becomeForward: instead of #become: =============== Diff against ST80-nice.136 =============== Item was changed: ----- Method: FormHolderView>>cancel (in category 'menu messages') ----- cancel "Refer to the comment in FormView|cancel." + displayedForm becomeForward: model deepCopy. - displayedForm become: model deepCopy. displayedForm changed: self. self display! Item was changed: ----- Method: StandardSystemController>>toggleTwoTone (in category 'menu messages') ----- toggleTwoTone (view isMemberOf: StandardSystemView) ifTrue: + [^ view becomeForward: (view as: ColorSystemView)]. - [^ view become: (view as: ColorSystemView)]. (view isMemberOf: ColorSystemView) ifTrue: + [^ view becomeForward: (view as: StandardSystemView)]. - [^ view become: (view as: StandardSystemView)]. !

1 0

The Trunk: MorphicExtras-ul.103.mcz
by commits＠source.squeak.org 05 Oct '11

05 Oct '11

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.103.mcz ==================== Summary ==================== Name: MorphicExtras-ul.103 Author: ul Time: 4 October 2011, 8:19:37.501 pm UUID: d215a08d-671b-d74b-8e09-3c89f3c3d183 Ancestors: MorphicExtras-ul.102 - use #becomeForward: instead of #become: =============== Diff against MorphicExtras-ul.102 =============== Item was changed: ----- Method: SqueakPage>>purge (in category 'saving') ----- purge "Replace my morph with a tombstone, if I am not in a world that is being shown." (self prePurge) ifNotNil: [ + contentsMorph becomeForward: (MorphObjectOut new xxxSetUrl: url page: self)]. - contentsMorph become: (MorphObjectOut new xxxSetUrl: url page: self)]. "Simple, isn't it!!"! Item was changed: ----- Method: TabMorph>>convertToReferenceMorph (in category 'as yet unclassified') ----- convertToReferenceMorph | aMorph | aMorph := ReferenceMorph new referent: morphToInstall. aMorph position: self position. + self becomeForward: aMorph.! - self become: aMorph.!

1 0

The Trunk: Morphic-ul.582.mcz
by commits＠source.squeak.org 05 Oct '11

05 Oct '11

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.582.mcz ==================== Summary ==================== Name: Morphic-ul.582 Author: ul Time: 4 October 2011, 8:20:24.92 pm UUID: 96276fc0-dc10-1f44-8908-dcb9b0673e38 Ancestors: Morphic-bf.581 - use #becomeForward: instead of #become: - fix for Mantis #7674 http://bugs.squeak.org/view.php?id=7674 =============== Diff against Morphic-bf.581 =============== Item was changed: ----- Method: Morph>>subclassMorph (in category 'meta-actions') ----- subclassMorph "Create a new subclass of this morph's class and make this morph be an instance of it." + | oldClass newClassName newClass | - | oldClass newClassName newClass newMorph | oldClass := self class. newClassName := UIManager default request: 'Please give this new class a name' initialAnswer: oldClass name. newClassName = '' ifTrue: [^ self]. (Smalltalk includesKey: newClassName) ifTrue: [^ self inform: 'Sorry, there is already a class of that name']. newClass := oldClass subclass: newClassName asSymbol instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: oldClass category asString. + self becomeForward: (self as: newClass)! - newMorph := self as: newClass. - self become: newMorph. - ! Item was changed: ----- Method: PluggableListMorph>>basicKeyPressed: (in category 'model access') ----- basicKeyPressed: aChar | milliseconds slowKeyStroke listSize newSelectionIndex oldSelectionIndex startIndex | oldSelectionIndex := newSelectionIndex := self getCurrentSelectionIndex. listSize := self getListSize. milliseconds := Time millisecondClockValue. slowKeyStroke := (Time milliseconds: milliseconds since: lastKeystrokeTime) > 300. lastKeystrokeTime := milliseconds. slowKeyStroke ifTrue: ["forget previous keystrokes and search in following elements" lastKeystrokes := aChar asLowercase asString. newSelectionIndex := newSelectionIndex \\ listSize + 1 ] ifFalse: ["append quick keystrokes but don't move selection if it still matches" + lastKeystrokes := lastKeystrokes , aChar asLowercase asString. + newSelectionIndex := newSelectionIndex max: 1 ]. - lastKeystrokes := lastKeystrokes , aChar asLowercase asString ]. "No change if model is locked" model okToChange ifFalse: [ ^self ]. "Get rid of blanks and style used in some lists" startIndex := newSelectionIndex. [ (self getListItem: newSelectionIndex) asString withBlanksTrimmed asLowercase beginsWith: lastKeystrokes ] whileFalse: [ (newSelectionIndex := newSelectionIndex \\ listSize + 1) = startIndex ifTrue: [ ^self flash. "Not in list." ] ]. newSelectionIndex = oldSelectionIndex ifTrue: [ ^self flash ]. "Same selection." ^self changeModelSelection: newSelectionIndex!

1 0

The Trunk: EToys-ul.86.mcz
by commits＠source.squeak.org 05 Oct '11

05 Oct '11

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.86.mcz ==================== Summary ==================== Name: EToys-ul.86 Author: ul Time: 4 October 2011, 8:25:13.396 pm UUID: cd189eb8-30b6-3b49-b770-8c96c42053d2 Ancestors: EToys-ul.85 - use #becomeForward: instead of #become: =============== Diff against EToys-ul.85 =============== Item was changed: ----- Method: KedamaExamplerPlayer>>delete (in category 'deleting') ----- delete - | anInstance | turtles delete. sequentialStub delete. self class removeFromSystem: false. + self becomeForward: UnscriptedPlayer new - anInstance := UnscriptedPlayer new. - self become: anInstance. ! Item was changed: ----- Method: KedamaSequenceExecutionStub>>delete (in category 'deleting') ----- delete - | anInstance | arrays := nil. exampler := nil. self class removeFromSystem: false. + self becomeForward: UnscriptedPlayer new - anInstance := UnscriptedPlayer new. - self become: anInstance. ! Item was changed: ----- Method: KedamaTurtleVectorPlayer>>delete (in category 'deleting') ----- delete - | anInstance | exampler := nil. arrays := nil. whoTable := nil. turtlesMap := nil. self class removeFromSystem: false. + self becomeForward: UnscriptedPlayer new - anInstance := UnscriptedPlayer new. - self become: anInstance. ! Item was changed: ----- Method: Object>>assureUniClass (in category '*Etoys-viewer') ----- assureUniClass "If the receiver is not yet an instance of a uniclass, create a uniclass for it and make the receiver become an instance of that class." | anInstance | self belongsToUniClass ifTrue: [^ self]. anInstance := self class instanceOfUniqueClass. + self becomeForward: (self as: anInstance class). - self become: (self as: anInstance class). ^ anInstance! Item was changed: ----- Method: Player>>revertToUnscriptedPlayerIfAppropriate (in category 'misc') ----- revertToUnscriptedPlayerIfAppropriate | anInstance | (self class selectors notEmpty or: [self class instVarNames notEmpty]) ifTrue: [^self]. anInstance := UnscriptedPlayer new. anInstance initializeCostumesFrom: self. + self becomeForward: anInstance! - self become: anInstance!

1 0

The Trunk: Collections-ul.463.mcz
by commits＠source.squeak.org 05 Oct '11

05 Oct '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.463.mcz ==================== Summary ==================== Name: Collections-ul.463 Author: ul Time: 4 October 2011, 8:25:51.321 pm UUID: 2dda520b-035d-8a40-b62b-c285552d07ee Ancestors: Collections-eem.462 - use #becomeForward: instead of #become: =============== Diff against Collections-eem.462 =============== Item was changed: ----- Method: CharacterSet>>add: (in category 'collection ops') ----- add: aCharacter "I automatically become a WideCharacterSet if you add a wide character to myself" aCharacter asciiValue >= 256 ifTrue: [| wide | wide := WideCharacterSet new. wide addAll: self. wide add: aCharacter. + self becomeForward: wide. - self become: wide. ^aCharacter]. map at: aCharacter asciiValue + 1 put: 1. ^aCharacter! Item was changed: ----- Method: CharacterSetComplement>>removeAll (in category 'collection ops') ----- removeAll + + self becomeForward: CharacterSet new! - | newSet | - newSet := CharacterSet new. - self become: newSet! Item was changed: ----- Method: LookupKey>>beBindingOfType:announcing: (in category 'bindings') ----- beBindingOfType: aClass announcing: aBool "Make the receiver a global binding of the given type" + - | old new | (Smalltalk globals associationAt: self key) == self ifFalse:[^self error:'Not a global variable binding']. self class == aClass ifTrue:[^self]. + self becomeForward: (aClass key: self key value: self value). - old := self. - new := aClass key: self key value: self value. - old become: new. "NOTE: Now self == read-only (e.g., the new binding)" ^self recompileBindingsAnnouncing: aBool!

1 0

[ANN] Alice Revival
by Edgar J. De Cleene 05 Oct '11

05 Oct '11

Folks. Being here means Smalltalk and not JustTalk As promised to Enrico , I take seriously the task of have Alice back into last FunSqueak (what is 4.3 Squeak updated and with some old and new projects) As collateral effect, in the end we have some .pr or .sar or MultimediaMonticello or EdgarElBárbaro thing to load into normal bare Squeak As first step I take the fileout of what is working in FunSqueak3.10alpha.7 and you could download from ftp Squeak Following Levente and Bert advices, fix the .cs just for FunSqueak load it. You could see the picture of first semi crash here. https://picasaweb.google.com/104220926719475766294/FunSqueak#565990968875457 8626 I hope you don`t need Google+ for see it, but just in case i invite all who ask. And is time to think how to post more as 100k here I ask to all to share experience and work until the task or Alice Revival was complete Yours in Squeak Edgar

1 0

Daily Commit Log
by commits＠source.squeak.org 05 Oct '11

05 Oct '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-October/005012.ht… Name: Compiler-nice.218 Ancestors: Compiler-eem.217 Add a backward compatibility preference for allowing compilation of #, #. and other uni-character symbols. This is necessary for loading some outdated packages. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-October/005013.ht… Name: Kernel-eem.633 Ancestors: Kernel-eem.632 Pragmas need to be #=, not just #==. MethodPragmaTests now all pass. =============================================

1 0

The Trunk: Kernel-eem.633.mcz
by commits＠source.squeak.org 04 Oct '11

04 Oct '11

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.633.mcz ==================== Summary ==================== Name: Kernel-eem.633 Author: eem Time: 4 October 2011, 12:28:38.308 pm UUID: b7fedf5b-2cb3-4420-8f0d-c66ac6715c53 Ancestors: Kernel-eem.632 Pragmas need to be #=, not just #==. MethodPragmaTests now all pass. =============== Diff against Kernel-eem.632 =============== Item was added: + ----- Method: Pragma>>= (in category 'comparing') ----- + = anObject + ^self class == anObject class + and: [keyword == anObject keyword + and: [arguments = anObject arguments]]! Item was added: + ----- Method: Pragma>>hash (in category 'comparing') ----- + hash + ^keyword hash + arguments hash!

1 0

Balloon3D: not loading in trunk
by Chris Cunnington 04 Oct '11

04 Oct '11

>What is wrong on using some old as long works ? There's nothing wrong with using something as long as it works if you want to use an old image. I don't want the core developers to be responsible for all things going forward. >Balloon3D could be loaded with hard work and maybe if we can have it could have a new user. That's the issue in a nutshell: who will do the hard work? I'm worried about managing expectations put on core developers and the SOB. >In short time he realize all you said is true and follow your advice. But if we don¹t take users wishes, could loose he. People don't leave the community because somebody disagrees with them. I think people leave the community because clear expectations and boundaries are not set. People leave because they smell apathy. In the near future it will not be necessary to post to the message board to ask about this. There is a plan longstanding about creating a smaller image and then having tests, a contract between core developers and application developers about what can be expected to work in a trunk image. When that comes down (likely when Andreas comes back), then the issue will present itself clearly: the maintainer of Balloon3D is not keeping up with contract with the core developers. Clear policies energize a community. Chris

3 2

Jump to page: