Squeak-dev November 2015

squeak-dev@lists.squeakfoundation.org

40 participants
251 discussions

The Trunk: Monticello-cmm.621.mcz
by commits＠source.squeak.org 05 Nov '15

05 Nov '15

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.621.mcz ==================== Summary ==================== Name: Monticello-cmm.621 Author: cmm Time: 5 November 2015, 3:53:18.966 pm UUID: 0c3823f5-2b63-4e87-af64-20ba08dc97b0 Ancestors: Monticello-nice.620 - Fix filing in of an entire class from the MCSnapshotBrowser. Before, it would only file in the methods of the selected meta-switch (instance-side or class-side), now it always files in both sides. =============== Diff against Monticello-nice.620 =============== Item was changed: ----- Method: MCSnapshotBrowser>>methodsForSelectedClass (in category 'accessing') ----- methodsForSelectedClass + ^ items select: + [ : ea | ea className = classSelection and: [ ea isMethodDefinition ] ]! - ^ items select: [:ea | (ea className = classSelection) - and: [ea isMethodDefinition - and: [ea classIsMeta = self switchIsClass]]].! Item was added: + ----- Method: MCSnapshotBrowser>>methodsForSelectedClassAndMetaSelection (in category 'accessing') ----- + methodsForSelectedClassAndMetaSelection + ^ self methodsForSelectedClass select: + [ : each | each classIsMeta = self switchIsClass ]! Item was changed: ----- Method: MCSnapshotBrowser>>methodsForSelectedClassCategory (in category 'accessing') ----- methodsForSelectedClassCategory + ^ items select: + [ : ea | (self visibleClasses includes: ea className) and: [ ea isMethodDefinition ] ]! - | visibleClasses | - visibleClasses := self visibleClasses. - ^ items select: [:ea | (visibleClasses includes: ea className) - and: [ea isMethodDefinition - and: [ea classIsMeta = self switchIsClass]]].! Item was changed: ----- Method: MCSnapshotBrowser>>methodsForSelectedProtocol (in category 'accessing') ----- methodsForSelectedProtocol | methods | protocolSelection ifNil: [^ Array new]. + methods := self methodsForSelectedClassAndMetaSelection asOrderedCollection. - methods := self methodsForSelectedClass asOrderedCollection. (protocolSelection = '-- all --') ifFalse: [methods removeAllSuchThat: [:ea | ea category ~= protocolSelection]]. ^ methods ! Item was changed: ----- Method: MCSnapshotBrowser>>visibleProtocols (in category 'listing') ----- visibleProtocols | methods protocols | self switchIsComment ifTrue: [^ Array new]. + methods := self methodsForSelectedClassAndMetaSelection. - methods := self methodsForSelectedClass. protocols := (methods collect: [:ea | ea category]) asSet asSortedCollection. (protocols size > 1) ifTrue: [protocols add: '-- all --']. ^ protocols !

1 0

Seeding instances of Random
by Levente Uzonyi 05 Nov '15

05 Nov '15

Hi All, With the recent UUID changes, we're facing the problem of properly seeding a Random instance. The current method provides only 2^32 different initial states, with which the chance for two images to have the same values on startup is way too high (~9300 startups for 1% chance of collision). To avoid the collisions we need a reliable source of random bytes. Currently we have the following sources: 1. /dev/urandom: fast, reliable, but not available on all platforms (e.g. windows). 2. UUIDPlugin: fast, but this is what we wanted to get rid of in the first place, so it may not be available. 3. Audio recorded through SoundSystem: slow, unreliable, and it may not be available. 4. Time primUTCMicrosecondClock. On its own it has way too little entropy. We can still use it to initalize the PRNG by using additional sources of entropy (image name, path, vm version, whatever). We can use SHA1 to get "more random" bits from out entropy sources. But this is more like a last resort than a solution to rely on. So I suggest we should create a new primitive, which can fill a given indexable object (bytes and optionally words) with random values - the same way Random >> #nextBytes:into:startingAt: works. It could use CryptGenRandom on Windows, and /dev/urandom on other unix-like platforms. As fallback mechanisms, I'd implement 1. 2. and optionally 4., and use them in the given order. The drawback of these mechanisms is that they create unwanted package dependencies, because Random is in Kernel, while most potetial sources of entropy, along with SHA1, are in other packages. Opinions, ideas? Levente

9 14

Re: [squeak-dev] The Trunk: Morphic-mt.1027.mcz
by Chris Muller 05 Nov '15

05 Nov '15

