Squeak-dev November 2013

squeak-dev@lists.squeakfoundation.org

43 participants
223 discussions

The Trunk: System-fbs.629.mcz
by commits＠source.squeak.org 29 Nov '13

29 Nov '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.629.mcz ==================== Summary ==================== Name: System-fbs.629 Author: fbs Time: 29 November 2013, 8:28:59.973 am UUID: dd74c513-6ba6-9b48-a6be-8d26309f824b Ancestors: System-nice.628 In order to break the Graphics -> System dependency a bit more, change FontSubstitution to MissingFont to indicate what when wrong, not when it went wrong, and move the notification to Graphics. =============== Diff against System-nice.628 =============== Item was removed: - Notification subclass: #FontSubstitutionDuringLoading - instanceVariableNames: 'familyName pixelSize' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! - - !FontSubstitutionDuringLoading commentStamp: '<historical>' prior: 0! - signaled by font loading code when reading a DiskProxy that calls for a missing font.! Item was removed: - ----- Method: FontSubstitutionDuringLoading class>>forFamilyName:pixelSize: (in category 'instance creation') ----- - forFamilyName: aName pixelSize: aSize - ^(self new) - familyName: aName; - pixelSize: aSize; - yourself.! Item was removed: - ----- Method: FontSubstitutionDuringLoading>>defaultAction (in category 'handling') ----- - defaultAction - familyName ifNil: [ familyName := 'NoName' ]. - pixelSize ifNil: [ pixelSize := 12 ]. - - ^((familyName beginsWith: 'Comic') - ifTrue: [ TextStyle named: (Preferences standardEToysFont familyName) ] - ifFalse: [ TextStyle default ]) fontOfSize: pixelSize.! Item was removed: - ----- Method: FontSubstitutionDuringLoading>>familyName (in category 'accessing') ----- - familyName - "Answer the value of familyName" - - ^ familyName! Item was removed: - ----- Method: FontSubstitutionDuringLoading>>familyName: (in category 'accessing') ----- - familyName: anObject - "Set the value of familyName" - - familyName := anObject! Item was removed: - ----- Method: FontSubstitutionDuringLoading>>pixelSize (in category 'accessing') ----- - pixelSize - "Answer the value of pixelSize" - - ^ pixelSize! Item was removed: - ----- Method: FontSubstitutionDuringLoading>>pixelSize: (in category 'accessing') ----- - pixelSize: anObject - "Set the value of pixelSize" - - pixelSize := anObject! Item was removed: - ----- Method: FontSubstitutionDuringLoading>>printOn: (in category 'printing') ----- - printOn: aStream - super printOn: aStream. - aStream nextPut: $(; - nextPutAll: familyName; - nextPut: $-; - print: pixelSize; - nextPut: $).! Item was changed: ----- Method: ProjectLoading class>>openName:stream:fromDirectory:withProjectView: (in category 'loading') ----- openName: aFileName stream: preStream fromDirectory: aDirectoryOrNil withProjectView: existingView "Reconstitute a Morph from the selected file, presumed to be represent a Morph saved via the SmartRefStream mechanism, and open it in an appropriate Morphic world." | morphOrList proj trusted localDir projStream archive mgr projectsToBeDeleted baseChangeSet enterRestricted substituteFont numberOfFontSubstitutes exceptions | (preStream isNil or: [preStream size = 0]) ifTrue: [ ProgressNotification signal: '9999 about to enter project'. "the hard part is over" ^self inform: 'It looks like a problem occurred while getting this project. It may be temporary, so you may want to try again,' translated ]. ProgressNotification signal: '2:fileSizeDetermined ',preStream size printString. preStream isZipArchive ifTrue:[ archive := ZipArchive new readFrom: preStream. projStream := self projectStreamFromArchive: archive] ifFalse:[projStream := preStream]. trusted := SecurityManager default positionToSecureContentsOf: projStream. trusted ifFalse: [enterRestricted := (preStream isTypeHTTP or: [aFileName isNil]) ifTrue: [Preferences securityChecksEnabled] ifFalse: [Preferences standaloneSecurityChecksEnabled]. enterRestricted ifTrue: [SecurityManager default enterRestrictedMode ifFalse: [preStream close. ^ self]]]. localDir := Project squeakletDirectory. aFileName ifNotNil: [ (aDirectoryOrNil isNil or: [aDirectoryOrNil pathName ~= localDir pathName]) ifTrue: [ localDir deleteFileNamed: aFileName. (localDir fileNamed: aFileName) binary nextPutAll: preStream contents; close. ]. ]. morphOrList := projStream asUnZippedStream. preStream sleep. "if ftp, let the connection close" ProgressNotification signal: '3:unzipped'. ResourceCollector current: ResourceCollector new. baseChangeSet := ChangeSet current. self useTempChangeSet. "named zzTemp" "The actual reading happens here" substituteFont := Preferences standardEToysFont copy. numberOfFontSubstitutes := 0. exceptions := Set new. [[morphOrList := morphOrList fileInObjectAndCodeForProject] + on: MissingFont do: [ :ex | - on: FontSubstitutionDuringLoading do: [ :ex | exceptions add: ex. numberOfFontSubstitutes := numberOfFontSubstitutes + 1. ex resume: substituteFont ]] ensure: [ ChangeSet newChanges: baseChangeSet]. mgr := ResourceManager new initializeFrom: ResourceCollector current. mgr fixJISX0208Resource. mgr registerUnloadedResources. archive ifNotNil:[mgr preLoadFromArchive: archive cacheName: aFileName]. (preStream respondsTo: #close) ifTrue:[preStream close]. ResourceCollector current: nil. ProgressNotification signal: '4:filedIn'. ProgressNotification signal: '9999 about to enter project'. "the hard part is over" (morphOrList isKindOf: ImageSegment) ifTrue: [ proj := morphOrList arrayOfRoots detect: [:mm | mm isKindOf: Project] ifNone: [^self inform: 'No project found in this file']. proj projectParameters at: #substitutedFont put: ( numberOfFontSubstitutes > 0 ifTrue: [substituteFont] ifFalse: [#none]). proj projectParameters at: #MultiSymbolInWrongPlace put: false. "Yoshiki did not put MultiSymbols into outPointers in older images!!" morphOrList arrayOfRoots do: [:obj | obj fixUponLoad: proj seg: morphOrList "imageSegment"]. (proj projectParameters at: #MultiSymbolInWrongPlace) ifTrue: [ morphOrList arrayOfRoots do: [:obj | (obj isKindOf: HashedCollection) ifTrue: [obj rehash]]]. proj resourceManager: mgr. "proj versionFrom: preStream." proj lastDirectory: aDirectoryOrNil. proj setParent: Project current. projectsToBeDeleted := OrderedCollection new. existingView ifNil: [ ChangeSet allChangeSets add: proj changeSet. Project current openProject: proj. "Note: in MVC we get no further than the above" ] ifNotNil: [ (existingView project isKindOf: DiskProxy) ifFalse: [ existingView project changeSet name: ChangeSet defaultName. projectsToBeDeleted add: existingView project. ]. (existingView owner isSystemWindow) ifTrue: [ existingView owner model: proj ]. existingView project: proj. ]. ChangeSet allChangeSets add: proj changeSet. Project current projectParameters at: #deleteWhenEnteringNewProject ifPresent: [ :ignored | projectsToBeDeleted add: Project current. Project current removeParameter: #deleteWhenEnteringNewProject. ]. projectsToBeDeleted isEmpty ifFalse: [ proj projectParameters at: #projectsToBeDeleted put: projectsToBeDeleted. ]. ^ ProjectEntryNotification signal: proj ]. Project current openViewAndEnter: morphOrList !

1 0

The Trunk: Graphics-fbs.280.mcz
by commits＠source.squeak.org 29 Nov '13

29 Nov '13

Frank Shearar uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-fbs.280.mcz ==================== Summary ==================== Name: Graphics-fbs.280 Author: fbs Time: 29 November 2013, 8:28:36.953 am UUID: ed8d2409-b9b9-0d49-9120-3b02e7b54a07 Ancestors: Graphics-fbs.279 In order to break the Graphics -> System dependency a bit more, change FontSubstitution to MissingFont to indicate what when wrong, not when it went wrong, and move the notification to Graphics. =============== Diff against Graphics-fbs.279 =============== Item was added: + Notification subclass: #MissingFont + instanceVariableNames: 'familyName pixelSize' + classVariableNames: '' + poolDictionaries: '' + category: 'Graphics-Fonts'! + + !MissingFont commentStamp: '<historical>' prior: 0! + signaled by font loading code when reading a DiskProxy that calls for a missing font.! Item was added: + ----- Method: MissingFont class>>forFamilyName:pixelSize: (in category 'instance creation') ----- + forFamilyName: aName pixelSize: aSize + ^(self new) + familyName: aName; + pixelSize: aSize; + yourself.! Item was added: + ----- Method: MissingFont>>defaultAction (in category 'handling') ----- + defaultAction + familyName ifNil: [ familyName := 'NoName' ]. + pixelSize ifNil: [ pixelSize := 12 ]. + + ^((familyName beginsWith: 'Comic') + ifTrue: [ TextStyle named: (Preferences standardEToysFont familyName) ] + ifFalse: [ TextStyle default ]) fontOfSize: pixelSize.! Item was added: + ----- Method: MissingFont>>familyName (in category 'accessing') ----- + familyName + "Answer the value of familyName" + + ^ familyName! Item was added: + ----- Method: MissingFont>>familyName: (in category 'accessing') ----- + familyName: anObject + "Set the value of familyName" + + familyName := anObject! Item was added: + ----- Method: MissingFont>>pixelSize (in category 'accessing') ----- + pixelSize + "Answer the value of pixelSize" + + ^ pixelSize! Item was added: + ----- Method: MissingFont>>pixelSize: (in category 'accessing') ----- + pixelSize: anObject + "Set the value of pixelSize" + + pixelSize := anObject! Item was added: + ----- Method: MissingFont>>printOn: (in category 'printing') ----- + printOn: aStream + super printOn: aStream. + aStream nextPut: $(; + nextPutAll: familyName; + nextPut: $-; + print: pixelSize; + nextPut: $).! Item was changed: AbstractFont subclass: #StrikeFont instanceVariableNames: 'characterToGlyphMap xTable glyphs name type minAscii maxAscii maxWidth strikeLength ascent descent xOffset raster subscript superscript emphasis derivativeFonts pointSize fallbackFont charIndexCompatibilitySlot' classVariableNames: 'DefaultStringScanner' poolDictionaries: 'TextConstants' category: 'Graphics-Fonts'! + !StrikeFont commentStamp: 'fbs 11/28/2013 08:50' prior: 0! - !StrikeFont commentStamp: '<historical>' prior: 0! I represent a compact encoding of a set of Forms corresponding to characters in the ASCII character set. All the forms are placed side by side in a large form whose height is the font height, and whose width is the sum of all the character widths. The xTable variable gives the left-x coordinates of the subforms corresponding to the glyphs. Characters are mapped to glyphs by using the characterToGyphMap. Subclasses can have non-trivial mapping rules as well as different representations for glyphs sizes (e.g., not using an xTable). If so, these classes should return nil when queried for xTable and/or the characterToGlyphMap. This will cause the CharacterScanner primitive to fail and query the font for the width of a character (so that a more programatical approach can be implemented). For display, fonts need to implement two messages: #installOn: aDisplayContext foregroundColor: foregroundColor backgroundColor: backgroundColor + This method installs the receiver (a font) on the given DisplayContext (which may be an instance of BitBlt or Canvas (or any of its subclasses). The font should take the appropriate action to initialize the display context so that further display operations can be optimized. - This method installs the receiver (a font) on the given DisplayContext (which may be an instance of BitBlt or Canvas (or any of it's subclasses). The font should take the appropriate action to initialize the display context so that further display operations can be optimized. #displayString: aString on: aDisplayContext from: startIndex to: stopIndex at: aPoint kern: kernDelta This method is called for each subsequent run of characters in aString which is to be displayed with the (previously installed) settings. ! Item was changed: ----- Method: StrikeFont class>>familyName:size: (in category 'accessing') ----- familyName: aName size: aSize "Answer a font (or the default font if the name is unknown) in the specified size." | style | style := TextStyle named: aName asSymbol. + style ifNil: [^(MissingFont forFamilyName: aName pixelSize: aSize) - style ifNil: [^(FontSubstitutionDuringLoading forFamilyName: aName pixelSize: aSize) signal: 'missing font' ]. ^style fontOfSize: aSize!

