Squeak-dev September 2015

squeak-dev@lists.squeakfoundation.org

40 participants
134 discussions

The Trunk: Morphic-eem.1003.mcz
by commits＠source.squeak.org 03 Sep '15

03 Sep '15

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1003.mcz ==================== Summary ==================== Name: Morphic-eem.1003 Author: eem Time: 2 September 2015, 6:30:31.822 pm UUID: 6acf30a2-82ed-49ea-b87f-85b16c6be607 Ancestors: Morphic-eem.1002 Remove carriage returns from a time stamp =============== Diff against Morphic-eem.1002 =============== Item was changed: ----- Method: MorphicModel>>model: (in category 'initialization') ----- model: anObject "Set my model and make me me a dependent of the given object." model ifNotNil: [model removeDependent: self]. anObject ifNotNil: [anObject addDependent: self]. model := anObject. !

1 0

The Trunk: Graphics-eem.317.mcz
by commits＠source.squeak.org 03 Sep '15

03 Sep '15

Eliot Miranda uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-eem.317.mcz ==================== Summary ==================== Name: Graphics-eem.317 Author: eem Time: 2 September 2015, 6:29:23.818 pm UUID: 93cbbfd8-00b5-48d8-9ef6-174661f41fa7 Ancestors: Graphics-topa.316 Remove carriage returns from some time stamps =============== Diff against Graphics-topa.316 =============== Item was changed: ----- Method: HostWindowProxy class>>isActiveHostWindowProxyClass (in category 'system startup') ----- isActiveHostWindowProxyClass "subclasses must override this" self subclassResponsibility! Item was changed: ----- Method: HostWindowProxy class>>on: (in category 'initialize-release') ----- on: aSourceForm "Build a new window proxy by finding the appropriate platform specific subclass and setting it up for this Form-like argument" ^ActiveProxyClass new on: aSourceForm! Item was changed: ----- Method: ImageReadWriter class>>putForm:onStream: (in category 'image reading/writing') ----- putForm: aForm onStream: aWriteStream "Store the given form on a file of the given name." | writer | writer := self on: aWriteStream. Cursor write showWhile: [writer nextPutImage: aForm]. writer close. !

1 0

The Trunk: EToys-eem.130.mcz
by commits＠source.squeak.org 03 Sep '15

