Patrick Rein uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-pre.77.mcz
==================== Summary ====================
Name: ToolsTests-pre.77
Author: pre
Time: 19 May 2016, 2:52:01.715168 pm
UUID: 237de745-810d-433e-80c2-0752d24b2226
Ancestors: ToolsTests-nice.76
Fixes a test for the FileList class. The itemsForFile: method requires a fully qualified path which is stated in the method and also provided by internal methods of FileList. The test however used a relative path.
=============== Diff against ToolsTests-nice.76 ===============
Item was changed:
----- Method: FileListTest>>testServicesForFileEnding (in category 'test') -----
testServicesForFileEnding
"(self selector: #testServicesForFileEnding) debug"
+ | items |
+ items := (FileList new directory: FileDirectory default; yourself)
+ itemsForFile: (FileDirectory default fullNameFor: 'aaa.kkk').
+ self assert: (items anySatisfy: [ :ea | self checkIsServiceIsFromDummyTool: ea ]).
- self assert: (((FileList new directory: FileDirectory default; yourself) itemsForFile: 'aaa.kkk') anySatisfy: [ :ea | self checkIsServiceIsFromDummyTool: ea ]).
!
Patrick Rein uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-pre.212.mcz
==================== Summary ====================
Name: Multilingual-pre.212
Author: pre
Time: 19 May 2016, 10:09:04.266052 am
UUID: 4faefd5e-594d-5944-9aca-eb2ab8b6f562
Ancestors: Multilingual-ul.211
Fixes broken TestIndenting as StrikeFontSet did not fullfill the interface required for a Font although it is a subclass of AbstractFont
=============== Diff against Multilingual-ul.211 ===============
Item was added:
+ ----- Method: StrikeFontSet>>depth (in category 'as yet unclassified') -----
+ depth
+
+ ^ self glyphs depth!
Patrick Rein uploaded a new version of ST80Tests to project The Trunk:
http://source.squeak.org/trunk/ST80Tests-pre.4.mcz
==================== Summary ====================
Name: ST80Tests-pre.4
Author: pre
Time: 19 May 2016, 11:31:47.505052 am
UUID: 5fdce0f2-ef8e-054b-99ce-5178af9ee632
Ancestors: ST80Tests-ul.3
Fixes a test for the ST80 package which asserts the packages the ST80 package depends on. Adds Monticello to the list as it is now needed for the unloading capabilities
=============== Diff against ST80Tests-ul.3 ===============
Item was changed:
----- Method: ST80PackageDependencyTest>>testST80 (in category 'as yet unclassified') -----
testST80
self testPackage: #ST80 dependsExactlyOn: #(
#'Chronology-Core'
Collections
Compiler
Files
Graphics
Kernel
Morphic
Multilingual
Network
SUnit
System
#'ToolBuilder-Kernel'
Tools
+ Monticello
).!
Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.831.mcz
==================== Summary ====================
Name: System-ul.831
Author: ul
Time: 19 May 2016, 10:43:32.712543 am
UUID: 71e758e2-381c-4c5a-84b5-87e206f286a9
Ancestors: System-mt.830
- use #adoptInstance: instead of copying the ByteArray into a new LargeInteger in SecureHashAlgorithm >> #finalHash. This should be somewhat quicker and it should also avoid running the fallback code of LargePositiveInteger >> #replaceFrom:to:with:startingAt: with a ByteArray argument, which wouldn't work.
=============== Diff against System-mt.830 ===============
Item was changed:
----- Method: SecureHashAlgorithm>>finalHash (in category 'private') -----
finalHash
"Concatenate the final totals to build the 160-bit integer result."
"Details: If the primitives are supported, the results are in the totals array. Otherwise, they are in the instance variables totalA through totalE."
| result |
result := ByteArray new: 20.
totals
ifNil: [ "compute final hash when not using primitives"
result
unsignedShortAt: 1 put: totalE low bigEndian: false;
unsignedShortAt: 3 put: totalE hi bigEndian: false;
unsignedShortAt: 5 put: totalD low bigEndian: false;
unsignedShortAt: 7 put: totalD hi bigEndian: false;
unsignedShortAt: 9 put: totalC low bigEndian: false;
unsignedShortAt: 11 put: totalC hi bigEndian: false;
unsignedShortAt: 13 put: totalB low bigEndian: false;
unsignedShortAt: 15 put: totalB hi bigEndian: false;
unsignedShortAt: 17 put: totalA low bigEndian: false;
unsignedShortAt: 19 put: totalA hi bigEndian: false ]
ifNotNil: [ "compute final hash when using primitives"
result
unsignedLongAt: 1 put: (totals at: 5) bigEndian: false;
unsignedLongAt: 5 put: (totals at: 4) bigEndian: false;
unsignedLongAt: 9 put: (totals at: 3) bigEndian: false;
unsignedLongAt: 13 put: (totals at: 2) bigEndian: false;
unsignedLongAt: 17 put: (totals at: 1) bigEndian: false ].
+ LargePositiveInteger adoptInstance: result.
+ ^result normalize!
- ^(LargePositiveInteger new: result size)
- replaceFrom: 1
- to: result size
- with: result
- startingAt: 1;
- normalize!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1148.mcz
==================== Summary ====================
Name: Morphic-mt.1148
Author: mt
Time: 18 May 2016, 9:09:28.46726 am
UUID: 07784181-3cb6-0b41-b79a-f1af6919a9a1
Ancestors: Morphic-mt.1147
Next attempt to improve the support for not discarding existing selections when the text morph needs a mouse click to get keyboard focus.
See: http://forum.world.st/text-selection-broken-td4895226.html
=============== Diff against Morphic-mt.1147 ===============
Item was changed:
----- Method: TextMorph>>mouseDown: (in category 'event handling') -----
mouseDown: evt
"Make this TextMorph be the keyboard input focus, if it isn't
already, and repond to the text selection gesture."
evt yellowButtonPressed ifTrue: [
"First check for option (menu) click"
^ self yellowButtonActivity: evt shiftPressed].
+ "If focus does not follow the mouse cursor and we click below everything, just grab the focus to not destroy the selection."
+ ((self hasKeyboardFocus: evt hand) not and: [(self bounds containsPoint: evt position) not])
+ ifTrue: [evt hand newKeyboardFocus: self]
+ ifFalse: [
+ evt hand newKeyboardFocus: self.
+ self
+ handleInteraction: [editor mouseDown: evt]
+ fromEvent: evt].!
- evt hand newKeyboardFocus: self.
-
- (self bounds containsPoint: evt position) ifTrue: [
- self
- handleInteraction: [editor mouseDown: evt]
- fromEvent: evt].!