I see no difference. With or without this change, it doesn't seem to select until after I start the drag.. Also, I'm wondering if this shouldn't honor the "Menu request updates list/tree selection".. (maybe we would need to rename it to "Menu or drag request updates list/tree selection")? I know it didn't already, but it just reminded me of that when I was testing it. On Thu, Nov 5, 2015 at 2:08 AM, <commits(a)source.squeak.org> wrote: > Marcel Taeumel uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-mt.1027.mcz > > ==================== Summary ==================== > > Name: Morphic-mt.1027 > Author: mt > Time: 5 November 2015, 9:08:06.974 am > UUID: aaa21de5-cebc-4dcf-bf58-8595ba22ee71 > Ancestors: Morphic-mt.1026 > > In lists, update selection before starting drag operation in case the user decides not to drag a not selected item. > > =============== Diff against Morphic-mt.1026 =============== > > Item was changed: > ----- Method: PluggableListMorph>>startDrag: (in category 'drag and drop') ----- > startDrag: evt > > + | item itemMorph | > - | item itemMorph | > evt hand hasSubmorphs ifTrue: [^ self]. > self model okToChange ifFalse: [^ self]. > > + "Ensure selection to save additional click." > + (self modelIndexFor: (self rowAtLocation: evt position)) in: [:evtIndex | > + self selectionIndex = evtIndex ifFalse: [self changeModelSelection: evtIndex]]. > + > item := self selection ifNil: [^ self]. > itemMorph := StringMorph contents: item asStringOrText. > > [ "Initiate drag." > (self model dragPassengerFor: itemMorph inMorph: self) ifNotNil: [:passenger | | ddm | > ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self. > ddm dragTransferType: (self model dragTransferTypeForMorph: self). > ddm updateFromUserInputEvent: evt. > self model dragStartedFor: itemMorph transferMorph: ddm. > evt hand grabMorph: ddm] > ] ensure: [ > Cursor normal show. > evt hand releaseMouseFocus: self].! > >

2 1

Re: [squeak-dev] The Trunk: ToolBuilder-Morphic-mt.150.mcz
by karl ramberg 05 Nov '15

05 Nov '15

Hi, there is a somewhat related issue with scroll panes. In for example HelpBrowser you scroll down in the text pane with a long text. Then you click on an other help topic with a long text. The new help topic opens in a scrolled down pane. When opening a new topic the scrolling should be reset. Karl On Wed, Nov 4, 2015 at 10:33 AM, <commits(a)source.squeak.org> wrote: > Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project > The Trunk: > http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.150.mcz > > ==================== Summary ==================== > > Name: ToolBuilder-Morphic-mt.150 > Author: mt > Time: 4 November 2015, 10:33:51.502 am > UUID: 4df461c0-47b8-4cda-a915-4277646038fb > Ancestors: ToolBuilder-Morphic-mt.149 > > Adds support for overriding scrollbar policies in trees. > > =============== Diff against ToolBuilder-Morphic-mt.149 =============== > > Item was changed: > ----- Method: MorphicToolBuilder>>buildPluggableTree: (in category > 'widgets required') ----- > buildPluggableTree: aSpec > | widget | > widget := self treeClass new. > self register: widget id: aSpec name. > widget model: aSpec model. > widget getSelectedPathSelector: aSpec getSelectedPath. > widget setSelectedSelector: aSpec setSelected. > widget getSelectedSelector: aSpec getSelected. > widget setSelectedParentSelector: aSpec setSelectedParent. > widget getChildrenSelector: aSpec getChildren. > widget hasChildrenSelector: aSpec hasChildren. > widget getLabelSelector: aSpec label. > widget getIconSelector: aSpec icon. > widget getHelpSelector: aSpec help. > widget getMenuSelector: aSpec menu. > widget keystrokeActionSelector: aSpec keyPress. > widget nodeClass: aSpec nodeClass. > widget getRootsSelector: aSpec roots. > widget autoDeselect: aSpec autoDeselect. > widget dropItemSelector: aSpec dropItem. > widget wantsDropSelector: aSpec dropAccept. > widget dragItemSelector: aSpec dragItem. > widget columns: aSpec columns. > > + "Override default scroll bar policies if needed. Widget will use > preference values otherwise." > + aSpec hScrollBarPolicy ifNotNil: [:policy | > + policy caseOf: { > + [#always] -> [widget alwaysShowHScrollBar]. > + [#never] -> [widget hideHScrollBarIndefinitely]. > + [#whenNeeded] -> [widget > showHScrollBarOnlyWhenNeeded]. } ]. > + aSpec vScrollBarPolicy ifNotNil: [:policy | > + policy caseOf: { > + [#always] -> [widget alwaysShowVScrollBar]. > + [#never] -> [widget hideVScrollBarIndefinitely]. > + [#whenNeeded] -> [widget > showVScrollBarOnlyWhenNeeded]. } ]. > + > self setFrame: aSpec frame in: widget. > self setLayoutHintsFor: widget spec: aSpec. > > parent ifNotNil:[self add: widget to: parent]. > " panes ifNotNil:[ > aSpec roots ifNotNil:[panes add: aSpec roots]. > ]. " > ^widget! > > >

2 3

Smalltalk on a Windows Phone :)
by marcel.taeumel 05 Nov '15

05 Nov '15

...with mouse and keyboard support. :D <http://forum.world.st/file/n4859305/squeak-windows-phone.jpg> -- View this message in context: http://forum.world.st/Smalltalk-on-a-Windows-Phone-tp4859305.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

4 4

The Trunk: Morphic-mt.1029.mcz
by commits＠source.squeak.org 05 Nov '15

05 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1029.mcz ==================== Summary ==================== Name: Morphic-mt.1029 Author: mt Time: 5 November 2015, 10:36:01.14 am UUID: e3c2c951-9b94-4dd6-af36-316dd0426b1d Ancestors: Morphic-mt.1028 Extracts the essentials from HaloMorph into SimpleHaloMorph to make extension points more obvious. HaloMorph inherits from SimpleHaloMorph and extends this basic/simple halo mechanism. =============== Diff against Morphic-mt.1028 =============== Item was changed: + SimpleHaloMorph subclass: #HaloMorph + instanceVariableNames: 'innerTarget angleOffset minExtent growingOrRotating directionArrowAnchor haloBox simpleMode originalExtent' - Morph subclass: #HaloMorph - instanceVariableNames: 'target innerTarget positionOffset angleOffset minExtent growingOrRotating directionArrowAnchor haloBox simpleMode originalExtent' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Widgets'! !HaloMorph commentStamp: '<historical>' prior: 0! This morph provides a halo of handles for its target morph. Dragging, duplicating, rotating, and resizing to be done by mousing down on the appropriate handle. There are also handles for help and for a menu of infrequently used operations.! Item was changed: + ----- Method: HaloMorph>>blueButtonDown: (in category 'events') ----- - ----- Method: HaloMorph>>blueButtonDown: (in category 'meta-actions') ----- blueButtonDown: event + + self isMagicHalo + ifFalse: [super blueButtonDown: event] + ifTrue: [ + self isMagicHalo: false. + self magicAlpha: 1.0].! - "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! Item was changed: + ----- Method: HaloMorph>>containsPoint:event: (in category 'events') ----- - ----- Method: HaloMorph>>containsPoint:event: (in category 'events-processing') ----- containsPoint: aPoint event: anEvent "Blue buttons are handled by the halo" (anEvent isMouse and:[anEvent isMouseDown and:[anEvent blueButtonPressed]]) ifFalse:[^super containsPoint: aPoint event: anEvent]. ^bounds containsPoint: anEvent position! Item was changed: ----- Method: HaloMorph>>delete (in category 'submorphs-add/remove') ----- delete "Delete the halo. Tell the target that it no longer has the halo; accept any pending edits to the name; and then either actually delete myself or start to fade out" - target ifNotNil: - [target hasHalo: false]. self acceptNameEdit. self isMagicHalo: false. + Preferences haloTransitions + ifFalse: [super delete] + ifTrue: [ + self + stopStepping; + startStepping; + startSteppingSelector: #fadeOutFinally]. + ! - ifTrue: - [self stopStepping; startStepping. - self startSteppingSelector: #fadeOutFinally] - ifFalse: - [super delete]! Item was added: + ----- Method: HaloMorph>>doResizeTarget: (in category 'dragging or resizing') ----- + doResizeTarget: evt + + | oldExtent newExtent newPosition | + newExtent := originalExtent + (evt position - positionOffset * 2). + + (newExtent x > 1 and: [newExtent y > 1]) + ifTrue: [ + oldExtent := target extent. + target setExtentFromHalo: (newExtent min: owner extent). + newPosition := target position - (target extent - oldExtent // 2). + newPosition := (newPosition x min: owner extent x - newExtent x max: 0) @ (newPosition y min: owner extent y - newExtent y max: 0). + target setConstrainedPosition: newPosition hangOut: true]. + + self bounds: self target worldBoundsForHalo.! Item was removed: - ----- Method: HaloMorph>>dragTarget: (in category 'events') ----- - dragTarget: event - "Begin dragging the target" - | thePoint | - event controlKeyPressed ifTrue: [^self growTarget: event]. - growingOrRotating := false. - thePoint := target point: event position - positionOffset from: owner. - target setConstrainedPosition: thePoint hangOut: true. - event hand newMouseFocus: self.! Item was removed: - ----- Method: HaloMorph>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - "Draw this morph only if it has no target." - target isNil - ifTrue: [^ super drawOn: aCanvas]. - (Preferences showBoundsInHalo - and: [target isWorldMorph not]) - ifTrue: [| boundsColor | - boundsColor := MenuMorph menuSelectionColor - ifNil: [Color blue]. - aCanvas - frameAndFillRectangle: self bounds - fillColor: Color transparent - borderWidth: 2 - borderColor: - (boundsColor isTranslucent - ifTrue: [boundsColor] - ifFalse: [boundsColor alpha: 0.8])]! Item was removed: - ----- Method: HaloMorph>>growTarget: (in category 'events') ----- - growTarget: event - "Begin resizing the target" - growingOrRotating := true. - positionOffset := event position. - originalExtent := target extent. - self removeAllHandlesBut: nil. - event hand newMouseFocus: self. - event hand addMouseListener: self. "add handles back on mouse-up"! Item was changed: + ----- Method: HaloMorph>>handleListenEvent: (in category 'events') ----- - ----- Method: HaloMorph>>handleListenEvent: (in category 'events-processing') ----- handleListenEvent: anEvent "We listen for possible drop events here to add back those handles after a dup/grab operation" (anEvent isMouse and:[anEvent isMove not]) ifFalse:[^ self]. "not interested" anEvent hand removeMouseListener: self. "done listening" (self world ifNil: [target world]) ifNil: [^ self]. self addHandles "and get those handles back"! Item was removed: - ----- Method: HaloMorph>>handlerForBlueButtonDown: (in category 'meta-actions') ----- - handlerForBlueButtonDown: anEvent - "Blue button was clicked within the receiver" - ^self! Item was changed: + ----- Method: HaloMorph>>mouseMove: (in category 'events') ----- - ----- Method: HaloMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt + - "Drag our target around or resize it" growingOrRotating + ifTrue: [self doResizeTarget: evt] + ifFalse: [self doDragTarget: evt].! - ifTrue: [ - | oldExtent newExtent newPosition | - newExtent := originalExtent + (evt position - positionOffset * 2). - (newExtent x > 1 and: [newExtent y > 1]) - ifTrue: [ - oldExtent := target extent. - target setExtentFromHalo: (newExtent min: owner extent). - newPosition := target position - (target extent - oldExtent // 2). - newPosition := (newPosition x min: owner extent x - newExtent x max: 0) @ (newPosition y min: owner extent y - newExtent y max: 0). - target setConstrainedPosition: newPosition hangOut: true]] - ifFalse: [ - | thePoint | - thePoint := target point: (evt position - positionOffset) from: owner. - target setConstrainedPosition: thePoint hangOut: true. - ]! Item was added: + ----- Method: HaloMorph>>popUpFor:at:hand: (in category 'pop up') ----- + popUpFor: morph at: position hand: hand + + super popUpFor: morph at: position hand: hand. + + self startStepping. + (Preferences haloTransitions or: [self isMagicHalo]) + ifTrue: [ + self magicAlpha: 0.0. + self startSteppingSelector: #fadeInInitially].! Item was removed: - ----- Method: HaloMorph>>popUpFor:event: (in category 'events') ----- - popUpFor: aMorph event: evt - "This message is sent by morphs that explicitly request the halo on a button click. Note: anEvent is in aMorphs coordinate frame." - - | hand anEvent | - self flag: #workAround. "We should really have some event/hand here..." - anEvent := evt isNil - ifTrue: - [hand := aMorph world activeHand. - hand ifNil: [hand := aMorph world primaryHand]. - hand lastEvent transformedBy: (aMorph transformedFrom: nil)] - ifFalse: - [hand := evt hand. - evt]. - self target: aMorph. - hand halo: self. - hand world addMorphFront: self. - positionOffset := anEvent position - - (aMorph point: aMorph position in: owner). - self startStepping. - (Preferences haloTransitions or: [self isMagicHalo]) - ifTrue: - [self magicAlpha: 0.0. - self startSteppingSelector: #fadeInInitially]! Item was changed: + ----- Method: HaloMorph>>popUpMagicallyFor:hand: (in category 'pop up') ----- - ----- Method: HaloMorph>>popUpMagicallyFor:hand: (in category 'events') ----- popUpMagicallyFor: aMorph hand: aHand "Programatically pop up a halo for a given hand." + + super + popUpMagicallyFor: aMorph + hand: aHand. + + Preferences magicHalos + ifTrue: [self isMagicHalo: true]. + (Preferences haloTransitions not and: [self isMagicHalo]) + ifTrue: [self magicAlpha: 0.2]. + ! - Preferences magicHalos ifTrue:[ - self isMagicHalo: true. - self magicAlpha: 0.2]. - self target: aMorph. - aHand halo: self. - aHand world addMorphFront: self. - Preferences haloTransitions ifTrue:[ - self magicAlpha: 0.0. - self startSteppingSelector: #fadeInInitially. - ]. - positionOffset := aHand position - (aMorph point: aMorph position in: owner). - self startStepping.! Item was removed: - ----- Method: HaloMorph>>rejectsEvent: (in category 'events-processing') ----- - rejectsEvent: anEvent - "Return true to reject the given event. Rejecting an event means neither the receiver nor any of it's submorphs will be given any chance to handle it." - (super rejectsEvent: anEvent) ifTrue:[^true]. - anEvent isDropEvent ifTrue:[^true]. "never attempt to drop on halos" - ^false! Item was changed: + ----- Method: HaloMorph>>startDrag:with: (in category 'private') ----- - ----- Method: HaloMorph>>startDrag:with: (in category 'dropping/grabbing') ----- startDrag: evt with: dragHandle "Drag my target without removing it from its owner." | itsOwner | self obtainHaloForEvent: evt andRemoveAllHandlesBut: dragHandle. positionOffset := dragHandle center - (target point: target position in: owner). ((itsOwner := target topRendererOrSelf owner) notNil and: [itsOwner automaticViewing]) ifTrue: [target openViewerForArgument]! Item was added: + ----- Method: HaloMorph>>startDragTarget: (in category 'dragging or resizing') ----- + startDragTarget: event + + event controlKeyPressed + ifTrue: [self startResizeTarget: event] + ifFalse: [ + growingOrRotating := false. + super startDragTarget: event].! Item was added: + ----- Method: HaloMorph>>startResizeTarget: (in category 'dragging or resizing') ----- + startResizeTarget: event + "Begin resizing the target" + growingOrRotating := true. + positionOffset := event position. + originalExtent := target extent. + self removeAllHandlesBut: nil. + event hand newMouseFocus: self. + event hand addMouseListener: self. "add handles back on mouse-up"! Item was removed: - ----- Method: HaloMorph>>staysUpWhenMouseIsDownIn: (in category 'events') ----- - staysUpWhenMouseIsDownIn: aMorph - ^ ((aMorph == target) or: [aMorph hasOwner: self])! Item was changed: + ----- Method: HaloMorph>>stepTime (in category 'stepping') ----- - ----- Method: HaloMorph>>stepTime (in category 'testing') ----- stepTime ^ 0 "every cycle" ! Item was removed: - ----- Method: HaloMorph>>target (in category 'accessing') ----- - target - - ^ target - ! Item was removed: - ----- Method: HaloMorph>>transferHalo: (in category 'events') ----- - transferHalo: event - "Transfer the halo to the next likely recipient" - target ifNil:[^self delete]. - target transferHalo: (event transformedBy: (target transformedFrom: self)) from: target.! Item was changed: + ----- Method: HaloMorph>>wantsKeyboardFocusFor: (in category 'events') ----- - ----- Method: HaloMorph>>wantsKeyboardFocusFor: (in category 'event handling') ----- wantsKeyboardFocusFor: aSubmorph "to allow the name to be edited in the halo in the old tty way; when we morphic-text-ize the name editing, presumably this method should be removed" ^ true! Item was changed: ----- Method: Morph>>addHalo (in category 'halos and balloon help') ----- addHalo "Invoke a halo programatically (e.g., not from a meta gesture)" + + ^ self createHalo + popUpFor: self; + yourself! - ^self addHalo: nil! Item was changed: ----- Method: Morph>>addHalo: (in category 'halos and balloon help') ----- addHalo: evt + + ^ self createHalo + popUpFor: self event: evt; + yourself! - | halo prospectiveHaloClass | - prospectiveHaloClass := Smalltalk at: self haloClass ifAbsent: [HaloMorph]. - halo := prospectiveHaloClass new bounds: self worldBoundsForHalo. - halo popUpFor: self event: evt. - ^halo! Item was changed: ----- Method: Morph>>addMagicHaloFor: (in category 'halos and balloon help') ----- addMagicHaloFor: aHand + + aHand halo ifNotNil: [:halo | + halo target == self ifTrue:[^self]. + halo isMagicHalo ifFalse:[^self]]. + + self createHalo + popUpMagicallyFor: self hand: aHand! - | halo prospectiveHaloClass | - aHand halo ifNotNil:[ - aHand halo target == self ifTrue:[^self]. - aHand halo isMagicHalo ifFalse:[^self]]. - prospectiveHaloClass := Smalltalk at: self haloClass ifAbsent: [HaloMorph]. - halo := prospectiveHaloClass new bounds: self worldBoundsForHalo. - halo popUpMagicallyFor: self hand: aHand.! 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. #startDragTarget:. } - selectors: { nil. nil. nil. #dragTarget:. } threshold: HandMorph dragThreshold. "Pass focus explicitly here" anEvent hand newMouseFocus: h.! Item was added: + ----- Method: Morph>>createHalo (in category 'halos and balloon help') ----- + createHalo + + ^ (Smalltalk at: self haloClass ifAbsent: [HaloMorph]) new + bounds: self worldBoundsForHalo + yourself! Item was added: + Morph subclass: #SimpleHaloMorph + instanceVariableNames: 'target positionOffset' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Widgets'! + + !SimpleHaloMorph commentStamp: 'mt 11/5/2015 09:52' prior: 0! + This is a simple base class for halos in the system. It represents the minimal interface used to implement custom halo morphs.! Item was added: + ----- Method: SimpleHaloMorph>>addHandles (in category 'construction') ----- + addHandles + "This is an example for handles." + + self addMorphFront: (IconicButton new + color: Color red muchLighter; + borderColor: Color red; + labelGraphic: MenuIcons smallCancelIcon; + target: self target; + actionSelector: #delete; + bottomRight: self topLeft; + yourself).! Item was added: + ----- Method: SimpleHaloMorph>>blueButtonDown: (in category 'events') ----- + blueButtonDown: event + "Transfer the halo to the next likely recipient" + + self target ifNil: [^self delete]. + event hand obtainHalo: self. + + self positionOffset: (event position - (self target point: self target position in: self owner)). + + "wait for drags or transfer" + event hand + waitForClicksOrDrag: self + event: event + selectors: { #transferHalo:. nil. nil. #startDragTarget:. } + threshold: HandMorph dragThreshold.! Item was added: + ----- Method: SimpleHaloMorph>>delete (in category 'submorphs-add/remove') ----- + delete + + self target hasHalo: false. + super delete.! Item was added: + ----- Method: SimpleHaloMorph>>doDragTarget: (in category 'dragging') ----- + doDragTarget: event + + self target + setConstrainedPosition: (self target point: (event position - self positionOffset) from: self owner) + hangOut: true. + + self bounds: self target worldBoundsForHalo.! Item was added: + ----- Method: SimpleHaloMorph>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + "Draw this morph only if it has no target." + + (Preferences showBoundsInHalo and: [self target isWorldMorph not]) + ifTrue: [ + | boundsColor | + boundsColor := MenuMorph menuSelectionColor + ifNil: [Color blue]. + aCanvas + frameAndFillRectangle: self bounds + fillColor: Color transparent + borderWidth: 2 + borderColor: + (boundsColor isTranslucent + ifTrue: [boundsColor] + ifFalse: [boundsColor alpha: 0.8])]! Item was added: + ----- Method: SimpleHaloMorph>>handlerForBlueButtonDown: (in category 'events') ----- + handlerForBlueButtonDown: anEvent + "Blue button was clicked within the receiver" + ^self! Item was added: + ----- Method: SimpleHaloMorph>>innerTarget (in category 'accessing') ----- + innerTarget + "If the target is merely a decorator for another morph, the inner target can be distiguished. Scroll panes, for example, could have their scrolled content as an inner target." + + ^ self target! Item was added: + ----- Method: SimpleHaloMorph>>isMagicHalo (in category 'testing') ----- + isMagicHalo + + ^ false! Item was added: + ----- Method: SimpleHaloMorph>>mouseMove: (in category 'events') ----- + mouseMove: event + + self doDragTarget: event.! Item was added: + ----- Method: SimpleHaloMorph>>popUpFor: (in category 'pop up') ----- + popUpFor: morph + + self + popUpFor: morph + hand: (morph world activeHand ifNil: [morph world primaryHand]).! Item was added: + ----- Method: SimpleHaloMorph>>popUpFor:at:hand: (in category 'pop up') ----- + popUpFor: morph at: position hand: hand + + self target: morph. + + hand halo: self. + hand world addMorphFront: self. + + self positionOffset: position - (morph point: morph position in: self owner).! Item was added: + ----- Method: SimpleHaloMorph>>popUpFor:event: (in category 'pop up') ----- + popUpFor: morph event: event + + self + popUpFor: morph + at: event position + hand: event hand.! Item was added: + ----- Method: SimpleHaloMorph>>popUpFor:hand: (in category 'pop up') ----- + popUpFor: morph hand: hand + + self + popUpFor: morph + at: (hand lastEvent transformedBy: (morph transformedFrom: nil)) + hand: hand! Item was added: + ----- Method: SimpleHaloMorph>>popUpMagicallyFor:hand: (in category 'pop up') ----- + popUpMagicallyFor: morph hand: hand + + self + popUpFor: morph + hand: hand.! Item was added: + ----- Method: SimpleHaloMorph>>positionOffset (in category 'accessing') ----- + positionOffset + + ^ positionOffset! Item was added: + ----- Method: SimpleHaloMorph>>positionOffset: (in category 'accessing') ----- + positionOffset: aPoint + + positionOffset := aPoint.! Item was added: + ----- Method: SimpleHaloMorph>>rejectsEvent: (in category 'events') ----- + rejectsEvent: anEvent + "Return true to reject the given event. Rejecting an event means neither the receiver nor any of it's submorphs will be given any chance to handle it." + (super rejectsEvent: anEvent) ifTrue:[^true]. + anEvent isDropEvent ifTrue:[^true]. "never attempt to drop on halos" + ^false! Item was added: + ----- Method: SimpleHaloMorph>>startDragTarget: (in category 'dragging') ----- + startDragTarget: event + + self positionOffset: (event position - (self target point: self target position in: self owner)). + event hand newMouseFocus: self.! Item was added: + ----- Method: SimpleHaloMorph>>staysUpWhenMouseIsDownIn: (in category 'testing') ----- + staysUpWhenMouseIsDownIn: aMorph + ^ ((aMorph == self target) or: [aMorph hasOwner: self])! Item was added: + ----- Method: SimpleHaloMorph>>target (in category 'accessing') ----- + target + + ^ target ifNil: [target := Morph new]! Item was added: + ----- Method: SimpleHaloMorph>>target: (in category 'accessing') ----- + target: morph + + target := morph. + morph hasHalo: true. + self addHandles.! Item was added: + ----- Method: SimpleHaloMorph>>transferHalo: (in category 'pop up') ----- + transferHalo: event + "Transfer the halo to the next likely recipient" + + self target + transferHalo: (event transformedBy: (self target transformedFrom: self)) + from: self target.!

1 0

The Trunk: Morphic-mt.1028.mcz
by commits＠source.squeak.org 05 Nov '15

05 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1028.mcz ==================== Summary ==================== Name: Morphic-mt.1028 Author: mt Time: 5 November 2015, 9:48:45.933 am UUID: 21ae1b98-2008-46b6-8855-3c16783c2256 Ancestors: Morphic-mt.1027 Lets tree morphs look more like list morphs regarding selection color and hovering. =============== Diff against Morphic-mt.1027 =============== Item was changed: ----- Method: ListItemWrapper>>highlightingColor (in category 'accessing') ----- highlightingColor + ^ LazyListMorph listSelectionColor makeForegroundColor! - ^MenuMorph menuSelectionColor makeForegroundColor! Item was changed: ScrollPane subclass: #SimpleHierarchicalListMorph + instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect columns sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor' - instanceVariableNames: 'selectedMorph getListSelector keystrokeActionSelector autoDeselect columns sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Explorer'! SimpleHierarchicalListMorph class instanceVariableNames: 'expandedForm notExpandedForm'! !SimpleHierarchicalListMorph commentStamp: 'ls 3/1/2004 12:15' prior: 0! Display a hierarchical list of items. Each item should be wrapped with a ListItemWrapper. For a simple example, look at submorphsExample. For beefier examples, look at ObjectExplorer or FileList2.! SimpleHierarchicalListMorph class instanceVariableNames: 'expandedForm notExpandedForm'! Item was added: + ----- Method: SimpleHierarchicalListMorph>>drawHoverOn: (in category 'drawing') ----- + drawHoverOn: aCanvas + + self hoveredMorph ifNil: [^ self]. + PluggableListMorph highlightHoveredRow ifFalse: [^ self]. + + aCanvas + fillRectangle: (((scroller transformFrom: self) + invertBoundsRect: self hoveredMorph bounds) + intersect: scroller bounds) + color: (LazyListMorph listSelectionColor darker alpha: 0.3).! Item was changed: ----- Method: SimpleHierarchicalListMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas + super drawOn: aCanvas. + + self drawHoverOn: aCanvas. + self drawSelectionOn: aCanvas. + self drawLinesOn: aCanvas.! - selectedMorph - ifNotNil: [aCanvas - fillRectangle: (((scroller transformFrom: self) - invertBoundsRect: selectedMorph bounds) - intersect: scroller bounds) - color: MenuMorph menuSelectionColor]. - self drawLinesOn: aCanvas! Item was added: + ----- Method: SimpleHierarchicalListMorph>>drawSelectionOn: (in category 'drawing') ----- + drawSelectionOn: aCanvas + + self selectedMorph ifNil: [^ self]. + + aCanvas + fillRectangle: (((scroller transformFrom: self) + invertBoundsRect: selectedMorph bounds) + intersect: scroller bounds) + color: LazyListMorph listSelectionColor.! Item was changed: ----- Method: SimpleHierarchicalListMorph>>handleMouseMove: (in category 'events-processing') ----- handleMouseMove: anEvent "Reimplemented because we really want #mouseMove when a morph is dragged around" anEvent wasHandled ifTrue:[^self]. "not interested" + self hoveredMorph: (self itemFromPoint: anEvent position). (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: at: Time millisecondClockValue arguments: {anEvent copy resetHandlerFields} stepTime: 1]. ! Item was added: + ----- Method: SimpleHierarchicalListMorph>>hoveredMorph (in category 'accessing') ----- + hoveredMorph + + ^ hoveredMorph! Item was added: + ----- Method: SimpleHierarchicalListMorph>>hoveredMorph: (in category 'accessing') ----- + hoveredMorph: aMorph + + hoveredMorph == aMorph ifTrue: [^ self]. + + hoveredMorph ifNotNil: [:m | m changed]. + hoveredMorph := aMorph. + hoveredMorph ifNotNil: [:m | m changed]. !

1 0

The Trunk: Morphic-mt.1027.mcz
by commits＠source.squeak.org 05 Nov '15

05 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1027.mcz ==================== Summary ==================== Name: Morphic-mt.1027 Author: mt Time: 5 November 2015, 9:08:06.974 am UUID: aaa21de5-cebc-4dcf-bf58-8595ba22ee71 Ancestors: Morphic-mt.1026 In lists, update selection before starting drag operation in case the user decides not to drag a not selected item. =============== Diff against Morphic-mt.1026 =============== Item was changed: ----- Method: PluggableListMorph>>startDrag: (in category 'drag and drop') ----- startDrag: evt + | item itemMorph | - | item itemMorph | evt hand hasSubmorphs ifTrue: [^ self]. self model okToChange ifFalse: [^ self]. + "Ensure selection to save additional click." + (self modelIndexFor: (self rowAtLocation: evt position)) in: [:evtIndex | + self selectionIndex = evtIndex ifFalse: [self changeModelSelection: evtIndex]]. + item := self selection ifNil: [^ self]. itemMorph := StringMorph contents: item asStringOrText. [ "Initiate drag." (self model dragPassengerFor: itemMorph inMorph: self) ifNotNil: [:passenger | | ddm | ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self. ddm dragTransferType: (self model dragTransferTypeForMorph: self). ddm updateFromUserInputEvent: evt. self model dragStartedFor: itemMorph transferMorph: ddm. evt hand grabMorph: ddm] ] ensure: [ Cursor normal show. evt hand releaseMouseFocus: self].!

1 0

The Trunk: ToolBuilder-Morphic-mt.152.mcz
by commits＠source.squeak.org 05 Nov '15

05 Nov '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.152.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.152 Author: mt Time: 5 November 2015, 9:06:46.563 am UUID: 7149e466-016d-46b7-b3c7-426363a3a749 Ancestors: ToolBuilder-Morphic-mt.151 In lists, update selection before starting drag operation in case the user decides not to drag a not selected item. =============== Diff against ToolBuilder-Morphic-mt.151 =============== Item was changed: ----- Method: PluggableListMorphPlus>>startDrag: (in category 'drag and drop') ----- startDrag: evt | item itemMorph modelIndex | dragItemSelector ifNil:[^self]. evt hand hasSubmorphs ifTrue: [^ self]. self model okToChange ifFalse: [^ self]. + + "Ensure selection to save additional click." + (self modelIndexFor: (self rowAtLocation: evt position)) in: [:evtIndex | + self selectionIndex = evtIndex ifFalse: [self changeModelSelection: evtIndex]]. + - item := self selection ifNil: [^ self]. itemMorph := StringMorph contents: item asStringOrText. modelIndex := self modelIndexFor: self selectionIndex. [ "Initiate drag." (self model perform: dragItemSelector with: modelIndex) ifNotNil: [:passenger | | ddm | ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self. ddm dragTransferType: (self dragTypeSelector ifNotNil: [:s | self model perform: s with: modelIndex]). ddm updateFromUserInputEvent: evt. self dragStartedSelector ifNotNil: [:s | self model perform: s with: itemMorph with: ddm]. evt hand grabMorph: ddm]. ] ensure: [ Cursor normal show. evt hand releaseMouseFocus: self]!

1 0

Daily Commit Log
by commits＠source.squeak.org 04 Nov '15

04 Nov '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-November/009100.h… Name: ToolBuilder-Kernel-mt.92 Ancestors: ToolBuilder-Kernel-topa.91 Updates message categories in list spec and tree spec. Adds possibility to override scroll bar policies in trees like it works in lists or scroll panes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009101.h… Name: ToolBuilder-Morphic-mt.150 Ancestors: ToolBuilder-Morphic-mt.149 Adds support for overriding scrollbar policies in trees. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009102.h… Name: SMLoader-mt.86 Ancestors: SMLoader-cmm.85 Code clean-up. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009103.h… Name: ToolBuilder-Kernel-mt.93 Ancestors: ToolBuilder-Kernel-mt.92 Removes unused and obsolete #wantsDrop accessors and instVar. We have #dropAccept for that. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009104.h… Name: Kernel-mt.965 Ancestors: Kernel-ul.964 Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009105.h… Name: Morphic-mt.1026 Ancestors: Morphic-mt.1025 Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009106.h… Name: ToolBuilder-Kernel-mt.94 Ancestors: ToolBuilder-Kernel-mt.93 Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009107.h… Name: ToolBuilder-Morphic-mt.151 Ancestors: ToolBuilder-Morphic-mt.150 Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009108.h… Name: 51Deprecated-mt.9 Ancestors: 51Deprecated-topa.8 Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees. =============================================

1 0

← Newer
1
...
19
20
21
22
23
24
25
26
Older →

Jump to page: