Packages

packages@lists.squeakfoundation.org

90595 discussions

The Trunk: KernelTests-dtl.459.mcz
by commits＠source.squeak.org 27 May '24

27 May '24

David T. Lewis uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-dtl.459.mcz ==================== Summary ==================== Name: KernelTests-dtl.459 Author: dtl Time: 27 May 2024, 1:28:30.418249 pm UUID: bd39907b-a1d3-4789-b5e9-8358e43159c0 Ancestors: KernelTests-dtl.458 Refine test to avoid wasting time in a pointless loop =============== Diff against KernelTests-dtl.458 =============== Item was changed: ----- Method: FloatTest>>testSinCosConsistency (in category 'tests - mathematical functions') ----- testSinCosConsistency "Float rounding imprecision is expected but sin and cos should answer consistent values for any angle." "Angles within a reasonable range in which float precision is a lesser concern" + -100 to: 100 do: [:angle | | hypotenuse diff | - -1234567 to: 123456789 by: 113 do: [:angle | | hypotenuse diff | hypotenuse := ((angle sin**2) + (angle cos**2)) sqrt. diff := (1 - hypotenuse) abs. self assert: diff < 0.00001]. + -1234567 to: 123439236 by: 120691 do: [:angle | | hypotenuse diff | + hypotenuse := ((angle sin**2) + (angle cos**2)) sqrt. + diff := (1 - hypotenuse) abs. + self assert: diff < 0.00001]. + "Large magnitude angles for which results are not meaningful, but that should still be consistent" (1 to: 1000) inject: 2**122 into: [ :angle :i | | hypotenuse diff | hypotenuse := ((angle sin**2) + (angle cos**2)) sqrt. diff := (1 - hypotenuse) abs. self assert: diff < 0.00001. angle asFloat successor asInteger]. "Large negative angle magnitudes" (1 to: 1000) inject: (2**122) negated into: [ :angle :i | | hypotenuse diff | hypotenuse := ((angle sin**2) + (angle cos**2)) sqrt. diff := (1 - hypotenuse) abs. self assert: diff < 0.00001. angle asFloat predecessor asInteger]. !

1 0

The Trunk: ToolBuilder-Morphic-mt.351.mcz
by commits＠source.squeak.org 27 May '24

27 May '24

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.351.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.351 Author: mt Time: 27 May 2024, 9:35:50.131589 am UUID: 0b75d4ca-c9a4-c14c-8f41-95b7efed6507 Ancestors: ToolBuilder-Morphic-ct.350 Improves commentary for #debugAction. =============== Diff against ToolBuilder-Morphic-ct.350 =============== Item was changed: ----- Method: PluggableButtonMorphPlus>>debugAction (in category 'debug menu') ----- debugAction + "Evaluate the receiver's action until we see a client-specific context on the stack, ignoring intermediate glue code. Note that we first compare against #closure (or #receiver) because it is much faster than a context's #selector. This optimization is useful since such simulated execution (here: #forBlock:runUntil:) is already very slow." action ifNil: [^ super debugAction]. (Process forBlock: [self performAction] runUntil: [:context | context closure == action or: [action isMessageSend and: [context selector == action selector]]]) debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).!

1 0

The Trunk: Morphic-mt.2161.mcz
by commits＠source.squeak.org 27 May '24

27 May '24

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2161.mcz ==================== Summary ==================== Name: Morphic-mt.2161 Author: mt Time: 27 May 2024, 9:35:09.346589 am UUID: 2c52246c-f060-414a-968b-b590d4f0f404 Ancestors: Morphic-ct.2160 Improves commentary for #debugAction. =============== Diff against Morphic-ct.2160 =============== Item was changed: ----- Method: MenuItemMorph>>debugAction (in category 'browse') ----- debugAction + "Evaluate the receiver's action until we see a client-specific context on the stack, ignoring intermediate glue code. Note that we first compare against #closure (or #receiver) because it is much faster than a context's #selector. This optimization is useful since such simulated execution (here: #forBlock:runUntil:) is already very slow." + - (Process forBlock: [self doButtonAction] runUntil: [:context | context closure == self effectiveActionTarget or: [context receiver == self effectiveActionTarget and: [context selector == self effectiveActionSelector]]]) debugWithTitle: ('Debug menu action "{1}" in model "{2}"' translated format: {self contents. self target printString}).! Item was changed: ----- Method: PluggableButtonMorph>>debugAction (in category 'debug menu') ----- debugAction + "Evaluate the receiver's action until we see a client-specific context on the stack, ignoring intermediate glue code. Note that we first compare against #closure (or #receiver) because it is much faster than a context's #selector. This optimization is useful since such simulated execution (here: #forBlock:runUntil:) is already very slow." self updateArguments. (Process forBlock: [self doButtonAction] runUntil: [:context | context closure == self effectiveActionTarget or: [context receiver == self effectiveActionTarget and: [context selector == self effectiveActionSelector]]]) debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).! Item was changed: ----- Method: SimpleButtonMorph>>debugAction (in category 'debug menu') ----- debugAction + "Evaluate the receiver's action until we see a client-specific context on the stack, ignoring intermediate glue code. Note that we first compare against #closure (or #receiver) because it is much faster than a context's #selector. This optimization is useful since such simulated execution (here: #forBlock:runUntil:) is already very slow." + - (Process forBlock: [self doButtonAction] runUntil: [:context | context closure == self target or: [context receiver == self target and: [context selector == self actionSelector]]]) debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).!

1 0

The Treated Inbox: Morphic-ct.1590.mcz
by commits＠source.squeak.org 24 May '24

24 May '24

Christoph Thiede uploaded a new version of Morphic to project The Treated Inbox: http://source.squeak.org/treated/Morphic-ct.1590.mcz ==================== Summary ==================== Name: Morphic-ct.1590 Author: ct Time: 15 November 2019, 7:55:13.975005 pm UUID: 1f877d26-b019-fb45-9020-7c902b002b46 Ancestors: Morphic-mt.1588 Add "debug accept action" into debug menu of PluggableTextMorph. Furthermore, refactor all "debug action" code in this package by using ToolSet>>#debugBlock:runUntilMethod:withTitle:. Complements System-ct.1121. =============== Diff against Morphic-mt.1588 =============== Item was added: + ----- Method: MenuItemMorph>>actionMethod (in category 'browse') ----- + actionMethod + + ^ (target class lookupSelector: selector) methodReference! Item was changed: ----- Method: MenuItemMorph>>browseImplementationOfActionSelector (in category 'browse') ----- browseImplementationOfActionSelector + ^ self actionMethod browse! - | method | - method := target class lookupSelector: selector. - ToolSet browse: method methodClass selector: method selector.! Item was changed: ----- Method: MenuItemMorph>>debugAction (in category 'browse') ----- debugAction + ^ ToolSet + debugBlock: [self doButtonAction] + runUntilMethod: self actionMethod + withTitle: ('Debug menu action "{1}" in model "{2}"' format: {self contents. self target printString})! - (Process - forBlock: [self doButtonAction] - runUntil: [:context | context selector = self selector]) - debugWithTitle: ('Debug menu action "{1}" in model "{2}"' format: {self contents. self target printString}).! Item was added: + ----- Method: PluggableButtonMorph>>actionMethod (in category 'debug menu') ----- + actionMethod + + ^ (model class lookupSelector: actionSelector) methodReference! Item was changed: ----- Method: PluggableButtonMorph>>browseImplementationOfActionSelector (in category 'debug menu') ----- browseImplementationOfActionSelector + ^ self actionMethod browse! - | method | - method := model class lookupSelector: actionSelector. - ToolSet browse: method methodClass selector: method selector.! Item was changed: ----- Method: PluggableButtonMorph>>debugAction (in category 'debug menu') ----- debugAction + ^ ToolSet + debugBlock: [self performAction] + runUntilMethod: self actionMethod + withTitle: ('Debug button action "{1}" in model "{2}"' format: {self label. self target printString})! - (Process - forBlock: [self performAction] - runUntil: [:context | context selector = self actionSelector]) - debugWithTitle: ('Debug button action "{1}" in model "{2}"' format: {self label. self target printString}).! Item was changed: ----- Method: PluggableListMorph>>browseImplementationOfGetListSelector (in category 'debug and other') ----- browseImplementationOfGetListSelector + ^ self getListMethod browse! - | method | - method := model class lookupSelector: getListSelector. - ToolSet browse: method methodClass selector: method selector.! Item was changed: ----- Method: PluggableListMorph>>debugGetList (in category 'debug and other') ----- debugGetList + ^ ToolSet + debugBlock: [model perform: getListSelector] + runUntilMethod: self getListMethod + withTitle: ('Debug get-list invocation in model "{1}"' format: {model printString})! - (Process - forBlock: [model perform: getListSelector] - runUntil: [:context | context selector = getListSelector]) - debugWithTitle: ('Debug get-list invocation in model "{1}"' format: {model printString}).! Item was added: + ----- Method: PluggableListMorph>>getListMethod (in category 'debug and other') ----- + getListMethod + + ^ (self model class lookupSelector: self getListSelector) methodReference! Item was added: + ----- Method: PluggableTextMorph>>acceptMethod (in category 'debug and other') ----- + acceptMethod + + ^ (self model class lookupSelector: self setTextSelector) methodReference! Item was added: + ----- Method: PluggableTextMorph>>browseImplementationOfAcceptSelector (in category 'debug and other') ----- + browseImplementationOfAcceptSelector + + ^ self acceptMethod browse! Item was added: + ----- Method: PluggableTextMorph>>buildDebugMenu: (in category 'debug and other') ----- + buildDebugMenu: aHandMorph + + | aMenu | + aMenu := super buildDebugMenu: aHandMorph. + aMenu addLine. + aMenu add: 'browse accept action' translated target: self action: #browseImplementationOfAcceptSelector. + aMenu add: 'debug accept action' translated target: self action: #debugAccept. + ^ aMenu! Item was added: + ----- Method: PluggableTextMorph>>debugAccept (in category 'debug and other') ----- + debugAccept + + ^ ToolSet + debugBlock: [self acceptTextInModel] + runUntilMethod: self acceptMethod + withTitle: ('Debug accept action in model "{1}"' format: {self model})!

1 0

The Trunk: ToolBuilder-Morphic-ct.350.mcz
by commits＠source.squeak.org 24 May '24

24 May '24

Christoph Thiede uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ct.350.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ct.350 Author: ct Time: 24 May 2024, 9:05:16.914638 pm UUID: 20cf9da2-345a-4dda-85a6-11af015ebc48 Ancestors: ToolBuilder-Morphic-mt.349 Complements Morphic-ct.2160 (improves precision and robustness of "browse action" and "debug action" in the debug menu of buttons). Fixes slip when the action of a PluggableButtonMorphPlus is not a message send. =============== Diff against ToolBuilder-Morphic-mt.349 =============== Item was changed: ----- Method: PluggableButtonMorphPlus>>browseImplementationOfActionSelector (in category 'debug menu') ----- browseImplementationOfActionSelector action ifNil: [^ super browseImplementationOfActionSelector]. + + action isBlock ifTrue: [^ action inspect"FieldNamed: #code"]. - action isMessageSend ifFalse: ["closure" action homeMethod browse] ifTrue: ["messages send" (action arguments ifNil: [#()]) ifNotEmpty: [:args | args explore]. ToolSet browseMethod: (action receiver class lookupSelector: action selector)] ! Item was changed: ----- Method: PluggableButtonMorphPlus>>debugAction (in category 'debug menu') ----- debugAction action ifNil: [^ super debugAction]. (Process forBlock: [self performAction] + runUntil: [:context | context closure == action or: [action isMessageSend and: [context selector == action selector]]]) - runUntil: [:context | context closure = action or: [context selector = action "message send" selector]]) debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).!

1 0

The Trunk: Morphic-ct.2160.mcz
by commits＠source.squeak.org 24 May '24

24 May '24

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2160.mcz ==================== Summary ==================== Name: Morphic-ct.2160 Author: ct Time: 24 May 2024, 9:05:12.105217 pm UUID: 59a6ddd4-19ac-40fa-b148-c00c744b85fb Ancestors: Morphic-mt.2159 Improves precision and robustness of "browse action" and "debug action" in the debug menu of buttons and menu items. Always checks for the right receiver. Ensures support for block targets. Speeds up "debug action" (note that Context>>selector is much slower than Context>>receiver and Context>>closure). =============== Diff against Morphic-mt.2159 =============== Item was changed: ----- Method: MenuItemMorph>>browseImplementationOfActionSelector (in category 'browse') ----- browseImplementationOfActionSelector | method | + self effectiveActionTarget isBlock ifTrue: [^ self effectiveActionTarget inspect"FieldNamed: #code"]. method := self effectiveActionTarget class lookupSelector: self effectiveActionSelector. ToolSet browse: method methodClass selector: method selector.! Item was changed: ----- Method: MenuItemMorph>>debugAction (in category 'browse') ----- debugAction (Process forBlock: [self doButtonAction] + runUntil: [:context | context closure == self effectiveActionTarget or: [context receiver == self effectiveActionTarget and: [context selector == self effectiveActionSelector]]]) - runUntil: [:context | context selector = self effectiveActionSelector]) debugWithTitle: ('Debug menu action "{1}" in model "{2}"' translated format: {self contents. self target printString}).! Item was changed: ----- Method: PluggableButtonMorph>>browseImplementationOfActionSelector (in category 'debug menu') ----- browseImplementationOfActionSelector | method | self updateArguments. + self effectiveActionTarget isBlock ifTrue: [^ self effectiveActionTarget inspect"FieldNamed: #code"]. method := self effectiveActionTarget class lookupSelector: self effectiveActionSelector. ToolSet browse: method methodClass selector: method selector.! Item was changed: ----- Method: PluggableButtonMorph>>debugAction (in category 'debug menu') ----- debugAction self updateArguments. (Process forBlock: [self doButtonAction] + runUntil: [:context | context closure == self effectiveActionTarget or: [context receiver == self effectiveActionTarget and: [context selector == self effectiveActionSelector]]]) - runUntil: [:context | context selector = self effectiveActionSelector]) debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).! Item was changed: ----- Method: SimpleButtonMorph>>browseImplementationOfActionSelector (in category 'debug menu') ----- browseImplementationOfActionSelector + self target isBlock ifTrue: [^ self target inspect"FieldNamed: #code"]. ToolSet browseMethod: (self target class lookupSelector: self actionSelector).! Item was changed: ----- Method: SimpleButtonMorph>>debugAction (in category 'debug menu') ----- debugAction (Process forBlock: [self doButtonAction] + runUntil: [:context | context closure == self target or: [context receiver == self target and: [context selector == self actionSelector]]]) - runUntil: [:context | context selector = self actionSelector]) debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).!

1 0

The Trunk: Morphic-mt.2159.mcz
by commits＠source.squeak.org 24 May '24

24 May '24

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2159.mcz ==================== Summary ==================== Name: Morphic-mt.2159 Author: mt Time: 24 May 2024, 2:26:42.87333 pm UUID: 94855197-3af8-e343-84f8-6ded7754e5b5 Ancestors: Morphic-mt.2158 Fix default drag-threshold to adhere to current scale factor. Make both #doubleClickTime and #dragThreshold preferences you can discover via Preference Browser. Note that we allow nil in pragma-preference values to easily reset them to their default value via #cleanUp:. =============== Diff against Morphic-mt.2158 =============== Item was changed: ----- Method: HandMorph class>>doubleClickTime (in category 'accessing') ----- doubleClickTime + <preference: 'Double-click Timeout' + categoryList: #(Accessibility Mouse) + description: 'The maximum amount of milliseconds that may pass between clicks to invoke a double click operation. Custom morphs may override this value.' + type: #Number> + + ^ DoubleClickTime ifNil: [350] - - ^ DoubleClickTime ! Item was changed: ----- Method: HandMorph class>>doubleClickTime: (in category 'accessing') ----- + doubleClickTime: millisecondsOrNil - doubleClickTime: milliseconds + DoubleClickTime := millisecondsOrNil. - DoubleClickTime := milliseconds. ! Item was changed: ----- Method: HandMorph class>>dragThreshold (in category 'accessing') ----- dragThreshold + <preference: 'Drag Threshold' + categoryList: #(Accessibility Mouse) + description: 'The default number of pixels after which a drag operation should start, which means that the hand will grab some object and the user can then drop it in a suitable place. Custom morphs may override this value.' + type: #Number> + + ^ (RealEstateAgent scaleFactor * (DragThreshold ifNil: [10])) rounded - - ^ DragThreshold ! Item was changed: ----- Method: HandMorph class>>dragThreshold: (in category 'accessing') ----- + dragThreshold: numPixelsOrNil. - dragThreshold: pixels + DragThreshold := numPixelsOrNil ifNotNil: [(numPixelsOrNil / RealEstateAgent scaleFactor) rounded].! - DragThreshold := pixels! Item was changed: ----- Method: HandMorph>>waitForClicksOrDrag:event:selectors:threshold: (in category 'double click support') ----- waitForClicksOrDrag: aMorph event: evt selectors: clickAndDragSelectors threshold: threshold "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, named in clickAndDragSelectors and passed a copy of evt, are: 1 (click) sent when the mouse button goes up within doubleClickTime. 2 (doubleClick) sent when the mouse goes up, down, and up again all within DoubleClickTime. 3 (doubleClickTimeout) sent when the mouse does not have a doubleClick within DoubleClickTime. 4 (startDrag) sent when the mouse moves more than threshold 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." mouseClickState := MouseClickState new client: aMorph click: clickAndDragSelectors first dblClick: clickAndDragSelectors second + dblClickTime: self class doubleClickTime - dblClickTime: DoubleClickTime dblClickTimeout: clickAndDragSelectors third drag: clickAndDragSelectors fourth threshold: threshold event: evt. !

1 0

The Trunk: Tools-mt.1255.mcz
by commits＠source.squeak.org 22 May '24

22 May '24

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1255.mcz ==================== Summary ==================== Name: Tools-mt.1255 Author: mt Time: 22 May 2024, 11:43:57.879542 am UUID: 6aa37ba1-2473-a945-b9bc-fb478adb6521 Ancestors: Tools-mt.1254 Adds #findFeatures to MethodFinder :-) 'HelloWorld' . #('hello' 'world') =============== Diff against Tools-mt.1254 =============== Item was changed: ----- Method: MethodFinder>>initialize3 (in category 'initialize') ----- initialize3 "additional selectors to consider" + #(asWords threeDigitName #findFeatures) do: [:sel | Approved add: sel].! - #(asWords threeDigitName ) do: [:sel | Approved add: sel].!

1 0

The Trunk: EToys-mt.516.mcz
by commits＠source.squeak.org 22 May '24

22 May '24

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.516.mcz ==================== Summary ==================== Name: EToys-mt.516 Author: mt Time: 22 May 2024, 11:30:58.396542 am UUID: 8c2789ec-c2c4-774d-b3e6-010c6e3602b4 Ancestors: EToys-mt.515 Updates commentary for Etoys-specific camel-case conversion methods. =============== Diff against EToys-mt.515 =============== Item was changed: ----- Method: String>>fromCamelCase (in category '*Etoys-Squeakland-converting') ----- fromCamelCase + " + 'anExampleString' fromCamelCase. + 'AnExampleString' fromCamelCase. + " - "convert 'anExampleString' to 'an example string'" + self flag: #deprecated. ^self findFeatures joinSeparatedBy: String space! Item was changed: ----- Method: String>>toCamelCase (in category '*Etoys-Squeakland-converting') ----- toCamelCase + " + 'an example string' toCamelCase withFirstCharacterDownshifted. + " - "convert 'an example string' to 'anExampleString'" + self flag: #deprecated. + ^ self asCamelCase! - (self includes: Character space) ifFalse: [^self]. - ^String streamContents: [:strm | - | space start | - space := self indexOf: Character space. - strm nextPutAll: (self copyFrom: 1 to: space-1). - [ [start := space+1. - space := self indexOf: Character space startingAt: start. - space = start] whileTrue. - space = 0 ifTrue: [space := self size+1]. - start <= self size ifTrue: [ - strm nextPut: (self at: start) asUppercase. - strm nextPutAll: (self copyFrom: start+1 to: space-1)]. - space < self size - ] whileTrue].!

