Packages February 2011

packages@lists.squeakfoundation.org

2 participants
337 discussions

The Trunk: CollectionsTests-ul.181.mcz
by commits＠source.squeak.org 22 Feb '11

22 Feb '11

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.181.mcz ==================== Summary ==================== Name: CollectionsTests-ul.181 Author: ul Time: 22 February 2011, 4:32:17.481 pm UUID: f61b5b99-8de8-7a46-a8b7-71e58d9d8a77 Ancestors: CollectionsTests-ul.180 Refactored and extended ReadStreamTest >> #testPositionOfSubCollection. =============== Diff against CollectionsTests-ul.180 =============== Item was changed: ----- Method: ReadStreamTest>>testPositionOfSubCollection (in category 'tests - positioning') ----- testPositionOfSubCollection - - self assert: ((self streamOn: 'xyz') positionOfSubCollection: 'q' ) = 0. - self assert: ((self streamOn: 'xyz') positionOfSubCollection: 'x' ) = 1. + | stream | + stream := self streamOn: 'xyz'. + #( + '' 1 + 'q' 0 + 'x' 1 + 'y' 2 + 'z' 3 + 'xz' 0 + 'xy' 1 + 'yz' 2 + 'xyz' 1) pairsDo: [ :pattern :expectedPosition | + self + assert: expectedPosition equals: (stream positionOfSubCollection: pattern); + assert: 0 equals: stream position ]! - self assert: ((self streamOn: 'xyz') positionOfSubCollection: 'y' ) = 2. - self assert: ((self streamOn: 'xyz') positionOfSubCollection: 'z' ) = 3.!

1 0

The Trunk: Collections-ul.426.mcz
by commits＠source.squeak.org 22 Feb '11

22 Feb '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.426.mcz ==================== Summary ==================== Name: Collections-ul.426 Author: ul Time: 22 February 2011, 4:28:33.228 pm UUID: 1ef01c01-6a9e-784f-a56d-9dd8f6182024 Ancestors: Collections-ul.425 - fix: make sure that PositionableStream >> #positionOfSubCollection:ifAbsent: restores the position of the stream even if the subcollection is not found - also removed some unreachable code and refactored the method =============== Diff against Collections-ul.425 =============== Item was changed: ----- Method: PositionableStream>>positionOfSubCollection:ifAbsent: (in category 'positioning') ----- positionOfSubCollection: subCollection ifAbsent: exceptionBlock "Return a position such that that element at the new position equals the first element of sub, and the next elements equal the rest of the elements of sub. Begin the search at the current position. If no such match is found, answer the result of evaluating argument, exceptionBlock." | pattern startPosition currentPosition | + pattern := subCollection readStream. - pattern := ReadStream on: subCollection. startPosition := self position. + [ pattern atEnd or: [ self atEnd ] ] whileFalse: [ + self next = pattern next ifFalse: [ + self position: self position - pattern position + 1. + pattern reset ] ]. - [pattern atEnd] whileFalse: - [self atEnd ifTrue: [^exceptionBlock value]. - self next = pattern next - ifFalse: [ - self position: self position-pattern position+1. - pattern reset]]. currentPosition := self position. self position: startPosition. + pattern atEnd ifTrue: [ ^currentPosition + 1 - subCollection size ]. + ^exceptionBlock value! - ^pattern atEnd - ifTrue: [currentPosition + 1 - subCollection size] - ifFalse: [exceptionBlock value]!

1 0

The Trunk: Collections-ul.426.mcz
by commits＠source.squeak.org 22 Feb '11

22 Feb '11

1 0

The Trunk: Collections-ul.426.mcz
by commits＠source.squeak.org 22 Feb '11

22 Feb '11

1 0

The Trunk: SystemReporter-laza.18.mcz
by commits＠source.squeak.org 22 Feb '11

22 Feb '11

Alexander Lazarević uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-laza.18.mcz ==================== Summary ==================== Name: SystemReporter-laza.18 Author: laza Time: 22 February 2011, 12:06:28.268 am UUID: 68ae866a-6780-4e2b-b4b4-d2c1cfcd4b01 Ancestors: SystemReporter-laza.17 Show /proc/version in the LinuxOSDetails report =============== Diff against SystemReporter-laza.17 =============== Item was changed: ----- Method: SystemReporter>>reportLinuxOSDetails: (in category 'reporting') ----- reportLinuxOSDetails: aStream self header: 'Operating System Details' on: aStream. #( '/etc/issue' '/etc/lsb-release' + '/proc/version' - "'/proc/version'" "Squeak can't read this?!!" ) do: [:path| self writeContentsSafelyFromFile: path on: aStream]! Item was changed: ----- Method: SystemReporter>>writeContentsSafelyFromFile:on: (in category 'private') ----- writeContentsSafelyFromFile: osPath on: aStream aStream nextPutAll: ([ + (FileStream readOnlyFileNamed: osPath) upToEnd - (FileStream readOnlyFileNamed: osPath) contentsOfEntireFile ] on: Error do: [:ex| ex return: ex printString])!

1 0

The Trunk: SystemReporter-laza.18.mcz
by commits＠source.squeak.org 22 Feb '11

22 Feb '11

1 0

The Trunk: SystemReporter-laza.18.mcz
by commits＠source.squeak.org 22 Feb '11

22 Feb '11

1 0

The Trunk: Morphic-mtf.521.mcz
by commits＠source.squeak.org 21 Feb '11

21 Feb '11

Matthew Fulmer uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mtf.521.mcz ==================== Summary ==================== Name: Morphic-mtf.521 Author: mtf Time: 21 February 2011, 4:29:10.979 pm UUID: cf57b307-096f-4311-a02e-b1f53d206e9c Ancestors: Morphic-nice.520 created HandMorph >> dragThreshold to hold the default drag threshold Changed drag users to use this setting rather than make up their own thresholds Finished a partial change of SystemWindow from simulating its own dragging to using the builtin drag mechanism Made the default drag threshold zero pixels. it was previously 0, 5, or 10 pixels, depending on the morph =============== Diff against Morphic-nice.520 =============== Item was changed: ----- Method: ClickExerciser>>mouseDown: (in category 'event handling') ----- mouseDown: evt "Do nothing upon mouse-down except inform the hand to watch for a double-click; wait until an ensuing click:, doubleClick:, or drag: message gets dispatched" Preferences disable: #NewClickTest . evt hand waitForClicksOrDrag: self event: evt selectors: self selectors + threshold: HandMorph dragThreshold! - threshold: 10 - ! Item was changed: ----- Method: HaloMorph>>blueButtonDown: (in category 'meta-actions') ----- blueButtonDown: event "Transfer the halo to the next likely recipient" target ifNil:[^self delete]. event hand obtainHalo: self. positionOffset := event position - (target point: target position in: owner). self isMagicHalo ifTrue:[ self isMagicHalo: false. ^self magicAlpha: 1.0]. "wait for drags or transfer" event hand waitForClicksOrDrag: self event: event selectors: { #transferHalo:. nil. nil. #dragTarget:. } + threshold: HandMorph dragThreshold! - threshold: 5.! Item was changed: Morph subclass: #HandMorph instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners mouseClickState mouseOverHandler lastMouseEvent targetOffset damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter' + classVariableNames: 'CompositionWindowManager DoubleClickTime DragThreshold EventStats NewEventRules NormalCursor PasteBuffer ShowEvents' - classVariableNames: 'CompositionWindowManager DoubleClickTime EventStats NewEventRules NormalCursor PasteBuffer ShowEvents' poolDictionaries: 'EventSensorConstants' category: 'Morphic-Kernel'! !HandMorph commentStamp: '<historical>' prior: 0! The cursor may be thought of as the HandMorph. The hand's submorphs hold anything being carried by dragging. There is some minimal support for multiple hands in the same world.! Item was added: + ----- Method: HandMorph class>>dragThreshold (in category 'accessing') ----- + dragThreshold + + ^ DragThreshold + ! Item was added: + ----- Method: HandMorph class>>dragThreshold: (in category 'accessing') ----- + dragThreshold: pixels + + DragThreshold := pixels! Item was changed: ----- Method: HandMorph class>>initialize (in category 'class initialization') ----- initialize "HandMorph initialize" PasteBuffer := nil. DoubleClickTime := 350. + DragThreshold := 0. NormalCursor := CursorWithMask normal asCursorForm. ! Item was changed: ----- Method: HandMorph>>waitForClicksOrDrag:event: (in category 'double click support') ----- waitForClicksOrDrag: aMorph event: evt "Wait for mouse button and movement events, informing aMorph about events interesting to it via callbacks. This message is typically sent to the Hand by aMorph when it first receives a mouse-down event. The callback methods invoked on aMorph (which are passed a copy of evt) are: #click: sent when the mouse button goes up within doubleClickTime. #doubleClick: sent when the mouse goes up, down, and up again all within DoubleClickTime. #doubleClickTimeout: sent when the mouse does not have a doubleClick within DoubleClickTime. #startDrag: sent when the mouse moves more than 10 pixels from evt's position within DoubleClickTime. Note that mouseMove: and mouseUp: events are not sent to aMorph until it becomes the mouse focus, which is typically done by aMorph in its click:, doubleClick:, or drag: methods." + ^self waitForClicksOrDrag: aMorph event: evt selectors: #( #click: #doubleClick: #doubleClickTimeout: #startDrag:) threshold: HandMorph dragThreshold! - ^self waitForClicksOrDrag: aMorph event: evt selectors: #( #click: #doubleClick: #doubleClickTimeout: #startDrag:) threshold: 10 - ! Item was changed: ----- Method: Morph>>blueButtonDown: (in category 'meta-actions') ----- blueButtonDown: anEvent "Special gestures (cmd-mouse on the Macintosh; Alt-mouse on Windows and Unix) allow a mouse-sensitive morph to be moved or bring up a halo for the morph." | h tfm doNotDrag | h := anEvent hand halo. "Prevent wrap around halo transfers originating from throwing the event back in" doNotDrag := false. h ifNotNil:[ (h innerTarget == self) ifTrue:[doNotDrag := true]. (h innerTarget hasOwner: self) ifTrue:[doNotDrag := true]. (self hasOwner: h target) ifTrue:[doNotDrag := true]]. tfm := (self transformedFrom: nil) inverseTransformation. "cmd-drag on flexed morphs works better this way" h := self addHalo: (anEvent transformedBy: tfm). h ifNil: [^ self]. doNotDrag ifTrue:[^self]. "Initiate drag transition if requested" anEvent hand waitForClicksOrDrag: h event: (anEvent transformedBy: tfm) selectors: { nil. nil. nil. #dragTarget:. } + threshold: HandMorph dragThreshold. - threshold: 5. "Pass focus explicitly here" anEvent hand newMouseFocus: h.! Item was changed: ----- Method: PasteUpMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt "Handle a mouse down event." | grabbedMorph handHadHalos | (Preferences generalizedYellowButtonMenu and: [evt yellowButtonPressed]) ifTrue: [^ self yellowButtonActivity: evt shiftPressed]. grabbedMorph := self morphToGrab: evt. grabbedMorph ifNotNil:[ grabbedMorph isSticky ifTrue:[^self]. self isPartsBin ifFalse:[^evt hand grabMorph: grabbedMorph]. grabbedMorph := grabbedMorph partRepresented duplicate. grabbedMorph restoreSuspendedEventHandler. (grabbedMorph fullBounds containsPoint: evt position) ifFalse:[grabbedMorph position: evt position]. "Note: grabbedMorph is ownerless after duplicate so use #grabMorph:from: instead" ^ evt hand grabMorph: grabbedMorph from: self]. (super handlesMouseDown: evt) ifTrue:[^super mouseDown: evt]. handHadHalos := evt hand halo notNil. evt hand removeHalo. "shake off halos" evt hand releaseKeyboardFocus. "shake of keyboard foci" self submorphs select:[:each | each hasProperty: #morphHierarchy] thenDo:[:each | each delete]. Preferences noviceMode ifTrue:[ self submorphs select:[:each | (each isKindOf: MenuMorph) and:[each stayUp not]] thenDo:[:each | each delete]. ]. (evt shiftPressed not and:[ self isWorldMorph not and:[ self wantsEasySelection not ]]) ifTrue:[ "explicitly ignore the event if we're not the world and we'll not select, so that we could be picked up if need be" evt wasHandled: false. ^ self. ]. ( evt shiftPressed or: [ self wantsEasySelection ] ) ifTrue:[ "We'll select on drag, let's decide what to do on click" | clickSelector | clickSelector := nil. evt shiftPressed ifTrue:[ clickSelector := #findWindow:. ] ifFalse:[ self isWorldMorph ifTrue:[ clickSelector := handHadHalos ifTrue: [ #delayedInvokeWorldMenu: ] ifFalse: [ #invokeWorldMenu: ] ] ]. evt hand waitForClicksOrDrag: self event: evt selectors: { clickSelector. nil. nil. #dragThroughOnDesktop: } + threshold: HandMorph dragThreshold. - threshold: 5. ] ifFalse:[ "We wont select, just bring world menu if I'm the world" self isWorldMorph ifTrue:[ handHadHalos ifTrue: [ self delayedInvokeWorldMenu: evt ] ifFalse: [ self invokeWorldMenu: evt ] ] ]. ! Item was changed: ----- Method: PluggableListMorph>>mouseDown: (in category 'events') ----- mouseDown: evt | selectors row | evt yellowButtonPressed "First check for option (menu) click" ifTrue: [^ self yellowButtonActivity: evt shiftPressed]. row := self rowAtLocation: evt position. row = 0 ifTrue: [^super mouseDown: evt]. "self dragEnabled ifTrue: [aMorph highlightForMouseDown]." selectors := Array with: #click: with: (doubleClickSelector ifNotNil:[#doubleClick:]) with: nil with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). + evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".! - evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: 10 "pixels".! Item was removed: - ----- Method: PluggableSystemWindowWithLabelButton>>mouseDown: (in category 'events') ----- - mouseDown: evt - | wasInactive | - wasInactive := TopWindow ~~ self. - self valueOfProperty: #clickPoint ifPresentDo: - [:firstClick | - (labelButton containsPoint: evt cursorPoint) ifTrue: - [^labelButton mouseDown: evt]]. - super mouseDown: evt. - (wasInactive - and: [model windowActiveOnFirstClick not - and: [labelButton containsPoint: evt cursorPoint]]) ifTrue: - [^labelButton mouseDown: evt]! Item was removed: - ----- Method: PluggableSystemWindowWithLabelButton>>passivate (in category 'top window') ----- - passivate - super passivate. - self removeProperty: #clickPoint! Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | aMorph selectors | aMorph := self itemFromPoint: evt position. (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) ifTrue:[^self toggleExpandedState: aMorph event: evt]. evt yellowButtonPressed "First check for option (menu) click" ifTrue: [^ self yellowButtonActivity: evt shiftPressed]. aMorph ifNil:[^super mouseDown: evt]. aMorph highlightForMouseDown. selectors := Array with: #click: with: nil with: nil with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). + evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".! - evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: 10 "pixels".! Item was changed: ----- Method: SystemWindow>>handlesMouseDown: (in category 'events') ----- handlesMouseDown: evt "If I am not the topWindow, then I will only respond to dragging by the title bar. Any other click will only bring me to the top" - (self labelRect containsPoint: evt cursorPoint) - ifTrue: [^ true]. ^ self activeOnlyOnTop and: [self ~~ TopWindow]! Item was changed: ----- Method: SystemWindow>>mouseDown: (in category 'events') ----- mouseDown: evt - self setProperty: #clickPoint toValue: evt cursorPoint. TopWindow == self ifFalse: [evt hand releaseKeyboardFocus. self activate]. + + "the window was locked, thus we got the event. re-send it now that the window is unlocked again" + evt wasHandled: false. + model windowActiveOnFirstClick + ifTrue: [self processEvent: evt] "re-dispatch to any submorphs" + ifFalse: [label processEvent: evt]. "dispatch to label so dragging works" + evt wasHandled: true. - model windowActiveOnFirstClick ifTrue: - ["Normally window keeps control of first click. - Need explicit transmission for first-click activity." - submorphs do: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m mouseDown: evt]]] - ! Item was removed: - ----- Method: SystemWindow>>mouseMove: (in category 'events') ----- - mouseMove: evt - "Handle a mouse-move event" - - | cp | - cp := evt cursorPoint. - self valueOfProperty: #clickPoint ifPresentDo: - [:firstClick | - ((self labelRect containsPoint: firstClick) and: [(cp dist: firstClick) > 3]) ifTrue: - ["If this is a drag that started in the title bar, then pick me up" - ^ self isSticky ifFalse: - [self fastFramingOn - ifTrue: [self doFastFrameDrag: firstClick] - ifFalse: [evt hand grabMorph: self topRendererOrSelf]]]]. - model windowActiveOnFirstClick ifTrue: - ["Normally window takes control on first click. - Need explicit transmission for first-click activity." - submorphs do: [:m | (m containsPoint: cp) ifTrue: [m mouseMove: evt]]]! Item was changed: ----- Method: SystemWindow>>startDragFromLabel: (in category 'events') ----- startDragFromLabel: evt "When label events are active, we need to pass dragging to the window explicitely The window only recognizes a drag with an offset of more than 3 pixels" + self isSticky ifTrue: [^ self]. + self fastFramingOn + ifTrue: [self doFastFrameDrag: evt cursorPoint] + ifFalse: [evt hand grabMorph: self topRendererOrSelf] + ! - self setProperty: #clickPoint toValue: evt cursorPoint - 4. - self mouseMove: evt.!

1 0

The Trunk: Morphic-mtf.521.mcz
by commits＠source.squeak.org 21 Feb '11

21 Feb '11

1 0

The Trunk: Morphic-mtf.521.mcz
by commits＠source.squeak.org 21 Feb '11

21 Feb '11

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
34
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 2011