Packages January 2016

packages@lists.squeakfoundation.org

1 participants
126 discussions

The Trunk: ToolBuilder-Morphic-kfr.155.mcz
by commits＠source.squeak.org 11 Jan '16

11 Jan '16

Karl Ramberg uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-kfr.155.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-kfr.155 Author: kfr Time: 6 January 2016, 11:38:05.814914 pm UUID: 43f3809b-ca19-4e70-a321-702dc2e0762a Ancestors: ToolBuilder-Morphic-cmm.154 Restore use of preference syntaxHighlightingAsYouType =============== Diff against ToolBuilder-Morphic-cmm.154 =============== Item was changed: ----- Method: PluggableTextMorphPlus>>okToStyle (in category 'testing') ----- okToStyle + ^ styler - ^ styler ifNil:[false] + ifNotNil: [:s | s class syntaxHighlightingAsYouType + ifTrue:[model aboutToStyle: s] + ifFalse:[false]]! - ifNotNil: [:s | model aboutToStyle: s]!

1 0

The Trunk: ToolBuilder-Morphic-kfr.155.mcz
by commits＠source.squeak.org 11 Jan '16

11 Jan '16

1 0

The Trunk: ToolsTests-ul.75.mcz
by commits＠source.squeak.org 10 Jan '16

10 Jan '16

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-ul.75.mcz ==================== Summary ==================== Name: ToolsTests-ul.75 Author: ul Time: 10 January 2016, 10:54:30.964862 pm UUID: e23e5db2-a7bc-420b-95d9-0705c0108b15 Ancestors: ToolsTests-ul.74 Updated and simplified BrowserTest's #testFlattenHierarchyTreeOnIndent and #testFlattenHierarchyTreeOnIndentBy. =============== Diff against ToolsTests-ul.74 =============== Item was changed: ----- Method: BrowserTest>>testFlattenHierarchyTreeOnIndent (in category 'as yet unclassified') ----- testFlattenHierarchyTreeOnIndent | flatten | + flatten := [:coll | (browser - flatten := [:coll | browser flattenHierarchyTree: (browser createHierarchyTreeOf: coll) on: OrderedCollection new + indent: '') asArray ]. - indent: '']. "Empty collection." self assert: (flatten value: #()) isEmpty. "Single class." + self assert: #('Browser') equals: (flatten value: {Browser}). - self assert: (OrderedCollection with: 'Browser') = (flatten value: {Browser}). "Single class + subclass." + self assert: #('Browser' ' HierarchyBrowser') equals: (flatten value: {Browser. HierarchyBrowser}). - self assert: (OrderedCollection with: 'Browser' with: ' HierarchyBrowser') = (flatten value: {Browser. HierarchyBrowser}). "Single class + 2 subclasses" + self assert: #('Browser' ' HierarchyBrowser' ' FileContentsBrowser') equals: (flatten value: { Browser. HierarchyBrowser. FileContentsBrowser. }). - self assert: (OrderedCollection with: 'Browser' with: ' HierarchyBrowser' with: ' FileContentsBrowser') = (flatten value: { Browser. HierarchyBrowser. FileContentsBrowser. }). "Superclass, class, subclass" + self assert: #('CodeHolder' ' Browser' ' HierarchyBrowser') equals: (flatten value: { CodeHolder. Browser. HierarchyBrowser. }). - self assert: (OrderedCollection with: 'CodeHolder' with: ' Browser' with: ' HierarchyBrowser') = (flatten value: { CodeHolder. Browser. HierarchyBrowser. }). "Two 'unrelated' classes" + self assert: #('Browser' 'SmallInteger') equals: (flatten value: { Browser. SmallInteger }). - self assert: (OrderedCollection with: 'Browser' with: 'SmallInteger') = (flatten value: { Browser. SmallInteger }). "Two 'unrelated' classes and a common ancestor" + self assert: #('Browser' 'SmallInteger' 'ProtoObject') equals: (flatten value: { Browser. SmallInteger. ProtoObject }).! - self assert: (OrderedCollection with: 'Browser' with: 'SmallInteger' with: 'ProtoObject') = (flatten value: { Browser. SmallInteger. ProtoObject }).! Item was changed: ----- Method: BrowserTest>>testFlattenHierarchyTreeOnIndentBy (in category 'as yet unclassified') ----- testFlattenHierarchyTreeOnIndentBy | flatten | + flatten := [:coll | (browser - flatten := [:coll | browser flattenHierarchyTree: (browser createHierarchyTreeOf: coll) on: OrderedCollection new + indent: '' + by: 'x') asArray ]. - indent: '' by: 'x']. "Empty collection." self assert: (flatten value: #()) isEmpty. "Single class." + self assert: #('Browser') equals: (flatten value: {Browser}). - self assert: (OrderedCollection with: 'Browser') = (flatten value: {Browser}). "Single class + subclass." + self assert: #('Browser' 'xHierarchyBrowser') equals: (flatten value: {Browser. HierarchyBrowser}). - self assert: (OrderedCollection with: 'Browser' with: 'xHierarchyBrowser') = (flatten value: {Browser. HierarchyBrowser}). "Single class + 2 subclasses" + self assert: #('Browser' 'xHierarchyBrowser' 'xFileContentsBrowser') equals: (flatten value: { Browser. HierarchyBrowser. FileContentsBrowser. }). - self assert: (OrderedCollection with: 'Browser' with: 'xHierarchyBrowser' with: 'xFileContentsBrowser') = (flatten value: { Browser. HierarchyBrowser. FileContentsBrowser. }). "Superclass, class, subclass" + self assert: #('CodeHolder' 'xBrowser' 'xxHierarchyBrowser') equals: (flatten value: { CodeHolder. Browser. HierarchyBrowser. }). - self assert: (OrderedCollection with: 'CodeHolder' with: 'xBrowser' with: 'xxHierarchyBrowser') = (flatten value: { CodeHolder. Browser. HierarchyBrowser. }). "Two 'unrelated' classes" + self assert: #('Browser' 'SmallInteger') equals: (flatten value: { Browser. SmallInteger }). - self assert: (OrderedCollection with: 'Browser' with: 'SmallInteger') = (flatten value: { Browser. SmallInteger }). "Two 'unrelated' classes and a common ancestor" + self assert: #('Browser' 'SmallInteger' 'ProtoObject') equals: (flatten value: { Browser. SmallInteger. ProtoObject }).! - self assert: (OrderedCollection with: 'Browser' with: 'SmallInteger' with: 'ProtoObject') = (flatten value: { Browser. SmallInteger. ProtoObject }).!

1 0

The Trunk: ToolsTests-ul.75.mcz
by commits＠source.squeak.org 10 Jan '16

10 Jan '16

1 0

The Trunk: Tools-ul.663.mcz
by commits＠source.squeak.org 10 Jan '16

10 Jan '16

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.663.mcz ==================== Summary ==================== Name: Tools-ul.663 Author: ul Time: 10 January 2016, 10:37:16.787674 pm UUID: c5ee964a-880a-48a7-a20f-a3506f53e1d7 Ancestors: Tools-ul.662 Fixed the copy-case in Browser >> #dropOnMessageCategories:at:. =============== Diff against Tools-ul.662 =============== Item was changed: ----- Method: Browser>>dropOnMessageCategories:at: (in category 'drag and drop') ----- dropOnMessageCategories: method at: index | sourceClass destinationClass category copy | copy := Sensor shiftPressed. (method isKindOf: CompiledMethod) ifFalse:[^self inform: 'Can only drop methods']. sourceClass := method methodClass. destinationClass := self selectedClassOrMetaClass. sourceClass == destinationClass ifTrue:[ category := self messageCategoryList at: index. category = ClassOrganizer allCategory ifTrue: [^false]. destinationClass organization classify: method selector under: category suppressIfDefault: false logged: true. ^true ]. + (copy + or: [ (destinationClass inheritsFrom: sourceClass) + or: [ (sourceClass inheritsFrom: destinationClass) + or: [ sourceClass theNonMetaClass == destinationClass theNonMetaClass ] ] ]) - (copy not and: [ - (destinationClass inheritsFrom: sourceClass) - or: [ (sourceClass inheritsFrom: destinationClass) - or: [ sourceClass theNonMetaClass == destinationClass theNonMetaClass ] ] ]) ifFalse: [ (self confirm: ( 'Classes "{1}" and "{2}" are unrelated.{3}Are you sure you want to move this method?' format: { sourceClass. destinationClass. Character cr })) ifFalse: [ ^false ] ]. destinationClass compile: method getSource classified: (self messageCategoryList at: index) withStamp: method timeStamp notifying: nil. copy ifFalse: [ sourceClass removeSelector: method selector ]. ^true!

1 0

The Trunk: Tools-ul.663.mcz
by commits＠source.squeak.org 10 Jan '16

10 Jan '16

1 0

The Trunk: Kernel-ul.977.mcz
by commits＠source.squeak.org 10 Jan '16