1 0

The Trunk: Collections-mt.1069.mcz
by commits＠source.squeak.org 22 May '24

22 May '24

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1069.mcz ==================== Summary ==================== Name: Collections-mt.1069 Author: mt Time: 22 May 2024, 11:29:46.825542 am UUID: 42a818b7-2f20-b84a-85ed-0c7cb636ab23 Ancestors: Collections-mt.1068 Updates commentary for #asCamelCase ... which is still somewhat useless without also using #asLegalSelector. =============== Diff against Collections-mt.1068 =============== Item was changed: ----- Method: String>>asCamelCase (in category 'converting') ----- asCamelCase + "Convert to CamelCase. Can be convenient in conjunction with #asLegalSelector + 'A man, a plan, a canal, panama' asCamelCase. + 'A man, a plan, a canal, panama' asCamelCase asLegalSelector. + 'Here 123should % be 6 the name6 of the method' asCamelCase. + 'Here 123should % be 6 the name6 of the method' asCamelCase asLegalSelector. + See also #findFeatures and #findFeaturesDo: for an inverse operation." - "Convert to CamelCase. Can be convenient - in conjunction with #asLegalSelector - 'A man, a plan, a canal, panama' asCamelCase. - 'A man, a plan, a canal, panama' asCamelCase asLegalSelector. - 'Here 123should % be 6 the name6 of the method' asCamelCase. - 'Here 123should % be 6 the name6 of the method' asCamelCase asLegalSelector." ^ self class streamContents: [:stream | self substrings do: [:sub | stream nextPutAll: sub capitalized]]!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages