Packages August 2014

packages@lists.squeakfoundation.org

2 participants
105 discussions

The Trunk: Multilingual-ul.200.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.200.mcz ==================== Summary ==================== Name: Multilingual-ul.200 Author: ul Time: 15 August 2014, 4:11:35.855 am UUID: 7fac98fd-9abf-4f69-a21f-3e16b5710480 Ancestors: Multilingual-ul.199 Fix the startup of various file streams. - ensure that MultiByteFileStream's default line end convention is initialized at startup, and only at startup - don't initialize the stdioFiles more than once at startup =============== Diff against Multilingual-ul.199 =============== Item was removed: - ----- Method: MultiByteFileStream class>>startUp (in category 'class initialization') ----- - startUp - - self guessDefaultLineEndConvention. - ! Item was added: + ----- Method: MultiByteFileStream class>>startUp: (in category 'class initialization') ----- + startUp: resuming + + resuming ifTrue: [ self guessDefaultLineEndConvention ] + ! Item was changed: + (PackageInfo named: 'Multilingual') postscript: '"Remove CrLfFileStream from the startupList" + (Smalltalk classNamed: ''CrLfFileStream'') ifNotNil: [ :class | + Smalltalk removeFromStartUpList: class ]'! - (PackageInfo named: 'Multilingual') postscript: '"Initialize the value of wantsLineEndConversion in all MultiByteFileStreams" - MultiByteFileStream allSubInstancesDo: [ :each | - (each instVarNamed: #wantsLineEndConversion) ifNil: [ - each instVarNamed: #wantsLineEndConversion put: false ] ]'!

1 0

The Trunk: Multilingual-ul.200.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

1 0

The Trunk: Files-eem.137.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

Eliot Miranda uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-eem.137.mcz ==================== Summary ==================== Name: Files-eem.137 Author: eem Time: 14 August 2014, 4:09:05.676 pm UUID: 833a2130-ce18-454b-8a67-f82db8a299af Ancestors: Files-eem.136 Fix UnixFileDirectory directoryExists: & fileOrDirectoryExists: for cases such as 'foo/bar' '../foo/bar' etc. =============== Diff against Files-eem.136 =============== Item was changed: ----- Method: UnixFileDirectory>>directoryExists: (in category 'testing') ----- directoryExists: filenameOrPath + "Answers true if the directory exists. Overrides to handle the root directory / + and relative paths." + | fName dir | - "Handles the special case of testing for the root dir: there isn't a - possibility to express the root dir as full pathname like '/foo'." + filenameOrPath = '/' ifTrue: + [^true]. + + DirectoryClass + splitName: filenameOrPath + to: [:filePath :name | + fName := name. + dir := filePath isEmpty + ifTrue: [self] + ifFalse: + [FileDirectory on: (filePath first = $/ + ifTrue: [filePath] + ifFalse: [self fullName, '/', filePath])]]. + + ^dir exists + and: [(dir directoryEntryForName: fName) + ifNotNil: [:e| e isDirectory] + ifNil: [false]]! - ^ filenameOrPath = '/' or: [super directoryExists: filenameOrPath]! Item was changed: ----- Method: UnixFileDirectory>>fileOrDirectoryExists: (in category 'testing') ----- + fileOrDirectoryExists: filenameOrPath + "Answer true if either a file or a directory file of the given name exists. The given name + may be either a full path name or a local name within this directory. Overrides to handle + the root directory / and relative paths." + | fName dir | - fileOrDirectoryExists: filenameOrPath - "Handles the special case of testing for the root dir: there isn't a - possibility to express the root dir as full pathname like '/foo'." + filenameOrPath = '/' ifTrue: + [^true]. + + DirectoryClass + splitName: filenameOrPath + to: [:filePath :name | + fName := name. + dir := filePath isEmpty + ifTrue: [self] + ifFalse: + [FileDirectory on: (filePath first = $/ + ifTrue: [filePath] + ifFalse: [self fullName, '/', filePath])]]. + + ^dir exists + and: [(dir includesKey: fName) or: [fName isEmpty and: [dir entries size > 1]]]! - ^ filenameOrPath = '/' or: [super fileOrDirectoryExists: filenameOrPath]!

1 0

The Trunk: Files-eem.137.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

1 0

The Trunk: Files-eem.137.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

1 0

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

13 Aug '14

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.93.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.93 Author: mt Time: 13 August 2014, 10:55:11.88 am UUID: b0f4fa7e-d60a-e944-98b3-341e5df2fb91 Ancestors: ToolBuilder-Morphic-mt.92 Added support for pluggable scroll panes as introduced in ToolBuilder-Kernel-mt.62 (merged from inbox) =============== Diff against ToolBuilder-Morphic-fbs.91 =============== Item was added: + ----- Method: MorphicToolBuilder>>buildPluggableScrollPane: (in category 'widgets optional') ----- + buildPluggableScrollPane: spec + + | widget | + widget := self scrollPaneClass new. + widget model: spec model. + self register: widget id: spec name. + + spec children + ifNotNil: [:obj | + "Create panel morph to scroll it." + widget morph: (self pluggablePanelSpec new + children: obj; + layout: spec layout; + frame: (0@0 corner: 1@1); + buildWith: self). + spec layout ~~ #proportional ifTrue: [ + "Fix #spaceFill resizing because it does not make sense in scroll pane." + widget morph + hResizing: #shrinkWrap; + vResizing: #shrinkWrap. + widget morph submorphsDo: [:m | + m + extent: 100@100; + flag: #refactor; "mt: Restore orginial properties?" + hResizing: #rigid; + vResizing: #rigid] + ]] + ifNil: [spec morph + ifNotNil: [:m | widget morph: m] + ifNil: [widget morphClass: spec morphClass]]. + + self setFrame: spec frame in: widget. + parent ifNotNil: [self add: widget to: parent]. + + widget borderWidth: spec borderWidth. + + spec hScrollBarPolicy caseOf: { + [#always] -> [widget alwaysShowHScrollBar: true]. + [#never] -> [widget hideHScrollBarIndefinitely: true]. + [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded: true]}. + spec vScrollBarPolicy caseOf: { + [#always] -> [widget alwaysShowVScrollBar: true]. + [#never] -> [widget hideVScrollBarIndefinitely: true]. + [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded: true]}. + + ^ widget! Item was added: + ----- Method: MorphicToolBuilder>>scrollPaneClass (in category 'widget classes') ----- + scrollPaneClass + ^ PluggableScrollPane!

1 0

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

13 Aug '14

1 0

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

13 Aug '14

1 0

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: Morphic-mt.742.mcz
by commits＠source.squeak.org 13 Aug '14

13 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