Packages July 2016

packages@lists.squeakfoundation.org

1 participants
141 discussions

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

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

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

28 Jul '16

Tim Felgentreff uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-tfel.356.mcz ==================== Summary ==================== Name: Graphics-tfel.356 Author: tfel Time: 28 July 2016, 5:07:03.284263 pm UUID: 563a9dfa-5c42-b44a-8122-dbb5f553f5c4 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 =============== Diff against Graphics-tfel.355 =============== Item was changed: Form subclass: #Cursor instanceVariableNames: '' + classVariableNames: 'BlankCursor BottomLeftCursor BottomRightCursor CornerCursor CrossHairCursor CurrentCursor DownCursor MarkerCursor MenuCursor MoveCursor NormalCursor OriginCursor ReadCursor ResizeLeftCursor ResizeTopCursor ResizeTopLeftCursor ResizeTopRightCursor RightArrowCursor SquareCursor TargetCursor TopLeftCursor TopRightCursor UpCursor UseBiggerCursors WaitCursor WebLinkCursor WriteCursor XeqCursor' - classVariableNames: 'BlankCursor BottomLeftCursor BottomRightCursor CornerCursor CrossHairCursor CurrentCursor DownCursor MarkerCursor MenuCursor MoveCursor NormalCursor OriginCursor ReadCursor ResizeLeftCursor ResizeTopCursor ResizeTopLeftCursor ResizeTopRightCursor RightArrowCursor SquareCursor TargetCursor TopLeftCursor TopRightCursor UpCursor WaitCursor WebLinkCursor WriteCursor XeqCursor' poolDictionaries: '' category: 'Graphics-Display Objects'! !Cursor commentStamp: '<historical>' prior: 0! I am a Form that is a possible appearance for a mouse cursor. My size is always 16x16, ever since the original implementation on the Alto. There are many examples available in the "current cursor" category of class methods. For example, "Cursor normal" and "Cursor wait". For example: Cursor wait show ! Item was changed: ----- Method: Cursor class>>currentCursor: (in category 'current cursor') ----- currentCursor: aCursor "Make the instance of cursor, aCursor, be the current cursor. Display it. Create an error if the argument is not a Cursor." (aCursor isKindOf: self) ifTrue: [CurrentCursor := aCursor. + self useBiggerCursors + ifTrue: [[^ aCursor asBigCursor beCursor] + on: Error do: ["fall through"]]. aCursor beCursor] ifFalse: [self error: 'The new cursor must be an instance of class Cursor']! Item was added: + ----- Method: Cursor class>>useBiggerCursors (in category 'preferences') ----- + useBiggerCursors + + <preference: 'Use bigger mouse cursors' + category: 'mouse' + description: 'If true, mouse cursors are scaled up' + type: #Boolean> + ^ UseBiggerCursors ifNil: [false]! Item was added: + ----- Method: Cursor class>>useBiggerCursors: (in category 'preferences') ----- + useBiggerCursors: aBool + + UseBiggerCursors := aBool! Item was added: + ----- Method: Cursor>>asBigCursor (in category 'converting') ----- + asBigCursor + "Big cursors are 32 bits deep (ARGB premultiplied)" + depth = 32 + ifFalse: [^self enlargedBy: 2]. + ^self! Item was added: + ----- Method: Cursor>>enlargedBy: (in category 'converting') ----- + enlargedBy: scale + "Big cursors are 32 bits deep (ARGB premultiplied)" + | big | + scale = 1 ifTrue: [^self]. + big := CursorWithAlpha extent: self extent * scale depth: 32. + (self asCursorForm magnifyBy: scale) displayOn: big. + big offset: (self offset - 0.5 * scale min: 0@0 max: big extent negated) asIntegerPoint. + big fallback: self. + ^big! Item was added: + ----- Method: CursorWithAlpha>>beCursor (in category 'primitives') ----- + beCursor + <primitive: 101> + self fallback beCursor! Item was removed: - ----- Method: CursorWithAlpha>>primBeCursor (in category 'primitives') ----- - primBeCursor - <primitive: 101> - self fallback primBeCursor!

1 0

The Trunk: System-tfel.846.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.846.mcz ==================== Summary ==================== Name: System-tfel.846 Author: tfel Time: 28 July 2016, 4:52:57.324263 pm UUID: 7f191604-b02d-4e48-946a-9001cd9c6480 Ancestors: System-mt.845 various fixes for locale support =============== Diff against System-mt.845 =============== Item was changed: ----- Method: GetTextTranslator class>>availableLanguageLocaleIDs (in category 'accessing') ----- availableLanguageLocaleIDs "GetTextTranslator availableLanguageLocaleIDs" | ids dirs localeDirForLang directoryNames | ids := Set new. dirs := Set new. dirs addAll: LocaleDirsForDomain values. dirs addAll: self defaultLocaleDirs. dirs do: [:dir | | localesDir | localesDir := FileDirectory on: dir. directoryNames := [localesDir directoryNames] on: InvalidDirectoryError do: [:e | #()]. directoryNames do: [:langDirName | | localeID | localeID := LocaleID posixName: langDirName. localeDirForLang := localesDir directoryNamed: (self langDirNameForLocaleID: localeID). localeDirForLang ifNotNil: [ + (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID]]. + localeID hasParent ifTrue: [ + localeDirForLang := localesDir directoryNamed: (self langDirNameForLocaleID: localeID parent). + localeDirForLang ifNotNil: [ + (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID parent]]]. - (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID] - ] ]. ]. ^ids! Item was changed: ----- Method: LocaleID class>>posixName: (in category 'instance creation') ----- posixName: aString ^ self + isoString: (aString copyReplaceAll: '_' with: '-')! - isoString: (aString copyReplaceAll: ':=' with: '-')! Item was changed: ----- Method: LocaleID>>displayName (in category 'accessing') ----- displayName "Answer a proper name to represent the receiver in GUI. The wording is provided by translations of the magic value '<language display name>'. 'English' -> 'English' 'German' -> 'Deutsch' " | magicPhrase translatedMagicPhrase | magicPhrase := '<language display name>'. + translatedMagicPhrase := NaturalLanguageTranslator translateWithoutLoading: magicPhrase toLocaleID: self. - translatedMagicPhrase := GetTextTranslator translateWithoutLoading: magicPhrase toLocaleID: self. ^ translatedMagicPhrase = magicPhrase ifTrue: [self displayLanguage] ifFalse: [translatedMagicPhrase]! Item was added: + ----- Method: LocaleID>>isoCountry: (in category 'accessing') ----- + isoCountry: aValue + + isoCountry := aValue! Item was changed: ----- Method: LocaleID>>parent (in category 'accessing') ----- parent + ^ (self class + isoLanguage: self isoLanguage) + isoCountry: nil; + yourself! - ^self class isoLanguage: self isoLanguage! Item was changed: ----- Method: LocaleID>>posixName (in category 'printing') ----- posixName "(LocaleID isoString: 'es-MX') posixName" "(LocaleID isoString: 'es') posixName" "language[_territory]" ^ self isoCountry ifNil: [self isoLanguage] + ifNotNil: [self isoLanguage , '_' , self isoCountry]! - ifNotNil: [self isoLanguage , ':=' , self isoCountry]! Item was changed: ----- Method: Object>>localeChanged (in category '*System-Localization-locales') ----- localeChanged + "Can react to changed locales"! - self shouldBeImplemented!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2016