Packages July 2013

packages@lists.squeakfoundation.org

1 participants
522 discussions

The Trunk: PackageInfo-Base-fbs.66.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-fbs.66.mcz ==================== Summary ==================== Name: PackageInfo-Base-fbs.66 Author: fbs Time: 3 July 2013, 10:10:51.036 pm UUID: b7947681-b5b3-924d-afff-589ced549550 Ancestors: PackageInfo-Base-fbs.65 #gather: (also known as #flatMap: or #mapcan:) belongs in the Collections package: it's generally useful outside PackageInfo. =============== Diff against PackageInfo-Base-fbs.65 =============== Item was removed: - ----- Method: Collection>>gather: (in category '*packageinfo-base') ----- - gather: aBlock - ^ Array streamContents: - [:stream | - self do: [:ea | stream nextPutAll: (aBlock value: ea)]]!

1 0

The Trunk: Collections-fbs.522.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.522.mcz ==================== Summary ==================== Name: Collections-fbs.522 Author: fbs Time: 3 July 2013, 10:11:18.754 pm UUID: 716983f2-7bba-014d-a133-8bd130322af0 Ancestors: Collections-fbs.521 #gather: (also known as #flatMap: or #mapcan:) belongs in the Collections package: it's generally useful outside PackageInfo. =============== Diff against Collections-fbs.521 =============== Item was added: + ----- Method: Collection>>gather: (in category 'enumerating') ----- + gather: aBlock + ^ Array streamContents: + [:stream | + self do: [:ea | stream nextPutAll: (aBlock value: ea)]]!

1 0

The Trunk: PackageInfo-Base-fbs.66.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

1 0

The Trunk: Collections-fbs.522.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

1 0

The Trunk: PackageInfo-Base-fbs.66.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

1 0

The Trunk: Morphic-fbs.662.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.662.mcz ==================== Summary ==================== Name: Morphic-fbs.662 Author: fbs Time: 3 July 2013, 9:50:19.085 pm UUID: fdf483c9-3f11-f842-888f-24421c1c6acb Ancestors: Morphic-fbs.661 Some stuff that's easily movable from Morphic to MorphicExtras. =============== Diff against Morphic-fbs.661 =============== Item was removed: - ----- Method: HandMorph>>pauseEventRecorderIn: (in category 'event handling') ----- - pauseEventRecorderIn: aWorld - "Suspend any recorder prior to a project change, and return it. - It will be resumed after starting the new project." - eventListeners ifNil:[^nil]. - eventListeners do: - [:er | (er isKindOf: EventRecorderMorph) ifTrue: [^ er pauseIn: aWorld]]. - ^ nil! Item was removed: - ----- Method: Morph>>asEPS (in category '*morphic-Postscript Canvases') ----- - asEPS - - ^ EPSCanvas morphAsPostscript: self rotated: false. - ! Item was removed: - ----- Method: Morph>>asPostscriptPrintJob (in category '*morphic-Postscript Canvases') ----- - asPostscriptPrintJob - - ^ DSCPostscriptCanvas morphAsPostscript: self rotated: false. - ! Item was removed: - ----- Method: Morph>>printPSToFileNamed: (in category 'menus') ----- - printPSToFileNamed: aString - "Ask the user for a filename and print this morph as postscript." - | fileName rotateFlag psCanvasType psExtension | - fileName := aString asFileName. - psCanvasType := PostscriptCanvas defaultCanvasType. - psExtension := psCanvasType defaultExtension. - fileName := UIManager default request: (String streamContents: [ :s | - s nextPutAll: ('File name? ("{1}" will be added to end)' translated format: {psExtension})]) - initialAnswer: fileName. - fileName isEmpty - ifTrue: [^ Beeper beep]. - (fileName endsWith: psExtension) - ifFalse: [fileName := fileName , psExtension]. - rotateFlag := (UIManager default chooseFrom: { - 'portrait (tall)' translated. - 'landscape (wide)' translated. - } title: 'Choose orientation...' translated) = 2. - ((FileStream newFileNamed: fileName asFileName) converter: TextConverter defaultSystemConverter) - nextPutAll: (psCanvasType morphAsPostscript: self rotated: rotateFlag); - close! Item was removed: - ----- Method: PasteUpMorph class>>newWorldTesting (in category 'project') ----- - newWorldTesting - - | world ex | - - ex := 500@500. - world := PasteUpMorph newWorldForProject: nil. - world extent: ex; color: Color orange. - world openInWorld. - world viewBox: (0@0 extent: ex). - BouncingAtomsMorph new openInWorld: world. - - "----- - - | world window | - world := PasteUpMorph newWorldForProject: nil. - world extent: 300@300; color: Color orange. - world viewBox: (0@0 extent: 300@300). - window := (SystemWindow labelled: 'the new world') model: world. - window color: Color orange. - window addMorph: world frame: (0@0 extent: 1.0(a)1.0). - window openInWorld. - - ---" - ! Item was changed: ----- Method: TextMorph>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: aCustomMenu hand: aHandMorph | outer | super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu add: 'text properties...' translated action: #changeTextColor. aCustomMenu addUpdating: #autoFitString target: self action: #autoFitOnOff. aCustomMenu addUpdating: #wrapString target: self action: #wrapOnOff. aCustomMenu add: 'text margins...' translated action: #changeMargins:. aCustomMenu add: 'add predecessor' translated action: #addPredecessor:. aCustomMenu add: 'add successor' translated action: #addSuccessor:. outer := self owner. outer ifNotNil: [ outer isLineMorph ifTrue: [container isNil + ifTrue: [Smalltalk at: #TextOnCurveContainer ifPresent: [:ignored | aCustomMenu add: 'follow owner''s curve' translated action: #followCurve]] - ifTrue: [aCustomMenu add: 'follow owner''s curve' translated action: #followCurve] ifFalse: [aCustomMenu add: 'reverse direction' translated action: #reverseCurveDirection. aCustomMenu add: 'set baseline' translated action: #setCurveBaseline:]] ifFalse: [self fillsOwner ifFalse: [aCustomMenu add: 'fill owner''s shape' translated action: #fillingOnOff] ifTrue: [aCustomMenu add: 'rectangular bounds' translated action: #fillingOnOff]. self avoidsOcclusions ifFalse: [aCustomMenu add: 'avoid occlusions' translated action: #occlusionsOnOff] ifTrue: [aCustomMenu add: 'ignore occlusions' translated action: #occlusionsOnOff]]]. aCustomMenu addLine. aCustomMenu add: 'holder for characters' translated action: #holderForCharacters !

1 0

The Trunk: Morphic-fbs.662.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

1 0

The Trunk: Morphic-fbs.662.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

1 0

The Trunk: MorphicExtras-fbs.112.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-fbs.112.mcz ==================== Summary ==================== Name: MorphicExtras-fbs.112 Author: fbs Time: 3 July 2013, 9:50:50.965 pm UUID: 3d28e62d-4971-f14f-bbf1-29b3ab896170 Ancestors: MorphicExtras-nice.111 Some stuff that's easily movable from Morphic to MorphicExtras. =============== Diff against MorphicExtras-nice.111 =============== Item was changed: - SystemOrganization addCategory: #'MorphicExtras-Demo'! - SystemOrganization addCategory: #'MorphicExtras-AdditionalSupport'! SystemOrganization addCategory: #'MorphicExtras-AdditionalMorphs'! + SystemOrganization addCategory: #'MorphicExtras-AdditionalSupport'! - SystemOrganization addCategory: #'MorphicExtras-Widgets'! - SystemOrganization addCategory: #'MorphicExtras-Books'! - SystemOrganization addCategory: #'MorphicExtras-Postscript Filters'! - SystemOrganization addCategory: #'MorphicExtras-Support'! - SystemOrganization addCategory: #'MorphicExtras-SoundInterface'! - SystemOrganization addCategory: #'MorphicExtras-Undo'! - SystemOrganization addCategory: #'MorphicExtras-Postscript Canvases'! - SystemOrganization addCategory: #'MorphicExtras-PartsBin'! SystemOrganization addCategory: #'MorphicExtras-AdditionalWidgets'! + SystemOrganization addCategory: #'MorphicExtras-Books'! + SystemOrganization addCategory: #'MorphicExtras-Demo'! + SystemOrganization addCategory: #'MorphicExtras-EToy-Download'! SystemOrganization addCategory: #'MorphicExtras-Flaps'! - SystemOrganization addCategory: #'MorphicExtras-Navigators'! SystemOrganization addCategory: #'MorphicExtras-GeeMail'! - SystemOrganization addCategory: #'MorphicExtras-Palettes'! SystemOrganization addCategory: #'MorphicExtras-Leds'! + SystemOrganization addCategory: #'MorphicExtras-Navigators'! + SystemOrganization addCategory: #'MorphicExtras-Obsolete'! + SystemOrganization addCategory: #'MorphicExtras-Palettes'! + SystemOrganization addCategory: #'MorphicExtras-PartsBin'! + SystemOrganization addCategory: #'MorphicExtras-Postscript Canvases'! + SystemOrganization addCategory: #'MorphicExtras-Postscript Filters'! + SystemOrganization addCategory: #'MorphicExtras-SoundInterface'! SystemOrganization addCategory: #'MorphicExtras-SqueakPage'! + SystemOrganization addCategory: #'MorphicExtras-Support'! SystemOrganization addCategory: #'MorphicExtras-Text Support'! + SystemOrganization addCategory: #'MorphicExtras-Undo'! + SystemOrganization addCategory: #'MorphicExtras-Widgets'! - SystemOrganization addCategory: #'MorphicExtras-Obsolete'! - SystemOrganization addCategory: #'MorphicExtras-EToy-Download'! Item was added: + ----- Method: HandMorph>>pauseEventRecorderIn: (in category '*MorphicExtras-event handling') ----- + pauseEventRecorderIn: aWorld + "Suspend any recorder prior to a project change, and return it. + It will be resumed after starting the new project." + eventListeners ifNil:[^nil]. + eventListeners do: + [:er | (er isKindOf: EventRecorderMorph) ifTrue: [^ er pauseIn: aWorld]]. + ^ nil! Item was added: + ----- Method: Morph>>asEPS (in category '*MorphicExtras-postscript') ----- + asEPS + + ^ EPSCanvas morphAsPostscript: self rotated: false. + ! Item was added: + ----- Method: Morph>>asPostscriptPrintJob (in category '*MorphicExtras-postscript') ----- + asPostscriptPrintJob + + ^ DSCPostscriptCanvas morphAsPostscript: self rotated: false. + ! Item was added: + ----- Method: Morph>>printPSToFileNamed: (in category '*MorphicExtras-menus') ----- + printPSToFileNamed: aString + "Ask the user for a filename and print this morph as postscript." + | fileName rotateFlag psCanvasType psExtension | + fileName := aString asFileName. + psCanvasType := PostscriptCanvas defaultCanvasType. + psExtension := psCanvasType defaultExtension. + fileName := UIManager default request: (String streamContents: [ :s | + s nextPutAll: ('File name? ("{1}" will be added to end)' translated format: {psExtension})]) + initialAnswer: fileName. + fileName isEmpty + ifTrue: [^ Beeper beep]. + (fileName endsWith: psExtension) + ifFalse: [fileName := fileName , psExtension]. + rotateFlag := (UIManager default chooseFrom: { + 'portrait (tall)' translated. + 'landscape (wide)' translated. + } title: 'Choose orientation...' translated) = 2. + ((FileStream newFileNamed: fileName asFileName) converter: TextConverter defaultSystemConverter) + nextPutAll: (psCanvasType morphAsPostscript: self rotated: rotateFlag); + close! Item was added: + ----- Method: PasteUpMorph class>>newWorldTesting (in category '*MorphicExtras-project') ----- + newWorldTesting + + | world ex | + + ex := 500@500. + world := PasteUpMorph newWorldForProject: nil. + world extent: ex; color: Color orange. + world openInWorld. + world viewBox: (0@0 extent: ex). + BouncingAtomsMorph new openInWorld: world. + + "----- + + | world window | + world := PasteUpMorph newWorldForProject: nil. + world extent: 300@300; color: Color orange. + world viewBox: (0@0 extent: 300@300). + window := (SystemWindow labelled: 'the new world') model: world. + window color: Color orange. + window addMorph: world frame: (0@0 extent: 1.0(a)1.0). + window openInWorld. + + ---" + !

1 0

The Trunk: MorphicExtras-fbs.112.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

1 0

← Newer
1
...
44
45
46
47
48
49
50
...
53
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 July 2013