Packages January 2016

packages@lists.squeakfoundation.org

1 participants
126 discussions

The Trunk: Collections-eem.676.mcz
by commits＠source.squeak.org 05 Jan '16

05 Jan '16

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.676.mcz ==================== Summary ==================== Name: Collections-eem.676 Author: eem Time: 5 January 2016, 12:38:09.288345 pm UUID: e3bea3a9-1d66-4cae-b3e3-5ed8e46d3194 Ancestors: Collections-cmm.675 Handle out-of-memory failure of elementsForwardIdentityTo:. =============== Diff against Collections-cmm.675 =============== Item was changed: ----- Method: Array>>elementsForwardIdentityTo: (in category 'converting') ----- elementsForwardIdentityTo: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. The identityHashes remain with the pointers rather than with the objects so that the objects in this array should still be properly indexed in any existing hashed structures after the mutation." <primitive: 72 error: ec> + ec == #'bad receiver' ifTrue: + [^self error: 'receiver must be of class Array']. + ec == #'bad argument' ifTrue: + [^self error: (otherArray class == Array + ifTrue: ['arg must be of class Array'] + ifFalse: ['receiver and argument must have the same size'])]. + ec == #'inappropriate operation' ifTrue: + [^self error: 'can''t become immediates such as SmallIntegers or Characters']. + ec == #'no modification' ifTrue: + [^self error: 'can''t become immutable objects']. + ec == #'object is pinned' ifTrue: + [^self error: 'can''t become pinned objects']. + ec == #'insufficient object memory' ifTrue: + [Smalltalk garbageCollect < 1048576 ifTrue: + [Smalltalk growMemoryByAtLeast: 1048576]. + ^self elementsForwardIdentityTo: otherArray]. self primitiveFailed!

1 0

The Trunk: Collections-eem.676.mcz
by commits＠source.squeak.org 05 Jan '16

05 Jan '16

1 0

The Trunk: System-eem.783.mcz
by commits＠source.squeak.org 05 Jan '16

05 Jan '16

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.783.mcz ==================== Summary ==================== Name: System-eem.783 Author: eem Time: 5 January 2016, 12:34:47.025815 pm UUID: 68f4c142-1c1c-4582-a8a5-58f7951adc48 Ancestors: System-cwp.782 Drop Utilities' dependence on the soon-to-be-obsolete primSecondClock. =============== Diff against System-cwp.782 =============== Item was changed: ----- Method: Utilities class>>dateTimeSuffix (in category 'identification') ----- dateTimeSuffix "Answer a string which indicates the date and time, intended for use in building fileout filenames, etc." "Utilities dateTimeSuffix" + ^Preferences twentyFourHourFileStamps - ^ Preferences twentyFourHourFileStamps ifFalse: + [self monthDayTimeStringFrom: Time totalSeconds] - [self monthDayTimeStringFrom: Time primSecondsClock] ifTrue: + [self monthDayTime24StringFrom: Time totalSeconds]! - [self monthDayTime24StringFrom: Time primSecondsClock]!

1 0

The Trunk: System-eem.783.mcz
by commits＠source.squeak.org 05 Jan '16

05 Jan '16

1 0

The Trunk: Morphic-eem.1062.mcz
by commits＠source.squeak.org 05 Jan '16

05 Jan '16

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1062.mcz ==================== Summary ==================== Name: Morphic-eem.1062 Author: eem Time: 5 January 2016, 12:10:11.093556 pm UUID: ea1e73ed-1c23-44b1-9651-8f12c608107f Ancestors: Morphic-mt.1061 Drop SystemProgressMorph's direect access of the soon-to-be-obsolete millisecond clock. =============== Diff against Morphic-mt.1061 =============== Item was removed: - ----- Method: SystemProgressMorph>>label:min:max: (in category 'private') ----- - label: shortDescription min: minValue max: maxValue - | slot range barSize lastRefresh | - "This method is no longer used, but kept for a while longer to ensure no difficulties updating via the trunk." - ((range := maxValue - minValue) < 0 or: [(slot := self nextSlotFor: shortDescription) = 0]) - ifTrue: [^[:barVal| 0 ]]. - range <= 0 ifTrue: [self removeMorph: (bars at: slot)]. - self recenter. - self openInWorld. - barSize := -1. "Enforces a inital draw of the morph" - lastRefresh := 0. - ^[:barVal | | newBarSize | - barVal isString ifTrue: [ - self setLabel: barVal at: slot. - self currentWorld displayWorld]. - (barVal isNumber and: [range >= 1 and: [barVal between: minValue and: maxValue]]) ifTrue: [ - newBarSize := (barVal - minValue / range * BarWidth) truncated. - newBarSize = barSize ifFalse: [ - barSize := newBarSize. - (bars at: slot) barSize: barSize. - Time primMillisecondClock - lastRefresh > 25 ifTrue: [ - self currentWorld displayWorld. - lastRefresh := Time primMillisecondClock]]]. - slot] - ! Item was changed: ----- Method: SystemProgressMorph>>position:label:min:max: (in category 'private') ----- position: aPoint label: shortDescription min: minValue max: maxValue | slot range barSize lastRefresh | requestedPosition := aPoint. ((range := maxValue - minValue) < 0 or: [(slot := self nextSlotFor: shortDescription) = 0]) ifTrue: [^[:barVal| 0 ]]. range <= 0 ifTrue: [self removeMorph: (bars at: slot)]. self reposition. self openInWorld. barSize := -1. "Enforces a inital draw of the morph" lastRefresh := 0. ^[:barVal | | newBarSize | barVal isString ifTrue: [ self setLabel: barVal at: slot. self currentWorld displayWorld]. (barVal isNumber and: [range >= 1 and: [barVal between: minValue and: maxValue]]) ifTrue: [ newBarSize := (barVal - minValue / range * BarWidth) truncated. newBarSize = barSize ifFalse: [ barSize := newBarSize. (bars at: slot) barSize: barSize. + Time utcMicrosecondClock - lastRefresh > 25000 ifTrue: [ - Time primMillisecondClock - lastRefresh > 25 ifTrue: [ self currentWorld displayWorld. + lastRefresh := Time utcMicrosecondClock]]]. + slot]! - lastRefresh := Time primMillisecondClock]]]. - slot] - !

1 0

The Trunk: Morphic-eem.1062.mcz
by commits＠source.squeak.org 05 Jan '16

05 Jan '16

1 0

The Trunk: Kernel-eem.970.mcz
by commits＠source.squeak.org 05 Jan '16

05 Jan '16

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.970.mcz ==================== Summary ==================== Name: Kernel-eem.970 Author: eem Time: 5 January 2016, 11:48:28.872258 am UUID: 95e73746-6557-49a2-af25-ce39009a57b0 Ancestors: Kernel-eem.969 Changes to Time and Delay prior to changing over to the utc microsecond clock and its use in delay scheduling. =============== Diff against Kernel-eem.969 =============== Item was changed: SharedPool subclass: #ChronologyConstants instanceVariableNames: 'seconds offset jdn nanos' + classVariableNames: 'DayNames DaysInMonth MicrosecondsInDay MonthNames NanosInMillisecond NanosInSecond OneDay SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch Zero' - classVariableNames: 'DayNames DaysInMonth MonthNames NanosInMillisecond NanosInSecond OneDay SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch Zero' poolDictionaries: '' category: 'Kernel-Chronology'! !ChronologyConstants commentStamp: 'brp 3/12/2004 14:34' prior: 0! ChronologyConstants is a SharedPool for the constants used by the Kernel-Chronology classes.! Item was changed: ----- Method: ChronologyConstants class>>initialize (in category 'class initialization') ----- initialize "ChronologyConstants initialize" SqueakEpoch := 2415386. "Julian day number of 1 Jan 1901" SecondsInDay := 86400. SecondsInHour := 3600. SecondsInMinute := 60. + MicrosecondsInDay := 24 * 60 * 60 * 1000000. NanosInSecond := 10 raisedTo: 9. NanosInMillisecond := 10 raisedTo: 6. DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday). + MonthNames := #( January February March April May June + July August September October November December). + DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31)! - MonthNames := #(January February March April May June July - August September October November December). - DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31) - ! Item was changed: ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- nowWithOffset: aDuration + | usecs | + usecs := Time utcMicrosecondClock. + ^self basicNew + setJdn: DaysSinceEpoch + seconds: usecs // 1000000 \\ SecondsInDay + nano: usecs \\ 1000000 * 1000 + offset: aDuration! - | nanoTicks msm | - nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. - "The following usually only executes at system startup." - ^ LastTick < nanoTicks - ifTrue: - [ LastTick := nanoTicks. - self waitForOffsets. - self basicNew - setJdn: DaysSinceEpoch - seconds: msm // 1000 - nano: msm \\ 1000 * 1000000 - offset: aDuration ] - ifFalse: - [ LastTickSemaphore critical: - [ LastTick := LastTick + 1. - self waitForOffsets. - self basicNew - setJdn: DaysSinceEpoch - seconds: LastTick // 1000000000 - nano: LastTick \\ 1000000000 - offset: aDuration ] ] - " - [ 10000 timesRepeat: [ self now. ] ] timeToRun / 10000.0 . - - If calls to DateAndTime-c-#now are within a single millisecond the semaphore code - to ensure that (self now <= self now) slows things down considerably by a factor of about 20. - - The actual speed of a single call to DateAndTime-now in milliseconds is - demonstrated by the unguarded method below. - - [ 100000 timesRepeat: [ self todayAtMilliSeconds: (self milliSecondsSinceMidnight) ] ] timeToRun / 100000.0 . 0.00494 0.00481 0.00492 0.00495 - - "! Item was added: + ----- Method: Delay class>>primSignal:atUTCMicroseconds: (in category 'primitives') ----- + primSignal: aSemaphore atUTCMicroseconds: anInteger + "Signal the semaphore when the UTC microsecond clock reaches the value of the second argument. + Fail if the first argument is neither a Semaphore nor nil, or if the second argument is not an integer. + Essential. See Object documentation whatIsAPrimitive." + <primitive: 242> + ^self primitiveFailed! Item was added: + ----- Method: Delay class>>scheduleDelay:from: (in category 'timer process') ----- + scheduleDelay: aDelay from: nowUsecs + "Private. Schedule this Delay." + + aDelay + resumptionTime: nowUsecs + aDelay microsecondDelayDuration; + beingWaitedOn: true. + ActiveDelay + ifNil: [ActiveDelay := aDelay] + ifNotNil: + [aDelay resumptionTime < ActiveDelay resumptionTime + ifTrue: [SuspendedDelays add: ActiveDelay. + ActiveDelay := aDelay] + ifFalse: [SuspendedDelays add: aDelay]]! Item was changed: ----- Method: Delay>>delayDuration (in category 'public') ----- delayDuration + "Answer the receiver's duration in milliseconds." ^delayDuration! Item was changed: ----- Method: Delay>>delayDuration: (in category 'public') ----- + delayDuration: milliseconds + "Set teh receiver's duration in milliseconds, iff it is not active." + milliseconds < 0 ifTrue: + [self error: 'Delay times cannot be negative!!']. + beingWaitedOn == true ifTrue: + [self error: 'This delay is scheduled!!']. + delayDuration := milliseconds asInteger! - delayDuration: anInteger - - anInteger < 0 ifTrue: [ self error: 'Delay times cannot be negative!!' ]. - beingWaitedOn == true ifTrue: [ self error: 'This delay is scheduled!!' ]. - delayDuration := anInteger! Item was added: + ----- Method: Delay>>microsecondDelayDuration (in category 'public') ----- + microsecondDelayDuration + "Answer the receiver's duration in microseconds." + ^delayDuration * 1000! Item was removed: - ----- Method: Delay>>scheduleEvent (in category 'private') ----- - scheduleEvent - "Schedule this delay" - resumptionTime := Time millisecondClockValue + delayDuration. - AccessProtect critical:[ - ScheduledDelay := self. - TimingSemaphore signal. - ].! Item was added: + ----- Method: Time class>>localMicrosecondClock (in category 'clock') ----- + localMicrosecondClock + "Answer the number of microseconds since the start of the 20th century in local time." + <primitive: 241> + ^0! Item was changed: ----- Method: Time class>>now (in category 'ansi protocol') ----- now "Answer a Time representing the time right now - this is a 24 hour clock." + | localUsecs localUsecsToday | + localUsecs := self localMicrosecondClock. + localUsecsToday := localUsecs \\ MicrosecondsInDay. + ^ self + seconds: localUsecsToday // 1000000 + nanoSeconds: localUsecsToday \\ 1000000 * 1000! - - | ms | - - ms := self milliSecondsSinceMidnight. - - ^ self seconds: (ms // 1000) nanoSeconds: (ms \\ 1000) * 1000000 - - - ! Item was added: + ----- Method: Time class>>utcMicrosecondClock (in category 'clock') ----- + utcMicrosecondClock + "Answer the number of microseconds since the start of the 20th century in UTC." + <primitive: 240> + ^0!

1 0

The Trunk: Kernel-eem.970.mcz
by commits＠source.squeak.org 05 Jan '16

05 Jan '16

1 0

The Trunk: PreferenceBrowser-kfr.59.mcz
by commits＠source.squeak.org 04 Jan '16

04 Jan '16

Karl Ramberg uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-kfr.59.mcz ==================== Summary ==================== Name: PreferenceBrowser-kfr.59 Author: kfr Time: 4 January 2016, 3:41:04.433 pm UUID: 54f1c76e-46a2-4dc8-adda-7e088612506e Ancestors: PreferenceBrowser-kfr.58 Adjust layout of number preference =============== Diff against PreferenceBrowser-kfr.58 =============== Item was changed: ----- Method: PBNumericPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; cellInset: 20; cellPositioning: #center; addMorphBack: (StringMorph contents: self preference name); + addMorphBack: self horizontalFiller; addMorphBack: self textField; yourself.!

1 0

The Trunk: PreferenceBrowser-kfr.59.mcz
by commits＠source.squeak.org 04 Jan '16

04 Jan '16

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2016