Packages February 2016

packages@lists.squeakfoundation.org

2 participants
362 discussions

The Trunk: ToolBuilder-MVC-mt.44.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.44.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.44 Author: mt Time: 18 February 2016, 1:26:13.923715 pm UUID: 81cb2641-e405-4ced-b563-5ee6884e7e66 Ancestors: ToolBuilder-MVC-topa.43 Removes two-tone cache optimization for system windows because produces drawing glitches to font rendering. =============== Diff against ToolBuilder-MVC-topa.43 =============== Item was changed: ----- Method: MVCUIManager>>newDisplayDepthNoRestore: (in category 'display') ----- newDisplayDepthNoRestore: pixelSize "Change depths. Check if there is enough space!! , di" | area need | pixelSize = Display depth ifTrue: [^ self "no change"]. pixelSize abs < Display depth ifFalse: ["Make sure there is enough space" area := Display boundingBox area. "pixels" ScheduledControllers scheduledWindowControllers do: + [:aController | area := area + aController view windowBox area]. - [:aController | "This should be refined..." - aController view cacheBitsAsTwoTone ifFalse: - [area := area + aController view windowBox area]]. need := (area * (pixelSize abs - Display depth) // 8) "new bytes needed" + Smalltalk lowSpaceThreshold. (Smalltalk garbageCollectMost <= need and: [Smalltalk garbageCollect <= need]) ifTrue: [self error: 'Insufficient free space']]. Display setExtent: Display extent depth: pixelSize. ScheduledControllers updateGray. DisplayScreen startUp!

1 0

The Trunk: ToolBuilder-MVC-mt.44.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

1 0

The Trunk: ST80-mt.195.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.195.mcz ==================== Summary ==================== Name: ST80-mt.195 Author: mt Time: 18 February 2016, 1:25:26.713715 pm UUID: 9c04a635-c3e2-46a7-9f55-829ed47c3533 Ancestors: ST80-mt.194 Removes two-tone cache optimization for system windows because produces drawing glitches to font rendering. =============== Diff against ST80-mt.194 =============== Item was removed: - ----- Method: ColorSystemView>>cacheBitsAsTwoTone (in category 'as yet unclassified') ----- - cacheBitsAsTwoTone - ^ false! Item was removed: - ----- Method: FormEditorView>>cacheBitsAsTwoTone (in category 'as yet unclassified') ----- - cacheBitsAsTwoTone - ^ false! Item was removed: - ----- Method: ProjectView>>cacheBitsAsTwoTone (in category 'displaying') ----- - cacheBitsAsTwoTone - ^ false! Item was changed: ----- Method: StandardSystemView>>cacheBitsAsIs (in category 'displaying') ----- cacheBitsAsIs + CacheBits ifFalse: [^ self uncacheBits]. + windowBits := Form fromDisplay: self windowBox using: windowBits. - windowBits := (self cacheBitsAsTwoTone and: [Display depth > 1]) - ifTrue: [ColorForm - twoToneFromDisplay: self windowBox - using: windowBits - backgroundColor: self backgroundColor] - ifFalse: [Form fromDisplay: self windowBox using: windowBits]. bitsValid := true. ! Item was removed: - ----- Method: StandardSystemView>>cacheBitsAsTwoTone (in category 'displaying') ----- - cacheBitsAsTwoTone - ^ true!

1 0

The Trunk: ST80-mt.195.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

1 0

The Trunk: Compiler-mt.319.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.319.mcz ==================== Summary ==================== Name: Compiler-mt.319 Author: mt Time: 18 February 2016, 10:58:07.931715 am UUID: 346cab39-3c65-40cb-9344-293aa4090074 Ancestors: Compiler-mt.318 Even if the requestor does not support interactive error correction, allow for the use of new bindings. =============== Diff against Compiler-mt.318 =============== Item was changed: ----- Method: Parser>>correctVariable:interval: (in category 'error correction') ----- correctVariable: proposedVariable interval: spot "Correct the proposedVariable to a known variable, or declare it as a new variable if such action is requested. We support declaring lowercase variables as temps or inst-vars, and uppercase variables as Globals or ClassVars, depending on whether the context is nil (class=UndefinedObject). Spot is the interval within the test stream of the variable. rr 3/4/2004 10:26 : adds the option to define a new class. " "Check if this is an i-var, that has been corrected already (ugly)" "Display the pop-up menu" | binding userSelection action | (encoder classEncoding instVarNames includes: proposedVariable) ifTrue: [^InstanceVariableNode new name: proposedVariable index: (encoder classEncoding allInstVarNames indexOf: proposedVariable)]. + "First check to see if the requestor knows anything about the variable" + (binding := cue requestor ifNotNil: [:object | object bindingOf: proposedVariable]) + ifNotNil: [^encoder global: binding name: proposedVariable]. + "If we can't ask the user for correction, make it undeclared" self interactive ifFalse: [^encoder undeclared: proposedVariable]. - "First check to see if the requestor knows anything about the variable" - (binding := cue requestor bindingOf: proposedVariable) - ifNotNil: [^encoder global: binding name: proposedVariable]. userSelection := cue requestor selectionInterval. cue requestor selectFrom: spot first to: spot last. cue requestor select. "Build the menu with alternatives" action := UndeclaredVariable signalFor: self name: proposedVariable inRange: spot. action ifNil: [^self fail]. "Execute the selected action" cue requestor deselect. cue requestor selectInvisiblyFrom: userSelection first to: userSelection last. ^action value!

1 0

The Trunk: Compiler-mt.319.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

1 0

The Trunk: Kernel-cmm.992.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.992.mcz ==================== Summary ==================== Name: Kernel-cmm.992 Author: cmm Time: 17 February 2016, 10:07:45.342973 pm UUID: 06f233cb-83a0-466a-b96a-362a4d63864d Ancestors: Kernel-bf.991 DateAndTime class>>#nowWithOffset: was part of the public API needed by applications. =============== Diff against Kernel-bf.991 =============== Item was added: + ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- + nowWithOffset: aDuration + ^ self + now: self clock localMicrosecondClockWithOffset first + offset: aDuration! Item was changed: ----- Method: Timespan class>>current (in category 'squeak protocol') ----- current + ^ self starting: (DateAndTime nowWithOffset: self defaultOffset)! - ^ self starting: DateAndTime now!

1 0

The Trunk: Kernel-cmm.992.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

1 0

The Trunk: Kernel-bf.991.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

Bert Freudenberg uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-bf.991.mcz ==================== Summary ==================== Name: Kernel-bf.991 Author: bf Time: 17 February 2016, 6:33:53.746681 pm UUID: 1d2c150b-bafd-43be-a1ea-648007f13215 Ancestors: Kernel-dtl.990 Use proper timezone in DateAndTime now. =============== Diff against Kernel-dtl.990 =============== Item was changed: ----- Method: DateAndTime class>>initialize (in category 'initialize-release') ----- initialize + ClockProvider ifNil: [ClockProvider := Time]. + Smalltalk addToStartUpList: self after: Delay. + self startUp: true. + ! - - super initialize. - - ClockProvider := Time. - Smalltalk addToStartUpList: self. - self startUp: true! Item was added: + ----- Method: DateAndTime class>>localOffset: (in category 'squeak protocol') ----- + localOffset: aDuration + "Set the duration we are offset from UTC (done automatically in #now)" + self localTimeZone: (TimeZone offset: aDuration name: 'Local Time' abbreviation: 'LT'). + ! Item was changed: ----- Method: DateAndTime class>>now (in category 'ansi protocol') ----- + now + | clockAndOffset | + clockAndOffset := self clock localMicrosecondClockWithOffset. + self localOffset asSeconds ~= clockAndOffset second ifTrue: [ + self localOffset: (Duration seconds: clockAndOffset second)]. + ^self now: clockAndOffset first offset: self localOffset! - now - ^ self nowWithOffset: self localOffset! Item was added: + ----- Method: DateAndTime class>>now:offset: (in category 'squeak protocol') ----- + now: clockValue offset: aDuration + + | seconds nanos | + "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. + seconds := clockValue // 1000000. + ^self basicNew + setJdn: seconds // SecondsInDay + SqueakEpoch + seconds: seconds \\ SecondsInDay + nano: nanos + offset: aDuration! Item was removed: - ----- 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) + aDuration asSeconds. - ^self basicNew - setJdn: clockValue // SecondsInDay + SqueakEpoch - seconds: clockValue \\ SecondsInDay - nano: nanos - offset: aDuration! Item was added: + ----- Method: DateAndTime class>>startUp: (in category 'system startup') ----- + startUp: startingAfresh + "Set local timezone" + startingAfresh ifTrue: [self now]. + ! Item was added: + ----- Method: Time class>>localMicrosecondClockWithOffset (in category 'clock') ----- + localMicrosecondClockWithOffset + "Answer an array with local microseconds since the Smalltalk epoch and the + current seconds offset from GMT in the local time zone." + + | result | + result := self primPosixMicrosecondClockWithOffset. + "DateAndTime unixEpoch asSeconds" + result at: 1 put: result first + ((2177452800 + result second) * 1000000). + ^result! Item was changed: + ----- Method: Time class>>primPosixMicrosecondClockWithOffset (in category 'private') ----- - ----- Method: Time class>>primPosixMicrosecondClockWithOffset (in category 'clock') ----- primPosixMicrosecondClockWithOffset "Answer an array with UTC microseconds since the Posix epoch and the current seconds offset from GMT in the local time zone." <primitive: 'primitiveUtcWithOffset'> + ^{0. 0}! - ^#(0 0)! Item was changed: ----- Method: Timespan class>>current (in category 'squeak protocol') ----- current + ^ self starting: DateAndTime now! - ^ self starting: (DateAndTime nowWithOffset: self defaultOffset)! Item was changed: ----- Method: Timespan>>= (in category 'ansi protocol') ----- = comparand ^ self class = comparand class + and: [ "defaultOffset means ignore time zone" + ((self start offset == self class defaultOffset + or: [comparand start offset == self class defaultOffset]) + ifTrue: [self start hasEqualTicks: comparand start] + ifFalse: [self start = comparand start]) - and: [ self start = comparand start and: [ self duration = comparand duration ] ] .!

1 0

The Trunk: Kernel-bf.991.mcz
by commits＠source.squeak.org 18 Feb '16

18 Feb '16

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
37
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2016