Packages October 2013

packages@lists.squeakfoundation.org

1 participants
342 discussions

The Trunk: System-dtl.609.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.609.mcz ==================== Summary ==================== Name: System-dtl.609 Author: dtl Time: 25 October 2013, 6:58:38.544 pm UUID: fbe5d078-bc29-40f3-aed6-6e3fee445c27 Ancestors: System-cmm.608 As reported on the pharo list, there are no senders of DeepCopier>>isItTimeToCheckVariables. The method comment is from 1999. The value of NextVariableCheckTime was last updated in 2001. There are no senders in Squeak 3.2. This method is well past its expiration date, so get rid of it. =============== Diff against System-cmm.608 =============== Item was changed: Object subclass: #DeepCopier instanceVariableNames: 'references uniClasses newUniClasses' + classVariableNames: '' - classVariableNames: 'NextVariableCheckTime' poolDictionaries: '' category: 'System-Object Storage'! !DeepCopier commentStamp: 'tk 3/4/2003 19:39' prior: 0! DeepCopier does a veryDeepCopy. It is a complete tree copy using a dictionary. Any object that is in the tree twice is only copied once. All references to the object in the copy of the tree will point to the new copy. See Object|veryDeepCopy which calls (self veryDeepCopyWith: aDeepCopier). The dictionary of objects that have been seen, holds the correspondance (uniClass -> new uniClass). When a tree of morphs points at a morph outside of itself, that morph should not be copied. Use our own kind of weak pointers for the 'potentially outside' morphs. Default is that any new class will have all of its fields deeply copied. If a field needs to be weakly copied, define veryDeepInner: and veryDeepFixupWith:. veryDeepInner: has the loop that actually copies the fields. If a class defines its own copy of veryDeepInner: (to leave some fields out), then veryDeepFixupWith: will be called on that object at the end. veryDeepInner: can compute an alternate object to put in a field. (Object veryDeepCopyWith: discovers which superclasses did not define veryDeepInner:, and very deeply copies the variables defined in those classes). To decide if a class needs veryDeepInner: and veryDeepFixupWith:, ask this about an instance: If I duplicate this object, does that mean that I also want to make duplicates of the things it holds onto? If yes, (i.e. a Paragraph does want a new copy of its Text) then do nothing. If no, (i.e. an undo command does not want to copy the objects it acts upon), then define veryDeepInner: and veryDeepFixupWith:. Here is an analysis for the specific case of a morph being held by another morph. Does field X contain a morph (or a Player whose costume is a morph)? If not, no action needed. Is the morph in field X already a submorph of the object? Is it down lower in the submorph tree? If so, no action needed. Could the morph in field X every appear on the screen (be a submorph of some other morph)? If not, no action needed. If it could, you must write the methods veryDeepFixupWith: and veryDeepInner:, and in them, refrain from sending veryDeepCopyWith: to the contents of field X. newUniClasses = true in the normal case. Every duplicated Player gets a new class. When false, all duplicates will be siblings (sister instances) of existing players. ----- Things Ted is still considering ----- Rule: If a morph stores a uniClass class (Player 57) as an object in a field, the new uniClass will not be stored there. Each uniClass instance does have a new class created for it. (fix this by putting the old class in references and allow lookup? Wrong if encounter it before seeing an instance?) Rule: If object A has object C in a field, and A says (^ C) for the copy, but object B has A in a normal field and it gets deepCopied, and A in encountered first, then there will be two copies of C. (just be aware of it) Dependents are now fixed up. Suppose a model has a dependent view. In the DependentFields dictionary, model -> (view ...). If only the model is copied, no dependents are created (no one knows about the new model). If only the view is copied, it is inserted into DependentFields on the right side. model -> (view copiedView ...). If both are copied, the new model has the new view as its dependent. If additional things depend on a model that is copied, the caller must add them to its dependents. ! Item was removed: - ----- Method: DeepCopier>>intervalForChecks (in category 'like fullCopy') ----- - intervalForChecks - "set delay interval for checking for new instance variables to 10 minutes. hg 11/23/1999" - - ^600 - ! Item was removed: - ----- Method: DeepCopier>>isItTimeToCheckVariables (in category 'like fullCopy') ----- - isItTimeToCheckVariables - - | now isIt | - NextVariableCheckTime ifNil: [ - NextVariableCheckTime := Time totalSeconds. - ^ true]. - now := Time totalSeconds. - isIt := NextVariableCheckTime < now. - isIt ifTrue: ["update time for next check" - NextVariableCheckTime := now + self intervalForChecks]. - ^isIt - !

1 0

The Trunk: Kernel-ul.815.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.815.mcz ==================== Summary ==================== Name: Kernel-ul.815 Author: ul Time: 26 October 2013, 12:37:22.693 am UUID: fed1469b-c755-4e2d-a37f-5dd00b5d08a3 Ancestors: Kernel-ul.812, Kernel-cmm.814 - merged Kernel-ul.812, Kernel-cmm.814 - removed MethodDictionary >> #includesKey:, because it's bogus =============== Diff against Kernel-ul.812 =============== Item was changed: ----- Method: BlockClosure>>fullPrintOn: (in category 'printing') ----- + fullPrintOn: aStream + aStream + print: self ; + cr. + self printSourceOn: aStream! - fullPrintOn: aStream - aStream print: self; cr. - (self decompile ifNil: ['--source missing--']) printOn: aStream indent: 0! Item was added: + ----- Method: BlockClosure>>printSourceOn: (in category 'printing') ----- + printSourceOn: aStream + self decompile + ifNil: [ aStream nextPutall: '--source missing--' ] + ifNotNil: + [ : parseNode | parseNode statements anyOne + printOn: aStream + indent: 0 ]! Item was added: + ----- Method: BlockClosure>>sourceString (in category 'printing') ----- + sourceString + ^ String streamContents: [ : stream | self printSourceOn: stream ]! Item was changed: + ----- Method: BlockClosure>>valueOtherwise: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueOtherwise: (in category 'events-support') ----- valueOtherwise: aBlock "Send the message and answer the return value" ^self value! Item was added: + ----- Method: BlockClosure>>valueWithAllPossibleArguments: (in category 'evaluating') ----- + valueWithAllPossibleArguments: anArray + "Same as valueWithPossibleArgs: except when the receiver takes just one-argument, and more than one argument is specified by anArray, then pass all of anArray as THE argument to the receiver block + This is used to allow a large, variable number of arguments to be passed." + ^numArgs = 0 + ifTrue: [self value] + ifFalse: + [self valueWithArguments: + (numArgs = anArray size + ifTrue: [anArray] + ifFalse: + [numArgs > anArray size + ifTrue: [anArray, (Array new: numArgs - anArray size)] + ifFalse: + [numArgs = 1 + ifTrue: [Array with: anArray] + ifFalse: [anArray copyFrom: 1 to: numArgs]]])]! Item was changed: + ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'events-support') ----- valueWithArguments: anArray otherwise: aBlock ^ self valueWithArguments: anArray! Item was changed: + ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'events-support') ----- valueWithEnoughArguments: anArray "call me with enough arguments from anArray" | args | (anArray size == self numArgs) ifTrue: [ ^self valueWithArguments: anArray ]. args := Array new: self numArgs. args replaceFrom: 1 to: (anArray size min: args size) with: anArray startingAt: 1. ^ self valueWithArguments: args! Item was added: + ----- Method: Error>>printVerboseOn: (in category 'printing') ----- + printVerboseOn: aStream + aStream + setToEnd ; + nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; + cr ; + nextPutAll: 'The time is ', DateAndTime now asString ; + cr. + "Allow applications to optionally print extra details without overriding a base package." + (self respondsTo: #printDetailsOn:) ifTrue: [ self printDetailsOn: aStream ]. + aStream + nextPutAll: self signalerContext longStack ; + cr ; + nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; + cr! Item was removed: - ----- Method: MethodDictionary>>includesKey: (in category 'accessing') ----- - includesKey: aSymbol - "This override assumes that instVarsInclude: uses a fast primitive" - - aSymbol ifNil: [^ false]. - ^ self instVarsInclude: aSymbol!

1 0

The Trunk: Kernel-ul.815.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

1 0

The Trunk: Kernel-ul.815.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

1 0

The Trunk: Collections-ul.542.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.542.mcz ==================== Summary ==================== Name: Collections-ul.542 Author: ul Time: 26 October 2013, 12:22:26.493 am UUID: e52fefbe-fb04-46f4-a956-f7bbcb5c8965 Ancestors: Collections-cmm.541 Make Dictionary >> #includesKey: more lightweight. =============== Diff against Collections-cmm.541 =============== Item was changed: ----- Method: Dictionary>>includesKey: (in category 'testing') ----- includesKey: key "Answer whether the receiver has a key equal to the argument, key." + ^(array at: (self scanFor: key)) ~~ nil "We could use #notNil here, but ProtoObject doesn't understand it."! - self at: key ifAbsent: [^false]. - ^true!

1 0

The Trunk: Collections-ul.542.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

1 0

The Trunk: Collections-ul.542.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

1 0

The Trunk: System-cmm.608.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.608.mcz ==================== Summary ==================== Name: System-cmm.608 Author: cmm Time: 25 October 2013, 3:38:27.908 pm UUID: c3198c63-1008-493a-8e6b-b63886ab70cf Ancestors: System-ul.607 Convenience method for passing .st scripts as arguments to image. In the .st script, use Smalltalk do: [ :arg1 :arg2 :etc | ] to start servers, #doAndQuit: [ :args | ... ] for batch jobs, and #do:snapshot:andQuit: for jobs that "build" new images (e.g., for testing and/or deployment). Arguments from the command-line are passed as arguments to the block. In all cases, Notifications and Errors are logged to stdout and stderr, respectively. =============== Diff against System-ul.607 =============== Item was added: + ----- Method: SmalltalkImage>>do: (in category 'command line') ----- + do: aBlock + [ [ aBlock valueWithAllPossibleArguments: self arguments ] + on: ProgressInitiationException + do: + [ : pie | "Don't want to log this notification." + pie defaultAction ] ] + on: Notification , Warning + do: + [ : noti | StandardFileStream stdout + nextPutAll: DateAndTime now asString ; + space ; + nextPutAll: noti description ; + cr. + noti resume ] + on: SyntaxErrorNotification + do: + [ : err | StandardFileStream stdout + nextPutAll: err errorCode ; + cr. + self haltOrQuit ] + on: Error + do: + [ : err | err printVerboseOn: StandardFileStream stderr. + self haltOrQuit. + err isResumable ifTrue: [ err resume ] ]! Item was added: + ----- Method: SmalltalkImage>>do:snapshotAs:andQuit: (in category 'command line') ----- + do: aBlock snapshotAs: imageName andQuit: shouldQuit + self do: aBlock. + imageName + ifNil: + [ shouldQuit ifTrue: + [ self + snapshot: false + andQuit: shouldQuit ] ] + ifNotNil: + [ | correctName | + correctName := (imageName endsWith: '.image') + ifTrue: [ imageName ] + ifFalse: [ imageName , '.image' ]. + (FileDirectory default fullNameFor: correctName) = self imageName + ifTrue: + [ self + snapshot: true + andQuit: shouldQuit ] + ifFalse: + [ self saveAs: imageName. + "Avoid instant-quit when relaunching by resaving." + shouldQuit ifTrue: + [ self + snapshot: true + andQuit: shouldQuit ] ] ]! Item was added: + ----- Method: SmalltalkImage>>doAndQuit: (in category 'command line') ----- + doAndQuit: aBlock + self + do: aBlock + snapshotAs: nil + andQuit: true! Item was added: + ----- Method: SmalltalkImage>>haltOrQuit (in category 'command line') ----- + haltOrQuit + Smalltalk isHeadless + ifTrue: + [ self + snapshot: false + andQuit: true ] + ifFalse: [ self halt ]!

1 0

The Trunk: System-cmm.608.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

1 0

The Trunk: System-cmm.608.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
35
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2013