10 Jan '16

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.977.mcz ==================== Summary ==================== Name: Kernel-ul.977 Author: ul Time: 10 January 2016, 10:25:16.755989 pm UUID: aaa18bc1-b66d-47b3-b755-f87c223fa959 Ancestors: Kernel-eem.976 DateAndTime changes and fixes: - #now returns an object with the correct date. (DaysSinceEpoch was only updated in #startUp:, so after a day it became inaccurate.) - #now returns increasing values, as it did before. - Removed the unused DaysSinceEpoch class variable. - Removed #startUp:, because it had nothing else left to do. - DateAndTime is removed from the StartUpList after load. - #julianDayNumber:offset: uses the direct setter method, which results in ~55x speedup. =============== Diff against Kernel-eem.976 =============== Item was changed: Magnitude subclass: #DateAndTime instanceVariableNames: 'seconds offset jdn nanos' + classVariableNames: 'ClockProvider LastClockValue LocalTimeZone NanoOffset' - classVariableNames: 'ClockProvider DaysSinceEpoch LocalTimeZone' poolDictionaries: 'ChronologyConstants' category: 'Kernel-Chronology'! !DateAndTime commentStamp: 'brp 5/13/2003 08:07' prior: 0! I represent a point in UTC time as defined by ISO 8601. I have zero duration. My implementation uses three SmallIntegers and a Duration: jdn - julian day number. seconds - number of seconds since midnight. nanos - the number of nanoseconds since the second. offset - duration from UTC. The nanosecond attribute is almost always zero but it defined for full ISO compliance and is suitable for timestamping. ! Item was changed: ----- Method: DateAndTime class>>julianDayNumber:offset: (in category 'squeak protocol') ----- julianDayNumber: anInteger offset: aDuration + + ^self basicNew + setJdn: anInteger + seconds: 0 + nano: 0 + offset: aDuration! - ^ self basicNew - ticks: anInteger days ticks - offset: aDuration ; - yourself! Item was changed: ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- + nowWithOffset: aDuration + + | clockValue nanos | + clockValue := Time utcMicrosecondClock. + "Ensure that consecutive sends of this method return increasing values, by adding small values to the nanosecond part of the created object. The next few lines are assumed to be executed atomically - having no suspension points." + ((LastClockValue ifNil: [ 0 ]) digitCompare: clockValue) = 0 + ifTrue: [ NanoOffset := NanoOffset + 1 ] + ifFalse: [ NanoOffset := 0 ]. + LastClockValue := clockValue. + nanos := clockValue \\ 1000000 * 1000 + NanoOffset. + clockValue := clockValue // 1000000. - nowWithOffset: aDuration - | usecs | - usecs := Time utcMicrosecondClock. ^self basicNew + setJdn: clockValue // SecondsInDay + SqueakEpoch + seconds: clockValue \\ SecondsInDay + nano: nanos - setJdn: DaysSinceEpoch - seconds: usecs // 1000000 \\ SecondsInDay - nano: usecs \\ 1000000 * 1000 offset: aDuration! Item was removed: - ----- Method: DateAndTime class>>startUp: (in category 'initialize-release') ----- - startUp: resuming - | durationSinceEpoch | - resuming ifFalse: [^self]. - durationSinceEpoch := Duration - days: SqueakEpoch - hours: 0 - minutes: 0 - seconds: self clock totalSeconds. - DaysSinceEpoch := durationSinceEpoch days! Item was added: + (PackageInfo named: 'Kernel') postscript: 'Smalltalk removeFromStartUpList: DateAndTime.'!

1 0

The Trunk: Kernel-ul.977.mcz
by commits＠source.squeak.org 10 Jan '16

10 Jan '16

1 0

The Trunk: Tools-ul.662.mcz
by commits＠source.squeak.org 10 Jan '16

10 Jan '16

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.662.mcz ==================== Summary ==================== Name: Tools-ul.662 Author: ul Time: 9 January 2016, 5:14:35.787432 pm UUID: 3972f226-5c3e-4479-bbac-cea2f7e30e3b Ancestors: Tools-ul.661 Improved method to method category drops in Browser: moving methods from classes related by inheritance or by being meta-non-meta pairs won't have to be confirmed any more. =============== Diff against Tools-ul.661 =============== Item was changed: ----- Method: Browser>>dropOnMessageCategories:at: (in category 'drag and drop') ----- dropOnMessageCategories: method at: index + | sourceClass destinationClass category copy | - | dstClass category copy | copy := Sensor shiftPressed. (method isKindOf: CompiledMethod) ifFalse:[^self inform: 'Can only drop methods']. + sourceClass := method methodClass. + destinationClass := self selectedClassOrMetaClass. + sourceClass == destinationClass ifTrue:[ - dstClass := self selectedClassOrMetaClass. - (dstClass == method methodClass) ifTrue:[ category := self messageCategoryList at: index. category = ClassOrganizer allCategory ifTrue: [^false]. + destinationClass organization classify: method selector under: category suppressIfDefault: false logged: true. + ^true ]. + (copy not and: [ + (destinationClass inheritsFrom: sourceClass) + or: [ (sourceClass inheritsFrom: destinationClass) + or: [ sourceClass theNonMetaClass == destinationClass theNonMetaClass ] ] ]) + ifFalse: [ + (self confirm: ( + 'Classes "{1}" and "{2}" are unrelated.{3}Are you sure you want to move this method?' + format: { sourceClass. destinationClass. Character cr })) + ifFalse: [ ^false ] ]. + destinationClass - dstClass organization classify: method selector under: category suppressIfDefault: false logged: true. - ^true]. - copy ifFalse: [ - (self confirm: ( - 'Classes {1} and {2} are unrelated.{3}Are you sure you want to move this method?' - format: { method methodClass. dstClass. Character cr })) - ifFalse: [ ^false ] ]. - dstClass compile: method getSource classified: (self messageCategoryList at: index) withStamp: method timeStamp notifying: nil. copy ifFalse: [ + sourceClass removeSelector: method selector ]. - method methodClass removeSelector: method selector ]. ^true!

1 0

The Trunk: Tools-ul.662.mcz
by commits＠source.squeak.org 10 Jan '16

10 Jan '16

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
13
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2016