03 Sep '15

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.130.mcz ==================== Summary ==================== Name: EToys-eem.130 Author: eem Time: 2 September 2015, 6:26:49.282 pm UUID: 97b8dbd3-1f68-4ec0-9eb6-74e9fadc1c6d Ancestors: EToys-mt.129 Remove carriage returns from a time stamp =============== Diff against EToys-mt.129 =============== Item was changed: ----- Method: ScriptEditorMorph>>fixUponLoad:seg: (in category 'objects from disk') ----- fixUponLoad: aProject seg: anImageSegment "We are in an old project that is being loaded from disk. Fix up conventions that have changed." (aProject projectParameters at: #substitutedFont ifAbsent: [#none]) ~~ #none ifTrue: [ self setProperty: #needsLayoutFixed toValue: true ]. ^ super fixUponLoad: aProject seg: anImageSegment!

1 0

The Trunk: Collections-eem.653.mcz
by commits＠source.squeak.org 03 Sep '15

03 Sep '15

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.653.mcz ==================== Summary ==================== Name: Collections-eem.653 Author: eem Time: 2 September 2015, 6:26:05.268 pm UUID: dfc67d6b-1eaf-42c5-929d-b136b4d28ef0 Ancestors: Collections-cbc.652 Remove carriage returns from some time stamps. Nuke unused private method in old finalization scheme. =============== Diff against Collections-cbc.652 =============== Item was changed: ----- Method: PluggableDictionary class>>integerDictionary (in category 'instance creation') ----- integerDictionary ^ self new hashBlock: [:integer | integer hash \\ 1064164 * 1009]! Item was changed: ----- Method: PluggableSet class>>integerSet (in category 'instance creation') ----- integerSet ^self new hashBlock: [:integer | integer hash \\ 1064164 * 1009]! Item was removed: - ----- Method: WeakArray class>>pvtCreateTemporaryObjectIn: (in category 'private') ----- - pvtCreateTemporaryObjectIn: tempObject - "We have to create the temporary object in a separate stack frame" - tempObject at: 1 put: Object new!

1 0

The Trunk: Balloon-eem.27.mcz
by commits＠source.squeak.org 03 Sep '15

03 Sep '15

Eliot Miranda uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-eem.27.mcz ==================== Summary ==================== Name: Balloon-eem.27 Author: eem Time: 2 September 2015, 6:24:15.595 pm UUID: 8a4e1c60-2480-434a-b65a-37f6cb45c131 Ancestors: Balloon-tfel.26 Remove carriage returns from some time stamps =============== Diff against Balloon-tfel.26 =============== Item was changed: ----- Method: Bezier3Segment class>>from:to: (in category 'instance creation') ----- from: p1 to: p2 ^ self new from: p1 via: (p1 interpolateTo: p2 at: 0.3333) and: (p1 interpolateTo: p2 at: 0.66667) to: p2! Item was changed: ----- Method: Bezier3Segment class>>from:via:and:to: (in category 'instance creation') ----- from: p1 via: p2 and: p3 to: p4 ^ self new from: p1 via: p2 and: p3 to: p4! Item was changed: ----- Method: CompressedBoundaryShape>>bounds (in category 'accessing') ----- bounds | min max width | points isEmpty ifTrue:[^0@0 corner: 1@1]. min := max := points first. points do:[:pt| min := min min: pt. max := max max: pt ]. width := 0. lineWidths valuesDo:[:w| width := width max: w]. ^(min corner: max) insetBy: (width negated asPoint)!

1 0

The Trunk: Collections-eem.653.mcz
by commits＠source.squeak.org 03 Sep '15

03 Sep '15

1 0

The Trunk: MonticelloConfigurations-dtl.137.mcz
by commits＠source.squeak.org 03 Sep '15

03 Sep '15

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-dtl.137.mcz ==================== Summary ==================== Name: MonticelloConfigurations-dtl.137 Author: dtl Time: 28 August 2015, 10:22:42.408 pm UUID: 420cae25-4016-48ba-8101-1881773d5098 Ancestors: MonticelloConfigurations-dtl.136 Fix updating the default update map name from preferences. Change constructor to avoid conflict with setter used by the preference. When the preference for default update map changes, initialize with a new default updater. The previous updater for the default update URL is replaced because its remembered position in the update stream will not be valid for a different update map sequence. Therefore ask confirmation from the user before accepting the preference change. Class var UpdateMapName is no longer needed, remove it. The LastUpdateMap class var was retained to support transition to instance based updaters. Remove it now. =============== Diff against MonticelloConfigurations-dtl.136 =============== Item was changed: Object subclass: #MCMcmUpdater instanceVariableNames: 'updateMapName lastUpdateMap' + classVariableNames: 'DefaultUpdateURL SkipPackages UpdateFromServerAtStartup UpdateMissingPackages Updaters' - classVariableNames: 'DefaultUpdateURL LastUpdateMap SkipPackages UpdateFromServerAtStartup UpdateMapName UpdateMissingPackages Updaters' poolDictionaries: '' category: 'MonticelloConfigurations'! + !MCMcmUpdater commentStamp: 'dtl 8/28/2015 22:07' prior: 0! - !MCMcmUpdater commentStamp: 'dtl 5/4/2015 16:03' prior: 0! MCMcmUpdater provides utility methods for updating Monticello packages from Monticello configurations. When Monticello configurations are stored in a repository (or repositories), MCMcmUpdater acts as an update stream. It first ensures that each configuration map has been loaded in sequence, then updates the last configuration map to the most recent version for each specified package, and finally loads these versions to produce a fully updated configuration. Currently if a set of packages are unloaded from the image, using this class to reload them may cause problems, depending on what dependencies those classes have. Success is not assured. Removing packages via SmalltalkImage>>unloadAllKnownPackages will be successful, it flags the packages removed so that they are not loaded by this utility. If you wish to not have MCMcmUpdater update packages, there are two ways to handle this: 1) To have MCMcmUpdater not update any packages not currently in the image set the UpdateMissingPackages preference to false: MCMcmUpdater updateMissingPackages: false Note that any new packages added to the repositories will not be picked up when this is turned off. 2) To have MCMcmUpdater not update a specific package, evaluate MCMcmUpdater disableUpdatesOfPackage: <packageName> Class Variables definitions: DefaultUpdateURL - String: the URL that will be checked by default for updates. This would be set for a common standard location to check. Updaters - A dictionary of MCMcmUpdater instances keyed by repository URL. SkipPackages - Set of Strings: names of packages to not update in MCMcmUpdater (empty by default). UpdateMissingPackages - Boolean: if true (default), new packages in the update config map will be loaded unless they are in SkipPackages. If false, packages not currently loaded in the image will not be loaded by MCMcmUpdater. (This can be dangerous if packages are split - use at your own risk). Instance Variables: updateMapName - Base name of the files used for this updater, typically a name such as 'update' or 'update.spur'. lastUpdateMap - Dictionary of Integer: version number of the last loaded update map per repository. Keeps track of the last configuration map, so that the utility will not have to run through the full history in the repositories each time you ask to update. ! Item was changed: ----- Method: MCMcmUpdater class>>default (in category 'instance creation') ----- default "The default instance for system updates. Uses a default update map name that may be set as a preference to enable a specific update stream for a repository." ^ self updaters at: self defaultUpdateURL + ifAbsentPut: [self updateMapNamed: self updateMapName]! - ifAbsentPut: [self updateMapName: self updateMapName]! Item was changed: ----- Method: MCMcmUpdater class>>initialize (in category 'class initialization') ----- initialize "MCMcmUpdater initialize" - LastUpdateMap ifNil:[ - LastUpdateMap := Dictionary new. - ]. DefaultUpdateURL ifNil:[ DefaultUpdateURL := MCHttpRepository trunkUrlString. ]. Updaters := nil. - self flag: #FIXME. - "The next line is to faciliate updating from class-side methods to instance based. - Building a new default update map is very time consuming, so do not do it. - Delete this after the transition is complete. Also delete class var LastUpdateMap - and its initialization above. -dtl May 2015" - LastUpdateMap ifNotNil: [ self default lastUpdateMap: LastUpdateMap ] ! Item was changed: ----- Method: MCMcmUpdater class>>updateFromRepositories:using:baseName: (in category 'updating') ----- updateFromRepositories: repositoryUrls using: updaterUrlKey baseName: baseName "Update all repositoryUrls using an MCMcmUpdater identified by updaterUrlKey, and using update map baseName" + ^ (self updateMapNamed: baseName repository: updaterUrlKey) - ^ (self updateMapName: baseName repository: updaterUrlKey) updateFromRepositories: repositoryUrls! Item was changed: ----- Method: MCMcmUpdater class>>updateFromRepository:baseName: (in category 'updating') ----- updateFromRepository: updaterUrlKey baseName: baseName "Update using an MCMcmUpdater identified by updaterUrlKey, and using update map baseName" + ^ (self updateMapNamed: baseName repository: updaterUrlKey) - ^ (self updateMapName: baseName repository: updaterUrlKey) updateFrom: updaterUrlKey! Item was changed: ----- Method: MCMcmUpdater class>>updateMapName (in category 'preferences') ----- updateMapName + "The default update map name" - "Name for update map, without version info" <preference: 'Update map name' category: 'updates' description: 'Base name for the update maps' type: #String> + ^ 'update'! - ^UpdateMapName ifNil: ['update']! Item was changed: + ----- Method: MCMcmUpdater class>>updateMapName: (in category 'preferences') ----- + updateMapName: mapName + "The default update map name for the default updater. If this is changed, + then the default updater must be replaced because its remembered position + in the update map sequence will not be valid for the new update map." - ----- Method: MCMcmUpdater class>>updateMapName: (in category 'instance creation') ----- - updateMapName: baseName - "Answer a new instance with a base update name baseName such as - 'update' or 'update.oscog' " + self default updateMapName = mapName + ifFalse: [(self confirm: 'Initializing updater for ' , DefaultUpdateURL , ' to use new update stream ' , mapName) + ifTrue: [self updaters + at: self defaultUpdateURL + put: (self updateMapNamed: mapName)]]! - ^ self new updateMapName: baseName! Item was removed: - ----- Method: MCMcmUpdater class>>updateMapName:repository: (in category 'instance creation') ----- - updateMapName: baseName repository: url - "Answer an instance for the given repository URL with a base update name - baseName. The instance will be updated in the Updaters dictionary if baseName - has changed." - - | updater | - updater := self updaters at: url ifAbsentPut: [ self updateMapName: baseName ]. - updater updateMapName = baseName - ifFalse: [ ^ self updaters at: url put: (self updateMapName: baseName )]. - ^ updater - ! Item was added: + ----- Method: MCMcmUpdater class>>updateMapNamed: (in category 'instance creation') ----- + updateMapNamed: baseName + "Answer a new instance with a base update name baseName such as + 'update' or 'update.oscog' " + + ^ self new + updateMapName: baseName; + lastUpdateMap: Dictionary new! Item was added: + ----- Method: MCMcmUpdater class>>updateMapNamed:repository: (in category 'instance creation') ----- + updateMapNamed: baseName repository: url + "Answer an instance for the given repository URL with a base update name + baseName. The instance will be updated in the Updaters dictionary if baseName + has changed." + + | updater | + updater := self updaters at: url ifAbsentPut: [ self updateMapNamed: baseName ]. + updater updateMapName = baseName + ifFalse: [ ^ self updaters at: url put: (self updateMapNamed: baseName )]. + ^ updater + !

1 0

Re: [squeak-dev] The Trunk: Monticello-eem.617.mcz
by Tobias Pape 03 Sep '15

03 Sep '15

Hi Eliot, On 28.08.2015, at 00:09, commits(a)source.squeak.org wrote: > Item was added: > + ----- Method: ChangeSorter>>monticelloChangeSetMenu: (in category '*Monticello-changeSet menu') ----- > + monticelloChangeSetMenu: aMenu > + <changeSetMenuShifted: false> > + <menuPriority: 600> > + "Sigh, when implementing menu pragmas this is not what I had in mind..." > + aMenu add: 'delete Monticello load change sets' action: #deleteMonticelloChangeSets. > + (aMenu submorphs > + detect: [:m| m isMenuItemMorph and: [m contents beginsWith: 'destroy change set']] > + ifNone: []) ifNotNil: > + [:destroyItem| | item | > + aMenu removeMorph: (item := aMenu submorphs last). > + aMenu addMorph: item after: destroyItem]. > + ^aMenu! Can you explain what you want to achieve and how I can make this more convenient? Best regards -Tobias

4 3

securing SAR/MCZ files, certificates, etc
by tim Rowledge 02 Sep '15

02 Sep '15

I mentioned working on using SAR files and/or MCZ as a way to distribute device driver add-ons for Pi Scratch a while ago. The basics are working nicely and it’s time to ask for advice on securing the files. I’ve noticed assorted ssl/encryption/certificate checking related emails whizz by but never paid a lot of attention in the past. An interesting additional issue for my use is that the file will need to be loadable/decryptable/checkable very fast, even on a Pi, since it will need to be reloaded (from file, not over the net) each time the user asks for a device needing one of these drivers. We don’t need to be utterly paranoid about the security since nobody is doing anything l crazy with this, like, oh, taking one up to the ISS… Pointers to stuff to read, load, try, all appreciated from those with experience. No, I haven’t googled much about it since I know too little to be able to make a sensible start without advice. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: CWB: Carry With Borrow

3 4

Daily Commit Log
by commits＠source.squeak.org 01 Sep '15

01 Sep '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-September/008937.… Name: Graphics-topa.316 Ancestors: Graphics-mt.315 Move TextPrinter from ST80 to Graphics, as Morphic now also uses it. TextPrinter uses ST80's Paragraph but already guardes around it if not present. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008938.… Name: ST80-topa.186 Ancestors: ST80-mt.185 Move TextPrinter from ST80 to Graphics, as Morphic now also uses it. TextPrinter uses ST80's Paragraph but already guardes around it if not present. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008939.… Name: Tests-topa.330 Ancestors: Tests-mt.329 Network rightfully depens on WebClient, now that it is our default HTTP(S) client. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008940.… Name: TrueType-topa.40 Ancestors: TrueType-topa.39 Use all glyphs in a Font, not just 256 (fix by Vasya Chajko) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008941.… Name: TrueType-topa.41 Ancestors: TrueType-topa.40 Remove spurious comment ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008942.… Name: Collections-cbc.650 Ancestors: Collections-ul.649 Add ByteArray methods to deal with long64bit values. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008943.… Name: Collections-cbc.651 Ancestors: Collections-cbc.650 Faster #unsignedLong64At:bigEndian: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008944.… Name: Collections-cbc.652 Ancestors: Collections-cbc.651 #unsignedLong64At:put:bigEndian: on average fast. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008945.… Name: Compression-cmm.48 Ancestors: Compression-dtl.47 Allow zipping of directories with thousands of files, without creating thousands of instances of simultaneously open FileStream's in the image. =============================================

1 0

Jump to page: