Packages June 2012

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Morphic-cmm.620.mcz
by commits＠source.squeak.org 04 Jun '12

04 Jun '12

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.620.mcz ==================== Summary ==================== Name: Morphic-cmm.620 Author: cmm Time: 4 June 2012, 3:55:02.935 pm UUID: 0ddf089c-043a-47fe-b5ee-6e3759094f35 Ancestors: Morphic-cmm.619 - Simply extract the criteria for whether a morph should handle MouseMoveEvents into Morph>>#handleMouseMove: so subclasses can override. - Moved a few Etoys methods to the Etoys package. - Make findAFileList: find one without unaccepted edits, so it does not force the user to save just to have a navigable FileList. - Mark some unused methods as such. =============== Diff against Morphic-bf.618 =============== Item was changed: ----- Method: Morph>>handleMouseMove: (in category 'events-processing') ----- + handleMouseMove: anEvent - handleMouseMove: anEvent "System level event handling." + anEvent wasHandled ifTrue: [ ^ self ]. + "not interested" + (self handlesMouseMove: anEvent) ifFalse: [ ^ self ]. - anEvent wasHandled ifTrue:[^self]. "not interested" - "Rules say that by default a morph gets #mouseMove iff - * the hand is not dragging anything, - + and some button is down, - + and the receiver is the current mouse focus." - (anEvent hand hasSubmorphs) ifTrue:[^self]. - (anEvent anyButtonPressed and:[anEvent hand mouseFocus == self]) ifFalse:[^self]. anEvent wasHandled: true. self mouseMove: anEvent. + (self handlesMouseStillDown: anEvent) ifTrue: + [ "Step at the new location" + self + startStepping: #handleMouseStillDown: - (self handlesMouseStillDown: anEvent) ifTrue:[ - "Step at the new location" - self startStepping: #handleMouseStillDown: at: Time millisecondClockValue arguments: {anEvent copy resetHandlerFields} + stepTime: self mouseStillDownStepRate ]! - stepTime: self mouseStillDownStepRate ]. - ! Item was added: + ----- Method: Morph>>handlesMouseMove: (in category 'event handling') ----- + handlesMouseMove: anEvent + "Do I want to receive mouseMove: when the hand passes over the receiver? Rules say that by default a morph gets #mouseMove iff + * the hand is not dragging anything, + + and some button is down, + + and the receiver is the current mouse focus." + anEvent hand hasSubmorphs ifTrue: [ ^ false ]. + (anEvent anyButtonPressed and: [ anEvent hand mouseFocus == self ]) ifFalse: [ ^ false ]. + ^ true! Item was removed: - ----- Method: Morph>>isCandidateForAutomaticViewing (in category 'e-toy support') ----- - isCandidateForAutomaticViewing - ^ true! Item was changed: ----- Method: PasteUpMorph>>findAFileList: (in category 'world menu') ----- findAFileList: evt + "Bring a file list to the foreground, reusing an existing one if possible." - "Locate a file list, open it, and bring it to the front. - Create one if necessary, respecting the Preference." - self + findAWindowSatisfying: [ : aWindow | (aWindow model class = FileList) and: [ aWindow model hasUnacceptedEdits not ] ] + orMakeOneUsing: [ FileList prototypicalToolWindow openInWorld ]! - findAWindowSatisfying: [:aWindow | aWindow model isKindOf: FileList] - orMakeOneUsing: [FileList2 prototypicalToolWindow openInWorld] - ! Item was removed: - ----- Method: PasteUpMorph>>isCandidateForAutomaticViewing (in category 'e-toy support') ----- - isCandidateForAutomaticViewing - "A viewer on a world is a dangerous thing to get casually!!" - - ^ self isWorldMorph not! Item was removed: - ----- Method: SystemWindow>>isCandidateForAutomaticViewing (in category 'events') ----- - isCandidateForAutomaticViewing - ^ false! Item was changed: ----- Method: TransferMorph>>dropNotifyRecipient (in category 'accessing') ----- dropNotifyRecipient + self isThisEverCalled. ^dropNotifyRecipient! Item was changed: ----- Method: TransferMorph>>dropNotifyRecipient: (in category 'accessing') ----- dropNotifyRecipient: anObject + self isThisEverCalled. dropNotifyRecipient := anObject! Item was changed: ----- Method: TransferMorph>>result: (in category 'dropping/grabbing') ----- result: result + self isThisEverCalled. ^ self result: result from: nil! Item was changed: ----- Method: TransferMorph>>result:from: (in category 'dropping/grabbing') ----- result: aResult from: aResultGenerator + "Send aResult of the drop operation computed by aResultGenerator to a resultRecipient, if it exists." + self isThisEverCalled. - "Send aResult of the drop operation computed by aResultGenerator to a - resultRecipient, if it exists." resultRecipient ifNotNil: [resultRecipient dropResult: aResult from: aResultGenerator]!

1 0

The Trunk: Installer-Core-bf.357.mcz
by commits＠source.squeak.org 04 Jun '12

04 Jun '12

Bert Freudenberg uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-bf.357.mcz ==================== Summary ==================== Name: Installer-Core-bf.357 Author: bf Time: 4 June 2012, 6:25:40.488 pm UUID: 16e42276-de80-4d2c-aad1-9e9612ad705e Ancestors: Installer-Core-cmm.356 Make "Installer squeak" work. =============== Diff against Installer-Core-cmm.356 =============== Item was changed: ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') ----- http: aUrl user: name password: secret + | url | + url := (aUrl includesSubString: '://') + ifTrue: [aUrl] + ifFalse: ['http://', aUrl]. + mc := self classMCHttpRepository location: url user: name password: secret. - - mc := self classMCHttpRepository location: aUrl user: name password: secret. root := mc locationWithTrailingSlash !

1 0

The Trunk: Installer-Core-bf.357.mcz
by commits＠source.squeak.org 04 Jun '12

04 Jun '12

1 0

The Trunk: Installer-Core-bf.357.mcz
by commits＠source.squeak.org 04 Jun '12

04 Jun '12

1 0

The Trunk: Kernel-nice.694.mcz
by commits＠source.squeak.org 03 Jun '12

03 Jun '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.694.mcz ==================== Summary ==================== Name: Kernel-nice.694 Author: nice Time: 3 June 2012, 5:31:52.95 pm UUID: faa4f8ea-259e-47d4-adc7-eeb195787cad Ancestors: Kernel-nice.693 Protect floorLog: 2 for case of exceptional float values (because exponent does not) Change exponent primitive fallback code to avoid a recursion with floorLog2: Note that I created a separate selector #exponentFromBitPattern for handling fallback, because it's easier to test. =============== Diff against Kernel-nice.693 =============== Item was changed: ----- Method: Float>>exponent (in category 'truncation and round off') ----- exponent "Primitive. Consider the receiver to be represented as a power of two multiplied by a mantissa (between one and two). Answer with the SmallInteger to whose power two is raised. Optional. See Object documentation whatIsAPrimitive." - | positive | <primitive: 53> + ^self exponentFromBitPattern! - self >= 1.0 ifTrue: [^self floorLog: 2]. - self > 0.0 - ifTrue: - [positive := (1.0 / self) exponent. - self = (1.0 / (1.0 timesTwoPower: positive)) - ifTrue: [^positive negated] - ifFalse: [^positive negated - 1]]. - self = 0.0 ifTrue: [^-1]. - ^self negated exponent! Item was added: + ----- Method: Float>>exponentFromBitPattern (in category 'truncation and round off') ----- + exponentFromBitPattern + "Extract the exponent from the bit pattern. + This is used only when primitive fails" + + | exponent word1 | + self isFinite ifFalse: [^self error: 'cannot take the exponent of non finite Float']. + self = 0.0 ifTrue: [^-1]. + word1 := self basicAt: 1. + exponent := (word1 bitShift: -20) bitAnd: 16r7FF. + ^exponent = 0 + ifTrue: + [| high | + high := (word1 bitAnd: 16rFFFFF) highBit. + high := high = 0 + ifTrue: [(self basicAt: 2) highBit] + ifFalse: [high + 32]. + self class emin - self class precision + high] + ifFalse: + [exponent + self class emin - 1]! Item was changed: ----- Method: Float>>floorLog: (in category 'mathematical functions') ----- floorLog: radix "Answer the floor of the log base radix of the receiver. The result may be off by one due to rounding errors, except in base 2." + (radix = 2 and: [self > 0.0 and: [self isFinite]]) ifTrue: [^self exponent]. - (radix = 2 and: [self > 0.0]) ifTrue: [^self exponent]. ^ (self log: radix) floor !

1 0

The Trunk: Kernel-nice.694.mcz
by commits＠source.squeak.org 03 Jun '12

03 Jun '12

1 0

The Trunk: Kernel-nice.694.mcz
by commits＠source.squeak.org 03 Jun '12

03 Jun '12

1 0

The Trunk: Installer-Core-cmm.356.mcz
by commits＠source.squeak.org 03 Jun '12

03 Jun '12

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.356.mcz ==================== Summary ==================== Name: Installer-Core-cmm.356 Author: cmm Time: 2 June 2012, 7:39:53.422 pm UUID: deb858f0-816f-4e64-bdce-d14652854ad1 Ancestors: Installer-Core-bf.355 Strengthen InstallerMantis>>#=. =============== Diff against Installer-Core-bf.355 =============== Item was changed: ----- Method: InstallerMantis>>= (in category 'accessing') ----- = other + self == other ifTrue: [ ^ true ]. + self species = other species ifFalse: [ ^ false ]. - ^ array = other array!

1 0

The Trunk: Installer-Core-cmm.356.mcz
by commits＠source.squeak.org 03 Jun '12

03 Jun '12

1 0

The Trunk: Installer-Core-cmm.356.mcz
by commits＠source.squeak.org 03 Jun '12

03 Jun '12

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 June 2012