Packages August 2015

packages@lists.squeakfoundation.org

1 participants
204 discussions

The Trunk: Multilingual-ul.210.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.210.mcz ==================== Summary ==================== Name: Multilingual-ul.210 Author: ul Time: 14 August 2015, 7:02:16.93 pm UUID: efda00a9-8cd6-4f9f-9366-f34b5e2b270f Ancestors: Multilingual-ul.209 #includesSubString: -> #includesSubstring: =============== Diff against Multilingual-ul.209 =============== Item was changed: ----- Method: MultiByteBinaryOrTextStream>>guessConverter (in category 'private') ----- guessConverter + ^ (self originalContents includesSubstring: #[27 36] asString) - ^ (self originalContents includesSubString: #[27 36] asString) ifTrue: [CompoundTextConverter new] ifFalse: [self class defaultConverter ]!

1 0

The Trunk: MorphicExtras-ul.165.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.165.mcz ==================== Summary ==================== Name: MorphicExtras-ul.165 Author: ul Time: 14 August 2015, 7:01:59.85 pm UUID: cbb0e98c-88bf-446c-8478-8b2e8ed7c451 Ancestors: MorphicExtras-cmm.164 #includesSubString: -> #includesSubstring: =============== Diff against MorphicExtras-cmm.164 =============== Item was changed: ----- Method: BooklikeMorph>>makePageControlsFrom: (in category 'page controls') ----- makePageControlsFrom: controlSpecs "From the controlSpecs, create a set of page control and return them -- this method does *not* add the controls to the receiver." | c col row | c := (color saturation > 0.1) ifTrue: [color slightlyLighter] ifFalse: [color slightlyDarker]. col := AlignmentMorph newColumn. col color: c; borderWidth: 0; layoutInset: 0. col hResizing: #spaceFill; vResizing: #shrinkWrap; extent: 5@5. row := AlignmentMorph newRow. row color: c; borderWidth: 0; layoutInset: 0. row hResizing: #spaceFill; vResizing: #shrinkWrap; extent: 5@5. controlSpecs do: [:spec | | lastGuy b | spec == #spacer ifTrue: [row addTransparentSpacerOfSize: (10 @ 0)] ifFalse: [spec == #variableSpacer ifTrue: [row addMorphBack: AlignmentMorph newVariableTransparentSpacer] ifFalse: [b := SimpleButtonMorph new target: self; borderWidth: 1; borderColor: Color veryLightGray; color: c. b label: spec first; actionSelector: spec second; borderWidth: 0; setBalloonText: spec third. row addMorphBack: b. + (((lastGuy := spec last asLowercase) includesSubstring: 'menu') or: + [lastGuy includesSubstring: 'designations']) - (((lastGuy := spec last asLowercase) includesSubString: 'menu') or: - [lastGuy includesSubString: 'designations']) ifTrue: [b actWhen: #buttonDown]]]]. "pop up menu on mouseDown" col addMorphBack: row. ^ col!

1 0

The Trunk: KernelTests-ul.296.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.296.mcz ==================== Summary ==================== Name: KernelTests-ul.296 Author: ul Time: 14 August 2015, 7:01:31.26 pm UUID: b3d99417-15da-4af1-88d6-0fc2f2abc25f Ancestors: KernelTests-ul.295 #includesSubString: -> #includesSubstring: =============== Diff against KernelTests-ul.295 =============== Item was changed: ----- Method: BlockContextTest>>testNew (in category 'tests') ----- testNew self should: [ContextPart new: 5] raise: Error. [ContextPart new: 5] on: Error do: [:e| + self assert: (e messageText includesSubstring: 'newForMethod:') description: 'Error doesn''t tell you what you did wrong by calling #new:']. - self assert: (e messageText includesSubString: 'newForMethod:') description: 'Error doesn''t tell you what you did wrong by calling #new:']. self should: [ContextPart new] raise: Error. [ContextPart new] on: Error do: [:e| + self assert: (e messageText includesSubstring: 'newForMethod:') description: 'Error doesn''t tell you what you did wrong by calling #new'].! - self assert: (e messageText includesSubString: 'newForMethod:') description: 'Error doesn''t tell you what you did wrong by calling #new'].! Item was changed: ----- Method: MethodPragmaTest>>assertPragma:givesKeyword:arguments: (in category 'utilities') ----- assertPragma: aString givesKeyword: aSymbol arguments: anArray | pragma decompiled | pragma := self pragma: aString selector: #zork. self assert: pragma keyword = aSymbol. self assert: pragma arguments = anArray. decompiled := (self class>>#zork) decompile. self assert: (decompiled properties pragmas includes: pragma). + self assert: (decompiled asString includesSubstring: pragma asString).! - self assert: (decompiled asString includesSubString: pragma asString).! Item was changed: ----- Method: ObjectTest>>testShouldBeImplemented (in category 'as yet unclassified') ----- testShouldBeImplemented | testClass | testClass := NotImplementedTestData. self should: [testClass new shouldBeImplementedMsg] raise: NotImplemented. [testClass new shouldBeImplementedMsg] ifError: [:errDesc | + self assert: (errDesc includesSubstring: testClass name) description: 'Error should include class name'. + self assert: (errDesc includesSubstring: #shouldBeImplementedMsg asString) description: 'Error should include selector name'].! - self assert: (errDesc includesSubString: testClass name) description: 'Error should include class name'. - self assert: (errDesc includesSubString: #shouldBeImplementedMsg asString) description: 'Error should include selector name'].! Item was changed: ----- Method: ObjectTest>>testShouldNotImplement (in category 'as yet unclassified') ----- testShouldNotImplement | testClass | testClass := NotImplementedTestData. self should: [testClass new shouldNotImplementMsg] raise: NotImplemented. [testClass new shouldNotImplementMsg] ifError: [:errDesc | + self assert: (errDesc includesSubstring: testClass name) description: 'Error should include class name'. + self assert: (errDesc includesSubstring: #shouldNotImplementMsg asString) description: 'Error should include selector name'].! - self assert: (errDesc includesSubString: testClass name) description: 'Error should include class name'. - self assert: (errDesc includesSubString: #shouldNotImplementMsg asString) description: 'Error should include selector name'].!

1 0

The Trunk: KernelTests-ul.296.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

1 0

The Trunk: Kernel-ul.941.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.941.mcz ==================== Summary ==================== Name: Kernel-ul.941 Author: ul Time: 14 August 2015, 10:13:29.228 pm UUID: fc6d8eaf-1f0b-459c-9ff7-89c0a607ec72 Ancestors: Kernel-ul.940 - added support for regular expressions to BlockClosure >> #valueSupplyingAnswers: =============== Diff against Kernel-ul.940 =============== Item was changed: ----- Method: BlockClosure>>valueSupplyingAnswers: (in category 'evaluating') ----- valueSupplyingAnswers: aListOfPairs "evaluate the block using a list of questions / answers that might be called upon to automatically respond to Object>>confirm: or FillInTheBlank requests" ^self on: ProvideAnswerNotification do: [ :notification | | caption | caption := notification messageText withSeparatorsCompacted. "to remove new lines" aListOfPairs detect: [ :each | caption = each first or: [ (caption includesSubstring: each first caseSensitive: false) + or: [ (each first match: caption) + or: [ (caption respondsTo: #matchesRegex:) + and: [ caption matchesRegex: each first ] ] ] ] ] - or: [ each first match: caption ] ] ] ifFound: [ :answer | notification resume: answer second ] ifNone: [ (ProvideAnswerNotification signal: notification messageText) ifNil: [ notification resume ] ifNotNil: [ :outerAnswer | notification resume: outerAnswer ] ] ]!

1 0

The Trunk: Kernel-ul.941.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

1 0

The Trunk: Kernel-ul.940.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.940.mcz ==================== Summary ==================== Name: Kernel-ul.940 Author: ul Time: 14 August 2015, 7:01:14.824 pm UUID: 45cb01b1-52ab-40ff-ac9d-7b3334915356 Ancestors: Kernel-ul.939 #allCharacters -> #allByteCharacters =============== Diff against Kernel-ul.939 =============== Item was changed: ----- Method: InputSensor class>>installKeyDecodeTable (in category 'class initialization') ----- installKeyDecodeTable "Create a decode table that swaps some keys if Preferences swapControlAndAltKeys is set" KeyDecodeTable := Dictionary new. Preferences duplicateControlAndAltKeys ifTrue: [ self defaultCrossPlatformKeys do: [ :c | self installDuplicateKeyEntryFor: c ] ]. Preferences swapControlAndAltKeys ifTrue: [ self defaultCrossPlatformKeys do: [ :c | self installSwappedKeyEntryFor: c ] ]. Preferences duplicateAllControlAndAltKeys + ifTrue: [ (Character allByteCharacters select: [:ea | ea isAlphaNumeric]) do: - ifTrue: [ (Character allCharacters select: [:ea | ea isAlphaNumeric]) do: [ :c | self installDuplicateKeyEntryFor: c ] ]. !

1 0

The Trunk: Kernel-ul.940.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

1 0

The Trunk: Installer-Core-ul.398.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

Levente Uzonyi uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ul.398.mcz ==================== Summary ==================== Name: Installer-Core-ul.398 Author: ul Time: 14 August 2015, 7:00:44.34 pm UUID: b99e1238-ba2d-4373-bb14-f146de86ff72 Ancestors: Installer-Core-cmm.397 #includesSubString: -> #includesSubstring: =============== Diff against Installer-Core-cmm.397 =============== Item was changed: ----- Method: InstallerInternetBased>>wasPbwikiSpeedWarning (in category 'url') ----- wasPbwikiSpeedWarning + ^ self hasPage and: [pageDataStream contents includesSubstring: 'Please slow down a bit' ] - ^ self hasPage and: [pageDataStream contents includesSubString: 'Please slow down a bit' ] ! Item was changed: ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') ----- http: aUrl user: name password: secret | url | + url := (aUrl includesSubstring: '://') - url := (aUrl includesSubString: '://') ifTrue: [aUrl] ifFalse: ['http://', aUrl]. mc := self classMCHttpRepository location: url user: name password: secret. root := mc locationWithTrailingSlash !

1 0

The Trunk: Installer-Core-ul.398.mcz
by commits＠source.squeak.org 14 Aug '15

14 Aug '15

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2015