Packages March 2020

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Morphic-nice.1616.mcz
by commits＠source.squeak.org 06 Mar '20

06 Mar '20

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.1616.mcz ==================== Summary ==================== Name: Morphic-nice.1616 Author: nice Time: 8 January 2020, 10:48:52.680239 am UUID: 88019e05-7d25-6744-97d0-4ebb873b6303 Ancestors: Morphic-mt.1615 Provide smoother scrolling in response to mouse wheel events Instead of delivering the events when wheelDelta reaches 120, make this threshold a Preference (minimumWheelDelta) Reminder: 120 represents a single notch for traditional mouse wheel with notches, but trackpads can deliver much smaller deltas Rather than accumulating the wheelDeltas into MouseWheelState, do it when we #generateMouseWheelEvent: Indeed, small deltas will come in packets of successive events, and it's more efficient to regroup then, exactly like we do with mouse trails... Also MouseWheelState did ignore time outs (long delays between deltas) and other state changes (buttons/modifiers), which was not ideal. Directly get those states from the raw eventBuffer, like any other mouse event. This requires integration of tose 2 PR: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/461 for Windows https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/462 for OSX and linux Honour larger wheelDeltas too in ScrollPane>>#mouseWheel: event handling Honour horizontal mouse wheels too in ScrollPane Note that the scroll pane still won't deliver sub-scrollDeltaWidth/scrollDeltaHeight with those changes, the number of scroll deltas is still rounded to 1. With patched VM, and following settings, I get a reasonnable scrolling experience on OSX: HandMorph minimumWheelDelta: 20. Smalltalk sendMouseWheelEvents: true. NOTE: it is tricky to add/remove inst. var. to such HandMorph because obsolete CompiledMethod pointing to old inst. var. offset are still active on the stack and can mess things up (unless you do not load the package from UI but rather from command line...). Since accessing 'lastMouseEvent' in such obsolete CompiledMethod is causing grief, preserve its offset by swapping inst. var. order with 'targetOffset' which is less likely used. =============== Diff against Morphic-mt.1615 =============== Item was changed: Morph subclass: #HandMorph + instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners eventCaptureFilters mouseCaptureFilters keyboardCaptureFilters mouseClickState mouseOverHandler targetOffset lastMouseEvent damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter' + classVariableNames: 'CompositionWindowManager DoubleClickTime DragThreshold EventStats MinimalWheelDelta NewEventRules NormalCursor PasteBuffer SendMouseWheelToKeyboardFocus ShowEvents SynthesizeMouseWheelEvents' - instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners eventCaptureFilters mouseCaptureFilters keyboardCaptureFilters mouseClickState mouseOverHandler mouseWheelState lastMouseEvent targetOffset damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter' - classVariableNames: 'CompositionWindowManager DoubleClickTime DragThreshold EventStats NewEventRules NormalCursor PasteBuffer SendMouseWheelToKeyboardFocus ShowEvents SynthesizeMouseWheelEvents' 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>>minimumWheelDelta (in category 'preferences') ----- + minimumWheelDelta + <preference: 'Minimal Mouse Wheel Detection Threshold' + categoryList: #(Morphic mouse) + description: 'Answer the minimal scrolling units taken into account + Defaults to 120 (See #scrollUnitsPerMouseWheelNotch), corresponding to a single mouse wheel notch. + Use a lower value (20 - See #minimalScrollUnitsPerEvent) if wanting smoother scrolling with trackpads.' + type: #Number> + ^MinimalWheelDelta ifNil: [MouseWheelEvent scrollUnitsPerMouseWheelNotch].! Item was added: + ----- Method: HandMorph class>>minimumWheelDelta: (in category 'preferences') ----- + minimumWheelDelta: anInteger + MinimalWheelDelta := anInteger ifNotNil: [anInteger + clampLow: MouseWheelEvent minimalScrollUnitsPerEvent + high: MouseWheelEvent scrollUnitsPerMouseWheelNotch]! Item was changed: ----- Method: HandMorph>>generateMouseWheelEvent: (in category 'private events') ----- generateMouseWheelEvent: evtBuf "Generate the appropriate mouse wheel event for the given raw event buffer" + | buttons modifiers deltaX deltaY stamp nextEvent | - | buttons modifiers deltaX deltaY stamp | stamp := evtBuf second. stamp = 0 ifTrue: [stamp := Time eventMillisecondClock]. deltaX := evtBuf third. deltaY := evtBuf fourth. + buttons := evtBuf fifth. + modifiers := evtBuf sixth. + [(deltaX abs + deltaY abs < self class minimumWheelDelta) + and: [(nextEvent := Sensor peekEvent) notNil + and: [nextEvent first = evtBuf first + and: [nextEvent fifth = evtBuf fifth + and: [nextEvent sixth = evtBuf sixth] + and: [nextEvent third isZero = evtBuf third isZero "both horizontal or vertical"]]]]] + whileTrue: + ["nextEvent is similar. Remove it from the queue, and check the next." + nextEvent := Sensor nextEvent. + deltaX := deltaX + nextEvent third. + deltaY := deltaY + nextEvent fourth]. - modifiers := evtBuf fifth. - buttons := (modifiers bitShift: 3) bitOr: (lastMouseEvent buttons bitAnd: 7). ^ MouseWheelEvent new setType: #mouseWheel position: self position delta: deltaX@deltaY - direction: 2r0000 buttons: buttons hand: self stamp: stamp! Item was changed: ----- Method: HandMorph>>generateMouseWheelEvent:direction: (in category 'private events') ----- generateMouseWheelEvent: keystrokeEvent direction: direction "Generate the appropriate mouse wheel event from the keystrokeEvent. Before calling this, ensure that the control key is pressed. This method can be discarded once the VM produces real mouse wheel events." ^ MouseWheelEvent new setType: #mouseWheel position: keystrokeEvent position + delta: 0 @ ((direction anyMask: 2r1000 "wheel up") ifTrue: [MouseWheelEvent scrollUnitsPerMouseWheelNotch] ifFalse: [MouseWheelEvent scrollUnitsPerMouseWheelNotch negated]) - delta: 0 @ ((direction anyMask: 2r1000 "wheel up") ifTrue: [120] ifFalse: [-120]) direction: direction buttons: (keystrokeEvent buttons bitAnd: 2r01111) "drop control key pressed for this conversion" hand: keystrokeEvent hand stamp: keystrokeEvent timeStamp! Item was changed: ----- Method: HandMorph>>handleEvent: (in category 'events-processing') ----- handleEvent: unfilteredEvent | filteredEvent | owner ifNil: [^ unfilteredEvent "not necessary but good style -- see Morph >> #handleEvent:"]. self logEvent: unfilteredEvent. "Mouse-over events occur really, really, really often. They are kind of the heart beat of the Morphic UI process." unfilteredEvent isMouseOver ifTrue: [^ self sendMouseEvent: unfilteredEvent]. self showEvent: unfilteredEvent. self sendListenEvents: unfilteredEvent. filteredEvent := self sendFilterEventCapture: unfilteredEvent for: nil. "filteredEvent := unfilteredEvent" " <-- use this to disable global capture filters" filteredEvent wasIgnored ifTrue: [ self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isWindowEvent ifTrue: [ self sendEvent: filteredEvent focus: nil. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isKeyboard ifTrue:[ self sendKeyboardEvent: filteredEvent. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isDropEvent ifTrue:[ self sendEvent: filteredEvent focus: nil. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isMouse ifFalse: [ self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. " ********** MOUSE EVENT *********** " lastMouseEvent := filteredEvent. "Check for pending drag or double click operations." mouseClickState ifNotNil:[ (mouseClickState handleEvent: filteredEvent from: self) ifFalse:[ "Possibly dispatched #click: or something and will not re-establish otherwise" self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]]. filteredEvent isMouseWheel ifTrue: [ + self class sendMouseWheelToKeyboardFocus + ifFalse: [self sendMouseEvent: filteredEvent] + ifTrue: [self sendEvent: filteredEvent focus: self keyboardFocus clear: [self keyboardFocus: nil]]. - mouseWheelState ifNil: [mouseWheelState := MouseWheelState new]. - mouseWheelState handleEvent: filteredEvent from: self. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isMove ifTrue:[ self position: filteredEvent position. self sendMouseEvent: filteredEvent. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. "Issue a synthetic move event if we're not at the position of the event" filteredEvent position = self position ifFalse: [self moveToEvent: filteredEvent]. "Drop submorphs on button events" self hasSubmorphs ifTrue:[self dropMorphs: filteredEvent] ifFalse:[self sendMouseEvent: filteredEvent]. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent "not necessary but good style -- see Morph >> #handleEvent:" ! Item was added: + ----- Method: MouseWheelEvent class>>convertScrollUnits:intoScrollDelta: (in category 'utility') ----- + convertScrollUnits: scrollUnits intoScrollDelta: scrollDeltaPerMouseWheelNotch + "Convert the scrolling units provided by the VM into scrolling delta (increment) used by Morph. + The morph knows how many scroll delta it wants per single wheel notch. + I know how many scrolling units is generated by a single wheel notch." + + ^scrollUnits abs * scrollDeltaPerMouseWheelNotch // self scrollUnitsPerMouseWheelNotch max: 1! Item was added: + ----- Method: MouseWheelEvent class>>minimalScrollUnitsPerEvent (in category 'constants') ----- + minimalScrollUnitsPerEvent + "Answer how many scroll units a single mouse wheel event can generate. + This reflects a value hardcoded in the VM. + The VM aggregate wheel events until this threshold is reached." + + ^20! Item was added: + ----- Method: MouseWheelEvent class>>scrollUnitsPerMouseWheelNotch (in category 'constants') ----- + scrollUnitsPerMouseWheelNotch + "Answer how many scroll units a single mouse wheel notch does generate. + This reflects a value hardcoded in the VM. + The value is chosen high enough so as to enable: + - smoother scrolling on notch-less devices. + - while preserving Integer arithmetic + Interpretation (scaling) of scrolling units is left to the client morphs. + Typically, 120 units (1 notch) represents 3 lines of text." + + ^120! Item was added: + ----- Method: MouseWheelEvent>>horizontalScrollDelta: (in category 'accessing') ----- + horizontalScrollDelta: scrollDeltaPerMouseWheelNotch + "Convert scrolling units into unsigned scrolling increment. + The morph knows how many scroll delta it wants per single wheel notch. + Note that returned increment value is always positive, regardless of direction." + ^self class convertScrollUnits: delta x intoScrollDelta: scrollDeltaPerMouseWheelNotch! Item was added: + ----- Method: MouseWheelEvent>>setDirection (in category 'initialization') ----- + setDirection + delta x > 0 ifTrue: [self setWheelRight]. + delta x < 0 ifTrue: [self setWheelLeft]. + + delta y > 0 ifTrue: [self setWheelUp]. + delta y < 0 ifTrue: [self setWheelDown].! Item was added: + ----- Method: MouseWheelEvent>>setType:position:delta:buttons:hand:stamp: (in category 'private') ----- + setType: evtType position: evtPos delta: evtDelta buttons: evtButtons hand: evtHand stamp: stamp + type := evtType. + position := evtPos. + buttons := evtButtons. + source := evtHand. + wasHandled := false. + direction := 2r0000. + delta := evtDelta. + timeStamp := stamp. + self setDirection! Item was added: + ----- Method: MouseWheelEvent>>verticalScrollDelta: (in category 'accessing') ----- + verticalScrollDelta: scrollDeltaPerMouseWheelNotch + "Convert scrolling units into unsigned scrolling increment. + The morph knows how many scroll delta it wants per single wheel notch. + Note that returned increment value is always positive, regardless of direction." + ^self class convertScrollUnits: delta y intoScrollDelta: scrollDeltaPerMouseWheelNotch! Item was removed: - Object subclass: #MouseWheelState - instanceVariableNames: 'currentDelta' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Events'! Item was removed: - ----- Method: MouseWheelState>>handleEvent:from: (in category 'event processing') ----- - handleEvent: aMouseWheelEvent from: aHand - "Every 120 units, raise the wheel flags for convenient mouse wheel programming. We choose not to send multiple mouse-wheel events for multiples of 120 because applications can always react to the actual delta values if they want to do more scrolling or zooming." - - | sign | - currentDelta := currentDelta + aMouseWheelEvent wheelDelta. - - sign := currentDelta sign. - currentDelta := currentDelta abs. - - (currentDelta x // 120) > 0 ifTrue: [ - sign x = 1 - ifTrue: [aMouseWheelEvent setWheelRight] - ifFalse: [aMouseWheelEvent setWheelLeft]]. - - (currentDelta y // 120) > 0 ifTrue: [ - sign y = 1 - ifTrue: [aMouseWheelEvent setWheelUp] - ifFalse: [aMouseWheelEvent setWheelDown]]. - - currentDelta := currentDelta \\ 120. - currentDelta := currentDelta * sign. - - "Finally, send the event." - HandMorph sendMouseWheelToKeyboardFocus - ifFalse: [aHand sendMouseEvent: aMouseWheelEvent] - ifTrue: [aHand sendEvent: aMouseWheelEvent focus: aHand keyboardFocus clear: [aHand keyboardFocus: nil]]. - ! Item was removed: - ----- Method: MouseWheelState>>initialize (in category 'initialize-release') ----- - initialize - - super initialize. - currentDelta := 0@0.! Item was changed: MorphicModel subclass: #ScrollPane instanceVariableNames: 'scrollBar scroller retractableScrollBar scrollBarOnLeft getMenuSelector getMenuTitleSelector hasFocus hScrollBar hScrollBarPolicy vScrollBarPolicy scrollBarThickness' + classVariableNames: 'HorizontalScrollDeltaPerMouseWheelNotch UseRetractableScrollBars VerticalScrollDeltaPerMouseWheelNotch' - classVariableNames: 'UseRetractableScrollBars' poolDictionaries: '' category: 'Morphic-Windows'! !ScrollPane commentStamp: 'mk 8/9/2005 10:34' prior: 0! The scroller (a transform) of a scrollPane is driven by the scrollBar. The scroll values vary from 0.0, meaning zero offset to 1.0 meaning sufficient offset such that the bottom of the scrollable material appears 3/4 of the way down the pane. The total distance to achieve this range is called the totalScrollRange. Basic clue about utilization of the ScrollPane class is given in: ScrollPane example1. ScrollPane example2.! Item was added: + ----- Method: ScrollPane class>>horizontalScrollDeltaPerMouseWheelNotch (in category 'preferences') ----- + horizontalScrollDeltaPerMouseWheelNotch + + <preference: 'horizontal scroll increment per single mouse wheel' + category: #scrolling + description: 'How many horizontal scroll increments should be caused in response to a single mouse wheel notch. + Typically, the scroll panes increment are about 1 character width for list and text panes (see #scrollDeltaWidth). + The default setting is 3 so as to match the most widely used convention.' + type: #Number> + ^ HorizontalScrollDeltaPerMouseWheelNotch ifNil: [3]! Item was added: + ----- Method: ScrollPane class>>horizontalScrollDeltaPerMouseWheelNotch: (in category 'preferences') ----- + horizontalScrollDeltaPerMouseWheelNotch: anIntegerOrNil + + HorizontalScrollDeltaPerMouseWheelNotch := anIntegerOrNil! Item was added: + ----- Method: ScrollPane class>>verticalScrollDeltaPerMouseWheelNotch (in category 'preferences') ----- + verticalScrollDeltaPerMouseWheelNotch + + <preference: 'vertical scroll increment per single mouse wheel' + category: #scrolling + description: 'How many vertical scroll increments should be caused in response to a single mouse wheel notch. + Typically, the scroll panes increment are one line height for list and text panes (see #scrollDeltaHeight). + The default setting is 3 so as to match the most widely used convention.' + type: #Number> + ^ VerticalScrollDeltaPerMouseWheelNotch ifNil: [3]! Item was added: + ----- Method: ScrollPane class>>verticalScrollDeltaPerMouseWheelNotch: (in category 'preferences') ----- + verticalScrollDeltaPerMouseWheelNotch: anIntegerOrNil + + VerticalScrollDeltaPerMouseWheelNotch := anIntegerOrNil! Item was changed: ----- Method: ScrollPane>>mouseWheel: (in category 'event handling') ----- mouseWheel: evt + evt isWheelUp ifTrue: [scrollBar scrollUp: (evt verticalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. + evt isWheelDown ifTrue: [scrollBar scrollDown: (evt verticalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. + evt isWheelLeft ifTrue: [hScrollBar scrollUp: (evt horizontalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)]. + evt isWheelRight ifTrue: [hScrollBar scrollDown: (evt horizontalScrollDelta: self class verticalScrollDeltaPerMouseWheelNotch)].! - evt isWheelUp ifTrue: [scrollBar scrollUp: 3]. - evt isWheelDown ifTrue: [scrollBar scrollDown: 3].!

1 0

The Trunk: Morphic-cmm.1489.mcz
by commits＠source.squeak.org 06 Mar '20

06 Mar '20

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1489.mcz ==================== Summary ==================== Name: Morphic-cmm.1489 Author: cmm Time: 14 May 2019, 5:52:52.33191 pm UUID: 7ac016ff-055b-4834-b3b3-35a7864215d0 Ancestors: Morphic-pre.1488 Fix TextEditor>>#hasMultipleLinesSelected to consider actual lines, instead of wrapped lines. =============== Diff against Morphic-pre.1488 =============== Item was changed: ----- Method: TextEditor>>hasMultipleLinesSelected (in category 'typing support') ----- hasMultipleLinesSelected + ^ self selection includes: Character cr! - - ^ self hasSelection and: [self startBlock top < self stopBlock top]!

1 0

The Trunk: Protocols-nice.72.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-nice.72.mcz ==================== Summary ==================== Name: Protocols-nice.72 Author: nice Time: 5 March 2020, 9:29:20.612782 pm UUID: 3cbd652f-bf8a-4957-b67d-01e4b1155318 Ancestors: Protocols-mt.69, Protocols-nice.49, Protocols-jr.71 Merge a few inbox contributions Protocols-nice.49, Protocols-jr.71 Protocols-nice.49: No use to send '-- all --' asSymbol, since it is already interned. You can test this with Symbol findInterned: '-- all --' . '-- all --' asSymbol chasePointers. Protocols-jr.69: Display test result icons for tests inherited from abstract test superclasses. Try it by browsing protocol (p) of any subclass of ClassTestCase or MCRepositoryTest. Protocols-jr.70: Evaluate do-its in Lexicon from the point of view of the browsed class, not the class of the currently selected method. This allows you to use pools or class variables from subclasses while writing code that you will later accept into the browsed class (instead of replacing the method in the selectedClass). Protocols-jr.71: Fix the 'follow' button for inherited methods. =============== Diff against Protocols-mt.69 =============== Item was changed: ----- Method: Lexicon>>doItReceiver (in category 'model glue') ----- doItReceiver "This class's classPool has been jimmied to be the classPool of the class being browsed. A doIt in the code pane will let the user see the value of the class variables. Here, if the receiver is affiliated with a specific instance, we give give that primacy" + ^ self targetObject ifNil: [self targetClass]! - ^ self targetObject ifNil: [self selectedClass]! Item was changed: ----- Method: Lexicon>>messageIconAt: (in category 'message list') ----- messageIconAt: anIndex Browser showMessageIcons ifFalse: [^ nil]. self class parse: (self messageList at: anIndex) toClassAndSelector: [:class :selector | ^ ToolIcons iconNamed: (ToolIcons + iconForClass: targetClass - iconForClass: class selector: selector)]. ^ nil! Item was changed: ----- Method: Lexicon>>selectImplementedMessageAndEvaluate: (in category 'selection') ----- selectImplementedMessageAndEvaluate: aBlock "Allow the user to choose one selector, chosen from the currently selected message's selector, as well as those of all messages sent by it, and evaluate aBlock on behalf of chosen selector. If there is only one possible choice, simply make it; if there are multiple choices, put up a menu, and evaluate aBlock on behalf of the the chosen selector, doing nothing if the user declines to choose any. In this variant, only selectors " | selector method messages | (selector := self selectedMessageName) ifNil: [^ self]. method := (self selectedClassOrMetaClass ifNil: [^ self]) + lookupSelector: selector. - compiledMethodAt: selector - ifAbsent: []. (method isNil or: [(messages := method messages) size = 0]) ifTrue: [^ aBlock value: selector]. (messages size = 1 and: [messages includes: selector]) ifTrue: [^ aBlock value: selector]. "If only one item, there is no choice" messages := messages select: [:aSelector | currentVocabulary includesSelector: aSelector forInstance: self targetObject ofClass: targetClass limitClass: limitClass]. self systemNavigation showMenuOf: messages withFirstItem: selector ifChosenDo: aBlock! Item was changed: ----- Method: Vocabulary>>allCategoryName (in category 'queries') ----- allCategoryName "Answer the name by which the 'all' category is known. This is redundant with two other things, including ClassOrganizer allCategory, at the moment -- should be cleaned up someday." + ^ #'-- all --'! - ^ '-- all --' asSymbol!

1 0

The Trunk: Protocols-jr.71.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-jr.71.mcz ==================== Summary ==================== Name: Protocols-jr.71 Author: jr Time: 8 February 2020, 4:11:06.177789 pm UUID: 705d6a77-0b95-1147-9bd9-68f9cab27c59 Ancestors: Protocols-jr.70 Fix the 'follow' button for inherited methods. =============== Diff against Protocols-jr.70 =============== Item was changed: ----- Method: Lexicon>>selectImplementedMessageAndEvaluate: (in category 'selection') ----- selectImplementedMessageAndEvaluate: aBlock "Allow the user to choose one selector, chosen from the currently selected message's selector, as well as those of all messages sent by it, and evaluate aBlock on behalf of chosen selector. If there is only one possible choice, simply make it; if there are multiple choices, put up a menu, and evaluate aBlock on behalf of the the chosen selector, doing nothing if the user declines to choose any. In this variant, only selectors " | selector method messages | (selector := self selectedMessageName) ifNil: [^ self]. method := (self selectedClassOrMetaClass ifNil: [^ self]) + lookupSelector: selector. - compiledMethodAt: selector - ifAbsent: []. (method isNil or: [(messages := method messages) size = 0]) ifTrue: [^ aBlock value: selector]. (messages size = 1 and: [messages includes: selector]) ifTrue: [^ aBlock value: selector]. "If only one item, there is no choice" messages := messages select: [:aSelector | currentVocabulary includesSelector: aSelector forInstance: self targetObject ofClass: targetClass limitClass: limitClass]. self systemNavigation showMenuOf: messages withFirstItem: selector ifChosenDo: aBlock!

1 0

The Trunk: Protocols-jr.70.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-jr.70.mcz ==================== Summary ==================== Name: Protocols-jr.70 Author: jr Time: 8 February 2020, 4:08:08.736789 pm UUID: 928804bd-3a8c-1b44-909f-70f1da3e7814 Ancestors: Protocols-jr.69 Evaluate do-its in Lexicon from the point of view of the browsed class, not the class of the currently selected method. This allows you to use pools or class variables from subclasses while writing code that you will later accept into the browsed class (instead of replacing the method in the selectedClass). =============== Diff against Protocols-jr.69 =============== Item was changed: ----- Method: Lexicon>>doItReceiver (in category 'model glue') ----- doItReceiver "This class's classPool has been jimmied to be the classPool of the class being browsed. A doIt in the code pane will let the user see the value of the class variables. Here, if the receiver is affiliated with a specific instance, we give give that primacy" + ^ self targetObject ifNil: [self targetClass]! - ^ self targetObject ifNil: [self selectedClass]!

1 0

The Trunk: Protocols-jr.69.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-jr.69.mcz ==================== Summary ==================== Name: Protocols-jr.69 Author: jr Time: 8 February 2020, 4:03:45.579789 pm UUID: 390c7867-e2be-bb4a-b78a-502305ab6c7d Ancestors: Protocols-eem.68 Display test result icons for tests inherited from abstract test superclasses. Try it by browsing protocol (p) of any subclass of ClassTestCase or MCRepositoryTest. =============== Diff against Protocols-eem.68 =============== Item was changed: ----- Method: Lexicon>>messageIconAt: (in category 'message list') ----- messageIconAt: anIndex Browser showMessageIcons ifFalse: [^ nil]. self class parse: (self messageList at: anIndex) toClassAndSelector: [:class :selector | ^ ToolIcons iconNamed: (ToolIcons + iconForClass: targetClass - iconForClass: class selector: selector)]. ^ nil!

1 0

The Trunk: Protocols-nice.49.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-nice.49.mcz ==================== Summary ==================== Name: Protocols-nice.49 Author: nice Time: 11 December 2017, 9:47:58.015 pm UUID: 4d293bcf-9f74-4e4b-93e6-6c5c8d56dea9 Ancestors: Protocols-topa.48 No use to send '-- all --' asSymbol, since it is already interned. You can test this with Symbol findInterned: '-- all --' . '-- all --' asSymbol chasePointers. =============== Diff against Protocols-topa.48 =============== Item was changed: ----- Method: Vocabulary>>allCategoryName (in category 'queries') ----- allCategoryName "Answer the name by which the 'all' category is known. This is redundant with two other things, including ClassOrganizer allCategory, at the moment -- should be cleaned up someday." + ^ #'-- all --'! - ^ '-- all --' asSymbol!

1 0

The Trunk: Monticello-nice.716.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-nice.716.mcz ==================== Summary ==================== Name: Monticello-nice.716 Author: nice Time: 5 March 2020, 9:15:03.962018 pm UUID: a1f8545a-b4f8-4bae-b349-e8bbba23816e Ancestors: Monticello-mt.709, Monticello-eem.709, Monticello-ct.710, Monticello-ct.715, Monticello-ct.712 Merge a few inbox contributions Monticello-eem.709, Monticello-ct.710, Monticello-ct.715, Monticello-ct.712 Monticello-eem.709: Provide 'filter out unchanged methods...' to ignore any timestamp-only changes. Monticello-ct.710: Improve support for traits by moving some class extensions up to ClassDefinition. This is possible because PackageInfo >> #includesClass: also works with metaclasses or traits. Just by the way, this fixes some bugs introduced by SqueakIssueIntegration's UI extensions (see https://github.com/hpi-swa-teaching/SqueakIssueIntegration/blob/master/pack…). Monticello-ct.715: Fixes wrong load and unload order of MCScriptDefinitions See http://forum.world.st/Monticello-Bug-Preamble-of-removal-is-executed-too-la…. Regression tests are in Tests-ct.426. Please review! Monticello-ct.712: Reuse ToolBuilder utility in MCTool >> #showModally =============== Diff against Monticello-mt.709 =============== Item was removed: - ----- Method: Class>>packageInfo (in category '*monticello') ----- - packageInfo - ^ (PackageInfo allPackages select: [ : each | each includesClass: self ]) - ifEmpty: [ nil ] - ifNotEmpty: - [ : myPackages | "Select the most-qualified match." - myPackages detectMax: [ : each | each packageName size ] ]! Item was removed: - ----- Method: Class>>workingCopy (in category '*monticello') ----- - workingCopy - "Answer the MCWorkingCopy in which I am defined." - ^ self packageInfo ifNotNil: [ : pi | pi workingCopy ]! Item was added: + ----- Method: ClassDescription>>packageInfo (in category '*monticello') ----- + packageInfo + ^ (PackageInfo allPackages select: [ : each | each includesClass: self ]) + ifEmpty: [ nil ] + ifNotEmpty: + [ : myPackages | "Select the most-qualified match." + myPackages detectMax: [ : each | each packageName size ] ]! Item was added: + ----- Method: ClassDescription>>workingCopy (in category '*monticello') ----- + workingCopy + "Answer the MCWorkingCopy in which I am defined." + ^ self packageInfo ifNotNil: [ : pi | pi workingCopy ]! Item was added: + ----- Method: MCDefinition>>wantsToBeOutermost (in category 'testing') ----- + wantsToBeOutermost + + ^ false! Item was changed: Object subclass: #MCDependencySorter + instanceVariableNames: 'required provided deferred orderedItems' - instanceVariableNames: 'required provided orderedItems' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Loading'! Item was changed: ----- Method: MCDependencySorter>>add: (in category 'building') ----- add: anItem | requirements | + (anItem wantsToBeOutermost) + ifTrue: [^self addDeferred: anItem]. requirements := self unresolvedRequirementsFor: anItem. requirements isEmpty ifTrue: [self addToOrder: anItem] ifFalse: [self addRequirements: requirements for: anItem]. ^anItem! Item was added: + ----- Method: MCDependencySorter>>addDeferred (in category 'building') ----- + addDeferred + deferred do: [:ea | + self addToOrder: ea].! Item was added: + ----- Method: MCDependencySorter>>addDeferred: (in category 'private') ----- + addDeferred: anItem + ^ deferred add: anItem! Item was changed: ----- Method: MCDependencySorter>>initialize (in category 'initialize-release') ----- initialize provided := Set new. required := Dictionary new. + orderedItems := OrderedCollection new. + deferred := OrderedCollection new.! - orderedItems := OrderedCollection new.! Item was changed: ----- Method: MCHttpRepository class>>useSharedWebClientInstance (in category 'preferences') ----- useSharedWebClientInstance <preference: 'Use shared WebClient instance' category: 'Monticello' description: 'When true, use a shared WebClient instance to speed up downloads from MCHttpRepositories. Requires WebClient to be present.' type: #Boolean> ^UseSharedWebClientInstance ifNil: [ + "There is some issue on Windows and Macos, so don't use it there by default. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-September/threa… for details." + Smalltalk os platformName ~= 'Win32' and: [Smalltalk os platformName ~= 'Mac OS']]! - "The is some issue on Windows, so don't use it there by default. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-September/threa… for details." - Smalltalk os platformName ~= 'Win32' ]! Item was added: + ----- Method: MCOperationsBrowser>>filterOutUnchangedMethods (in category 'actions') ----- + filterOutUnchangedMethods + "Remove from the list methods that only have changed timestamps" + | unchangedMethods | + unchangedMethods := self unchangedMethods. + (self confirm: ('Ignore {1} methods that only differ in timestamp?' translated + format: {unchangedMethods size})) + ifTrue: + [items := items reject: [:op| op isUnchangedMethod]. + self changed: #list] + ! Item was changed: ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu selection ifNotNil: [aMenu addList: #( ('install' installSelection) ('revert (x)' revertSelection) ('browse origin' browseSelectionOrigin) -)]. self unchangedMethods ifNotEmpty: [aMenu addList: #( ('revert unchanged methods...' revertUnchangedMethods) + ('filter out unchanged methods...' filterOutUnchangedMethods) -)]. super methodListMenu: aMenu. ^ aMenu! Item was changed: ----- Method: MCOperationsBrowser>>revertUnchangedMethods (in category 'actions') ----- revertUnchangedMethods "revert methods that only have changed timestamps" | loader unchangedMethods | + unchangedMethods := self unchangedMethods. + (self confirm: ('Revert {1} methods that only differ in timestamp?' translated + format: {unchangedMethods size})) + ifTrue: + [loader := MCPackageLoader new. - unchangedMethods := items select: [:op | op isUnchangedMethod]. - (self confirm: ('Revert {1} methods that only differ in timestamp?' translated format: {unchangedMethods size})) - ifTrue: [ - loader := MCPackageLoader new. unchangedMethods do: [:op | op inverse applyTo: loader]. loader loadWithName: self changeSetNameForInstall]. ! Item was changed: ----- Method: MCPackageLoader>>sorterForItems: (in category 'private') ----- sorterForItems: aCollection | sorter | sorter := MCDependencySorter items: aCollection. sorter addExternalProvisions: self provisions. + sorter addDeferred. ^ sorter! Item was added: + ----- Method: MCPostscriptDefinition>>wantsToBeOutermost (in category 'nil') ----- + wantsToBeOutermost + + ^ true! Item was added: + ----- Method: MCRemovalPreambleDefinition>>wantsToBeOutermost (in category 'testing') ----- + wantsToBeOutermost + + ^ true! Item was changed: ----- Method: MCTool>>showModally (in category 'morphic ui') ----- showModally modalProcess := Processor activeProcess. self window openInWorldExtent: self defaultExtent. + ToolBuilder default runModal: self window. - [self window world notNil] whileTrue: [ - self window outermostWorldMorph doOneCycle. - ]. morph := nil. ^ modalValue!

1 0

The Trunk: Monticello-ct.712.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.712.mcz ==================== Summary ==================== Name: Monticello-ct.712 Author: ct Time: 14 January 2020, 1:58:10.168813 pm UUID: c048116c-f5ca-8c4d-adab-34d19467565a Ancestors: Monticello-cmm.708 Reuse ToolBuilder utility in MCTool >> #showModally =============== Diff against Monticello-cmm.708 =============== Item was changed: ----- Method: MCTool>>showModally (in category 'morphic ui') ----- showModally modalProcess := Processor activeProcess. self window openInWorldExtent: self defaultExtent. + ToolBuilder default runModal: self window. - [self window world notNil] whileTrue: [ - self window outermostWorldMorph doOneCycle. - ]. morph := nil. ^ modalValue!

1 0

The Trunk: Monticello-ct.715.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.715.mcz ==================== Summary ==================== Name: Monticello-ct.715 Author: ct Time: 6 February 2020, 6:58:26.533648 pm UUID: 199bf8a3-5eee-1045-a44b-89ad30fa5523 Ancestors: Monticello-cmm.708 Fixes wrong load and unload order of MCScriptDefinitions See http://forum.world.st/Monticello-Bug-Preamble-of-removal-is-executed-too-la…. Regression tests are in Tests-ct.426. Please review! =============== Diff against Monticello-cmm.708 =============== Item was added: + ----- Method: MCDefinition>>wantsToBeOutermost (in category 'testing') ----- + wantsToBeOutermost + + ^ false! Item was changed: Object subclass: #MCDependencySorter + instanceVariableNames: 'required provided deferred orderedItems' - instanceVariableNames: 'required provided orderedItems' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Loading'! Item was changed: ----- Method: MCDependencySorter>>add: (in category 'building') ----- add: anItem | requirements | + (anItem wantsToBeOutermost) + ifTrue: [^self addDeferred: anItem]. requirements := self unresolvedRequirementsFor: anItem. requirements isEmpty ifTrue: [self addToOrder: anItem] ifFalse: [self addRequirements: requirements for: anItem]. ^anItem! Item was added: + ----- Method: MCDependencySorter>>addDeferred (in category 'building') ----- + addDeferred + deferred do: [:ea | + self addToOrder: ea].! Item was added: + ----- Method: MCDependencySorter>>addDeferred: (in category 'private') ----- + addDeferred: anItem + ^ deferred add: anItem! Item was changed: ----- Method: MCDependencySorter>>initialize (in category 'initialize-release') ----- initialize provided := Set new. required := Dictionary new. + orderedItems := OrderedCollection new. + deferred := OrderedCollection new.! - orderedItems := OrderedCollection new.! Item was changed: ----- Method: MCPackageLoader>>sorterForItems: (in category 'private') ----- sorterForItems: aCollection | sorter | sorter := MCDependencySorter items: aCollection. sorter addExternalProvisions: self provisions. + sorter addDeferred. ^ sorter! Item was added: + ----- Method: MCPostscriptDefinition>>wantsToBeOutermost (in category 'nil') ----- + wantsToBeOutermost + + ^ true! Item was added: + ----- Method: MCRemovalPreambleDefinition>>wantsToBeOutermost (in category 'testing') ----- + wantsToBeOutermost + + ^ true!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
14
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 March 2020