Packages August 2014

packages@lists.squeakfoundation.org

2 participants
105 discussions

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

13 Aug '14

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.742.mcz ==================== Summary ==================== Name: Morphic-mt.742 Author: mt Time: 13 August 2014, 10:52:41.575 am UUID: 4d1aee22-7d2f-aa4d-84d6-a7aa96fd3307 Ancestors: Morphic-mt.741, Morphic-mt.722 Added pluggable version of scroll pane to be used in tool builder. (merged from inbox) =============== Diff against Morphic-mt.741 =============== Item was added: + ScrollPane subclass: #PluggableScrollPane + instanceVariableNames: 'morph morphClass' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Pluggable Widgets'! Item was added: + ----- Method: PluggableScrollPane class>>on: (in category 'instance creation') ----- + on: morph + + ^ self new + morph: morph; + yourself! Item was added: + ----- Method: PluggableScrollPane class>>onClass: (in category 'instance creation') ----- + onClass: morphClass + + ^ self new + morphClass: morphClass; + updateMorph; + yourself! Item was added: + ----- Method: PluggableScrollPane>>morph (in category 'accessing') ----- + morph + + ^ morph ifNil: [ + self morph: self morphClass new. + morph]! Item was added: + ----- Method: PluggableScrollPane>>morph: (in category 'accessing') ----- + morph: morphToScroll + + morphToScroll topLeft: 0@0. + morph := morphToScroll. + morphClass := morphToScroll class. + + self scroller + removeAllMorphs; + addMorph: morph. + + self updateMorph.! Item was added: + ----- Method: PluggableScrollPane>>morphClass (in category 'accessing') ----- + morphClass + + ^ morphClass ifNil: [Morph]! Item was added: + ----- Method: PluggableScrollPane>>morphClass: (in category 'accessing') ----- + morphClass: aMorphClass + + morphClass := aMorphClass.! Item was added: + ----- Method: PluggableScrollPane>>updateMorph (in category 'updating') ----- + updateMorph + + self morph fullBounds. + self setScrollDeltas. + + scrollBar setValue: 0.0. + hScrollBar setValue: 0.0.!

1 0

The Trunk: ToolBuilder-Kernel-mt.62.mcz
by commits＠source.squeak.org 13 Aug '14

13 Aug '14

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.62.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.62 Author: mt Time: 13 August 2014, 10:54:11.149 am UUID: 668e67af-7a18-5448-bd8c-4a02243e4ec4 Ancestors: ToolBuilder-Kernel-mt.61 Added support for pluggable scroll panes to tool builder as introduced in Morphic-mt.742 =============== Diff against ToolBuilder-Kernel-nice.60 =============== Item was added: + PluggableCompositeSpec subclass: #PluggableScrollPaneSpec + instanceVariableNames: 'morph morphClass borderWidth vScrollBarPolicy hScrollBarPolicy' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolBuilder-Kernel'! Item was added: + ----- Method: PluggableScrollPaneSpec>>borderWidth (in category 'accessing') ----- + borderWidth + + ^ borderWidth ifNil: [1]! Item was added: + ----- Method: PluggableScrollPaneSpec>>borderWidth: (in category 'accessing') ----- + borderWidth: anObject + + borderWidth := anObject! Item was added: + ----- Method: PluggableScrollPaneSpec>>buildWith: (in category 'building') ----- + buildWith: builder + + ^ builder buildPluggableScrollPane: self! Item was added: + ----- Method: PluggableScrollPaneSpec>>hScrollBarPolicy (in category 'accessing') ----- + hScrollBarPolicy + + ^ hScrollBarPolicy ifNil: [#always]! Item was added: + ----- Method: PluggableScrollPaneSpec>>hScrollBarPolicy: (in category 'accessing') ----- + hScrollBarPolicy: anObject + "#always, #never, #whenNeeded" + + hScrollBarPolicy := anObject! Item was added: + ----- Method: PluggableScrollPaneSpec>>morph (in category 'accessing') ----- + morph + + ^ morph! Item was added: + ----- Method: PluggableScrollPaneSpec>>morph: (in category 'accessing') ----- + morph: anObject + + morph := anObject! Item was added: + ----- Method: PluggableScrollPaneSpec>>morphClass (in category 'accessing') ----- + morphClass + + ^ morphClass! Item was added: + ----- Method: PluggableScrollPaneSpec>>morphClass: (in category 'accessing') ----- + morphClass: anObject + + morphClass := anObject! Item was added: + ----- Method: PluggableScrollPaneSpec>>vScrollBarPolicy (in category 'accessing') ----- + vScrollBarPolicy + + ^ vScrollBarPolicy ifNil: [#always]! Item was added: + ----- Method: PluggableScrollPaneSpec>>vScrollBarPolicy: (in category 'accessing') ----- + vScrollBarPolicy: anObject + "#always, #never, #whenNeeded" + + vScrollBarPolicy := anObject! Item was added: + ----- Method: ToolBuilder>>buildPluggableScrollPane: (in category 'widgets optional') ----- + buildPluggableScrollPane: spec + + ^ spec children + ifNotNil: [self buildPluggablePanel: spec] + ifNil: [spec morph ifNil: [spec morphClass new]]! Item was added: + ----- Method: ToolBuilder>>pluggableScrollPaneSpec (in category 'defaults') ----- + pluggableScrollPaneSpec + ^ PluggableScrollPaneSpec!

1 0

The Trunk: ToolBuilder-Kernel-mt.62.mcz
by commits＠source.squeak.org 13 Aug '14

13 Aug '14

1 0

The Trunk: ToolBuilder-Kernel-mt.62.mcz
by commits＠source.squeak.org 13 Aug '14

13 Aug '14

1 0

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

12 Aug '14

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.300.mcz ==================== Summary ==================== Name: Graphics-mt.300 Author: mt Time: 12 August 2014, 10:04:47.352 am UUID: 6462eee8-e43a-4840-954c-edc02dfcd8ee Ancestors: Graphics-nice.299 fixed image reading: stream was not correctly reset for each reader/writer test =============== Diff against Graphics-nice.299 =============== Item was changed: ----- Method: ImageReadWriter class>>formFromStream: (in category 'image reading/writing') ----- formFromStream: aBinaryStream "Answer a ColorForm stored on the given stream. closes the stream" | reader readerClass form | readerClass := self withAllSubclasses + detect: [:subclass | + aBinaryStream reset. + subclass understandsImageFormat: aBinaryStream] - detect: [:subclass | subclass understandsImageFormat: aBinaryStream] ifNone: [ aBinaryStream close. ^self error: 'image format not recognized']. aBinaryStream reset. reader := readerClass new on: aBinaryStream. Cursor read showWhile: [ form := reader nextImage. reader close]. ^ form !

1 0

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

12 Aug '14

1 0

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

12 Aug '14

1 0

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

12 Aug '14

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.26.mcz ==================== Summary ==================== Name: MorphicTests-mt.26 Author: mt Time: 12 August 2014, 9:42:56.496 am UUID: d26d5825-aec5-1741-88a8-e4b010c60ae7 Ancestors: MorphicTests-mt.25 Tests added for Morphic-mt.741 =============== Diff against MorphicTests-nice.24 =============== Item was added: + ----- Method: MorphTest>>createAndAddMorphs: (in category 'support') ----- + createAndAddMorphs: someNames + + (self createMorphs: #(a b)) do: [:newMorph | + morph addMorphBack: newMorph].! Item was added: + ----- Method: MorphTest>>createMorphs: (in category 'support') ----- + createMorphs: someNames + + ^ someNames collect: [:nm | Morph new name: nm]! Item was added: + ----- Method: MorphTest>>getSubmorph: (in category 'support') ----- + getSubmorph: name + + ^ morph submorphs detect: [:m | m knownName = name]! Item was added: + ----- Method: MorphTest>>getSubmorphNames (in category 'support') ----- + getSubmorphNames + + ^ morph submorphs collect: [:m | m knownName asSymbol]! Item was added: + ----- Method: MorphTest>>getSubmorphs: (in category 'support') ----- + getSubmorphs: someNames + + ^ someNames collect: [:nm | self getSubmorph: nm]! Item was added: + ----- Method: MorphTest>>testAddAllMorphs (in category 'testing - add/remove submorphs') ----- + testAddAllMorphs + + self createAndAddMorphs: #(a b). + self assert: #(a b) equals: self getSubmorphNames. + + morph addAllMorphs: (self createMorphs: #(x y)). + self assert: #(a b x y) equals: self getSubmorphNames. + + morph removeAllMorphs. + morph addAllMorphs: (self createMorphs: #(x y)). + self assert: #(x y) equals: self getSubmorphNames.! Item was added: + ----- Method: MorphTest>>testAddAllMorphsAfter (in category 'testing - add/remove submorphs') ----- + testAddAllMorphsAfter + + self createAndAddMorphs: #(a b). + self assert: #(a b) equals: self getSubmorphNames. + + morph + addAllMorphs: (self createMorphs: #(x y)) + after: (self getSubmorph: #a). + self assert: #(a x y b) equals: self getSubmorphNames. + + morph + addAllMorphs: (self getSubmorphs: #(x y)) + after: (self getSubmorph: #b). + self assert: #(a b x y) equals: self getSubmorphNames. + + morph + addAllMorphs: (self getSubmorphs: #(a x)) + after: (self getSubmorph: #y). + self assert: #(b y a x) equals: self getSubmorphNames. + + morph + addAllMorphs: (self getSubmorphs: #(x y)) + after: (self getSubmorph: #a). + self assert: #(b a x y) equals: self getSubmorphNames.! Item was added: + ----- Method: MorphTest>>testAddAllMorphsInFrontOf (in category 'testing - add/remove submorphs') ----- + testAddAllMorphsInFrontOf + + self createAndAddMorphs: #(a b). + self assert: #(a b) equals: self getSubmorphNames. + + morph + addAllMorphs: (self createMorphs: #(x y)) + inFrontOf: (self getSubmorph: #b). + self assert: #(a x y b) equals: self getSubmorphNames. + + morph + addAllMorphs: (self getSubmorphs: #(x y)) + inFrontOf: (self getSubmorph: #a). + self assert: #(x y a b) equals: self getSubmorphNames. + + morph + addAllMorphs: (self getSubmorphs: #(y b)) + inFrontOf: (self getSubmorph: #x). + self assert: #(y b x a) equals: self getSubmorphNames. + + morph + addAllMorphs: (self getSubmorphs: #(x y)) + inFrontOf: (self getSubmorph: #b). + self assert: #(x y b a) equals: self getSubmorphNames.!

1 0

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

12 Aug '14

1 0

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

12 Aug '14

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2014