Squeak-dev June 2011

squeak-dev@lists.squeakfoundation.org

77 participants
236 discussions

The Trunk: Morphic-cmm.548.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.548.mcz ==================== Summary ==================== Name: Morphic-cmm.548 Author: cmm Time: 21 June 2011, 3:41:38.366 pm UUID: 66bb56ac-68d6-4a76-ac20-588f3b193bbe Ancestors: Morphic-ul.547, Morphic-HenrikSperreJohansen.518 Merged Morphic-HenrikSperreJohansen.518. =============== Diff against Morphic-ul.547 =============== Item was changed: ----- Method: HaloMorph>>mouseDownInDimissHandle:with: (in category 'private') ----- mouseDownInDimissHandle: evt with: dismissHandle evt hand obtainHalo: self. + SoundService soundEnabled ifTrue: [TrashCanMorph playMouseEnterSound]. - Preferences soundsEnabled ifTrue: [TrashCanMorph playMouseEnterSound]. self removeAllHandlesBut: dismissHandle. self setColor: Color darkGray toHandle: dismissHandle. ! Item was changed: ----- Method: Morph>>vanishAfterSlidingTo:event: (in category 'dropping/grabbing') ----- vanishAfterSlidingTo: aPosition event: evt | aForm aWorld startPoint endPoint | aForm := self imageForm offset: 0@0. aWorld := self world. startPoint := evt hand fullBounds origin. self delete. aWorld displayWorld. endPoint := aPosition. aForm slideFrom: startPoint to: endPoint nSteps: 12 delay: 15. + SoundService soundEnabled ifTrue: [TrashCanMorph playDeleteSound]. - Preferences soundsEnabled ifTrue: [TrashCanMorph playDeleteSound]. !

1 0

The Trunk: System-HenrikSperreJohansen.416.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-HenrikSperreJohansen.416.mcz ==================== Summary ==================== Name: System-HenrikSperreJohansen.416 Author: HenrikSperreJohansen Time: 21 January 2011, 8:11:52.888 pm UUID: ea7efc24-841a-3642-aa85-55ec53f0ffad Ancestors: System-dtl.414 Update to use pragma-based sound preferences =============== Diff against System-dtl.414 =============== Item was changed: ----- Method: Beeper class>>beepPrimitive (in category 'beeping') ----- beepPrimitive "Make a primitive beep. Only use this if you want to force this to be a primitive beep. Otherwise use Beeper class>>beep since this method bypasses the current registered playable entity." + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ self primitiveBeep]! Item was changed: + ----- Method: Preferences class>>canRecordWhilePlaying (in category 'sound') ----- - ----- Method: Preferences class>>canRecordWhilePlaying (in category 'standard queries') ----- canRecordWhilePlaying + self deprecated: 'Ask the sound recorder for this info'. + ^SoundRecorder canRecordWhilePlaying! - ^ self - valueOfFlag: #canRecordWhilePlaying - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'misc') ----- defaultValueTableForCurrentRelease "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" ^ #( (abbreviatedBrowserButtons false) (alternativeBrowseIt false) (annotationPanes false) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) (automaticKeyGeneration false) (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (browseWithDragNDrop false) (browseWithPrettyPrint false) (browserShowsPackagePane false) (canRecordWhilePlaying false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled false) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (compactViewerFlaps false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (cpuWatcherEnabled false) (debugHaloHandle true) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dragNDropWithAnimation false) (eToyFriendly false) (eToyLoginEnabled false) (enableLocalSave true) (extractFlashInHighQuality true) (extractFlashInHighestQuality false) (fastDragWindowForMorphic true) (fenceEnabled true) (fullScreenLeavesDeskMargins true) (haloTransitions false) (hiddenScrollBars false) (higherPerformance false) (honorDesktopCmdKeys true) (ignoreStyleIfOnlyBold true) (includeSoundControlInNavigator false) (infiniteUndo false) (logDebuggerStackToFile true) (magicHalos false) (menuButtonInToolPane false) (menuColorFromWorld false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverForKeyboardFocus false) (mouseOverHalos false) (mvcProjectsAllowed true) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (preserveTrash true) (projectViewsInWindows true) (projectZoom true) (projectsSentToDisk false) (promptForUpdateServer true) (propertySheetFromHalo false) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (roundedMenuCorners true) (roundedWindowCorners true) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) (securityChecksEnabled false) (selectiveHalos false) (showBoundsInHalo false) (showDirectionForSketches false) (showDirectionHandles false) (showFlapsWhenPublishing false) (showProjectNavigator false) (showSecurityStatus true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (slideDismissalsToTrash true) (smartUpdating true) (soundQuickStart false) + (stopSoundWhenDone false) + (soundEnabled true) - (soundStopWhenDone false) - (soundsEnabled true) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (thoroughSenders true) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (updateSavesFile false) (useButtonProprtiesToFire false) (useUndo true) (viewersInFlaps true) (warnAboutInsecureContent true) (warnIfNoChangesFile true) (warnIfNoSourcesFile true)) " Preferences defaultValueTableForCurrentRelease do: [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: [:pref | pref defaultValue: (pair last == true)]]. Preferences chooseInitialSettings. "! Item was changed: + ----- Method: Preferences class>>soundEnablingString (in category 'sound') ----- - ----- Method: Preferences class>>soundEnablingString (in category 'misc') ----- soundEnablingString + self deprecated: 'Ask the sound service for this'. + ^ SoundService soundEnablingString! - ^ self soundsEnabled - ifFalse: - ['turn sound on' translated] - ifTrue: - ['turn sound off' translated]! Item was changed: + ----- Method: Preferences class>>soundQuickStart (in category 'sound') ----- - ----- Method: Preferences class>>soundQuickStart (in category 'standard queries') ----- soundQuickStart + self deprecated: 'Ask the sound player for this info'. + ^SoundPlayer soundQuickStart! - ^ self - valueOfFlag: #soundQuickStart - ifAbsent: [false]! Item was changed: + ----- Method: Preferences class>>soundStopWhenDone (in category 'sound') ----- - ----- Method: Preferences class>>soundStopWhenDone (in category 'standard queries') ----- soundStopWhenDone + self deprecated: 'Ask the sound player for this info'. + ^SoundPlayer stopSoundWhenDone! - ^ self - valueOfFlag: #soundStopWhenDone - ifAbsent: [false]! Item was changed: + ----- Method: Preferences class>>soundsEnabled (in category 'sound') ----- - ----- Method: Preferences class>>soundsEnabled (in category 'standard queries') ----- soundsEnabled + self deprecated: 'Sound now uses now preference pragmas. + Setting available directly in SoundService'. + ^SoundService soundEnabled! - ^ self - valueOfFlag: #soundsEnabled - ifAbsent: [true]! Item was changed: + ----- Method: Preferences class>>toggleSoundEnabling (in category 'sound') ----- - ----- Method: Preferences class>>toggleSoundEnabling (in category 'misc') ----- toggleSoundEnabling + self deprecated: 'Now uses pragma preference, and is stored in SoundService'. + SoundService toggleSoundEnabling! - self togglePreference: #soundsEnabled! Item was changed: ----- Method: SmalltalkImage>>setPlatformPreferences (in category 'snapshot and quit') ----- setPlatformPreferences "Set some platform specific preferences on system startup" | platform specs | Preferences automaticPlatformSettings ifFalse:[^self]. + SoundPlayer soundQuickStart: SoundPlayer defaultQuickStartForPlatform. + SoundPlayer stopSoundWhenDone: SoundPlayer defaultStopSoundForPlatform. platform := self platformName. + specs := #(). - specs := #( - (soundStopWhenDone true) - (soundQuickStart false) - ). platform = 'Win32' ifTrue:[ + specs := #()]. - specs := #( - (soundStopWhenDone true) - (soundQuickStart false) - )]. platform = 'Mac OS' ifTrue:[ + specs := #()]. - specs := #( - (soundStopWhenDone false) - (soundQuickStart true) - )]. specs do:[:tuple| Preferences setPreference: tuple first toValue: (tuple last == true). ]. ! Item was changed: AppRegistry subclass: #SoundService instanceVariableNames: '' + classVariableNames: 'SoundEnabled' - classVariableNames: '' poolDictionaries: '' category: 'System-Applications'! !SoundService commentStamp: 'gk 2/24/2004 23:14' prior: 0! This is the AppRegistry class for the sound system. A sound system offers a small protocol for playing sounds and making beeps and works like a facade towards the rest of Squeak. A sound system is registered in this registry and can be accessed by "SoundService default". This way we decouple the sound system from the rest of Squeak and make it pluggable. It also is a perfect spot to check for the Preference class>>soundsEnabled.! Item was added: + ----- Method: SoundService class>>soundEnabled (in category 'preferences') ----- + soundEnabled + <preference: 'Enable sound' + category: 'media' + description: 'If false, all sound playing is disabled' + type: #Boolean> + ^SoundEnabled ifNil: [false]! Item was added: + ----- Method: SoundService class>>soundEnabled: (in category 'preferences') ----- + soundEnabled: aBoolean + SoundEnabled := aBoolean! Item was added: + ----- Method: SoundService class>>soundEnablingString (in category 'preferences') ----- + soundEnablingString + ^ self soundEnabled + ifFalse: + ['turn sound on' translated] + ifTrue: + ['turn sound off' translated]! Item was added: + ----- Method: SoundService class>>toggleSoundEnabled (in category 'preferences') ----- + toggleSoundEnabled + self soundEnabled: self soundEnabled not!

1 0

The Trunk: MorphicExtras-HenrikSperreJohansen.100.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-HenrikSperreJohansen.100.mcz ==================== Summary ==================== Name: MorphicExtras-HenrikSperreJohansen.100 Author: HenrikSperreJohansen Time: 21 January 2011, 8:12:44.296 pm UUID: 4f7e3cb3-a980-dd4b-98e0-ec176e5d3736 Ancestors: MorphicExtras-nice.98 Update to use pragma-based sound preferences =============== Diff against MorphicExtras-nice.98 =============== Item was changed: ----- Method: TrashCanMorph class>>moveToTrash: (in category 'miscellaneous') ----- moveToTrash: aMorph + SoundService soundEnabled ifTrue: - Preferences soundsEnabled ifTrue: [Preferences preserveTrash ifFalse: [self playSoundNamed: 'scratch'] ifTrue: [self playDeleteSound]]. aMorph delete. aMorph == Utilities scrapsBook ifFalse: [Utilities addToTrash: aMorph]! Item was changed: ----- Method: TrashCanMorph>>acceptDroppingMorph:event: (in category 'layout') ----- acceptDroppingMorph: aMorph event: evt + SoundService soundEnabled - Preferences soundsEnabled ifTrue: [Preferences preserveTrash ifTrue: [self class playDeleteSound] ifFalse: [self playSoundNamed: 'scratch']]. evt hand visible: true. self state: #off. aMorph delete. aMorph == Utilities scrapsBook ifFalse: [Utilities addToTrash: aMorph removeHalo]! Item was changed: ----- Method: TrashCanMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: event "Present feedback for potential deletion." | hand firstSub | hand := event hand. ((hand submorphCount > 0 and: [(firstSub := hand submorphs first) ~~ self]) and: [self wantsDroppedMorph: firstSub event: event]) + ifTrue: [SoundService soundEnabled - ifTrue: [Preferences soundsEnabled ifTrue: [self class playMouseEnterSound]. "hand visible: false." "This leads to confusion. Let morph and hand appear til dropped." "self world abandonAllHalos." "hand halo: nil." self state: #pressed] ifFalse: [self showStampIn: hand]! Item was changed: ----- Method: TrashCanMorph>>mouseLeave: (in category 'event handling') ----- mouseLeave: event "Present feedback for aborted deletion." | hand | hand := event hand. ((hand submorphCount > 0) and: [hand submorphs first ~~ self]) ifTrue: + [SoundService soundEnabled ifTrue: [self class playMouseLeaveSound]. - [Preferences soundsEnabled ifTrue: [self class playMouseLeaveSound]. hand visible: true. self state: #off] ifFalse: [self stopShowingStampIn: hand]. !

1 0

The Trunk: Sound-HenrikSperreJohansen.28.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-HenrikSperreJohansen.28.mcz ==================== Summary ==================== Name: Sound-HenrikSperreJohansen.28 Author: HenrikSperreJohansen Time: 21 January 2011, 8:11:33.349 pm UUID: 9292e731-70f3-674a-8e71-fc26c493d578 Ancestors: Sound-ul.26 Update to use pragma-based sound preferences =============== Diff against Sound-ul.26 =============== Item was changed: ----- Method: BaseSoundSystem>>beep (in category 'playing') ----- beep "There is sound support, so we use the default sampled sound for a beep." + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ SampledSound beep]! Item was changed: ----- Method: BaseSoundSystem>>playSampledSound:rate: (in category 'playing') ----- playSampledSound: samples rate: rate + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ (SampledSound samples: samples samplingRate: rate) play]! Item was changed: ----- Method: BaseSoundSystem>>playSoundNamed: (in category 'playing') ----- playSoundNamed: soundName "There is sound support, so we play the given sound." + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ SampledSound playSoundNamed: soundName asString]! Item was changed: ----- Method: BaseSoundSystem>>playSoundNamed:ifAbsentReadFrom: (in category 'playing') ----- playSoundNamed: soundName ifAbsentReadFrom: aifFileName + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ (SampledSound soundNames includes: soundName) ifFalse: [ (FileDirectory default fileExists: aifFileName) ifTrue: [ SampledSound addLibrarySoundNamed: soundName fromAIFFfileNamed: aifFileName]]. (SampledSound soundNames includes: soundName) ifTrue: [ SampledSound playSoundNamed: soundName]]! Item was changed: ----- Method: BaseSoundSystem>>playSoundNamedOrBeep: (in category 'playing') ----- playSoundNamedOrBeep: soundName "There is sound support, so we play the given sound instead of beeping." + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ ^self playSoundNamed: soundName]! Item was changed: Object subclass: #SoundPlayer instanceVariableNames: '' + classVariableNames: 'ActiveSounds Buffer BufferIndex BufferMSecs LastBuffer PlayerProcess PlayerSemaphore ReadyForBuffer ReverbState SamplingRate SoundJustStarted SoundSupported SoundsShouldStartQuick SoundsStopWhenDone Stereo UseReadySemaphore UseReverb' - classVariableNames: 'ActiveSounds Buffer BufferIndex BufferMSecs LastBuffer PlayerProcess PlayerSemaphore ReadyForBuffer ReverbState SamplingRate SoundJustStarted SoundSupported Stereo UseReadySemaphore UseReverb' poolDictionaries: '' category: 'Sound-Synthesis'! Item was changed: ----- Method: SoundPlayer class>>canStartPlayer (in category 'playing') ----- canStartPlayer "Some platforms do no support simultaneous record and play. If this is one of those platforms, return false if there is a running SoundRecorder." + ^SoundRecorder canRecordWhilePlaying + or: [ SoundRecorder anyActive not] + - Preferences canRecordWhilePlaying ifTrue: [^ true]. - SoundRecorder anyActive ifTrue:[^false]. - ^ true ! Item was added: + ----- Method: SoundPlayer class>>defaultQuickStartForPlatform (in category 'preferences') ----- + defaultQuickStartForPlatform + + ^ Smalltalk os platformName = 'Mac OS'. + ! Item was added: + ----- Method: SoundPlayer class>>defaultStopSoundForPlatform (in category 'preferences') ----- + defaultStopSoundForPlatform + + ^(Smalltalk os platformName = 'Mac OS') not + ! Item was changed: ----- Method: SoundPlayer class>>playLoop (in category 'player process') ----- playLoop "The sound player process loop." | bytesPerSlice count willStop mayStop | + mayStop := self stopSoundWhenDone. - mayStop := Preferences soundStopWhenDone. bytesPerSlice := Stereo ifTrue: [4] ifFalse: [2]. [true] whileTrue: [ [(count := self primSoundAvailableBytes // bytesPerSlice) > 100] whileFalse: [ReadyForBuffer wait]. count := count min: Buffer stereoSampleCount. PlayerSemaphore critical: [ ActiveSounds := ActiveSounds select: [:snd | snd samplesRemaining > 0]. ActiveSounds do: [:snd | snd ~~ SoundJustStarted ifTrue: [ snd playSampleCount: count into: Buffer startingAt: 1]]. ReverbState == nil ifFalse: [ ReverbState applyReverbTo: Buffer startingAt: 1 count: count]. self primSoundPlaySamples: count from: Buffer startingAt: 1. willStop := mayStop and:[ (ActiveSounds size = 0) and:[ self isAllSilence: Buffer size: count]]. LastBuffer ifNotNil:[ LastBuffer replaceFrom: 1 to: LastBuffer size with: Buffer startingAt: 1. ]. willStop ifTrue:[self shutDown. PlayerProcess := nil] ifFalse:[Buffer primFill: 0]. SoundJustStarted := nil]. willStop ifTrue:[^self]. ]. ! Item was changed: ----- Method: SoundPlayer class>>resumePlaying:quickStart: (in category 'playing') ----- resumePlaying: aSound quickStart: quickStart "Start playing the given sound without resetting it; it will resume playing from where it last stopped. If quickStart is true, then try to start playing the given sound immediately." | doQuickStart | + SoundService soundEnabled ifFalse: [^ self]. - Preferences soundsEnabled ifFalse: [^ self]. doQuickStart := quickStart. + self soundQuickStart ifFalse: [doQuickStart := false]. - Preferences soundQuickStart ifFalse: [doQuickStart := false]. PlayerProcess == nil ifTrue: [ self canStartPlayer ifFalse: [^ self]. ^self startUpWithSound: aSound]. PlayerSemaphore critical: [ (ActiveSounds includes: aSound) ifTrue: [doQuickStart := false] ifFalse: [ doQuickStart ifFalse: [ActiveSounds add: aSound]]]. "quick-start the given sound, unless the sound player has just started" doQuickStart ifTrue: [self startPlayingImmediately: aSound]. ! Item was added: + ----- Method: SoundPlayer class>>soundQuickStart (in category 'preferences') ----- + soundQuickStart + <preference: 'Quickstart Sounds' + category: 'media' + description: 'If true, attempt to start playing sounds using option "quick start"' + type: #Boolean> + + ^SoundsShouldStartQuick ifNil: [self defaultQuickStartForPlatform]! Item was added: + ----- Method: SoundPlayer class>>soundQuickStart: (in category 'preferences') ----- + soundQuickStart: aBoolean + + + SoundsShouldStartQuick := aBoolean! Item was added: + ----- Method: SoundPlayer class>>stopSoundWhenDone (in category 'preferences') ----- + stopSoundWhenDone + <preference: 'Stop sounds when done' + category: 'media' + description: 'If true, the sound player is shut down after playing finished' + type: #Boolean> + + ^SoundsStopWhenDone ifNil: [self defaultStopSoundForPlatform]! Item was added: + ----- Method: SoundPlayer class>>stopSoundWhenDone: (in category 'preferences') ----- + stopSoundWhenDone: aBoolean + + SoundsStopWhenDone := aBoolean! Item was changed: ----- Method: SoundRecorder class>>canRecordWhilePlaying (in category 'accessing') ----- canRecordWhilePlaying "Return true if this platform supports simultaneous sound recording and playback." + <preference: 'Record while playing' + category: 'media' + description: 'If true, recording and playing sounds concurrently is permitted (platform dependent)' + type: #Boolean> + ^CanRecordWhilePlaying ifNil: [false]. - - ^Preferences canRecordWhilePlaying. "now in preferences" ! Item was added: + ----- Method: SoundRecorder class>>canRecordWhilePlaying: (in category 'accessing') ----- + canRecordWhilePlaying: aBoolean + + CanRecordWhilePlaying := aBoolean + ! Item was changed: ----- Method: SoundRecorder class>>initialize (in category 'class initialization') ----- initialize "SoundRecorder initialize" "Details: Some computers cannot record and playback sound at the same time. If CanRecordWhilePlaying is false, then the SoundRecorder alternates between recording and playing. If it is true, sounds can be playing during recording." + CanRecordWhilePlaying := false. - CanRecordWhilePlaying := #ignoredNowInPreferences. ! Item was changed: ----- Method: SoundRecorder>>pause (in category 'recording controls') ----- pause "Go into pause mode. The record level continues to be updated, but no sound is recorded." paused := true. ((currentBuffer ~~ nil) and: [nextIndex > 1]) ifTrue: [self emitPartialBuffer. self allocateBuffer]. soundPlaying ifNotNil: [ soundPlaying pause. soundPlaying := nil]. "Note: there can be problems if canRecordWhilePlaying is true. Recorders which only pause will inhibit other recorders from recording. I chose to make #stopPlaying unconditional in a subclass. The same might be appropriate here at the expense of making recorders resumable" + CanRecordWhilePlaying ifFalse: [self stopRecording]. - Preferences canRecordWhilePlaying ifFalse: [self stopRecording]. ! Item was changed: ----- Method: SoundRecorder>>resumeRecording (in category 'recording controls') ----- resumeRecording "Continue recording from the point at which it was last paused." self flag: #bob. "Note: If canRecordWhilePlaying is true, then recordings may never get started (at least by this method). One possibility, used in a subclass, is to make the #startPlaying unconditional. Another would be to use #startPlaying instead of #resumePlaying in appropriate cases" + CanRecordWhilePlaying ifFalse: [self startRecording]. - Preferences canRecordWhilePlaying ifFalse: [self startRecording]. paused := false. ! Item was changed: ----- Method: SoundRecorder>>startRecording (in category 'recording controls') ----- startRecording "Turn of the sound input driver and start the recording process. Initially, recording is paused." | semaIndex | recordLevel ifNil: [recordLevel := 0.5]. "lazy initialization" + CanRecordWhilePlaying ifFalse: [SoundPlayer shutDown]. - Preferences canRecordWhilePlaying ifFalse: [SoundPlayer shutDown]. recordProcess ifNotNil: [self stopRecording]. paused := true. meteringBuffer := SoundBuffer newMonoSampleCount: 1024. meterLevel := 0. self allocateBuffer. bufferAvailableSema := Semaphore new. semaIndex := Smalltalk registerExternalObject: bufferAvailableSema. self primStartRecordingDesiredSampleRate: samplingRate asInteger stereo: stereo semaIndex: semaIndex. RecorderActive := true. samplingRate := self primGetActualRecordingSampleRate. self primSetRecordLevel: (1000.0 * recordLevel) asInteger. recordProcess := [self recordLoop] newProcess. recordProcess priority: Processor userInterruptPriority. recordProcess resume. !

1 0

The Trunk: MorphicExtras-cmm.101.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-cmm.101.mcz ==================== Summary ==================== Name: MorphicExtras-cmm.101 Author: cmm Time: 21 June 2011, 3:37:20.304 pm UUID: f85435f1-3081-4a2f-9e30-ea887221b543 Ancestors: MorphicExtras-ul.100, MorphicExtras-HenrikSperreJohansen.100 Merged MorphicExtras-HenrikSperreJohansen.100. =============== Diff against MorphicExtras-ul.100 =============== Item was changed: ----- Method: TrashCanMorph class>>moveToTrash: (in category 'miscellaneous') ----- moveToTrash: aMorph + SoundService soundEnabled ifTrue: - Preferences soundsEnabled ifTrue: [Preferences preserveTrash ifFalse: [self playSoundNamed: 'scratch'] ifTrue: [self playDeleteSound]]. aMorph delete. aMorph == Utilities scrapsBook ifFalse: [Utilities addToTrash: aMorph]! Item was changed: ----- Method: TrashCanMorph>>acceptDroppingMorph:event: (in category 'layout') ----- acceptDroppingMorph: aMorph event: evt + SoundService soundEnabled - Preferences soundsEnabled ifTrue: [Preferences preserveTrash ifTrue: [self class playDeleteSound] ifFalse: [self playSoundNamed: 'scratch']]. evt hand visible: true. self state: #off. aMorph delete. aMorph == Utilities scrapsBook ifFalse: [Utilities addToTrash: aMorph removeHalo]! Item was changed: ----- Method: TrashCanMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: event "Present feedback for potential deletion." | hand firstSub | hand := event hand. ((hand submorphCount > 0 and: [(firstSub := hand submorphs first) ~~ self]) and: [self wantsDroppedMorph: firstSub event: event]) + ifTrue: [SoundService soundEnabled - ifTrue: [Preferences soundsEnabled ifTrue: [self class playMouseEnterSound]. "hand visible: false." "This leads to confusion. Let morph and hand appear til dropped." "self world abandonAllHalos." "hand halo: nil." self state: #pressed] ifFalse: [self showStampIn: hand]! Item was changed: ----- Method: TrashCanMorph>>mouseLeave: (in category 'event handling') ----- mouseLeave: event "Present feedback for aborted deletion." | hand | hand := event hand. ((hand submorphCount > 0) and: [hand submorphs first ~~ self]) ifTrue: + [SoundService soundEnabled ifTrue: [self class playMouseLeaveSound]. - [Preferences soundsEnabled ifTrue: [self class playMouseLeaveSound]. hand visible: true. self state: #off] ifFalse: [self stopShowingStampIn: hand]. !

1 0

The Trunk: System-cmm.443.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.443.mcz ==================== Summary ==================== Name: System-cmm.443 Author: cmm Time: 21 June 2011, 3:34:50.504 pm UUID: 905294e4-8bce-4db0-b4fc-864cc16094ae Ancestors: System-ul.442, System-HenrikSperreJohansen.416 Merged System-HenrikSperreJohansen.416, support for moving Sound preferences out of Preferences. =============== Diff against System-ul.442 =============== Item was changed: ----- Method: Beeper class>>beepPrimitive (in category 'beeping') ----- beepPrimitive "Make a primitive beep. Only use this if you want to force this to be a primitive beep. Otherwise use Beeper class>>beep since this method bypasses the current registered playable entity." + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ self primitiveBeep]! Item was changed: + ----- Method: Preferences class>>canRecordWhilePlaying (in category 'sound') ----- - ----- Method: Preferences class>>canRecordWhilePlaying (in category 'standard queries') ----- canRecordWhilePlaying + self deprecated: 'Ask the sound recorder for this info'. + ^SoundRecorder canRecordWhilePlaying! - ^ self - valueOfFlag: #canRecordWhilePlaying - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'misc') ----- defaultValueTableForCurrentRelease "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" ^ #( (abbreviatedBrowserButtons false) (alternativeBrowseIt false) (annotationPanes false) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) (automaticKeyGeneration false) (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (browseWithDragNDrop false) (browseWithPrettyPrint false) (browserShowsPackagePane false) (canRecordWhilePlaying false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled false) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (compactViewerFlaps false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (cpuWatcherEnabled false) (debugHaloHandle true) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dragNDropWithAnimation false) (eToyFriendly false) (eToyLoginEnabled false) (enableLocalSave true) (extractFlashInHighQuality true) (extractFlashInHighestQuality false) (fastDragWindowForMorphic true) (fenceEnabled true) (fullScreenLeavesDeskMargins true) (haloTransitions false) (hiddenScrollBars false) (higherPerformance false) (honorDesktopCmdKeys true) (ignoreStyleIfOnlyBold true) (includeSoundControlInNavigator false) (infiniteUndo false) (logDebuggerStackToFile true) (magicHalos false) (menuButtonInToolPane false) (menuColorFromWorld false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverForKeyboardFocus false) (mouseOverHalos false) (mvcProjectsAllowed true) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (preserveTrash true) (projectViewsInWindows true) (projectZoom true) (projectsSentToDisk false) (promptForUpdateServer true) (propertySheetFromHalo false) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (roundedMenuCorners true) (roundedWindowCorners true) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) (securityChecksEnabled false) (selectiveHalos false) (showBoundsInHalo false) (showDirectionForSketches false) (showDirectionHandles false) (showFlapsWhenPublishing false) (showProjectNavigator false) (showSecurityStatus true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (slideDismissalsToTrash true) (smartUpdating true) (soundQuickStart false) + (stopSoundWhenDone false) + (soundEnabled true) - (soundStopWhenDone false) - (soundsEnabled true) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (thoroughSenders true) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (updateSavesFile false) (useButtonProprtiesToFire false) (useUndo true) (viewersInFlaps true) (warnAboutInsecureContent true) (warnIfNoChangesFile true) (warnIfNoSourcesFile true)) " Preferences defaultValueTableForCurrentRelease do: [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: [:pref | pref defaultValue: (pair last == true)]]. Preferences chooseInitialSettings. "! Item was changed: + ----- Method: Preferences class>>soundEnablingString (in category 'sound') ----- - ----- Method: Preferences class>>soundEnablingString (in category 'misc') ----- soundEnablingString + self deprecated: 'Ask the sound service for this'. + ^ SoundService soundEnablingString! - ^ self soundsEnabled - ifFalse: - ['turn sound on' translated] - ifTrue: - ['turn sound off' translated]! Item was changed: + ----- Method: Preferences class>>soundQuickStart (in category 'sound') ----- - ----- Method: Preferences class>>soundQuickStart (in category 'standard queries') ----- soundQuickStart + self deprecated: 'Ask the sound player for this info'. + ^SoundPlayer soundQuickStart! - ^ self - valueOfFlag: #soundQuickStart - ifAbsent: [false]! Item was changed: + ----- Method: Preferences class>>soundStopWhenDone (in category 'sound') ----- - ----- Method: Preferences class>>soundStopWhenDone (in category 'standard queries') ----- soundStopWhenDone + self deprecated: 'Ask the sound player for this info'. + ^SoundPlayer stopSoundWhenDone! - ^ self - valueOfFlag: #soundStopWhenDone - ifAbsent: [false]! Item was changed: + ----- Method: Preferences class>>soundsEnabled (in category 'sound') ----- - ----- Method: Preferences class>>soundsEnabled (in category 'standard queries') ----- soundsEnabled + self deprecated: 'Sound now uses now preference pragmas. + Setting available directly in SoundService'. + ^SoundService soundEnabled! - ^ self - valueOfFlag: #soundsEnabled - ifAbsent: [true]! Item was changed: + ----- Method: Preferences class>>toggleSoundEnabling (in category 'sound') ----- - ----- Method: Preferences class>>toggleSoundEnabling (in category 'misc') ----- toggleSoundEnabling + self deprecated: 'Now uses pragma preference, and is stored in SoundService'. + SoundService toggleSoundEnabled! - self togglePreference: #soundsEnabled! Item was changed: ----- Method: SmalltalkImage>>setPlatformPreferences (in category 'snapshot and quit') ----- setPlatformPreferences "Set some platform specific preferences on system startup" | platform specs | Preferences automaticPlatformSettings ifFalse:[^self]. + SoundPlayer soundQuickStart: SoundPlayer defaultQuickStartForPlatform. + SoundPlayer stopSoundWhenDone: SoundPlayer defaultStopSoundForPlatform. platform := self platformName. + specs := #(). - specs := #( - (soundStopWhenDone true) - (soundQuickStart false) - ). platform = 'Win32' ifTrue:[ + specs := #()]. - specs := #( - (soundStopWhenDone true) - (soundQuickStart false) - )]. platform = 'Mac OS' ifTrue:[ + specs := #()]. - specs := #( - (soundStopWhenDone false) - (soundQuickStart true) - )]. specs do:[:tuple| Preferences setPreference: tuple first toValue: (tuple last == true). ]. ! Item was changed: AppRegistry subclass: #SoundService instanceVariableNames: '' + classVariableNames: 'SoundEnabled' - classVariableNames: '' poolDictionaries: '' category: 'System-Applications'! !SoundService commentStamp: 'gk 2/24/2004 23:14' prior: 0! This is the AppRegistry class for the sound system. A sound system offers a small protocol for playing sounds and making beeps and works like a facade towards the rest of Squeak. A sound system is registered in this registry and can be accessed by "SoundService default". This way we decouple the sound system from the rest of Squeak and make it pluggable. It also is a perfect spot to check for the Preference class>>soundsEnabled.! Item was added: + ----- Method: SoundService class>>soundEnabled (in category 'preferences') ----- + soundEnabled + <preference: 'Enable sound' + category: 'media' + description: 'If false, all sound playing is disabled' + type: #Boolean> + ^SoundEnabled ifNil: [false]! Item was added: + ----- Method: SoundService class>>soundEnabled: (in category 'preferences') ----- + soundEnabled: aBoolean + SoundEnabled := aBoolean! Item was added: + ----- Method: SoundService class>>soundEnablingString (in category 'preferences') ----- + soundEnablingString + ^ self soundEnabled + ifFalse: + ['turn sound on' translated] + ifTrue: + ['turn sound off' translated]! Item was added: + ----- Method: SoundService class>>toggleSoundEnabled (in category 'preferences') ----- + toggleSoundEnabled + self soundEnabled: self soundEnabled not! Item was added: + ----- Method: SystemVersion>>isPharo (in category 'testing') ----- + isPharo + ^ version includesSubString: 'Pharo'! Item was added: + ----- Method: SystemVersion>>isSqueak (in category 'testing') ----- + isSqueak + ^ version includesSubString: 'Squeak'!

1 0

The Trunk: Sound-cmm.30.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-cmm.30.mcz ==================== Summary ==================== Name: Sound-cmm.30 Author: cmm Time: 21 June 2011, 3:32:24.845 pm UUID: 3cc544d0-a2bf-4438-aa39-0c9d0657fd91 Ancestors: Sound-ul.29, Sound-HenrikSperreJohansen.28 Merge Sound-HenrikSperreJohansen.28. =============== Diff against Sound-ul.29 =============== Item was changed: ----- Method: BaseSoundSystem>>beep (in category 'playing') ----- beep "There is sound support, so we use the default sampled sound for a beep." + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ SampledSound beep]! Item was changed: ----- Method: BaseSoundSystem>>playSampledSound:rate: (in category 'playing') ----- playSampledSound: samples rate: rate + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ (SampledSound samples: samples samplingRate: rate) play]! Item was changed: ----- Method: BaseSoundSystem>>playSoundNamed: (in category 'playing') ----- playSoundNamed: soundName "There is sound support, so we play the given sound." + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ SampledSound playSoundNamed: soundName asString]! Item was changed: ----- Method: BaseSoundSystem>>playSoundNamed:ifAbsentReadFrom: (in category 'playing') ----- playSoundNamed: soundName ifAbsentReadFrom: aifFileName + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ (SampledSound soundNames includes: soundName) ifFalse: [ (FileDirectory default fileExists: aifFileName) ifTrue: [ SampledSound addLibrarySoundNamed: soundName fromAIFFfileNamed: aifFileName]]. (SampledSound soundNames includes: soundName) ifTrue: [ SampledSound playSoundNamed: soundName]]! Item was changed: ----- Method: BaseSoundSystem>>playSoundNamedOrBeep: (in category 'playing') ----- playSoundNamedOrBeep: soundName "There is sound support, so we play the given sound instead of beeping." + SoundService soundEnabled ifTrue: [ - Preferences soundsEnabled ifTrue: [ ^self playSoundNamed: soundName]! Item was changed: Object subclass: #SoundPlayer instanceVariableNames: '' + classVariableNames: 'ActiveSounds Buffer BufferIndex BufferMSecs LastBuffer PlayerProcess PlayerSemaphore ReadyForBuffer ReverbState SamplingRate SoundJustStarted SoundSupported SoundsShouldStartQuick SoundsStopWhenDone Stereo UseReadySemaphore UseReverb' - classVariableNames: 'ActiveSounds Buffer BufferIndex BufferMSecs LastBuffer PlayerProcess PlayerSemaphore ReadyForBuffer ReverbState SamplingRate SoundJustStarted SoundSupported Stereo UseReadySemaphore UseReverb' poolDictionaries: '' category: 'Sound-Synthesis'! Item was changed: ----- Method: SoundPlayer class>>canStartPlayer (in category 'playing') ----- canStartPlayer "Some platforms do no support simultaneous record and play. If this is one of those platforms, return false if there is a running SoundRecorder." + ^SoundRecorder canRecordWhilePlaying + or: [ SoundRecorder anyActive not] + - Preferences canRecordWhilePlaying ifTrue: [^ true]. - SoundRecorder anyActive ifTrue:[^false]. - ^ true ! Item was added: + ----- Method: SoundPlayer class>>defaultQuickStartForPlatform (in category 'preferences') ----- + defaultQuickStartForPlatform + + ^ Smalltalk os platformName = 'Mac OS'. + ! Item was added: + ----- Method: SoundPlayer class>>defaultStopSoundForPlatform (in category 'preferences') ----- + defaultStopSoundForPlatform + + ^(Smalltalk os platformName = 'Mac OS') not + ! Item was changed: ----- Method: SoundPlayer class>>playLoop (in category 'player process') ----- playLoop "The sound player process loop." - | bytesPerSlice count willStop mayStop | + mayStop := self soundStopWhenDone. - mayStop := Preferences soundStopWhenDone. bytesPerSlice := Stereo ifTrue: [4] ifFalse: [2]. [ [(count := self primSoundAvailableBytes // bytesPerSlice) > 100] whileFalse: [ReadyForBuffer wait]. count := count min: Buffer stereoSampleCount. PlayerSemaphore critical: [ ActiveSounds := ActiveSounds select: [:snd | snd samplesRemaining > 0]. ActiveSounds do: [:snd | snd ~~ SoundJustStarted ifTrue: [ snd playSampleCount: count into: Buffer startingAt: 1]]. ReverbState == nil ifFalse: [ ReverbState applyReverbTo: Buffer startingAt: 1 count: count]. self primSoundPlaySamples: count from: Buffer startingAt: 1. willStop := mayStop and:[ (ActiveSounds size = 0) and:[ self isAllSilence: Buffer size: count]]. LastBuffer ifNotNil:[ LastBuffer replaceFrom: 1 to: LastBuffer size with: Buffer startingAt: 1. ]. willStop ifTrue:[self shutDown. PlayerProcess := nil] ifFalse:[Buffer primFill: 0]. SoundJustStarted := nil]. willStop ifTrue:[^self] ] repeat ! Item was changed: ----- Method: SoundPlayer class>>resumePlaying:quickStart: (in category 'playing') ----- resumePlaying: aSound quickStart: quickStart "Start playing the given sound without resetting it; it will resume playing from where it last stopped. If quickStart is true, then try to start playing the given sound immediately." | doQuickStart | + SoundService soundEnabled ifFalse: [^ self]. - Preferences soundsEnabled ifFalse: [^ self]. doQuickStart := quickStart. + self soundQuickStart ifFalse: [doQuickStart := false]. - Preferences soundQuickStart ifFalse: [doQuickStart := false]. PlayerProcess == nil ifTrue: [ self canStartPlayer ifFalse: [^ self]. ^self startUpWithSound: aSound]. PlayerSemaphore critical: [ (ActiveSounds includes: aSound) ifTrue: [doQuickStart := false] ifFalse: [ doQuickStart ifFalse: [ActiveSounds add: aSound]]]. "quick-start the given sound, unless the sound player has just started" doQuickStart ifTrue: [self startPlayingImmediately: aSound]. ! Item was added: + ----- Method: SoundPlayer class>>soundQuickStart (in category 'preferences') ----- + soundQuickStart + <preference: 'Quickstart Sounds' + category: 'media' + description: 'If true, attempt to start playing sounds using option "quick start"' + type: #Boolean> + + ^SoundsShouldStartQuick ifNil: [self defaultQuickStartForPlatform]! Item was added: + ----- Method: SoundPlayer class>>soundQuickStart: (in category 'preferences') ----- + soundQuickStart: aBoolean + + + SoundsShouldStartQuick := aBoolean! Item was added: + ----- Method: SoundPlayer class>>stopSoundWhenDone (in category 'preferences') ----- + stopSoundWhenDone + <preference: 'Stop sounds when done' + category: 'media' + description: 'If true, the sound player is shut down after playing finished' + type: #Boolean> + + ^SoundsStopWhenDone ifNil: [self defaultStopSoundForPlatform]! Item was added: + ----- Method: SoundPlayer class>>stopSoundWhenDone: (in category 'preferences') ----- + stopSoundWhenDone: aBoolean + + SoundsStopWhenDone := aBoolean! Item was changed: ----- Method: SoundRecorder class>>canRecordWhilePlaying (in category 'accessing') ----- canRecordWhilePlaying "Return true if this platform supports simultaneous sound recording and playback." + <preference: 'Record while playing' + category: 'media' + description: 'If true, recording and playing sounds concurrently is permitted (platform dependent)' + type: #Boolean> + ^CanRecordWhilePlaying ifNil: [false]. - - ^Preferences canRecordWhilePlaying. "now in preferences" ! Item was added: + ----- Method: SoundRecorder class>>canRecordWhilePlaying: (in category 'accessing') ----- + canRecordWhilePlaying: aBoolean + + CanRecordWhilePlaying := aBoolean + ! Item was changed: ----- Method: SoundRecorder class>>initialize (in category 'class initialization') ----- initialize "SoundRecorder initialize" "Details: Some computers cannot record and playback sound at the same time. If CanRecordWhilePlaying is false, then the SoundRecorder alternates between recording and playing. If it is true, sounds can be playing during recording." + CanRecordWhilePlaying := false. - CanRecordWhilePlaying := #ignoredNowInPreferences. ! Item was changed: ----- Method: SoundRecorder>>pause (in category 'recording controls') ----- pause "Go into pause mode. The record level continues to be updated, but no sound is recorded." paused := true. ((currentBuffer ~~ nil) and: [nextIndex > 1]) ifTrue: [self emitPartialBuffer. self allocateBuffer]. soundPlaying ifNotNil: [ soundPlaying pause. soundPlaying := nil]. "Note: there can be problems if canRecordWhilePlaying is true. Recorders which only pause will inhibit other recorders from recording. I chose to make #stopPlaying unconditional in a subclass. The same might be appropriate here at the expense of making recorders resumable" + CanRecordWhilePlaying ifFalse: [self stopRecording]. - Preferences canRecordWhilePlaying ifFalse: [self stopRecording]. ! Item was changed: ----- Method: SoundRecorder>>resumeRecording (in category 'recording controls') ----- resumeRecording "Continue recording from the point at which it was last paused." self flag: #bob. "Note: If canRecordWhilePlaying is true, then recordings may never get started (at least by this method). One possibility, used in a subclass, is to make the #startPlaying unconditional. Another would be to use #startPlaying instead of #resumePlaying in appropriate cases" + CanRecordWhilePlaying ifFalse: [self startRecording]. - Preferences canRecordWhilePlaying ifFalse: [self startRecording]. paused := false. ! Item was changed: ----- Method: SoundRecorder>>startRecording (in category 'recording controls') ----- startRecording "Turn of the sound input driver and start the recording process. Initially, recording is paused." | semaIndex | recordLevel ifNil: [recordLevel := 0.5]. "lazy initialization" + CanRecordWhilePlaying ifFalse: [SoundPlayer shutDown]. - Preferences canRecordWhilePlaying ifFalse: [SoundPlayer shutDown]. recordProcess ifNotNil: [self stopRecording]. paused := true. meteringBuffer := SoundBuffer newMonoSampleCount: 1024. meterLevel := 0. self allocateBuffer. bufferAvailableSema := Semaphore new. semaIndex := Smalltalk registerExternalObject: bufferAvailableSema. self primStartRecordingDesiredSampleRate: samplingRate asInteger stereo: stereo semaIndex: semaIndex. RecorderActive := true. samplingRate := self primGetActualRecordingSampleRate. self primSetRecordLevel: (1000.0 * recordLevel) asInteger. recordProcess := [self recordLoop] newProcess. recordProcess priority: Processor userInterruptPriority. recordProcess resume. !

1 0

[squeak-dev] Comparison of Aida/Web, Seaside and Iliad web frameworks
by Janko Mivšek 21 Jun '11

21 Jun '11

Dear Smalltalkers, Few months ago I started a comparison of Aida, Seaside and Iliad web frameworks, with initial goal to check the strengths and weaknesses of Aida to draw a direction for future Aida development. But later I came to idea (and was encouraged also by Stef and others) to improve it and make this comparison public, therefore for all of you. I then invited few Iliad and Seaside guys to help balance the comparison, but unfortunately Seasiders were not willing to join, with their stated reason that spreadsheet of comparative features is not the best way to do such comparison. My answer is that a form of spreadsheet is a simplest start of such comparison. This feature list and check marks can be later a foundation for some more advanced comparison. We need to start from somewhere and such checkmarked spreadsheet is easiest to achieve in a shortest time. So, now I'm inviting all of you to take a look at this Google Docs spreadsheet and comment it. This way we will come at least one step closer to so needed comparison: https://spreadsheets.google.com/ccc?key=0Atnb1W9vuq9ndGRTUFIzT3VON0lTQ3Jxdl… Best regards Janko -- Janko Mivšek Aida/Web Smalltalk Web Application Server http://www.aidaweb.si

1 0

The Trunk: Tools-fbs.363.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.363.mcz ==================== Summary ==================== Name: Tools-fbs.363 Author: fbs Time: 19 June 2011, 4:06:14.995 pm UUID: 07e0d70e-133f-45a7-a962-58dbab747e9d Ancestors: Tools-ul.362 Lexicon>>openOnClass:showingSelector fails (like when you alt-p on a class in a Browser) because messageList isn't initialised. This seems like the best place to initialise the instvar. =============== Diff against Tools-ul.362 =============== Item was added: + ----- Method: MessageSet>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + messageList := OrderedCollection new.!

1 0

initial Spoon modularization
by Craig Latta 21 Jun '11

21 Jun '11

Hi-- At last! I’ve wanted to see this list ever since I started Smalltalking. Here are the initial modules in Spoon, followed by an expanded version that lists the classes they contain. 1. fundamental constants 2. numbers 3. collection support 4. ordered collections 5. unordered collections 6. textual collections 7. exceptions 8. system exceptions 9. internal streams 10. methods 11. weak collections 12. object representation 13. processes 14. processor 15. external resources 16. external streams 17. correspondents 18. UUIDs 19. remote messaging 20. licenses 21. magnitudes 22. behavior identification 23. behavior description 24. behavior transmission 25. HTTP 26. WebDAV 27. module transfer 28. remote browsing *** 1. fundamental constants (requires 12) Boolean True False UndefinedObject Character 2. numbers (requires 1) Number Integer SmallInteger LargePositiveInteger LargeNegativeInteger Float Random 3. collection support (requires 2) Collection SequenceableCollection ArrayedCollection Association Link LookupKey ReadOnlyVariableBinding WeakKeyAssociation 4. ordered collections (requires 3) Array ByteArray Interval LinkedList OrderedCollection SharedQueue SortedCollection 5. unordered collections (requires 4) Dictionary IdentityDictionary IdentitySet Set 6. textual collections (requires 5) String Symbol 7. exceptions (requires 6) Exception Error 8. system exceptions (requires 7) Halt BlockCannotReturn Notification AboutToReturn ZeroDivide 9. internal streams (requires 4) Stream PositionableStream WritableStream StreamingError InvalidPositioningAttempt 10. methods (requires 9) CompiledMethod InstructionStream Context MethodContext BlockClosure Message MethodDictionary 11. weak collections (requires 5) WeakArray WeakSet WeakKeyDictionary WeakIdentityKeyDictionary WeakRegistry 12. object representation (requires 10, 11) Object Behavior Class Protoclass Metaclass ClassBuilder Scanner 13. processes (requires 12) Process ProcessorScheduler Semaphore Delay 14. processor (requires 12) Interpreter ObjectMemory 15. external resources (requires 12) ExternalResource Peer Socket TCPSocket ClientTCPSocket IncomingClientTCPSocket OutgoingClientTCPSocket ServerTCPSocket ExternalResourceError ConnectionRefused FailedReadingAttempt 16. external streams (requires 15) ExternalStream NetStream SocketStream TCPStream Timeout EncodingMismatch 17. correspondents (requires 16) Correspondent Client IncomingClient OutgoingClient Server SocketAddress SocketAddressResolver ExternalSemaphoreTable SocketTransport Transport 18. UUIDs (requires 12) UUID UUIDGenerator 19. remote messaging (requires 17, 18) Other RemoteMessageAnswer MessageExchange IncomingMessageExchange OutgoingMessageExchange MessagingSession MessagingServer Wormhole WormholeServer 20. licenses (requires 12) License MIT Squeak Apache GPL GPL3 21. magnitudes (requires 12) Magnitude Time 22. behavior identification (requires 19, 20, 21) Version AuthorEdition ClassID MethodID 23. behavior description (requires 22) Edition CommentEdition CommentedEdition TagsEdition TaggedEdition BehavioralEdition ClassEdition ProtoclassEdition MetaclassEdition MethodEdition Checkpoint Edit EditHistory ModuleDescription Module 24. behavior transmission (requires 22) MethodLiteralTransmissionMarker IdentityLiteralMarker BehavioralLiteralMarker ClassLiteralMarker MetaSuperSendLiteralMarker SharedVariableLiteralMarker ClassVariableLiteralMarker PublishedVariableLiteralMarker GlobalLiteralMarker UndeclaredLiteralMarker ExceptionMarker OtherMarker Manifest NegativeManifest PositiveManifest 25. HTTP (requires 17) HTTPServer IncomingHTTPClient HTTPAction EmitFavoritesIcon NetMessage HTTPMessage HTTPMethod 26. WebDAV (requires 25) GET LOCK MOVE OPTIONS PROPFIND PROPPATCH PUT 27. module transfer (requires 25) SpoonAction Welcome ModuleAction ListInstalledModules DescribeModule BrowseAvailableModules RemoteModuleAction RunRemoteModule InstallRemoteModule RemoveModule Snapshot Quit 28. remote browsing (requires 22) RemoteMethod CounterpartRequest MethodReference -- Craig Latta www.netjam.org/resume +31 6 2757 7177 + 1 415 287 3547

5 9

← Newer
1
...
6
7
8
9
10
11
12
...
24
Older →

Jump to page: