Packages June 2018

packages@lists.squeakfoundation.org

1 participants
79 discussions

The Trunk: Tests-ul.398.mcz
by commits＠source.squeak.org 15 Jun '18

15 Jun '18

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.398.mcz ==================== Summary ==================== Name: Tests-ul.398 Author: ul Time: 14 June 2018, 11:45:12.210587 pm UUID: 832bc19c-0153-4bbb-bb39-3bdb06cf9d56 Ancestors: Tests-ul.397 - do not nag the user about setting the author initials #2 - fixed LangEnvBugs >> #testIsFontAvailable - added LocaleTest >> #testIsFontAvailable to #expectedFailures =============== Diff against Tests-ul.397 =============== Item was changed: + ----- Method: ClassRemovalTest>>performTest (in category 'private') ----- - ----- Method: ClassRemovalTest>>performTest (in category 'as yet unclassified') ----- performTest Utilities useAuthorInitials: self className during: [ super performTest ]! Item was changed: ----- Method: LangEnvBugs>>testIsFontAvailable (in category 'as yet unclassified') ----- testIsFontAvailable "self new testIsFontAvailable" "self run: #testIsFontAvailable" | oldPref | oldPref := Preferences valueOfPreference: #tinyDisplay. Preferences restoreFontsAfter: [ [Preferences enable: #tinyDisplay. "This should not throw an exception." + (LanguageEnvironment localeID: (LocaleID isoLanguage: 'en')) isFontAvailable] - (LanguageEnvironment localeID: 'en' ) isFontAvailable] ensure: [Preferences setPreference: #tinyDisplay toValue: oldPref]].! Item was changed: ----- Method: LocaleTest>>expectedFailures (in category 'testing') ----- expectedFailures ^ super expectedFailures, ((NaturalLanguageTranslator translators isEmpty or: [(NaturalLanguageTranslator translators values collect: [:t | t localeID ]) asSet size = 1]) ifTrue: [#(testLocaleChanged) "no locale available to switch to"] + ifFalse: [ #()]), + #(testIsFontAvailable "metatoys.org is not accessible") - ifFalse: [ #()]) ! Item was added: + ----- Method: MCTestCase>>performTest (in category 'as yet unclassified') ----- + performTest + + Utilities + useAuthorInitials: self className + during: [ super performTest ]!

1 0

The Trunk: Tests-ul.397.mcz
by commits＠source.squeak.org 15 Jun '18

15 Jun '18

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.397.mcz ==================== Summary ==================== Name: Tests-ul.397 Author: ul Time: 14 June 2018, 11:28:35.102959 pm UUID: 7cc15100-1821-4093-b549-f524fc76a6c4 Ancestors: Tests-dtl.396 - do not nag the user about setting the author initials =============== Diff against Tests-dtl.396 =============== Item was changed: ----- Method: ArrayLiteralTest>>testReservedIdentifiers (in category 'tests') ----- testReservedIdentifiers + self class compileSilently: 'array ^ #(nil true false)'. - self class compile: 'array ^ #(nil true false)'. self assert: self array = {nil. true. false}.! Item was changed: ----- Method: ArrayLiteralTest>>testSymbols (in category 'tests') ----- testSymbols + self class compileSilently: 'array ^ #(#nil #true #false #''nil'' #''true'' #''false'')'. - self class compile: 'array ^ #(#nil #true #false #''nil'' #''true'' #''false'')'. self assert: self array = {#nil. #true. #false. #nil. #true. #false}.! Item was added: + ----- Method: ClassRemovalTest>>performTest (in category 'as yet unclassified') ----- + performTest + + Utilities + useAuthorInitials: self className + during: [ super performTest ]! Item was changed: ----- Method: DecompilerTests>>testDecompileLoopWithMovingLimit (in category 'tests') ----- testDecompileLoopWithMovingLimit "This is a non regression test for http://bugs.squeak.org/view.php?id=7093" | decompiledCode sourceCode | sourceCode := 'loopWithMovingLimit "This loop might be decompiled as a to:do: but should not because it does modify its limit" | n i | n := 4. i := 1. [i <= n] whileTrue: [ n := n - 1. i := i + 1]. ^n'. + self class compileSilently: sourceCode. - self class compile: sourceCode. self assert: (self class includesSelector: #loopWithMovingLimit). self assert: 2 equals: (self perform: #loopWithMovingLimit). decompiledCode := self class decompile: #loopWithMovingLimit. + self class compileSilently: decompiledCode decompileString. - self class compile: decompiledCode decompileString. self assert: 2 equals: (self perform: #loopWithMovingLimit) description: 'result from decompiledCode should not differ from sourceCode'.! Item was changed: ----- Method: EnvironmentTest>>testInternalVisibility (in category 'compiling tests') ----- testInternalVisibility "A method on a class in an environment can refer to other classes in that environment (provided the environment imports its self)" | griffle plonk | env importSelf. self createClass: #Griffle. self createClass: #Plonk. griffle := env at: #Griffle. + griffle compileSilently: 'plonk ^ Plonk'. - griffle compile: 'plonk ^ Plonk'. plonk := griffle new plonk. self assert: (env at: #Plonk) == plonk! Item was changed: ----- Method: EnvironmentTest>>testStoreDomesticValue (in category 'compiling tests') ----- testStoreDomesticValue "Create a class that implements #doStore. (see the comment in #storeValueMethod.) Send the message, then examine the results. The two values should be identical." | griffle values | env importSelf. env from: Smalltalk globals import: #Object. self createClass: #Griffle. env bind: #Plonk to: value. griffle := env at: #Griffle. + griffle compileSilently: self storeValueMethod. - griffle compile: self storeValueMethod. values := griffle new doStore. self assert: values isArray. self assert: values size = 2. self assert: values first == values last. self assert: (env valueOf: #Plonk) == values first! Item was changed: ----- Method: EnvironmentTest>>testStoreImportedValue (in category 'compiling tests') ----- testStoreImportedValue "Create a class that implements #doStore. Import #Plonk from another environment. (see the comment in #storeValueMethod.) Send the message, then examine the results. The two values should be identical." | griffle foreign values | self createClass: #Griffle. foreign := Environment withName: #Foreign. foreign exportSelf. foreign at: #Plonk put: 'v1'. env from: foreign import: #Plonk. env from: Smalltalk globals import: #Object. griffle := env at: #Griffle. + griffle compileSilently: self storeValueMethod. - griffle compile: self storeValueMethod. values := griffle new doStore. self assert: values isArray. self assert: values size = 2. self assert: values first == values last. self assert: (foreign at: #Plonk) == values first!

1 0

The Trunk: SystemChangeNotification-Tests-ul.28.mcz
by commits＠source.squeak.org 15 Jun '18

15 Jun '18

Levente Uzonyi uploaded a new version of SystemChangeNotification-Tests to project The Trunk: http://source.squeak.org/trunk/SystemChangeNotification-Tests-ul.28.mcz ==================== Summary ==================== Name: SystemChangeNotification-Tests-ul.28 Author: ul Time: 14 June 2018, 11:52:36.929081 pm UUID: a10d095a-682a-44fe-ae9d-c8795f5c85f5 Ancestors: SystemChangeNotification-Tests-fn.27 - do not nag the user about setting the author initials =============== Diff against SystemChangeNotification-Tests-fn.27 =============== Item was added: + ----- Method: ChangeHooksTest>>performTest (in category 'private') ----- + performTest + + Utilities + useAuthorInitials: self className + during: [ super performTest ]! Item was added: + ----- Method: SystemChangeFileTest>>performTest (in category 'private') ----- + performTest + + Utilities + useAuthorInitials: self className + during: [ super performTest ]! Item was changed: + ----- Method: SystemChangeFileTest>>testCategoryModified (in category 'tests') ----- - ----- Method: SystemChangeFileTest>>testCategoryModified (in category 'as yet unclassified') ----- testCategoryModified self assert: false description: 'When does that happen?'! Item was changed: + ----- Method: SystemChangeFileTest>>testClassReorganized (in category 'tests') ----- - ----- Method: SystemChangeFileTest>>testClassReorganized (in category 'as yet unclassified') ----- testClassReorganized self assert: false description: 'When does that happen?'! Item was changed: + ----- Method: SystemChangeFileTest>>testProtocolModified (in category 'tests') ----- - ----- Method: SystemChangeFileTest>>testProtocolModified (in category 'as yet unclassified') ----- testProtocolModified self assert: false description: 'When does that happen?'!

1 0

The Trunk: EToys-cbc.335.mcz
by commits＠source.squeak.org 14 Jun '18

14 Jun '18

Chris Cunningham uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-cbc.335.mcz ==================== Summary ==================== Name: EToys-cbc.335 Author: cbc Time: 13 June 2018, 7:47:45.655537 pm UUID: a58ea19e-6509-b043-80d7-626ad8adab4e Ancestors: EToys-cbc.334 re-categorized #referencePositionInWorld and #referencePositionInWorld: to be with related methods. =============== Diff against EToys-cbc.334 =============== Item was removed: - ----- Method: Morph>>referencePositionInWorld (in category '*Etoys-geometry') ----- - referencePositionInWorld - - ^ self pointInWorld: self referencePosition - ! Item was removed: - ----- Method: Morph>>referencePositionInWorld: (in category '*Etoys-geometry') ----- - referencePositionInWorld: aPoint - | localPosition | - localPosition := owner - ifNil: [aPoint] - ifNotNil: [(owner transformFrom: self world) globalPointToLocal: aPoint]. - - self referencePosition: localPosition - !

1 0

The Trunk: Morphic-cbc.1452.mcz
by commits＠source.squeak.org 14 Jun '18

14 Jun '18

Chris Cunningham uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cbc.1452.mcz ==================== Summary ==================== Name: Morphic-cbc.1452 Author: cbc Time: 13 June 2018, 7:45:19.342537 pm UUID: 16e46d7e-75d2-9047-a872-6f069d65920f Ancestors: Morphic-cbc.1451 Recategorized #referencePositionInWorld (and setter) to be with related methods. Fixed #adjustAfter: to once again allow halo rotation of morphs to actually rotate around the rotationCenter (instead of center of the morph). =============== Diff against Morphic-cbc.1451 =============== Item was added: + ----- Method: Morph>>referencePositionInWorld (in category 'rotate scale and flex') ----- + referencePositionInWorld + + ^ self pointInWorld: self referencePosition + ! Item was added: + ----- Method: Morph>>referencePositionInWorld: (in category 'rotate scale and flex') ----- + referencePositionInWorld: aPoint + | localPosition | + localPosition := owner + ifNil: [aPoint] + ifNotNil: [(owner transformFrom: self world) globalPointToLocal: aPoint]. + + self referencePosition: localPosition + ! Item was changed: ----- Method: TransformationMorph>>adjustAfter: (in category 'private') ----- adjustAfter: changeBlock "Cause this morph to remain cetered where it was before, and choose appropriate smoothing, after a change of scale or rotation." | oldRefPos | oldRefPos := self referencePosition. changeBlock value. self chooseSmoothing. + self penUpWhile: [self position: self position + (oldRefPos - self referencePosition)]. - self actorStateOrNil ifNotNil:[ - self penUpWhile: [self position: self position + (oldRefPos - self referencePosition)]. - ]. self layoutChanged. owner ifNotNil: [owner invalidRect: bounds] !

1 0

The Trunk: Multilingual-ul.238.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.238.mcz ==================== Summary ==================== Name: Multilingual-ul.238 Author: ul Time: 13 June 2018, 5:07:40.804457 pm UUID: 8f89eae0-1eca-48c6-a3f7-ebe13afa2dbe Ancestors: Multilingual-nice.237 Changes to various TextConverters: #nextPut:toStream: can not be used to initialize latin1Map and latin1Encodings anymore (because most implementations reference them), so - moved the current implementation of #initializeLatin1MapAndEncodings to ByteTextConverter, because only those converters understand #encode:. - TextConverter >> #initializeLatin1MapAndEncodings has become subclass responsibility - implemented #initializeLatin1MapAndEncodings in UTF* text converters - removed class-side #initialize implementations. Will add a new one to TextConverter once all subclasses can reinitialize their tables. - added class side #initializeTables which is expected to initialize the various class side tables in the correct order - postscript will reinitialize class side tables where possible (all converters except for EUCTextConverter, CNGBTextConverter, EUCJPTextConverter, EUCKRTextConverter, ShiftJISTextConverter, CompoundTextConverter, KOI8RTextConverter) - latin1Map and latin1Encodings are not initialized lazily anymore UTF16TextConverter will take endianness into account when writing the BOM. Same thing is probably missing from UTF32TextConverter too. =============== Diff against Multilingual-nice.237 =============== Item was removed: - ----- Method: ByteTextConverter class>>initialize (in category 'class initialization') ----- - initialize - - self == ByteTextConverter - ifTrue: [self allSubclassesDo: [:c | c initialize]] - ifFalse: [self - initializeDecodeTable; - initializeEncodeTable; - initializeLatin1MapAndEncodings] - ! Item was added: + ----- Method: ByteTextConverter class>>initializeLatin1MapAndEncodings (in category 'class initialization') ----- + initializeLatin1MapAndEncodings + "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast. + This implementation assumes that encodeTable is initialized." + + latin1Map := ByteArray new: 256. + latin1Encodings := Array new: 256. + 0 to: 255 do:[:i | + | latin1 encoded | + latin1 := String with: (Character value: i). + [encoded := String with: (Character value: (self new encode: latin1 first charCode))] + ifError: []. + latin1 = encoded ifTrue:[ + latin1Map at: i+1 put: 0. "no translation needed" + ] ifFalse: [ + latin1Map at: i+1 put: 1. "translation needed" + latin1Encodings at: i+1 put: encoded. + ]].! Item was added: + ----- Method: ByteTextConverter class>>initializeTables (in category 'class initialization') ----- + initializeTables + + self == ByteTextConverter ifTrue: [ ^self ]. + self + initializeDecodeTable; + initializeEncodeTable; + initializeLatin1MapAndEncodings + ! Item was changed: + ----- Method: TextConverter class>>initializeLatin1MapAndEncodings (in category 'class initialization') ----- - ----- Method: TextConverter class>>initializeLatin1MapAndEncodings (in category 'accessing') ----- initializeLatin1MapAndEncodings "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast." - These variables ensure that conversions from latin1 ByteString is reasonably fast" + self subclassResponsibility + + ! - latin1Map := ByteArray new: 256. - latin1Encodings := Array new: 256. - 0 to: 255 do:[:i | - | latin1 encoded | - latin1 := String with: (Character value: i). - [encoded := String with: (Character value: (self new encode: latin1 first charCode))] - ifError: []. - latin1 = encoded ifTrue:[ - latin1Map at: i+1 put: 0. "no translation needed" - ] ifFalse: [ - latin1Map at: i+1 put: 1. "translation needed" - latin1Encodings at: i+1 put: encoded. - ]].! Item was added: + ----- Method: TextConverter class>>initializeTables (in category 'class initialization') ----- + initializeTables + + self initializeLatin1MapAndEncodings! Item was changed: ----- Method: TextConverter class>>latin1Encodings (in category 'accessing') ----- latin1Encodings "Answer an Array mapping latin1 characters to conversion string" + ^latin1Encodings! - ^latin1Encodings ifNil: - [self initializeLatin1MapAndEncodings. - latin1Encodings]! Item was changed: ----- Method: TextConverter class>>latin1Map (in category 'accessing') ----- latin1Map "Answer a ByteArray map telling if latin1 characters needs conversion or not" + ^latin1Map! - ^latin1Map ifNil: - [self initializeLatin1MapAndEncodings. - latin1Map]! Item was added: + ----- Method: UTF16TextConverter class>>initializeLatin1MapAndEncodings (in category 'accessing') ----- + initializeLatin1MapAndEncodings + "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast." + + latin1Map := ByteArray new: 256 withAll: 1. + latin1Encodings := (0 to: 255) collect: [ :i | { 0. i } asByteArray asString ]! Item was changed: ----- Method: UTF16TextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream | charCode | aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. (useByteOrderMark and: [ byteOrderMarkDone not ]) ifTrue: [ + self next16BitValue: (useLittleEndian ifTrue: [ 16rFFFE ] ifFalse: [ 16rFEFF ]) toStream: aStream. - self next16BitValue: 16rFEFF toStream: aStream. byteOrderMarkDone := true ]. (charCode := aCharacter charCode) < 256 ifTrue: [ (latin1Encodings at: charCode + 1) ifNil: [ self next16BitValue: charCode toStream: aStream ] ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ] ifFalse: [ charCode <= 16rFFFF ifTrue: [ self next16BitValue: charCode toStream: aStream ] ifFalse: [ | low high | charCode := charCode - 16r10000. low := charCode \\ 16r400 + 16rDC00. high := charCode // 16r400 + 16rD800. self next16BitValue: high toStream: aStream; next16BitValue: low toStream: aStream ] ]. ^aCharacter! Item was changed: ----- Method: UTF32TextConverter class>>initializeLatin1MapAndEncodings (in category 'utilities') ----- initializeLatin1MapAndEncodings "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast." - These variables ensure that conversions from latin1 ByteString is reasonably fast" + latin1Map := ByteArray new: 256 withAll: 1. + latin1Encodings := (0 to: 255) collect: [ :i | { 0. 0. 0. i } asByteArray asString ] + ! - latin1Map := (ByteArray new: 256) atAllPut: 1. - latin1Encodings := (0 to: 255) collect: [:i | (ByteArray newFrom: {0 . 0 . 0 . i}) asString]! Item was added: + ----- Method: UTF8TextConverter class>>initializeLatin1MapAndEncodings (in category 'as yet unclassified') ----- + initializeLatin1MapAndEncodings + "Initialize the latin1Map and latin1Encodings. These variables ensure that conversions from latin1 ByteString is reasonably fast." + + latin1Map := (0 to: 255) collect: [ :each | each bitShift: -7 ] as: ByteArray. + latin1Encodings := (0 to: 255) collect: [ :each | + each <= 127 + ifTrue: [ nil ] + ifFalse: [ + { 192 bitOr: (each bitShift: -6). (each bitAnd: 63) bitOr: 128 } asByteArray asString ] ]! Item was changed: + (PackageInfo named: 'Multilingual') postscript: '"Initialize the tables in all TextConverters that support it." + TextConverter allSubclassesDo: [ :each | [ each initializeTables ] ifError: [] ]'! - (PackageInfo named: 'Multilingual') postscript: 'Unicode - initializeCaseFolding; - initializeCompositionMappings'!

1 0

The Trunk: Kernel-ul.1177.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1177.mcz ==================== Summary ==================== Name: Kernel-ul.1177 Author: ul Time: 13 June 2018, 1:03:47.457054 pm UUID: dc254e2c-2779-4559-a782-f47fbcebf69a Ancestors: Kernel-ul.1176 ClassDescription changes - move compilation logic from all compile* methods to #compile:environment:classified:withStamp:notifying:logSource: - added #compileSilently:environment:classified:notifying:, which let's you specify the environment while compiling a method silently =============== Diff against Kernel-ul.1176 =============== Item was changed: ----- Method: ClassDescription>>compile:classified:withStamp:notifying:logSource: (in category 'compiling') ----- compile: text classified: category withStamp: changeStamp notifying: requestor logSource: logSource + + ^self + compile: text + environment: (CurrentEnvironment signal ifNil: [ self environment ]) + classified: category + withStamp: changeStamp - | methodAndNode selector | - methodAndNode := self - compile: text asString notifying: requestor + logSource: logSource! - trailer: (self defaultMethodTrailerIfLogSource: logSource) - ifFail: [ ^ nil ]. - selector := methodAndNode selector. - logSource ifTrue: - [ self - logMethodSource: text - forMethodWithNode: methodAndNode - inCategory: category - withStamp: changeStamp - notifying: requestor. - RecentMessages default - recordSelector: selector - forClass: methodAndNode method methodClass - inEnvironment: CurrentEnvironment signal ]. - self - addAndClassifySelector: selector - withMethod: methodAndNode method - inProtocol: category - notifying: requestor. - self instanceSide - noteCompilationOf: selector - meta: self isClassSide. - ^ selector! Item was changed: ----- Method: ClassDescription>>compile:environment:classified:withStamp:notifying:logSource: (in category 'compiling') ----- compile: text environment: anEnvironment classified: category withStamp: changeStamp notifying: requestor logSource: logSource + + | methodAndNode context methodNode selector | - | methodAndNode context methodNode | context := CompilationCue source: text class: self environment: anEnvironment requestor: requestor. methodNode := self newCompiler compile: context ifFail: [^ nil]. methodAndNode := CompiledMethodWithNode generateMethodFromNode: methodNode trailer: (self defaultMethodTrailerIfLogSource: logSource). + selector := methodAndNode selector. - logSource ifTrue: [ + self + logMethodSource: text + forMethodWithNode: methodAndNode + inCategory: category + withStamp: changeStamp + notifying: requestor. + RecentMessages default + recordSelector: selector + forClass: methodAndNode method methodClass + inEnvironment: anEnvironment ]. + self + addAndClassifySelector: selector + withMethod: methodAndNode method + inProtocol: category + notifying: requestor. + self instanceSide + noteCompilationOf: selector + meta: self isClassSide. + ^selector! - self logMethodSource: text forMethodWithNode: methodAndNode - inCategory: category withStamp: changeStamp notifying: requestor. - ]. - self addAndClassifySelector: methodAndNode selector withMethod: methodAndNode - method inProtocol: category notifying: requestor. - self instanceSide noteCompilationOf: methodAndNode selector meta: self isClassSide. - ^ methodAndNode selector! Item was changed: ----- Method: ClassDescription>>compileSilently:classified:notifying: (in category 'compiling') ----- compileSilently: code classified: category notifying: requestor "Compile the code and classify the resulting method in the given category, leaving no trail in the system log, nor in any change set, nor in the 'recent submissions' list. This should only be used when you know for sure that the compilation will succeed." + ^self + compileSilently: code + environment: (CurrentEnvironment signal ifNil: [ self environment ]) + classified: category + notifying: requestor! - ^ SystemChangeNotifier uniqueInstance - doSilently: [self compile: code classified: category withStamp: nil notifying: requestor logSource: false].! Item was added: + ----- Method: ClassDescription>>compileSilently:environment:classified:notifying: (in category 'compiling') ----- + compileSilently: code environment: anEnvironment classified: category notifying: requestor + "Compile the code and classify the resulting method in the given category, leaving no trail in the system log, nor in any change set, nor in the 'recent submissions' list. This should only be used when you know for sure that the compilation will succeed." + + ^SystemChangeNotifier uniqueInstance doSilently: [ + self + compile: code + environment: anEnvironment + classified: category + withStamp: nil + notifying: requestor + logSource: false ]!

1 0

The Trunk: MorphicExtras-ul.240.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.240.mcz ==================== Summary ==================== Name: MorphicExtras-ul.240 Author: ul Time: 13 June 2018, 1:27:39.374351 pm UUID: 1f754fe4-0f18-4d99-aeb5-01f6a3c095f9 Ancestors: MorphicExtras-pre.239 - set AuthorName during EPSCanvasTest to avoid nagging users about it =============== Diff against MorphicExtras-pre.239 =============== Item was added: + ----- Method: EPSCanvasTest>>performTest (in category 'private') ----- + performTest + + Utilities + useAuthorName: self className + during: [ super performTest ]!

1 0

The Trunk: System-ul.1034.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.1034.mcz ==================== Summary ==================== Name: System-ul.1034 Author: ul Time: 13 June 2018, 1:24:43.197886 pm UUID: b5a05a72-7c75-4bdb-95bc-b7d1b31eb83b Ancestors: System-nice.1033 - added Utilities class >> #useAuthorName:during:, which works just like #useAuthorInitials:during: but with AuthorName instead of AuthorInitials =============== Diff against System-nice.1033 =============== Item was added: + ----- Method: Utilities class>>useAuthorName:during: (in category 'identification') ----- + useAuthorName: temporaryAuthorName during: aBlock + + | originalAuthorName | + originalAuthorName := AuthorName. + [ + AuthorName := temporaryAuthorName. + aBlock value ] + ensure: [ AuthorName := originalAuthorName ] + !

1 0

The Trunk: Morphic-cbc.1451.mcz
by commits＠source.squeak.org 13 Jun '18

13 Jun '18

Chris Cunningham uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cbc.1451.mcz ==================== Summary ==================== Name: Morphic-cbc.1451 Author: cbc Time: 12 June 2018, 10:20:33.204594 pm UUID: eeba2c6d-1d3b-8c4f-9798-2d5f590eb318 Ancestors: Morphic-cbc.1450 Fix so that Projects>Jump To Project submenu is readable in dark color themes (by commenting out setting of the color - default works much better). =============== Diff against Morphic-cbc.1450 =============== Item was changed: ----- Method: MorphicProject>>addItem:toMenu:selection:color:thumbnail: (in category 'utilities') ----- addItem: item toMenu: menu selection: action color: aColor thumbnail: aForm "Add menu item representing the sender to a menu" + "Removed setting the color - it wasn't working well with dark color themes." menu add: item selector: #jumpToSelection: argument: action. - menu lastItem color: aColor. aForm isNil ifFalse: [menu lastItem icon: (aForm scaledIntoFormOfSize: (Preferences tinyDisplay ifTrue: [16] ifFalse: [28]))]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2018