Squeak-dev July 2016

squeak-dev@lists.squeakfoundation.org

38 participants
224 discussions

The Trunk: System-mt.849.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.849.mcz ==================== Summary ==================== Name: System-mt.849 Author: mt Time: 29 July 2016, 3:48:10.227103 pm UUID: 5adcb3ba-a052-e84f-9b7b-a176d4acff98 Ancestors: System-mt.848 Adds some convenience methods to get more information about the current system version. =============== Diff against System-mt.848 =============== Item was added: + ----- Method: SystemVersion>>isAlpha (in category 'testing') ----- + isAlpha + ^ (version endsWith: #alpha)! Item was added: + ----- Method: SystemVersion>>isCodeFreeze (in category 'testing') ----- + isCodeFreeze + ^ self isFeatureFreeze and: [(version endsWith: #beta) not]! Item was added: + ----- Method: SystemVersion>>isFeatureFreeze (in category 'testing') ----- + isFeatureFreeze + ^ self isAlpha not! Item was added: + ----- Method: SystemVersion>>isRelease (in category 'testing') ----- + isRelease + ^ self isReleaseCandidate not and: [version last isDigit]! Item was added: + ----- Method: SystemVersion>>isReleaseCandidate (in category 'testing') ----- + isReleaseCandidate + ^ (version findTokens: 'rc') size > 1! Item was added: + ----- Method: SystemVersion>>majorVersionNumber (in category 'accessing') ----- + majorVersionNumber + + ^ (version copyFrom: 'Squeak' size to: (version indexOf: $.)) asInteger! Item was added: + ----- Method: SystemVersion>>minorVersionNumber (in category 'accessing') ----- + minorVersionNumber + + | pointIndex | + pointIndex := version indexOf: $.. + ^ (version + copyFrom: pointIndex + to: (self isRelease + "e.g. Squeak5.1" + ifTrue: [version size] + "e.g. Squeak5.1rc5" + ifFalse: [(pointIndex+1 to: version size) detect: [:ea | (version at: ea) isDigit not]])) asInteger! Item was added: + ----- Method: SystemVersion>>releaseCandidateNumber (in category 'accessing') ----- + releaseCandidateNumber + ^ self isReleaseCandidate + ifFalse: [0] + ifTrue: [(version findTokens: 'rc') last asInteger]!

1 0

The Trunk: SystemReporter-mt.29.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-mt.29.mcz ==================== Summary ==================== Name: SystemReporter-mt.29 Author: mt Time: 29 July 2016, 1:56:31.420062 pm UUID: acb6c18a-32cd-0346-a521-610207d5c2f2 Ancestors: SystemReporter-mt.28 Order all Squeak Contributors alphabetically. =============== Diff against SystemReporter-mt.28 =============== Item was changed: ----- Method: SystemReporter>>reportContributors: (in category 'reporting') ----- reportContributors: stream + self header: 'Squeak Contributors (alphabetically)' on: stream. - | squeakBoardAuthors | - self header: 'Squeak Contributors' on: stream. stream withAttribute: (TextColor color: (Color r: 0 g: 0.5 b: 0)) do: [ stream nextPutAll: 'If we forgot to mention YOU in this list, please report to board(a)lists.squeakfoundation.org']. + stream cr; cr. - stream cr. + SystemNavigation authors keys sorted do: [:fullName | - "Squeak Oversight Board Members and other influential Squeakers since its first days. :-)" - squeakBoardAuthors := (SystemNavigation authors keys - select: [:nm | #(curtis kaehler ingalls teitelbaum freudenberg latta 't. lewis' muller rowledge taeumel uzonyi assumpcao black causey cleene cunnington groot denker ducasse miranda ohshima putney raab schwartz shearar stasenko vuletich) anySatisfy: [:token | nm includesSubstring: token caseSensitive: false]]). - - stream cr. - squeakBoardAuthors sorted do: [:fullName | (SystemNavigation authors at: fullName) in: [:abbreviations | - stream nextPutAll: ('{1} ({2})' format: {fullName. abbreviations asArray joinSeparatedBy: ' '}); cr]]. - - stream cr. - stream withAttribute: (TextColor color: (Color r: 0 g: 0.5 b: 0)) do: [ - stream nextPutAll: '_,.-''~''-.,__,.-''~''-.,__,.-''~''-.,__,.-''~''-.,__,.-''~''-.,_']. - stream cr;cr . - - (SystemNavigation authors keys copyWithoutAll: squeakBoardAuthors) sorted do: [:fullName | - (SystemNavigation authors at: fullName) in: [:abbreviations | stream nextPutAll: ('{1} ({2})' format: {fullName. abbreviations asArray joinSeparatedBy: ' '}); cr]].!

1 0

The Trunk: SystemReporter-mt.28.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-mt.28.mcz ==================== Summary ==================== Name: SystemReporter-mt.28 Author: mt Time: 29 July 2016, 1:48:17.592006 pm UUID: 1810451e-c781-4c4e-b3d6-8c6d6bb2389b Ancestors: SystemReporter-mt.27 List Squeak Contributors in the System Reporter. =============== Diff against SystemReporter-mt.27 =============== Item was changed: ----- Method: SystemReporter>>initialize (in category 'initialize-release') ----- initialize self + add: #'Contributors' method: #reportContributors; add: #Image method: #reportImage; add: #'Image Parameters' method: #reportImageParameters; add: #'Image Sources' method: #reportSources; add: #'Image Preferences' method: #reportPreferences; add: #'MC Repositories' method: #reportRepositories; add: #'MC Working Copies' method: #reportWorkingCopies; add: #'VM General' method: #reportVM; add: #'VM Options' method: #reportVMOptions; add: #'VM Modules' method: #reportModules; add: #'VM Parameters' method: #reportVMParameters; add: #'VM Stats' method: #reportVMStats. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'VM Configuration' method: #reportWin32VMConfig. ]. self add: #'OS General' method: #reportOS. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'OS Details' method: #reportWin32OSDetails; add: #'Hardware Details' method: #reportWin32HardwareDetails; add: #'GFX Hardware Details' method: #reportWin32GFXDetails. ]. Smalltalk os osVersion = 'linux' ifTrue: [ self add: #'OS Details' method: #reportLinuxOSDetails ]. self add: #'Tiny Benchmarks' method: #reportTinyBenchmarks; add: #'Space Analysis' method: #reportSpaceAnalysis; add: #'SUnit' method: #reportTestRunner; add: #'Debug Log' method: #reportDebugLog. categoriesSelected := Set with: #Image with: #'VM General'. self updateReport ! Item was added: + ----- Method: SystemReporter>>reportContributors: (in category 'reporting') ----- + reportContributors: stream + + | squeakBoardAuthors | + self header: 'Squeak Contributors' on: stream. + + stream withAttribute: (TextColor color: (Color r: 0 g: 0.5 b: 0)) do: [ + stream nextPutAll: 'If we forgot to mention YOU in this list, please report to board(a)lists.squeakfoundation.org']. + stream cr. + + "Squeak Oversight Board Members and other influential Squeakers since its first days. :-)" + squeakBoardAuthors := (SystemNavigation authors keys + select: [:nm | #(curtis kaehler ingalls teitelbaum freudenberg latta 't. lewis' muller rowledge taeumel uzonyi assumpcao black causey cleene cunnington groot denker ducasse miranda ohshima putney raab schwartz shearar stasenko vuletich) anySatisfy: [:token | nm includesSubstring: token caseSensitive: false]]). + + stream cr. + squeakBoardAuthors sorted do: [:fullName | + (SystemNavigation authors at: fullName) in: [:abbreviations | + stream nextPutAll: ('{1} ({2})' format: {fullName. abbreviations asArray joinSeparatedBy: ' '}); cr]]. + + stream cr. + stream withAttribute: (TextColor color: (Color r: 0 g: 0.5 b: 0)) do: [ + stream nextPutAll: '_,.-''~''-.,__,.-''~''-.,__,.-''~''-.,__,.-''~''-.,__,.-''~''-.,_']. + stream cr;cr . + + (SystemNavigation authors keys copyWithoutAll: squeakBoardAuthors) sorted do: [:fullName | + (SystemNavigation authors at: fullName) in: [:abbreviations | + stream nextPutAll: ('{1} ({2})' format: {fullName. abbreviations asArray joinSeparatedBy: ' '}); cr]].!

1 0

Daily Commit Log
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-July/068308.html Name: Tools-tfel.709 Ancestors: Tools-mt.708 Fix a small bug in FileList2. FileList>>itemsForFile: now needs a fully qualified path ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068309.html Name: Morphic-mt.1199 Ancestors: Morphic-mt.1198 Improve robustness for tricky debugging scenarios. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068310.html Name: System-mt.842 Ancestors: System-mt.841 Fixes uni-class check due to latest updates in EToys package. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068311.html Name: Morphic-mt.1200 Ancestors: Morphic-mt.1199 Adds pragma preference for rounded window corners. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068312.html Name: MorphicExtras-mt.177 Ancestors: MorphicExtras-topa.176 Uses pragma preference for rounded window corners. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068313.html Name: ReleaseBuilder-mt.136 Ancestors: ReleaseBuilder-mt.135 Uses pragma preference for rounded window corners. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068314.html Name: System-mt.843 Ancestors: System-mt.842 Removes old-style preference for rounded window corners. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068315.html Name: 51Deprecated-mt.33 Ancestors: 51Deprecated-mt.32 Just in case, deprecate but not remove old-style rounded-corners string message. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068316.html Name: Morphic-mt.1201 Ancestors: Morphic-mt.1200 Restore functionality for rounded window corners, how that the preference is pragma-style. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068317.html Name: SystemReporter-mt.27 Ancestors: SystemReporter-mt.26 The System Reporter tool is created via tool builder and hence should be a model like all other tools created via tool builder. Note that Model does also have a more efficient management for dependents compared to Object. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068318.html Name: Morphic-mt.1202 Ancestors: Morphic-mt.1201 Add and use pragma-style preference for gradient scroll bars. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068319.html Name: ReleaseBuilder-mt.137 Ancestors: ReleaseBuilder-mt.136 Use pragma-style preference for gradient scroll bars. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068320.html Name: System-mt.844 Ancestors: System-mt.843 Remove old-style preference for gradient scroll bars. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068321.html Name: Morphic-mt.1203 Ancestors: Morphic-mt.1202 Cleans up window refreshing code. Fixes a bug that recreated the close box for windows that where uncloseable. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068322.html Name: Morphic-mt.1204 Ancestors: Morphic-mt.1203 Fixes some code that is used when refreshing the window colors after a preference change. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068323.html Name: Morphic-mt.1205 Ancestors: Morphic-mt.1204 Provide a simple interface to avoid display updates. For example, if you change a bunch of things in, say, the PluggableButtonMorph and you happen to have one visible on the screen, transcripts or system progress bars will trigger visual updates at a time when code is in an inconsistent state. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068324.html Name: System-mt.845 Ancestors: System-mt.844 Also add the generic hook to avoid display updates to all project kinds. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068325.html Name: System-tfel.846 Ancestors: System-mt.845 various fixes for locale support ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068326.html Name: Graphics-tfel.356 Ancestors: Graphics-tfel.355 add a preference for bigger cursors (from etoys) and fix fallback for CursorWithAlpha for systems that do not support 32-bit cursors with alpha ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068327.html Name: Morphic-tfel.1206 Ancestors: Morphic-mt.1205 Use all translators to offer languages ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068328.html Name: MorphicExtras-tfel.178 Ancestors: MorphicExtras-mt.177 use a default value for flaptabs if we don't have a referent ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068329.html Name: Multilingual-tfel.215 Ancestors: Multilingual-tpr.214 only run the language environment startup code for the current language platform when the locale changes. no need to run it for all platforms. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068330.html Name: System-tfel.847 Ancestors: System-tfel.846 avoid infinite recursion in Locale class>>localeChanged only inform the current project of a locale change if that project is of the same class as the one we're currently in ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068331.html Name: GetText-ul.38 Ancestors: GetText-mt.37 - fixed two erroneous underscore conversions ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068332.html Name: WebClient-Core-ul.102 Ancestors: WebClient-Core-topa.101 Send #destroy to stream instead of its socket in WebClient >> #destroy, so that SecureSocketStream can properly release its SqueakSSL instance instead of leaking it. =============================================

1 0

The Trunk: WebClient-Core-ul.102.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Levente Uzonyi uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-ul.102.mcz ==================== Summary ==================== Name: WebClient-Core-ul.102 Author: ul Time: 28 July 2016, 6:11:24.053224 pm UUID: 41aff69b-9c82-4685-a1de-9d2b7b3dd30e Ancestors: WebClient-Core-topa.101 Send #destroy to stream instead of its socket in WebClient >> #destroy, so that SecureSocketStream can properly release its SqueakSSL instance instead of leaking it. =============== Diff against WebClient-Core-topa.101 =============== Item was changed: ----- Method: WebClient>>destroy (in category 'initialize') ----- destroy "Destroys the client" stream ifNotNil:[ + stream destroy. - stream socket ifNotNil:[:s| s destroy]. stream := nil. ]. !

1 0

The Trunk: GetText-ul.38.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Levente Uzonyi uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-ul.38.mcz ==================== Summary ==================== Name: GetText-ul.38 Author: ul Time: 28 July 2016, 6:04:51.67039 pm UUID: 391f6add-8779-418e-aca7-8b3f282fd463 Ancestors: GetText-mt.37 - fixed two erroneous underscore conversions =============== Diff against GetText-mt.37 =============== Item was changed: ----- Method: GetTextExporter>>dirNameCategory:translator: (in category 'exporting') ----- dirNameCategory: category translator: translator "Answer a file name for the category. Make one if it is not exist yet. Make template file name if translator is nil" "self new dirNameCategory: 'Morphic-Scripting Support' translator: NaturalLanguageTranslator current" "self new dirNameCategory: 'Morphic-Scripting Support' translator: nil" | safeCategory fileName dirName pathName | + safeCategory := category copyReplaceAll: ' ' with: '_'. - safeCategory := category copyReplaceAll: ' ' with: ':='. fileName := translator ifNil: [safeCategory , '.pot'] ifNotNil: [translator localeID posixName , '.po']. dirName := (safeCategory findTokens: '-') inject: 'po' into: [:aString :next | aString , FileDirectory slash , next]. pathName := dirName , FileDirectory slash , fileName. (FileDirectory default directoryNamed: dirName) assureExistence. ^ pathName! Item was changed: ----- Method: GetTextExporter>>exportBody:translator: (in category 'file out') ----- exportBody: literals translator: translator "Export a gettext file body. literals is a dictionary of keyword -> #(MethodReference...) in the textDomain." "Build {sortKey. comment. msgid } to optimize sorting (getting category is too slow). If there are two or more methods for a mgsid, only first method (alphabetical) is used for sorting." | sorted msgid sortedMethods category sortKey comment triplets commentUnderLined | triplets := literals associations collect: [:assoc | msgid := assoc key. sortedMethods := assoc value asArray sort. category := (Smalltalk at: sortedMethods first classSymbol) category asString. sortKey := category , ',' , sortedMethods first printString , ',' , msgid. comment := (sortedMethods collect: [:each | each actualClass asString , '>>' , each methodSymbol asString]) inject: category into: [:result :methodName | result , ',' , methodName]. + "Replace white spaces to _ because gettext tool might - "Replace white spaces to := because gettext tool might replace a space to a new line some times, and it makes difficult to take a diff." + commentUnderLined := comment copyReplaceAll: ' ' with: '_'. - commentUnderLined := comment copyReplaceAll: ' ' with: ':='. Array with: sortKey with: commentUnderLined with: msgid]. "Sort and output the words" sorted := triplets sort: [:a :b | a first <= b first]. sorted do: [:triplet | comment := triplet second. msgid := triplet third. self exportRecordHeader: comment. self exportPhrase: msgid translation: (self translationFor: msgid in: translator)]!

1 0

The Trunk: System-tfel.847.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Tim Felgentreff uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tfel.847.mcz ==================== Summary ==================== Name: System-tfel.847 Author: tfel Time: 28 July 2016, 5:44:07.697262 pm UUID: f9564962-6572-0f40-80ce-109dcd9dc1fb Ancestors: System-tfel.846 avoid infinite recursion in Locale class>>localeChanged only inform the current project of a locale change if that project is of the same class as the one we're currently in =============== Diff against System-tfel.846 =============== Item was changed: ----- Method: Locale class>>localeChanged (in category 'notification') ----- localeChanged + SystemNavigation default allBehaviorsDo: [:b | + b == self ifFalse: [b localeChanged]].! - self class environment allBehaviorsDo: [:b | b localeChanged].! Item was changed: ----- Method: Project class>>localeChanged (in category 'class initialization') ----- localeChanged + self current class == self + ifTrue: [self current localeChanged].! - self current localeChanged!

1 0

The Trunk: Multilingual-tfel.215.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Tim Felgentreff uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-tfel.215.mcz ==================== Summary ==================== Name: Multilingual-tfel.215 Author: tfel Time: 28 July 2016, 5:42:27.421262 pm UUID: eb0c9954-a8c7-1247-ad77-d0e95c015e9a Ancestors: Multilingual-tpr.214 only run the language environment startup code for the current language platform when the locale changes. no need to run it for all platforms. =============== Diff against Multilingual-tpr.214 =============== Item was changed: ----- Method: LanguageEnvironment class>>localeChanged (in category 'class initialization') ----- localeChanged + + (self currentPlatform class == self) + ifTrue: [self startUp].! - self startUp!

1 0

The Trunk: MorphicExtras-tfel.178.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Tim Felgentreff uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tfel.178.mcz ==================== Summary ==================== Name: MorphicExtras-tfel.178 Author: tfel Time: 28 July 2016, 5:40:57.037262 pm UUID: 7f1a4b18-8035-ab4c-a0e6-f61404b53cd9 Ancestors: MorphicExtras-mt.177 use a default value for flaptabs if we don't have a referent =============== Diff against MorphicExtras-mt.177 =============== Item was changed: ----- Method: FlapTab>>referentThickness (in category 'access') ----- referentThickness + referent ifNil: [^ 32]. ^ (self orientation == #horizontal) ifTrue: [referent height] ifFalse: [referent width]!

1 0

The Trunk: Morphic-tfel.1206.mcz
by commits＠source.squeak.org 28 Jul '16

28 Jul '16

Tim Felgentreff uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tfel.1206.mcz ==================== Summary ==================== Name: Morphic-tfel.1206 Author: tfel Time: 28 July 2016, 5:39:34.138262 pm UUID: 5576675a-2dc1-5a44-af3d-adccb4b2649e Ancestors: Morphic-mt.1205 Use all translators to offer languages =============== Diff against Morphic-mt.1205 =============== Item was changed: ----- Method: MorphicProject>>chooseNaturalLanguage (in category 'language') ----- chooseNaturalLanguage "Put up a menu allowing the user to choose the natural language for the project" | aMenu availableLanguages | aMenu := MenuMorph new defaultTarget: self. aMenu addTitle: 'choose language' translated. aMenu lastItem setBalloonText: 'This controls the human language in which tiles should be viewed. It is potentially extensible to be a true localization mechanism, but initially it only works in the classic tile scripting system. Each project has its own private language choice' translated. Preferences noviceMode ifFalse:[aMenu addStayUpItem]. + availableLanguages := NaturalLanguageTranslator availableLanguageLocaleIDs - availableLanguages := InternalTranslator availableLanguageLocaleIDs asSortedCollection:[:x :y | x displayName < y displayName]. availableLanguages do: [:localeID | aMenu addUpdating: #stringForLanguageNameIs: target: Locale selector: #switchAndInstallFontToID: argumentList: {localeID}]. aMenu popUpInWorld "Project current chooseNaturalLanguage"!

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
23
Older →

Jump to page: