Packages December 2015

packages@lists.squeakfoundation.org

1 participants
36 discussions

The Trunk: Sound-tpr.47.mcz
by commits＠source.squeak.org 16 Dec '15

16 Dec '15

tim Rowledge uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-tpr.47.mcz ==================== Summary ==================== Name: Sound-tpr.47 Author: tpr Time: 15 December 2015, 4:33:09.091 pm UUID: 998878c2-2ae5-41e1-b60a-dbc169c238cd Ancestors: Sound-nice.46 Protect SoundRecorder from primitiveFailed inside a critical block; raise a Warning signal afterwards instead of a raw error =============== Diff against Sound-nice.46 =============== Item was changed: ----- Method: SoundRecorder>>primStartRecordingDesiredSampleRate:stereo:semaIndex: (in category 'primitives') ----- primStartRecordingDesiredSampleRate: samplesPerSec stereo: stereoFlag semaIndex: anInteger + "Start sound recording with the given stereo setting. Use a sampling rate as close to the desired rate as the underlying platform will support. If the given semaphore index is > 0, it is taken to be the index of a Semaphore in the external objects array to be signalled every time a recording buffer is filled. + We do *not* raise a primitiveFailed error here since this prim is called insdied a critical blcok and that often makes things painful. The only really likely case where this prim fails is a linux machine with no sound input hardware (a Raspberry Pi for example). See the startRecording method for how the failure is handled" - "Start sound recording with the given stereo setting. Use a sampling rate as close to the desired rate as the underlying platform will support. If the given semaphore index is > 0, it is taken to be the index of a Semaphore in the external objects array to be signalled every time a recording buffer is filled." <primitive: 'primitiveSoundStartRecording' module: 'SoundPlugin'> + "self primitiveFailed" - self primitiveFailed ! Item was changed: ----- Method: SoundRecorder>>startRecording (in category 'recording controls') ----- startRecording + "Turn on the sound input driver and start the recording process. Initially, recording is paused. + If the primStartRecordingDesiredSampleRate:... fails it almost certainly means we have no usable + sound input device. Rather than having the prim raise a failure error we let it quietly do nothing + (since I hate trying to debug errors inside a critical block) and check the actual sampling rate later. + If the sampling rate is 0 we know the startup failed and raise an application level Signal to let any + user code know about the problem. + You might think we should also use the stopRecording message to close things down cleanly but + that simply results in astorm of attempts to start recording so it is simpler to let it be deluded. An + attempts to start recording will repeat the test and thereby handle any plug-in hardware etc." - "Turn of the sound input driver and start the recording process. Initially, recording is paused." recordLevel ifNil: [recordLevel := 0.5]. "lazy initialization" CanRecordWhilePlaying ifFalse: [SoundPlayer shutDown]. recordProcess ifNotNil: [self stopRecording]. paused := true. meteringBuffer := SoundBuffer newMonoSampleCount: 1024. meterLevel := 0. self allocateBuffer. Smalltalk newExternalSemaphoreDo: [ :semaphore :index | bufferAvailableSema := semaphore. self primStartRecordingDesiredSampleRate: samplingRate asInteger stereo: stereo semaIndex: index ]. RecorderActive := true. samplingRate := self primGetActualRecordingSampleRate. + samplingRate = 0 ifTrue: [ Warning signal: 'SoundRecorder: unable to connect to sound input device']. self primSetRecordLevel: (1000.0 * recordLevel) asInteger. recordProcess := [self recordLoop] newProcess. recordProcess priority: Processor userInterruptPriority. recordProcess resume!

1 0

The Trunk: Sound-tpr.47.mcz
by commits＠source.squeak.org 16 Dec '15

16 Dec '15

1 0

The Trunk: Morphic-mt.1059.mcz
by commits＠source.squeak.org 10 Dec '15

10 Dec '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1059.mcz ==================== Summary ==================== Name: Morphic-mt.1059 Author: mt Time: 10 December 2015, 9:49:58.039 am UUID: cbaef52e-fd80-4151-9a73-53b4eededc97 Ancestors: Morphic-tpr.1058 Fixes bug regarding the scaling of 8-bit color forms. =============== Diff against Morphic-tpr.1058 =============== Item was changed: ----- Method: Form>>scaledIntoFormOfSize:smoothing: (in category '*Morphic') ----- scaledIntoFormOfSize: aNumberOrPoint smoothing: factor "Scale and center the receiver into a form of a given size" | extent scaledForm result | extent := aNumberOrPoint asPoint. extent = self extent ifTrue: [^ self copy]. scaledForm := self scaledToSize: extent smoothing: factor. + result := self species extent: extent depth: self depth. - result := self species extent: extent depth: 32. result getCanvas translucentImage: scaledForm at: extent - scaledForm extent // 2. ^ result !

1 0

The Trunk: Morphic-mt.1059.mcz
by commits＠source.squeak.org 10 Dec '15

10 Dec '15

1 0

The Trunk: Tools-pre.659.mcz
by commits＠source.squeak.org 09 Dec '15

09 Dec '15

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.659.mcz ==================== Summary ==================== Name: Tools-pre.659 Author: pre Time: 8 December 2015, 7:16:41.034 pm UUID: a7cb3cba-074b-46a6-8a83-fada58007b25 Ancestors: Tools-eem.658 This adds balloon help texts to the message list of the standard browser to explain the symbols shown in front of message names. =============== Diff against Tools-eem.658 =============== Item was changed: ----- Method: Browser>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." + | source formatted | - | source formatted lineCount | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. source := (self selectedClassOrMetaClass >> (self messageList at: anIndex)) getSource. + source lineCount > 5 ifTrue: [ + | sourceLines | + sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. + sourceLines add: ' [...]'. + source := sourceLines joinSeparatedBy: Character cr]. + formatted := SHTextStylerST80 new classOrMetaClass: self selectedClassOrMetaClass; styledTextFor: source asText. - - lineCount := 0. - source doWithIndex: [:char :index | - char = Character cr ifTrue: [lineCount := lineCount + 1]. - lineCount > 10 ifTrue: [ - formatted := formatted copyFrom: 1 to: index-1. - formatted append: ' [...]'. - ^ formatted]]. + ^ (Text newFrom: ((self messageIconHelpAt: anIndex) ifNotEmpty: [:t | t , Character cr, Character cr])) + append: formatted; + yourself! - ^ formatted! Item was added: + ----- Method: Browser>>messageIconHelpAt: (in category 'message list') ----- + messageIconHelpAt: anIndex + + self class showMessageIcons + ifFalse: [^ nil]. + + ^ ToolIconHelp iconHelpNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass + selector: (self messageList at: anIndex))! Item was added: + Object subclass: #ToolIconHelp + instanceVariableNames: '' + classVariableNames: 'HelpTexts' + poolDictionaries: '' + category: 'Tools-Base'! Item was added: + ----- Method: ToolIconHelp class>>abstract (in category 'as yet unclassified') ----- + abstract + + ^ 'This method is abstract.' ! Item was added: + ----- Method: ToolIconHelp class>>arrowDown (in category 'as yet unclassified') ----- + arrowDown + + ^ 'This method is overriden by another method.'! Item was added: + ----- Method: ToolIconHelp class>>arrowUp (in category 'as yet unclassified') ----- + arrowUp + + ^ 'This method overrides a super method.'! Item was added: + ----- Method: ToolIconHelp class>>arrowUpAndDown (in category 'as yet unclassified') ----- + arrowUpAndDown + + ^ 'This method overrides and is overridden by other methods.'! Item was added: + ----- Method: ToolIconHelp class>>blank (in category 'as yet unclassified') ----- + blank + + ^ ''! Item was added: + ----- Method: ToolIconHelp class>>breakpoint (in category 'as yet unclassified') ----- + breakpoint + + ^ 'This method contains a breakpoint.'! Item was added: + ----- Method: ToolIconHelp class>>flag (in category 'as yet unclassified') ----- + flag + + ^ 'This method needs attention of some kind.' ! Item was added: + ----- Method: ToolIconHelp class>>helpTexts (in category 'as yet unclassified') ----- + helpTexts + + ^ HelpTexts ifNil: [HelpTexts := IdentityDictionary new]! Item was added: + ----- Method: ToolIconHelp class>>iconHelpNamed: (in category 'as yet unclassified') ----- + iconHelpNamed: aSymbol + + (self respondsTo: aSymbol) + ifTrue: [^self helpTexts at: aSymbol ifAbsentPut: [self perform: aSymbol]] + ifFalse: [^ ''] + ! Item was added: + ----- Method: ToolIconHelp class>>no (in category 'as yet unclassified') ----- + no + + ^ 'This method should not be implemented.' ! Item was added: + ----- Method: ToolIconHelp class>>notOverridden (in category 'as yet unclassified') ----- + notOverridden + + ^ 'This method is abstract and has not been overridden.' ! Item was added: + ----- Method: ToolIconHelp class>>primitive (in category 'as yet unclassified') ----- + primitive + + ^ 'This method implements a primitive.'!

1 0

The Trunk: Tools-pre.659.mcz
by commits＠source.squeak.org 09 Dec '15

09 Dec '15

1 0

The Trunk: Morphic-tpr.1058.mcz
by commits＠source.squeak.org 09 Dec '15

09 Dec '15

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1058.mcz ==================== Summary ==================== Name: Morphic-tpr.1058 Author: tpr Time: 8 December 2015, 6:45:23.463 pm UUID: c438744a-71c4-45a0-ade8-7ecf52f50f89 Ancestors: Morphic-cwp.1057, Morphic-tpr.1057 Transfer from inbox, keep up to date. =============== Diff against Morphic-cwp.1057 =============== Item was added: + ----- Method: HandMorph>>gridPointRaw (in category 'gridded cursor') ----- + gridPointRaw + "return my latest position gridded" + ^self griddedPoint: self currentEvent position! Item was added: + ----- Method: HandMorph>>gridTo:origin: (in category 'gridded cursor') ----- + gridTo: grid origin: offset + "set a couple of properties to specify gridding for the temporaryCursor; instvars would be nicer" + self setProperty: #gridStep toValue: grid; + setProperty: #gridOffset toValue: offset! Item was added: + ----- Method: HandMorph>>griddedPoint: (in category 'gridded cursor') ----- + griddedPoint: aPoint + "return the equivalent point snapped to the grid, if indeed any gridding is set" + self valueOfProperty: #gridStep ifPresentDo: [:grid| |offset| + offset := self valueOfProperty: #gridOffset ifAbsent: [0@0]. + ^ offset + (aPoint + (grid //2) - offset truncateTo: grid)]. + ^aPoint! Item was changed: ----- Method: HandMorph>>position: (in category 'geometry') ----- position: aPoint "Overridden to align submorph origins to the grid if gridding is on." | adjustedPosition delta box | adjustedPosition := aPoint. + temporaryCursor ifNotNil: [adjustedPosition := (self griddedPoint: adjustedPosition) + temporaryCursorOffset]. - temporaryCursor ifNotNil: [adjustedPosition := adjustedPosition + temporaryCursorOffset]. "Copied from Morph to avoid owner layoutChanged" "Change the position of this morph and and all of its submorphs." delta := adjustedPosition - bounds topLeft. delta isZero ifTrue: [^ self]. "Null change" box := self fullBounds. (delta dotProduct: delta) > 100 ifTrue:[ "e.g., more than 10 pixels moved" self invalidRect: box. self invalidRect: (box translateBy: delta). ] ifFalse:[ self invalidRect: (box merge: (box translateBy: delta)). ]. self privateFullMoveBy: delta. ! Item was added: + ----- Method: HandMorph>>turnOffGridding (in category 'gridded cursor') ----- + turnOffGridding + "remove the gridding properties to stop gridding" + self removeProperty: #gridStep; removeProperty: #gridOffset!

1 0

The Trunk: Morphic-tpr.1058.mcz
by commits＠source.squeak.org 09 Dec '15

09 Dec '15

1 0

The Trunk: Installer-Core-topa.402.mcz
by commits＠source.squeak.org 08 Dec '15

08 Dec '15

Tobias Pape uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-topa.402.mcz ==================== Summary ==================== Name: Installer-Core-topa.402 Author: topa Time: 8 December 2015, 9:41:01.27 pm UUID: 99770767-224c-4cc1-98ba-70a62d979822 Ancestors: Installer-Core-topa.401 This won't work in any way. Until we have a good way integrating Installer/SqueakMap and Metacello, remove this as it is confusing and unhelpful. =============== Diff against Installer-Core-topa.401 =============== Item was removed: - ----- Method: Installer>>fuel (in category 'package-definitions') ----- - fuel - "Serialization package." - ^ { #ss3 -> 'Fuel'. - 'ConfigurationOfFuel' }!

1 0

The Trunk: Installer-Core-topa.402.mcz
by commits＠source.squeak.org 08 Dec '15

08 Dec '15

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2015