Packages August 2014

packages@lists.squeakfoundation.org

2 participants
105 discussions

The Trunk: Morphic-mt.741.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.741.mcz ==================== Summary ==================== Name: Morphic-mt.741 Author: mt Time: 12 August 2014, 9:41:14.858 am UUID: 9d4c5a48-0e25-9f40-b973-d743955f6e31 Ancestors: Morphic-eem.740, Morphic-mt.721 Fixed implementation for adding multiple morphs at once. Made API of addMorph* and addAllMorphs* more consistent w.r.t. index handling. (merged from inbox Morphic-mt.721) =============== Diff against Morphic-eem.740 =============== Item was changed: ----- Method: Morph>>addAllMorphs: (in category 'submorphs-add/remove') ----- addAllMorphs: aCollection + ^self addAllMorphsBack: aCollection! - ^self privateAddAllMorphs: aCollection atIndex: submorphs size! Item was changed: ----- Method: Morph>>addAllMorphs:after: (in category 'submorphs-add/remove') ----- addAllMorphs: aCollection after: anotherMorph + ^self addAllMorphs: aCollection behind: anotherMorph! - ^self privateAddAllMorphs: aCollection - atIndex: (submorphs indexOf: anotherMorph ifAbsent: [submorphs size])! Item was added: + ----- Method: Morph>>addAllMorphs:behind: (in category 'submorphs-add/remove') ----- + addAllMorphs: aCollection behind: anotherMorph + ^self privateAddAllMorphs: aCollection + atIndex: (submorphs indexOf: anotherMorph) + 1! Item was added: + ----- Method: Morph>>addAllMorphs:inFrontOf: (in category 'submorphs-add/remove') ----- + addAllMorphs: aCollection inFrontOf: anotherMorph + ^self privateAddAllMorphs: aCollection + atIndex: ((submorphs indexOf: anotherMorph) max: 1)! Item was added: + ----- Method: Morph>>addAllMorphsBack: (in category 'submorphs-add/remove') ----- + addAllMorphsBack: aCollection + ^self privateAddAllMorphs: aCollection atIndex: submorphs size + 1! Item was added: + ----- Method: Morph>>addAllMorphsFront: (in category 'submorphs-add/remove') ----- + addAllMorphsFront: aCollection + ^self privateAddAllMorphs: aCollection atIndex: 1! Item was changed: ----- Method: Morph>>addMorph:after: (in category 'submorphs-add/remove') ----- addMorph: newMorph after: aMorph + ^self addMorph: newMorph behind: aMorph! - "Add the given morph as one of my submorphs, inserting it after anotherMorph" - ^self privateAddMorph: newMorph atIndex: (submorphs indexOf: aMorph)+1! Item was changed: ----- Method: Morph>>privateAddAllMorphs:atIndex: (in category 'private') ----- privateAddAllMorphs: aCollection atIndex: index "Private. Add aCollection of morphs to the receiver" + | myWorld otherSubmorphs offset | + (index between: 1 and: submorphs size+1) + ifFalse: [^ self error: 'index out of range']. - | myWorld otherSubmorphs | myWorld := self world. otherSubmorphs := submorphs copyWithoutAll: aCollection. + offset := aCollection count: [:m | (submorphs indexOf: m) between: 1 and: index - 1]. + submorphs := otherSubmorphs copyReplaceFrom: index-offset to: index-offset-1 with: aCollection. - (index between: 0 and: otherSubmorphs size) - ifFalse: [^ self error: 'index out of range']. - index = 0 - ifTrue:[ submorphs := aCollection asArray, otherSubmorphs] - ifFalse:[ index = otherSubmorphs size - ifTrue:[ submorphs := otherSubmorphs, aCollection] - ifFalse:[ submorphs := otherSubmorphs copyReplaceFrom: index + 1 to: index with: aCollection ]]. aCollection do: [:m | | itsOwner itsWorld | itsOwner := m owner. itsOwner ifNotNil: [ itsWorld := m world. (itsWorld == myWorld) ifFalse: [ itsWorld ifNotNil: [self privateInvalidateMorph: m]. m outOfWorld: itsWorld]. (itsOwner ~~ self) ifTrue: [ m owner privateRemove: m. m owner removedMorph: m ]]. m privateOwner: self. myWorld ifNotNil: [self privateInvalidateMorph: m]. (myWorld == itsWorld) ifFalse: [m intoWorld: myWorld]. itsOwner == self ifFalse: [ self addedMorph: m. m noteNewOwner: self ]. ]. self layoutChanged. !

1 0

The Trunk: Morphic-mt.741.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

1 0

The Trunk: Morphic-mt.741.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

1 0

The Trunk: Kernel-mt.868.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.868.mcz ==================== Summary ==================== Name: Kernel-mt.868 Author: mt Time: 12 August 2014, 9:34:24.549 am UUID: 56fa5571-dfaa-e04c-b8a2-a972f345aaea Ancestors: Kernel-mt.867 restored method category of #isKindOf: to "class membership" =============== Diff against Kernel-mt.867 =============== Item was changed: + ----- Method: Object>>isKindOf: (in category 'class membership') ----- - ----- Method: Object>>isKindOf: (in category '-- all --') ----- isKindOf: aClass "Answer whether the class, aClass, is a superclass or class of the receiver." ^ self class == aClass or: [ self class inheritsFrom: aClass ]!

1 0

The Trunk: Kernel-mt.868.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

1 0

The Trunk: Kernel-mt.868.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

1 0

The Trunk: Kernel-mt.867.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.867.mcz ==================== Summary ==================== Name: Kernel-mt.867 Author: mt Time: 12 August 2014, 9:29:37.682 am UUID: f469a687-9e68-6542-b0ae-01fde30002a8 Ancestors: Kernel-eem.866 New preference added for activating system windows on first mouse click. Works for all standard tools that subclass Model for their model. =============== Diff against Kernel-eem.866 =============== Item was changed: Object subclass: #Model instanceVariableNames: 'dependents' + classVariableNames: 'WindowActiveOnFirstClick' - classVariableNames: '' poolDictionaries: '' category: 'Kernel-Models'! !Model commentStamp: '<historical>' prior: 0! Provides a superclass for classes that function as models. The only behavior provided is fast dependents maintenance, which bypasses the generic DependentsFields mechanism. 1/23/96 sw! Item was added: + ----- Method: Model class>>windowActiveOnFirstClick (in category 'preferences') ----- + windowActiveOnFirstClick + <preference: 'Window Active On First Click' + category: 'windows' + description: 'Whether or not you want to directly interact with a widget (e.g. button) in a not-yet-active window' + type: #Boolean> + ^ WindowActiveOnFirstClick ifNil: [ false ]! Item was added: + ----- Method: Model class>>windowActiveOnFirstClick: (in category 'preferences') ----- + windowActiveOnFirstClick: aBoolean + + WindowActiveOnFirstClick := aBoolean.! Item was added: + ----- Method: Model>>windowActiveOnFirstClick (in category 'user interface') ----- + windowActiveOnFirstClick + + ^ self class windowActiveOnFirstClick!

1 0

The Trunk: Kernel-mt.867.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

1 0

The Trunk: Kernel-mt.867.mcz
by commits＠source.squeak.org 12 Aug '14

12 Aug '14

1 0

The Trunk: Compiler-eem.287.mcz
by commits＠source.squeak.org 10 Aug '14

10 Aug '14

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.287.mcz ==================== Summary ==================== Name: Compiler-eem.287 Author: eem Time: 10 August 2014, 1:00:51.952 pm UUID: 3d4cff37-addb-4d6e-9a1f-d54e365d4e6c Ancestors: Compiler-eem.286 Quick methods may need schematic temps too... =============== Diff against Compiler-eem.286 =============== Item was changed: ----- Method: MethodNode>>generate:using: (in category 'code generation') ----- generate: trailer using: aCompiledMethodClass "The receiver is the root of a parse tree. Answer an instance of aCompiledMethodClass. The argument, trailer, is arbitrary but is typically either the reference to the source code that is stored with every CompiledMethod, or an encoding of the method's temporary names." | primErrNode blkSize nLits literals stack method | self generate: trailer using: aCompiledMethodClass ifQuick: [:m | + encoder noteBlockExtent: (0 to: 2) hasLocals: arguments. + m literalAt: 2 put: encoder associationForClass; - m literalAt: 2 put: encoder associationForClass; properties: properties. + ^m]. - ^m]. primErrNode := self primitiveErrorVariableName ifNotNil: [encoder fixTemp: self primitiveErrorVariableName]. encoder supportsClosureOpcodes ifTrue: [self ensureClosureAnalysisDone. encoder rootNode: self. "this is for BlockNode>>sizeCodeForClosureValue:"]. blkSize := (block sizeCodeForEvaluatedValue: encoder) + (primErrNode ifNil: [0] ifNotNil: [primErrNode index: arguments size + temporaries size; sizeCodeForStore: encoder "The VM relies on storeIntoTemp: (129)"]). method := aCompiledMethodClass newBytes: blkSize trailerBytes: trailer nArgs: arguments size nTemps: (encoder supportsClosureOpcodes ifTrue: [| locals | locals := arguments, temporaries, (primErrNode ifNil: [#()] ifNotNil: [{primErrNode}]). encoder noteBlockExtent: block blockExtent hasLocals: locals. locals size] ifFalse: [encoder maxTemp]) nStack: 0 nLits: (nLits := (literals := encoder allLiterals) size) primitive: primitive. nLits > 255 ifTrue: [^self error: 'Too many literals referenced']. 1 to: nLits do: [:lit | method literalAt: lit put: (literals at: lit)]. encoder streamToMethod: method. stack := ParseStack new init. primErrNode ifNotNil: [primErrNode emitCodeForStore: stack encoder: encoder]. stack position: method numTemps. [block emitCodeForEvaluatedValue: stack encoder: encoder] on: Error "If an attempt is made to write too much code the method will be asked" do: [:ex| "to grow, and the grow attempt will fail in CompiledMethod class>>#new:" ex signalerContext sender method = (CompiledMethod class>>#new:) ifTrue: [^self error: 'Compiler code size discrepancy'] ifFalse: [ex pass]]. stack position ~= (method numTemps + 1) ifTrue: [^self error: 'Compiler stack discrepancy']. encoder methodStreamPosition ~= (method size - trailer size) ifTrue: [^self error: 'Compiler code size discrepancy']. method needsFrameSize: stack size - method numTemps. method properties: properties. ^method!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2014