1 0

Squeaksource down?
by Nicolas Cellier 28 Nov '13

28 Nov '13

http://downforeveryoneorjustme.com/source.squeak.org

3 2

Re: [squeak-dev] The Trunk: System-fbs.627.mcz
by Frank Shearar 27 Nov '13

27 Nov '13

On 26 November 2013 14:46, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-fbs.627.mcz > > ==================== Summary ==================== > > Name: System-fbs.627 > Author: fbs > Time: 26 November 2013, 2:45:58.971 pm > UUID: d1f0489e-96cf-c148-9b84-b361a1c5fb41 > Ancestors: System-fbs.626 > > Really, I need to drink more coffee. _This_ reverts the API deprecation. > > =============== Diff against System-fbs.626 =============== > > Item was added: > + ----- Method: Utilities class>>setSystemVersionFromConfig: (in category 'fetching updates') ----- > + setSystemVersionFromConfig: aConfig > + self deprecated: 'Use MCConfiguration >> #setSystemVersion'. > + aConfig setSystemVersion.! Grrr. Finally. _This_ fixes the update stream. I'll be over here in the dunce corner, with my pointy hat and paper bag. frank

6 7

Re: [squeak-dev] The Trunk: Kernel-cmm.821.mcz
by Levente Uzonyi 27 Nov '13

27 Nov '13

On Tue, 26 Nov 2013, commits(a)source.squeak.org wrote: > Chris Muller uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-cmm.821.mcz > > ==================== Summary ==================== > > Name: Kernel-cmm.821 > Author: cmm > Time: 26 November 2013, 10:24:26.281 am > UUID: 591c1ede-81bc-40d7-8591-af7fe29b2bd5 > Ancestors: Kernel-fbs.820 > > - Don't let Boolean and Number inherit Object's really slow #veryDeepCopy. Some Numbers are mutable objects, so this doesn't sound right. Levente > > =============== Diff against Kernel-fbs.820 =============== > > Item was added: > + ----- Method: Boolean>>veryDeepCopy (in category 'copying') ----- > + veryDeepCopy > + "Overridden for performance to avoid #fixDependents." > + ^ self! > > Item was added: > + ----- Method: Number>>veryDeepCopy (in category 'private') ----- > + veryDeepCopy > + "Overridden for performance." > + ^ self! > > >

5 6

Environments, users-of, and Aliases
by Frank Shearar 27 Nov '13

27 Nov '13

Asking for the users of FontSubstitutionDuringLoading (alt-N) shows one user. Asking for the methods with source containing "FontSubstitutionLoading" shows three methods. One of the two "missing" users of FontSubstitutionLoading is StrikeFont class >> #familyName:size:, whose literals include an Alias mapping #FontSubstitutionLoading to a class named FontSubstitutionLoading. Why doesn't this show up as a user of FontSubstitutionLoading? (StrikeFont class >> #familyName:size:) literals at: 6 "=> #FontSubstitutionDuringLoading=>FontSubstitutionDuringLoading" Smalltalk bindingOf: #FontSubstitutionDuringLoading "=> #FontSubstitutionDuringLoading=>FontSubstitutionDuringLoading" BUT. The former is an Alias, and the latter is a ClassBinding, therefore they are not #literalEqual:. At first blush it seems sensible to say "users-of means accessing any binding that (eventually) resolves to the value of this binding here". This would pick up ClassBindings that pointed to Smalltalk globals at: #Foo, as well as Aliases to ClassBindings that pointed to that class. What would be wrong with that approach? frank

1 0

Re: [squeak-dev] The Trunk: MonticelloConfigurations-fbs.118.mcz
by Frank Shearar 27 Nov '13

27 Nov '13

On 21 November 2013 21:20, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of MonticelloConfigurations to project The Trunk: > http://source.squeak.org/trunk/MonticelloConfigurations-fbs.118.mcz > > ==================== Summary ==================== > > Name: MonticelloConfigurations-fbs.118 > Author: fbs > Time: 21 November 2013, 9:20:19.085 pm > UUID: aaba44a1-8cfd-4147-8d94-69d5fc5ac571 > Ancestors: MonticelloConfigurations-cmm.117 > > Move the #upgradeIsMerge preference to MCConfiguration. > > =============== Diff against MonticelloConfigurations-cmm.117 =============== Just by the way, MonticelloConfigurations depends on System for one thing only now: Utilities' author stuff. I'm knocking up a completely lame minimal mimic-existing-stuff SystemAuthor that I will hopefully finish tomorrow. I plan to sever this dependency, and then remove all the references to Utilities authorName/Initials with SystemAuthor current, and then we can think about any other stuff we might do with this. frank

7 20

Re: [squeak-dev] The Trunk: Compression-fbs.40.mcz
by tim Rowledge 27 Nov '13

27 Nov '13

On 26-11-2013, at 9:51 PM, commits(a)source.squeak.org wrote: > Frank Shearar uploaded a new version of Compression to project The Trunk: > http://source.squeak.org/trunk/Compression-fbs.40.mcz > > ==================== Summary ==================== > > Name: Compression-fbs.40 > Author: fbs > Time: 26 November 2013, 9:49:54.171 pm > UUID: 82b0d6e4-0239-1241-968c-461a785fb6a7 > Ancestors: Compression-fbs.39 > > This is a test, even though it's not a unit test. Is it only a test? Or should we panic? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Resistance is useless! (If << 1 ohm)

2 1

Re: [squeak-dev] The Trunk: System-fbs.620.mcz
by Nicolas Cellier 27 Nov '13

27 Nov '13

It seems that there is a load order problem, because I have a message not understood #setSystemVersionFromConfig: when updating... The old code below still invoke the Utilities (as well as TheWorldMenu and other senders...) TheWorldMainDockingBar>>updateSqueak Utilities updateFromServer 2013/11/23 <commits(a)source.squeak.org> > Frank Shearar uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-fbs.620.mcz > > ==================== Summary ==================== > > Name: System-fbs.620 > Author: fbs > Time: 23 November 2013, 9:13:28.936 pm > UUID: a640a27d-9472-204b-8a5d-67c861e94eeb > Ancestors: System-fbs.619 > > #setSystemVersionFromConfig: clearly belongs better with the parameter's > class. #updateFromServer belongs (IMO at least) with the class involved > with updating. > > Keep the Utilities stubs, but deprecate them. > > =============== Diff against System-fbs.619 =============== > > Item was added: > + ----- Method: MCConfiguration>>setSystemVersion (in category > '*System-Support-updating') ----- > + setSystemVersion > + "Set the current system version date to the latest date found in > my configuration (or the associated working copy). Also set the highest > update number to the sum of version numbers in my configuration." > + > + | versionNumbers versionDates | > + versionNumbers := self dependencies collect: [:d | > + (d versionInfo name copyAfterLast: $.) asInteger]. > + versionDates := self dependencies collect: [:d | > + d versionInfo date > + ifNil: [d package workingCopy ancestors first > date]]. > + SystemVersion current > + date: versionDates max; > + highestUpdate: versionNumbers sum.! > > Item was added: > + ----- Method: MCMcmUpdater class>>updateFromServer (in category > '*System-Support-updating') ----- > + updateFromServer > + "Update the image by loading all pending updates from the server." > + | config | > + "Flush all caches. If a previous download failed this is often > helpful" > + MCFileBasedRepository flushAllCaches. > + config := MCMcmUpdater updateFromDefaultRepository. > + config ifNil: [^self inform: 'Unable to retrieve updates from > remote repository.' translated]. > + config setSystemVersion. > + self inform: ('Update completed. > + Current update number: ' translated, SystemVersion current > highestUpdate).! > > Item was removed: > - ----- Method: Utilities class>>setSystemVersionFromConfig: (in category > 'fetching updates') ----- > - setSystemVersionFromConfig: anMCConfiguration > - "Set the current system version date to the latest date found in > anMCConfiguration (or the associated working copy). Also set the highest > update number to the sum of version numbers in the config." > - > - | versionNumbers versionDates | > - versionNumbers := anMCConfiguration dependencies collect: [:d | > - (d versionInfo name copyAfterLast: $.) asInteger]. > - versionDates := anMCConfiguration dependencies collect: [:d | > - d versionInfo date > - ifNil: [d package workingCopy ancestors first > date]]. > - SystemVersion current > - date: versionDates max; > - highestUpdate: versionNumbers sum. > - ! > > Item was removed: > - ----- Method: Utilities class>>updateFromServer (in category 'fetching > updates') ----- > - updateFromServer > - "Update the image by loading all pending updates from the server." > - | config | > - "Flush all caches. If a previous download failed this is often > helpful" > - MCFileBasedRepository flushAllCaches. > - config := MCMcmUpdater updateFromDefaultRepository. > - config ifNil: [^self inform: 'Unable to retrieve updates from > remote repository.' translated]. > - self setSystemVersionFromConfig: config. > - self inform: ('Update completed. > - Current update number: ' translated, SystemVersion current > highestUpdate).! > > >

6 8

Daily Commit Log
by commits＠source.squeak.org 27 Nov '13

27 Nov '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-November/006666.h… Name: 45Deprecated-fbs.16 Ancestors: 45Deprecated-fbs.15 Revert the deprecation to try unbreak updates. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006667.h… Name: System-fbs.625 Ancestors: System-fbs.624 Revert the deprecation to try unbreak updates. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006668.h… Name: System-fbs.626 Ancestors: System-fbs.625 Typo means DNU. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006669.h… Name: System-fbs.627 Ancestors: System-fbs.626 Really, I need to drink more coffee. _This_ reverts the API deprecation. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006670.h… Name: Kernel-cmm.821 Ancestors: Kernel-fbs.820 - Don't let Boolean and Number inherit Object's really slow #veryDeepCopy. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006671.h… Name: System-nice.628 Ancestors: System-fbs.627 Classify some as yet unclassified. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006672.h… Name: Compression-fbs.40 Ancestors: Compression-fbs.39 This is a test, even though it's not a unit test. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006673.h… Name: GraphicsTests-fbs.37 Ancestors: GraphicsTests-fbs.36 This is a test, even though it's not a unit test. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006674.h… Name: Graphics-fbs.279 Ancestors: Graphics-fbs.278 This is a test, even though it's not a unit test. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006675.h… Name: Tests-fbs.269 Ancestors: Tests-fbs.268 This is a test, even though it's not a unit test. =============================================

1 0

← Newer
1
2
3
4
5
6
7
...
23
Older →

Jump to page: