Packages February 2020

packages@lists.squeakfoundation.org

1 participants
90 discussions

The Trunk: System-mt.1134.mcz
by commits＠source.squeak.org 21 Feb '20

21 Feb '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1134.mcz ==================== Summary ==================== Name: System-mt.1134 Author: mt Time: 21 February 2020, 1:27:02.501145 pm UUID: 1e799587-17bb-7843-b196-e2a6782b5382 Ancestors: System-eem.1133 Clear the image-side clipboard cache when cleaning up the image aggressively such as in the release building process. Why? Avoid sensitive information being accessible via the clipboard's "contents" instance variable. =============== Diff against System-eem.1133 =============== Item was added: + ----- Method: Clipboard class>>cleanUp: (in category 'initialize-release') ----- + cleanUp: aggressive + + aggressive ifTrue: [self default delete].!

1 0

The Trunk: Sound-dtl.68.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-dtl.68.mcz ==================== Summary ==================== Name: Sound-dtl.68 Author: dtl Time: 12 December 2019, 7:20:38.226903 am UUID: c7b5a141-2b1b-4d24-ab88-0a96dd78600b Ancestors: Sound-dtl.67 Resolve unimplemented calls in the previous update. Discussion on squeak-dev http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-December/205515… =============== Diff against Sound-dtl.67 =============== Item was changed: ----- Method: AbstractSound>>loudness (in category 'volume') ----- loudness "Answer the current volume setting for this sound." + ^ envelopes detect: [:e | e isKindOf: VolumeEnvelope] + ifFound: [ :envelope | envelope scale ] + ifNone: [scaledVol asFloat / FloatScaleFactor] + ! - self hasVolumeEnvelope ifTrue: [^ self volumeEnvelope scale]. - - ^ scaledVol asFloat / ScaleFactor! Item was changed: ----- Method: SequentialSound>>mixSampleCount:into:startingAt:leftVol:rightVol: (in category 'sound generation') ----- mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: leftVol rightVol: rightVol "Play a collection of sounds in sequence." "PluckedSound chromaticScale play" | finalIndex i snd remaining count leftScaledVol rightScaledVol | currentIndex = 0 ifTrue: [^ self]. "already done" + leftScaledVol := leftVol * scaledVol / ScaleFactor asFloat. + rightScaledVol := rightVol * scaledVol / ScaleFactor asFloat. - leftScaledVol := leftVol * scaledVol /// ScaleFactor. - rightScaledVol := rightVol * scaledVol /// ScaleFactor. finalIndex := (startIndex + n) - 1. i := startIndex. [i <= finalIndex] whileTrue: [ snd := (sounds at: currentIndex). [(remaining := snd samplesRemaining) <= 0] whileTrue: [ "find next undone sound" currentIndex < sounds size ifTrue: [ currentIndex := currentIndex + 1. snd := (sounds at: currentIndex)] ifFalse: [ currentIndex := 0. ^ self]]. "no more sounds" count := (finalIndex - i) + 1. remaining < count ifTrue: [count := remaining]. snd mixSampleCount: count into: aSoundBuffer startingAt: i leftVol: leftScaledVol rightVol: rightScaledVol. i := i + count]. !

1 0

The Trunk: Sound-dtl.67.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-dtl.67.mcz ==================== Summary ==================== Name: Sound-dtl.67 Author: dtl Time: 10 December 2019, 10:51:04.985835 pm UUID: ca970845-8428-41f9-b83c-f64a6cc732c1 Ancestors: Sound-eem.66 Sound mixing improvements by Stéphane Rollandin (spfa). Allow adjusting volume of mixed sounds while playing. Original discussion at http://forum.world.st/Adjusting-the-volume-of-a-sound-as-it-s-playing-td510… Patches posted to squeak-dev at http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-December/205440… =============== Diff against Sound-eem.66 =============== Item was changed: ----- Method: AbstractSound>>loudness (in category 'volume') ----- loudness "Answer the current volume setting for this sound." + self hasVolumeEnvelope ifTrue: [^ self volumeEnvelope scale]. + + ^ scaledVol asFloat / ScaleFactor! - ^ scaledVol asFloat / ScaleFactor asFloat! Item was changed: ----- Method: MixedSound>>mixSampleCount:into:startingAt:leftVol:rightVol: (in category 'sound generation') ----- mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: leftVol rightVol: rightVol "Play a number of sounds concurrently. The level of each sound can be set independently for the left and right channels." | snd left right | 1 to: sounds size do: [:i | (soundDone at: i) ifFalse: [ snd := sounds at: i. + left := (leftVol * (leftVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. + right := (rightVol * (rightVols at: i) * scaledVol / ScaleFactor) // ScaleFactor. - left := (leftVol * (leftVols at: i)) // ScaleFactor. - right := (rightVol * (rightVols at: i)) // ScaleFactor. snd samplesRemaining > 0 ifTrue: [ snd mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: left rightVol: right] ifFalse: [soundDone at: i put: true]]]. ! Item was changed: ----- Method: RepeatingSound>>mixSampleCount:into:startingAt:leftVol:rightVol: (in category 'sound generation') ----- mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: leftVol rightVol: rightVol "Play a collection of sounds in sequence." "(RepeatingSound new setSound: FMSound majorScale iterations: 2) play" | i count samplesNeeded | iteration <= 0 ifTrue: [^ self]. i := startIndex. samplesNeeded := n. [samplesNeeded > 0] whileTrue: [ count := sound samplesRemaining min: samplesNeeded. count = 0 ifTrue: [ iterationCount == #forever ifFalse: [ iteration := iteration - 1. iteration <= 0 ifTrue: [^ self]]. "done" sound reset. count := sound samplesRemaining min: samplesNeeded. count = 0 ifTrue: [^ self]]. "zero length sound" sound mixSampleCount: count into: aSoundBuffer startingAt: i + leftVol: leftVol * scaledVol // ScaleFactor + rightVol: rightVol * scaledVol // ScaleFactor. - leftVol: leftVol - rightVol: rightVol. i := i + count. samplesNeeded := samplesNeeded - count]. ! Item was changed: ----- Method: SequentialSound>>mixSampleCount:into:startingAt:leftVol:rightVol: (in category 'sound generation') ----- mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: leftVol rightVol: rightVol "Play a collection of sounds in sequence." "PluckedSound chromaticScale play" + | finalIndex i snd remaining count leftScaledVol rightScaledVol | - | finalIndex i snd remaining count | currentIndex = 0 ifTrue: [^ self]. "already done" + + leftScaledVol := leftVol * scaledVol /// ScaleFactor. + rightScaledVol := rightVol * scaledVol /// ScaleFactor. + finalIndex := (startIndex + n) - 1. i := startIndex. [i <= finalIndex] whileTrue: [ snd := (sounds at: currentIndex). [(remaining := snd samplesRemaining) <= 0] whileTrue: [ "find next undone sound" currentIndex < sounds size ifTrue: [ currentIndex := currentIndex + 1. snd := (sounds at: currentIndex)] ifFalse: [ currentIndex := 0. ^ self]]. "no more sounds" count := (finalIndex - i) + 1. remaining < count ifTrue: [count := remaining]. + snd mixSampleCount: count into: aSoundBuffer startingAt: i + leftVol: leftScaledVol + rightVol: rightScaledVol. - snd mixSampleCount: count into: aSoundBuffer startingAt: i leftVol: leftVol rightVol: rightVol. i := i + count]. !

1 0

The Trunk: Morphic-mt.1628.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1628.mcz ==================== Summary ==================== Name: Morphic-mt.1628 Author: mt Time: 20 February 2020, 5:02:22.195391 pm UUID: 8b8588f6-82a7-5b40-9187-7502d12e6355 Ancestors: Morphic-mt.1627 Adds an extra re-draw call in text fields to fix help-text redrawing (in the search bar). Note that this does not add much new overhead. (Actually, there is another issue consiering overhead on text re-draw, which I am investigating at the moment.) =============== Diff against Morphic-mt.1627 =============== Item was changed: ----- Method: PluggableTextMorph>>setText: (in category 'model access') ----- setText: aText textMorph newContents: aText. self hasUnacceptedEdits: false. self setScrollDeltas. + + self flag: #performance. "mt: Needed only to redraw overlays such as the help text." + self changed.! - self changed. "Redraw the whole area. For example, it might not be necssary to draw the help text anymore."! Item was changed: ----- Method: PluggableTextMorph>>textEdited: (in category 'editor access') ----- textEdited: someText "Tell the model about some edits in the text if interested. This is not #accept, which means that it will be send on every keystroke." self editTextSelector ifNotNil: [:selector | + model perform: selector with: someText]. + + self flag: #performance. "mt: Needed only to redraw overlays such as the help text." + self changed.! - model perform: selector with: someText].!

1 0

The Trunk: Installer-Core-tpr.434.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-tpr.434.mcz ==================== Summary ==================== Name: Installer-Core-tpr.434 Author: tpr Time: 27 August 2019, 1:08:05.39831 pm UUID: c1ea7dcd-9b59-4796-b66a-0f558e074ec9 Ancestors: Installer-Core-mt.433 Some possible cleanups for Installer. Make InstallerWeb behave more like the other installer classes. Remove a couple of redundant installer types. Start adding some up to date copmments and make the Installer class comment appear in a HelpBrowser - more needed. Subclasses should get more extensive class specific commentary and that should be made to appear in the help browser pages. =============== Diff against Installer-Core-mt.433 =============== Item was changed: Object subclass: #Installer instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel' classVariableNames: 'InstallerBindings IsSetToTrapErrors Repositories SkipLoadingTests ValidationBlock' poolDictionaries: '' category: 'Installer-Core'! Installer class instanceVariableNames: 'localRepository'! + !Installer commentStamp: 'tpr 8/25/2019 18:37' prior: 0! + Installer is a mechanism for listing, examining and installing software from a variety of sources. It is intended to help in building install scripts for package setups etc. + + Currently it can use + - files; a file specified by a filename. Relative filenames will be treated as based form the current default directory. See InstallerFile. + - urls; a file specified by a url or a script embedded in a webpage. See InstallerWeb. + - squeakmap; see InstallerSqueakMap + - monticello; by ftp or http access, or a local directory, or a Magma or GOODS database. There is a list of shortcuts to popular repositories in this class protocol 'repositories'. See InstallerMonticello. + - mantis; accessing code attached to a mantis bug report. See InstallerMantis. + + Simple example usages - + Installer squeakmap install: 'DynamicBindings'. + Installer squeakmap search: '*scratch'. + Installer squeakmap search: 'author:*rowledge'. + Installer squeaksource project: 'ss2'; install: 'TinyWiki'. + Installer ss project: 'Installer'; browse: 'Installer-Core'. + - !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! - Documentation now available at http://installer.pbwiki.com/Installer useFileIn - flag to load source.st rather than using Monticello! Installer class instanceVariableNames: 'localRepository'! Item was added: + ----- Method: Installer class>>asHelpTopic (in category 'documentation') ----- + asHelpTopic + ^HelpTopic + title: 'Installer' + contents: self class comment! Item was removed: - ----- Method: Installer class>>cobalt (in category 'repositories') ----- - cobalt - - ^ self monticello http: 'http://croquet-src-01.oit.duke.edu:8886'! Item was removed: - ----- Method: Installer class>>goran (in category 'repositories') ----- - goran - - ^ self monticello http: 'squeak.krampe.se'; project: ''! Item was removed: - ----- Method: Installer class>>impara (in category 'repositories') ----- - impara - - ^ self monticello http: 'source.impara.de'! Item was removed: - ----- Method: Installer class>>install: (in category 'action report') ----- - install: scriptName - - ^ (self scripts install: scriptName) ifNil:[ self web install: scriptName ] - ! Item was removed: - ----- Method: Installer class>>keith (in category 'repositories') ----- - keith - - ^ self monticello ftp: 'squeak.warwick.st' directory: 'mc' user: 'squeak' password: 'viewpoints'! Item was changed: ----- Method: Installer class>>remoteRepositories (in category 'repository-overrides') ----- remoteRepositories + ^ #(#ss #ss3 #gemsource #gs #krestianstvo #lukas #squeak #squeakfoundation #squeaksource #squeaksource3 #ss #ss3 #swa #swasource #wiresong )! - ^ #(#ss #ss3 #cobalt #gemsource #goran #gs #impara #keith #krestianstvo #lukas #saltypickle #sophie #squeak #squeakfoundation #squeaksource #squeaksource3 #ss #ss3 #swa #swasource #wiresong )! Item was removed: - ----- Method: Installer class>>sake (in category 'sake') ----- - sake - - ^ self sake: InstallerSake sake! Item was removed: - ----- Method: Installer class>>sake: (in category 'sake') ----- - sake: aSakePackagesClass - - ^ InstallerSake new sake: aSakePackagesClass! Item was removed: - ----- Method: Installer class>>saltypickle (in category 'repositories') ----- - saltypickle - - ^ self monticello http: 'squeak.saltypickle.com'! Item was removed: - ----- Method: Installer class>>setSakeToUse: (in category 'sake') ----- - setSakeToUse: aClass - - InstallerSake sake: aClass! Item was removed: - ----- Method: Installer class>>sophie (in category 'repositories') ----- - sophie - - ^ self monticello http: 'source.sophieproject.org' - - ! Item was removed: - ----- Method: Installer class>>ssMirror (in category 'repositories') ----- - ssMirror - "The Chilean mirror for the original SqueakSource." - ^ self monticello http: 'http://dsal.cl/squeaksource/'! Item was changed: ----- Method: Installer class>>web (in category 'web') ----- web + ^ InstallerWeb new! - ^ InstallerWeb! Item was removed: - Installer subclass: #InstallerSake - instanceVariableNames: 'sake' - classVariableNames: 'Sake' - poolDictionaries: '' - category: 'Installer-Core'! Item was removed: - ----- Method: InstallerSake class>>classPackages (in category 'accessing system') ----- - classPackages - - ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was removed: - ----- Method: InstallerSake class>>sake (in category 'accessing') ----- - sake - - ^ Sake ifNil: [ self classPackages current ]! Item was removed: - ----- Method: InstallerSake class>>sake: (in category 'accessing') ----- - sake: aClass - - Sake := aClass! Item was removed: - ----- Method: InstallerSake>>basicInstall (in category 'basic interface') ----- - basicInstall - - self withAnswersDo: [ (self packages collect: [ :packageName | sake named: packageName ]) asTask run ]. - ! Item was removed: - ----- Method: InstallerSake>>sake (in category 'websqueakmap') ----- - sake - - ^ sake ! Item was removed: - ----- Method: InstallerSake>>sake: (in category 'websqueakmap') ----- - sake: aSakePackagesClass - - sake := aSakePackagesClass! Item was removed: - Installer subclass: #InstallerUniverse - instanceVariableNames: 'universe' - classVariableNames: 'LastUniUpdate' - poolDictionaries: '' - category: 'Installer-Core'! Item was removed: - ----- Method: InstallerUniverse class>>classUGlobalInstaller (in category 'accessing system') ----- - classUGlobalInstaller - - ^Smalltalk at: #UGlobalInstaller ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse class>>classUUniverse (in category 'accessing system') ----- - classUUniverse - - ^Smalltalk at: #UUniverse ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse class>>default (in category 'instance creation') ----- - default - - ^ self universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! Item was removed: - ----- Method: InstallerUniverse class>>universe: (in category 'instance creation') ----- - universe: u - - ^ self new universe: u! Item was removed: - ----- Method: InstallerUniverse>>basicInstall (in category 'basic interface') ----- - basicInstall - self packages do: [ :packageName | - | potentials pkg pkgAndVersion version | - - pkgAndVersion := self packageAndVersionFrom: packageName. - pkg := pkgAndVersion first. - version := pkgAndVersion last. - - potentials := universe packageVersionsForPackage: pkg. - - pkg := version isEmpty - ifTrue: [ potentials last ] - ifFalse: [ - version := self classUVersion readFrom: version readStream. - (potentials anySatisfy: [ :p | p version = version]) ifFalse: [ ^ self error: 'version not found'] - ]. - universe planToInstallPackage: pkg. - ]. - self uniDoInstall! Item was removed: - ----- Method: InstallerUniverse>>classUVersion (in category 'class references') ----- - classUVersion - - ^Smalltalk at: #UVersion ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse>>uniDoInstall (in category 'universes') ----- - uniDoInstall - - self withAnswersDo: [ self universe doInstall ] ! Item was removed: - ----- Method: InstallerUniverse>>universe (in category 'universes') ----- - universe - - ^ universe! Item was removed: - ----- Method: InstallerUniverse>>universe: (in category 'universes') ----- - universe: u - - universe := u. - self update.! Item was removed: - ----- Method: InstallerUniverse>>update (in category 'public interface') ----- - update - - (LastUniUpdate isNil or:[ (DateAndTime now - LastUniUpdate) > 600 seconds ]) - ifTrue: [universe requestPackageList. - LastUniUpdate := DateAndTime now]! Item was removed: - ----- Method: InstallerWeb class>>install: (in category 'compatability') ----- - install: webPageName - "This keeps the syntax Installer web install: working" - ^ self new install: webPageName! Item was removed: - ----- Method: InstallerWeb class>>searchPath (in category 'accessing') ----- - searchPath - "a search path item, has the following format. prefix*suffix" - - ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was added: + ----- Method: InstallerWeb>>searchPath (in category 'web install') ----- + searchPath + "a search path item has the following format. prefix*suffix" + + ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was changed: ----- Method: InstallerWeb>>urlToDownload (in category 'web install') ----- urlToDownload "while we look for a url which returns what we are looking for, we get the data anyway" | delay | delay := 0. + self searchPath do: [ :pathSpec | - self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec retry | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [retry := false. pageDataStream := self urlGet: potentialUrl. self wasPbwikiSpeedWarning ifTrue: [ retry := true. delay := delay + 5. self logCR: 'PBWiki speed warning. Retrying in ', delay printString, ' seconds'. (Delay forSeconds: delay) wait] ifFalse: [ self hasPage ifTrue: [ pageDataStream reset. ^ potentialUrl ] ]. retry ] whileTrue ]. ^nil !

1 0

The Trunk: Installer-Core-mt.438.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-mt.438.mcz ==================== Summary ==================== Name: Installer-Core-mt.438 Author: mt Time: 20 February 2020, 2:51:47.301183 pm UUID: b6d4a0c2-4fa7-cb47-bcac-f26624e061f0 Ancestors: Installer-Core-cmm.437, Installer-Core-tpr.434 Merges Installer-Core-tpr.434, which removes dead installer servers and improves Installer (help) documentation. =============== Diff against Installer-Core-cmm.437 =============== Item was changed: Object subclass: #Installer instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel' classVariableNames: 'InstallerBindings IsSetToTrapErrors Repositories SkipLoadingTests ValidationBlock' poolDictionaries: '' category: 'Installer-Core'! Installer class instanceVariableNames: 'localRepository'! + !Installer commentStamp: 'tpr 8/25/2019 18:37' prior: 0! + Installer is a mechanism for listing, examining and installing software from a variety of sources. It is intended to help in building install scripts for package setups etc. + + Currently it can use + - files; a file specified by a filename. Relative filenames will be treated as based form the current default directory. See InstallerFile. + - urls; a file specified by a url or a script embedded in a webpage. See InstallerWeb. + - squeakmap; see InstallerSqueakMap + - monticello; by ftp or http access, or a local directory, or a Magma or GOODS database. There is a list of shortcuts to popular repositories in this class protocol 'repositories'. See InstallerMonticello. + - mantis; accessing code attached to a mantis bug report. See InstallerMantis. + + Simple example usages - + Installer squeakmap install: 'DynamicBindings'. + Installer squeakmap search: '*scratch'. + Installer squeakmap search: 'author:*rowledge'. + Installer squeaksource project: 'ss2'; install: 'TinyWiki'. + Installer ss project: 'Installer'; browse: 'Installer-Core'. + - !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! - Documentation now available at http://installer.pbwiki.com/Installer useFileIn - flag to load source.st rather than using Monticello! Installer class instanceVariableNames: 'localRepository'! Item was added: + ----- Method: Installer class>>asHelpTopic (in category 'documentation') ----- + asHelpTopic + ^HelpTopic + title: 'Installer' + contents: self class comment! Item was removed: - ----- Method: Installer class>>cobalt (in category 'repositories') ----- - cobalt - - ^ self monticello http: 'http://croquet-src-01.oit.duke.edu:8886'! Item was removed: - ----- Method: Installer class>>goran (in category 'repositories') ----- - goran - - ^ self monticello http: 'squeak.krampe.se'; project: ''! Item was removed: - ----- Method: Installer class>>impara (in category 'repositories') ----- - impara - - ^ self monticello http: 'source.impara.de'! Item was removed: - ----- Method: Installer class>>install: (in category 'action report') ----- - install: scriptName - - ^ (self scripts install: scriptName) ifNil:[ self web install: scriptName ] - ! Item was removed: - ----- Method: Installer class>>keith (in category 'repositories') ----- - keith - - ^ self monticello ftp: 'squeak.warwick.st' directory: 'mc' user: 'squeak' password: 'viewpoints'! Item was changed: ----- Method: Installer class>>remoteRepositories (in category 'repository-overrides') ----- remoteRepositories + ^ #(#ss #ss3 #gemsource #gs #krestianstvo #lukas #squeak #squeakfoundation #squeaksource #squeaksource3 #ss #ss3 #swa #swasource #wiresong )! - ^ #(#ss #ss3 #cobalt #gemsource #goran #gs #impara #keith #krestianstvo #lukas #saltypickle #sophie #squeak #squeakfoundation #squeaksource #squeaksource3 #ss #ss3 #swa #swasource #wiresong )! Item was removed: - ----- Method: Installer class>>sake (in category 'sake') ----- - sake - - ^ self sake: InstallerSake sake! Item was removed: - ----- Method: Installer class>>sake: (in category 'sake') ----- - sake: aSakePackagesClass - - ^ InstallerSake new sake: aSakePackagesClass! Item was removed: - ----- Method: Installer class>>saltypickle (in category 'repositories') ----- - saltypickle - - ^ self monticello http: 'squeak.saltypickle.com'! Item was removed: - ----- Method: Installer class>>setSakeToUse: (in category 'sake') ----- - setSakeToUse: aClass - - InstallerSake sake: aClass! Item was removed: - ----- Method: Installer class>>sophie (in category 'repositories') ----- - sophie - - ^ self monticello http: 'source.sophieproject.org' - - ! Item was removed: - ----- Method: Installer class>>ssMirror (in category 'repositories') ----- - ssMirror - "The Chilean mirror for the original SqueakSource." - ^ self monticello http: 'http://dsal.cl/squeaksource/'! Item was changed: ----- Method: Installer class>>web (in category 'web') ----- web + ^ InstallerWeb new! - ^ InstallerWeb! Item was removed: - Installer subclass: #InstallerSake - instanceVariableNames: 'sake' - classVariableNames: 'Sake' - poolDictionaries: '' - category: 'Installer-Core'! Item was removed: - ----- Method: InstallerSake class>>classPackages (in category 'accessing system') ----- - classPackages - - ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was removed: - ----- Method: InstallerSake class>>sake (in category 'accessing') ----- - sake - - ^ Sake ifNil: [ self classPackages current ]! Item was removed: - ----- Method: InstallerSake class>>sake: (in category 'accessing') ----- - sake: aClass - - Sake := aClass! Item was removed: - ----- Method: InstallerSake>>basicInstall (in category 'basic interface') ----- - basicInstall - - self withAnswersDo: [ (self packages collect: [ :packageName | sake named: packageName ]) asTask run ]. - ! Item was removed: - ----- Method: InstallerSake>>sake (in category 'websqueakmap') ----- - sake - - ^ sake ! Item was removed: - ----- Method: InstallerSake>>sake: (in category 'websqueakmap') ----- - sake: aSakePackagesClass - - sake := aSakePackagesClass! Item was removed: - Installer subclass: #InstallerUniverse - instanceVariableNames: 'universe' - classVariableNames: 'LastUniUpdate' - poolDictionaries: '' - category: 'Installer-Core'! Item was removed: - ----- Method: InstallerUniverse class>>classUGlobalInstaller (in category 'accessing system') ----- - classUGlobalInstaller - - ^Smalltalk at: #UGlobalInstaller ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse class>>classUUniverse (in category 'accessing system') ----- - classUUniverse - - ^Smalltalk at: #UUniverse ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse class>>default (in category 'instance creation') ----- - default - - ^ self universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! Item was removed: - ----- Method: InstallerUniverse class>>universe: (in category 'instance creation') ----- - universe: u - - ^ self new universe: u! Item was removed: - ----- Method: InstallerUniverse>>basicInstall (in category 'basic interface') ----- - basicInstall - self packages do: [ :packageName | - | potentials pkg pkgAndVersion version | - - pkgAndVersion := self packageAndVersionFrom: packageName. - pkg := pkgAndVersion first. - version := pkgAndVersion last. - - potentials := universe packageVersionsForPackage: pkg. - - pkg := version isEmpty - ifTrue: [ potentials last ] - ifFalse: [ - version := self classUVersion readFrom: version readStream. - (potentials anySatisfy: [ :p | p version = version]) ifFalse: [ ^ self error: 'version not found'] - ]. - universe planToInstallPackage: pkg. - ]. - self uniDoInstall! Item was removed: - ----- Method: InstallerUniverse>>classUVersion (in category 'class references') ----- - classUVersion - - ^Smalltalk at: #UVersion ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: InstallerUniverse>>uniDoInstall (in category 'universes') ----- - uniDoInstall - - self withAnswersDo: [ self universe doInstall ] ! Item was removed: - ----- Method: InstallerUniverse>>universe (in category 'universes') ----- - universe - - ^ universe! Item was removed: - ----- Method: InstallerUniverse>>universe: (in category 'universes') ----- - universe: u - - universe := u. - self update.! Item was removed: - ----- Method: InstallerUniverse>>update (in category 'public interface') ----- - update - - (LastUniUpdate isNil or:[ (DateAndTime now - LastUniUpdate) > 600 seconds ]) - ifTrue: [universe requestPackageList. - LastUniUpdate := DateAndTime now]! Item was removed: - ----- Method: InstallerWeb class>>install: (in category 'compatability') ----- - install: webPageName - "This keeps the syntax Installer web install: working" - ^ self new install: webPageName! Item was removed: - ----- Method: InstallerWeb class>>searchPath (in category 'accessing') ----- - searchPath - "a search path item, has the following format. prefix*suffix" - - ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was added: + ----- Method: InstallerWeb>>searchPath (in category 'web install') ----- + searchPath + "a search path item has the following format. prefix*suffix" + + ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was changed: ----- Method: InstallerWeb>>urlToDownload (in category 'web install') ----- urlToDownload "while we look for a url which returns what we are looking for, we get the data anyway" | delay | delay := 0. + self searchPath do: [ :pathSpec | - self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec retry | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [retry := false. pageDataStream := self urlGet: potentialUrl. self wasPbwikiSpeedWarning ifTrue: [ retry := true. delay := delay + 5. self logCR: 'PBWiki speed warning. Retrying in ', delay printString, ' seconds'. (Delay forSeconds: delay) wait] ifFalse: [ self hasPage ifTrue: [ pageDataStream reset. ^ potentialUrl ] ]. retry ] whileTrue ]. ^nil !

1 0

The Trunk: Graphics-jr.425.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-jr.425.mcz ==================== Summary ==================== Name: Graphics-jr.425 Author: jr Time: 30 December 2019, 3:11:45.845402 am UUID: 465fa95d-6a50-a84d-8b73-7e90a2b9d2b5 Ancestors: Graphics-pre.424 Fix message not understood when the right or bottom fraction of a LayoutFrame is nil. =============== Diff against Graphics-pre.424 =============== Item was changed: ----- Method: LayoutFrame>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. aStream nextPutAll: '( '. { {'l'. self leftFraction. self leftOffset}. {'t'. self topFraction. self topOffset}. {'r'. self rightFraction. self rightOffset}. {'b'. self bottomFraction. self bottomOffset} } do: [:spec | aStream nextPutAll: spec first; space. + (spec second ifNil: [0]) printOn: aStream maxDecimalPlaces: 2. - spec second printOn: aStream maxDecimalPlaces: 2. aStream nextPutAll: ((spec third ifNil: [0]) >= 0 ifTrue: ['+'] ifFalse: ['-']). (spec third ifNil: [0]) abs printOn: aStream maxDecimalPlaces: 0] separatedBy: [aStream space]. aStream nextPutAll: ' )'.!

1 0

The Trunk: Graphics-mt.426.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.426.mcz ==================== Summary ==================== Name: Graphics-mt.426 Author: mt Time: 20 February 2020, 2:23:22.016183 pm UUID: 01c81aed-c82d-b345-a3c3-aef6b856fd67 Ancestors: Graphics-tobe.425, Graphics-jr.425 Merges printString fix for LayoutFrame. =============== Diff against Graphics-tobe.425 =============== Item was changed: ----- Method: LayoutFrame>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. aStream nextPutAll: '( '. { {'l'. self leftFraction. self leftOffset}. {'t'. self topFraction. self topOffset}. {'r'. self rightFraction. self rightOffset}. {'b'. self bottomFraction. self bottomOffset} } do: [:spec | aStream nextPutAll: spec first; space. + (spec second ifNil: [0]) printOn: aStream maxDecimalPlaces: 2. - spec second printOn: aStream maxDecimalPlaces: 2. aStream nextPutAll: ((spec third ifNil: [0]) >= 0 ifTrue: ['+'] ifFalse: ['-']). (spec third ifNil: [0]) abs printOn: aStream maxDecimalPlaces: 0] separatedBy: [aStream space]. aStream nextPutAll: ' )'.!

1 0

The Trunk: Graphics-tobe.425.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-tobe.425.mcz ==================== Summary ==================== Name: Graphics-tobe.425 Author: tobe Time: 27 January 2020, 5:11:45.257843 pm UUID: 2f66f6ea-c0d5-4487-bc4d-af76d67acc2e Ancestors: Graphics-pre.424 Fixes an issue causing an infinite text composition loop when placing embedded morphs which exceed the current composition rectangle's width. The fix entails consistently returning Booleans which indicate whether the morph still fits. =============== Diff against Graphics-pre.424 =============== Item was changed: ----- Method: CharacterScanner>>embeddedObject (in category 'stop conditions') ----- embeddedObject pendingKernX := 0. ((text attributesAt: lastIndex) reject: [:each | each anchoredMorph isNil]) + ifNotEmpty: [:attributes | (self placeEmbeddedObjectsFrom: attributes) ifTrue: [^ true]]. - ifNotEmpty: [:attributes | self placeEmbeddedObjectsFrom: attributes]. self setFont. "Note: if ever several objects are embedded on same character, only indent lastIndex once" lastIndex := lastIndex + 1. ^false! Item was changed: ----- Method: CharacterScanner>>placeEmbeddedObjectsFrom: (in category 'private-text-anchor') ----- placeEmbeddedObjectsFrom: textAttributes textAttributes do: [:attr | "Try to placeEmbeddedObject: - if it answers false, then there's no place left" + (self placeEmbeddedObjectFrom: attr) ifFalse: [^ self crossedX]]. + ^ false! - (self placeEmbeddedObjectFrom: attr) ifFalse: [^ self crossedX]]!

1 0

The Trunk: EToys-mt.381.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.381.mcz ==================== Summary ==================== Name: EToys-mt.381 Author: mt Time: 20 February 2020, 1:53:03.525448 pm UUID: fe0f2fb3-5e3f-f34f-a019-c49bd9744017 Ancestors: EToys-mt.380 Fixes a stoopid typo :o) =============== Diff against EToys-mt.380 =============== Item was changed: ----- Method: ReleaseBuilderSqueakland class>>setPreferences (in category 'scripts') ----- setPreferences super setPreferences. [ "Reset all preferences to their default value but ensure that all control and alt keys stay duplicated." Preferences cambridge. Preferences allPreferences do: [:each | each defaultValue: each preferenceValue]. Preferences enable: #duplicateAllControlAndAltKeys. ] valueSupplyingAnswer: true. Preferences disable: #alternativeWindowBoxesLook; enable: #magicHalos; enable: #mouseOverHalos; enable: #showAdvancedNavigatorButtons; disable: #honorDesktopCmdKeys; enable: #unlimitedPaintArea; enable: #fastDragWindowForMorphic; enable: #noviceMode; disable: #generalizedYellowButtonMenu; disable: #signProjectFiles; + enable: #alwaysHideHScrollbar; + enable: #alwaysShowVScrollbar. "For the menu button." - enable: #alwaysHideHScrollBar; - enable: #alwaysShowVScrollBar. "For the menu button." ScrollBar scrollBarsWithoutMenuButton: false. ScrollBar scrollBarsWithoutArrowButtons: false. "Rounded corners." Morph preferredCornerRadius: 8. PluggableButtonMorph roundedButtonCorners: true. DialogWindow roundedDialogCorners: true. SystemWindow roundedWindowCorners: true. ScrollBar roundedScrollBarLook: true. Cursor useBiggerCursors: true. TrashCanMorph slideDismissalsToTrash: true; preserveTrash: true. SugarNavigatorBar showHideButton: false; showSugarNavigator: true. Preferences disable: #showAdvancedNavigatorButtons. TileMorph usePopUpArrows: true. Morph indicateKeyboardFocus: false. "Ignore warnings." Deprecation showDeprecationWarnings: false. Preferences disable: #warnIfChangesFileReadOnly; disable: #warnIfNoChangesFile; disable: #warnIfNoSourcesFile. !

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2020