Packages April 2014

packages@lists.squeakfoundation.org

2 participants
18 discussions

Monticello Public: PolyExp-AC.2.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Apr '14

23 Apr '14

A new version of PolyExp was added to project Monticello Public: http://www.squeaksource.com/mc/PolyExp-AC.2.mcz ==================== Summary ==================== Name: PolyExp-AC.2 Author: AC Time: 23 April 2014, 11:11:42.791 am UUID: 99676965-ba2b-4ff2-9ec1-e745946ff35b Ancestors: PolyExp-AC.1 cc

1 0

Monticello Public: PolyExp-AC.2.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Apr '14

23 Apr '14

1 0

Monticello Public: PolyExp-AC.2.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Apr '14

23 Apr '14

1 0

Monticello Public: PolyExp-AC.1.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Apr '14

23 Apr '14

A new version of PolyExp was added to project Monticello Public: http://www.squeaksource.com/mc/PolyExp-AC.1.mcz ==================== Summary ==================== Name: PolyExp-AC.1 Author: AC Time: 23 April 2014, 11:10:49.923 am UUID: 23869489-b68d-4f5d-8971-0cbc65dd9daf Ancestors: first commit

1 0

Monticello Public: PolyExp-AC.1.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Apr '14

23 Apr '14

1 0

Monticello Public: PolyExp-AC.1.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Apr '14

23 Apr '14

1 0

The Trunk: Morphic-eem.723.mcz
by commits＠source.squeak.org 22 Apr '14

22 Apr '14

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.723.mcz ==================== Summary ==================== Name: Morphic-eem.723 Author: eem Time: 22 April 2014, 10:09:53.873 am UUID: 7c5e4a53-a343-43cb-bf37-bc67721e2b85 Ancestors: Morphic-dtl.722 Make the docking bar in sub-projects display the project name. =============== Diff against Morphic-dtl.722 =============== Item was added: + (PackageInfo named: 'Morphic') preamble: 'TheWorldMainDockingBar setTimeStamp'! Item was changed: ----- Method: TheWorldMainDockingBar>>createDockingBar (in category 'construction') ----- createDockingBar "Create a docking bar from the receiver's representation" | dockingBar | dockingBar := DockingBarMorph new adhereToTop; color: Preferences menuColor; gradientRamp: self gradientRamp; autoGradient: ColorTheme current dockingBarAutoGradient; borderWidth: 0. self fillDockingBar: dockingBar. + self labelIfNeeded: dockingBar. ^ dockingBar! Item was added: + ----- Method: TheWorldMainDockingBar>>labelIfNeeded: (in category 'private') ----- + labelIfNeeded: aDockingBar + "Label the given docking bar with the project name, if needed" + (aDockingBar submorphWithProperty: #projectNameMorph) + contents: (Project current isTopProject ifTrue: [''] ifFalse: [Project current name]); + fitContents! Item was changed: ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- menusOn: aDockingBar self squeakMenuOn: aDockingBar; projectsMenuOn: aDockingBar; toolsMenuOn: aDockingBar; appsMenuOn: aDockingBar; extrasMenuOn: aDockingBar; windowsMenuOn: aDockingBar; + helpMenuOn: aDockingBar.. + aDockingBar addSpacer. + self projectNameOn: aDockingBar. + aDockingBar addSpacer! - helpMenuOn: aDockingBar.! Item was added: + ----- Method: TheWorldMainDockingBar>>projectNameOn: (in category 'right side') ----- + projectNameOn: aDockingBar + | morph | + morph := StringMorph contents: ''. + morph setProperty: #projectNameMorph toValue: #projectNameMorph. + aDockingBar addMorphBack: morph! Item was changed: ----- Method: TheWorldMainDockingBar>>updateIfNeeded: (in category 'private') ----- updateIfNeeded: aDockingBar "Update the given docking bar if needed" | timeStamp | timeStamp := aDockingBar + valueOfProperty: #mainDockingBarTimeStamp + ifAbsent: []. + timeStamp ~= self class timeStamp ifTrue: + [aDockingBar + release; + removeAllMorphs. + self fillDockingBar: aDockingBar]! - valueOfProperty: #mainDockingBarTimeStamp - ifAbsent: [ ^ self ]. - timeStamp = self class timeStamp ifTrue: [ ^ self ]. - "" - aDockingBar - release ; - removeAllMorphs. - self fillDockingBar: aDockingBar!

1 0

The Trunk: Morphic-eem.723.mcz
by commits＠source.squeak.org 22 Apr '14

22 Apr '14

1 0

The Trunk: Morphic-eem.723.mcz
by commits＠source.squeak.org 22 Apr '14

22 Apr '14

1 0

The Trunk: Files-eem.132.mcz
by commits＠source.squeak.org 21 Apr '14

21 Apr '14

Eliot Miranda uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-eem.132.mcz ==================== Summary ==================== Name: Files-eem.132 Author: eem Time: 21 April 2014, 3:07:09.85 pm UUID: 4ae7fd40-36ae-4c78-9481-eede8bd586cd Ancestors: Files-cmm.131 Fix FileDirectory on: asnd FileDirectory class on: for "..", and hence fix the VMMakerTool for paths such as '../platforms'. =============== Diff against Files-cmm.131 =============== Item was changed: ----- Method: FileDirectory class>>on: (in category 'instance creation') ----- on: pathString "Return a new file directory for the given path, of the appropriate FileDirectory subclass for the current OS platform." | pathName | DirectoryClass ifNil: [self setDefaultDirectoryClass]. "If path ends with a delimiter (: or /) then remove it" + pathName := pathString. + (pathName at: pathName size ifAbsent: nil) = self pathNameDelimiter ifTrue: + [pathName := pathName allButLast]. + DirectoryClass parentDirectoryNickname ifNotNil: + [:parentName| + (pathName beginsWith: parentName) ifTrue: + [pathName = parentName ifTrue: + [^self default containingDirectory]. + (pathName at: parentName size + 1 ifAbsent: nil) = self pathNameDelimiter ifTrue: + [^self default containingDirectory on: (pathName allButFirst: parentName size + 1)]]]. + ^DirectoryClass new setPathName: pathName! - ((pathName := pathString) endsWith: self pathNameDelimiter asString) ifTrue: [ - pathName := pathName copyFrom: 1 to: pathName size - 1]. - ^ DirectoryClass new setPathName: pathName - ! Item was changed: ----- Method: FileDirectory>>on: (in category 'path access') ----- + on: path - on: fullPath "Return another instance" + ^ self class on: ((path at: 1 ifAbsent: nil) = self pathNameDelimiter + ifTrue: [path] + ifFalse: [pathName asString, (String with: self pathNameDelimiter), path])! - ^ self class on: fullPath!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2014