Squeak-dev August 2019

squeak-dev@lists.squeakfoundation.org

35 participants
288 discussions

The Trunk: Morphic-mt.1497.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1497.mcz ==================== Summary ==================== Name: Morphic-mt.1497 Author: mt Time: 4 August 2019, 11:15:17.459314 am UUID: 83af2cfd-497d-164d-a5bf-38988041a7f9 Ancestors: Morphic-mt.1496 Merges Morphic-ct.1496 (moved to treated inbox due to incompatible ancestry). Introduce 'debug invocation' of DialogWindow Also refine context search to reduce displayed stack size. (After opening debugger, useful applications might be: step over, answer the dialog and continue debugging; return entered value to fake user's response) =============== Diff against Morphic-mt.1496 =============== Item was added: + ----- Method: DialogWindow>>debugInvocation (in category 'running') ----- + debugInvocation + + [Processor activeProcess + debug: self findInvocationContext + title: 'Dialog invocation'] + ifCurtailed: [self closeDialog].! Item was changed: ----- Method: DialogWindow>>exploreInvocation (in category 'running') ----- exploreInvocation | result context | self exclusive: false. "We want to explore." result := OrderedCollection new. + context := self findInvocationContext. - context := thisContext. - [context method selector = #getUserResponse] - whileFalse: [context := context sender]. - [context sender] whileNotNil: [ result add: context method. context := context sender]. result add: context method. result explore.! Item was added: + ----- Method: DialogWindow>>findInvocationContext (in category 'running') ----- + findInvocationContext + + | context | + context := thisContext. + [context method selector = #getUserResponse and: [context isMethodContext]] + whileFalse: [context := context sender]. + ^ context! Item was changed: ----- Method: DialogWindow>>offerDialogMenu (in category 'running') ----- offerDialogMenu | menu | menu := MenuMorph new defaultTarget: self. menu add: (exclusive == true ifTrue: ['<yes>'] ifFalse: ['<no>']), 'be modally exclusive' translated + action: #toggleExclusive; - action: #toggleExclusive; addLine; add: 'explore dialog invocation' translated + action: #exploreInvocation; + add: 'debug dialog invocation' translated + action: #debugInvocation. - action: #exploreInvocation. menu popUpEvent: self currentEvent in: self world. [menu isInWorld] whileTrue: [self world doOneSubCycle]. self exclusive ifTrue: [self activeHand newMouseFocus: self].!

1 0

The Trunk: Kernel-mt.1252.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1252.mcz ==================== Summary ==================== Name: Kernel-mt.1252 Author: mt Time: 4 August 2019, 11:04:15.141314 am UUID: 0d3ac99f-5fbf-1a43-bc96-9d908d7c7a4c Ancestors: Kernel-ct.1251 Refines #on:ensure: interface to match the #on:do: variants. Removes #onInterruptEnsure: because there is already #ifCurtailed:. See http://forum.world.st/The-Inbox-Kernel-ct-1251-mcz-td5101789.html =============== Diff against Kernel-ct.1251 =============== Item was added: + ----- Method: BlockClosure>>on:ensure:on:ensure: (in category 'exceptions') ----- + on: anException1 ensure: aBlock1 on: anException2 ensure: aBlock2 + + ^ [self on: anException1 ensure: aBlock1] + on: anException2 + ensure: aBlock2! Item was added: + ----- Method: BlockClosure>>on:ensure:on:ensure:on:ensure: (in category 'exceptions') ----- + on: anException1 ensure: aBlock1 on: anException2 ensure: aBlock2 on: anException3 ensure: aBlock3 + + ^ [self on: anException1 ensure: aBlock1] + on: anException2 + ensure: aBlock2 + on: anException3 + ensure: aBlock3! Item was removed: - ----- Method: BlockClosure>>onInterruptEnsure: (in category 'exceptions') ----- - onInterruptEnsure: aBlock - "Evaluate myself, evaluate aBlock if any error was thrown or the thread is going to be terminated" - - | success result | - success := false. - [result := self value. - success := true] - ensure: [success ifFalse: aBlock]. - ^ result!

1 0

The Trunk: Kernel-ct.1251.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1251.mcz ==================== Summary ==================== Name: Kernel-ct.1251 Author: ct Time: 30 July 2019, 6:43:00.244625 pm UUID: 86bd73cc-a91c-3644-82f4-3efa8777333d Ancestors: Kernel-mt.1250 Convenience methods for exception handling =============== Diff against Kernel-mt.1250 =============== Item was added: + ----- Method: BlockClosure>>on:ensure: (in category 'exceptions') ----- + on: exceptionOrExceptionSet ensure: aBlock + + ^ self + on: exceptionOrExceptionSet + do: [:exception | + aBlock value. + exception pass]! Item was added: + ----- Method: BlockClosure>>onInterruptEnsure: (in category 'exceptions') ----- + onInterruptEnsure: aBlock + "Evaluate myself, evaluate aBlock if any error was thrown or the thread is going to be terminated" + + | success result | + success := false. + [result := self value. + success := true] + ensure: [success ifFalse: aBlock]. + ^ result!

1 0

The Trunk: Morphic-mt.1496.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1496.mcz ==================== Summary ==================== Name: Morphic-mt.1496 Author: mt Time: 4 August 2019, 10:47:16.064314 am UUID: 78812df7-933f-6a4e-b04d-eeb1dab050da Ancestors: Morphic-mt.1495 Merges and refines Morphic-ct.1492, which complements Tools-ct.851 to add styling to syntax-error tools. =============== Diff against Morphic-mt.1495 =============== Item was changed: ----- Method: SyntaxError class>>buildMorphicViewOn: (in category '*Morphic-Support') ----- buildMorphicViewOn: aSyntaxError "Answer an Morphic view on the given SyntaxError." | window | window := (SystemWindow labelled: 'Syntax Error') model: aSyntaxError. window addMorph: (PluggableListMorph on: aSyntaxError list: #list selected: #listIndex changeSelected: nil menu: #listMenu:) frame: (0@0 corner: 1(a)0.15). + window addMorph: ((PluggableTextMorphPlus on: aSyntaxError text: #contents - window addMorph: (PluggableTextMorph on: aSyntaxError text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:) + useDefaultStyler; updateStyleNow; + selectionInterval: aSyntaxError errorMessageInterval; + yourself) frame: (0(a)0.15 corner: 1@1). ^ window openInWorldExtent: 380@220!

1 0

The Trunk: Tools-ct.851.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.851.mcz ==================== Summary ==================== Name: Tools-ct.851 Author: ct Time: 29 June 2019, 11:31:08.24743 pm UUID: 7c648bb0-32b8-9641-b3a6-db165bb32589 Ancestors: Tools-ct.850 Make SyntaxError more convenient: Automatically select error message as known from CodeHolders, and activate styling =============== Diff against Tools-ct.850 =============== Item was added: + ----- Method: SyntaxError>>aboutToStyle: (in category 'text menu support') ----- + aboutToStyle: aStyler + + aStyler + classOrMetaClass: self selectedClassOrMetaClass; + parseAMethod: false. + ^ true! Item was added: + ----- Method: SyntaxError>>errorMessageInterval (in category 'text menu support') ----- + errorMessageInterval + + ^ notification location + to: notification location + + notification errorMessage size - 1 + + ' ->' size!

1 0

The Trunk: Tools-mt.858.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.858.mcz ==================== Summary ==================== Name: Tools-mt.858 Author: mt Time: 4 August 2019, 10:45:24.523314 am UUID: 99e59b50-5cab-9e4f-bb39-bd4c5fb42a4c Ancestors: Tools-mt.857, Tools-ct.851 Merges and refines Tools-ct.851 =============== Diff against Tools-mt.857 =============== Item was added: + ----- Method: SyntaxError>>aboutToStyle: (in category 'text menu support') ----- + aboutToStyle: aStyler + + aStyler classOrMetaClass: (self selectedClass = UndefinedObject ifFalse: [self selectedClass]). + ^ true! Item was added: + ----- Method: SyntaxError>>errorMessageInterval (in category 'text menu support') ----- + errorMessageInterval + "To understand this format, see Parser >> #notify:at:." + + ^ notification location + to: notification location + + '"' size + + notification errorMessage size - 1 + + ' ->"' size!

1 0

The Trunk: ToolBuilder-Morphic-mt.232.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.232.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.232 Author: mt Time: 4 August 2019, 10:43:35.061314 am UUID: 26f2510d-dfa2-fc49-a5cc-8090ec058163 Ancestors: ToolBuilder-Morphic-fn.231 Small refactoring to be able to trigger both immediate and deferred re-styling in pluggable test morphs from outside the widget. =============== Diff against ToolBuilder-Morphic-fn.231 =============== Item was changed: ----- Method: PluggableTextMorphPlus>>setText: (in category 'styling') ----- setText: aText self okToStyle ifFalse:[^super setText: aText]. super setText: (styler format: aText asText). aText size < 4096 + ifTrue:[self updateStyleNow] + ifFalse:[self updateStyle]! - ifTrue:[styler style: textMorph contents] - ifFalse:[styler styleInBackgroundProcess: textMorph contents]! Item was added: + ----- Method: PluggableTextMorphPlus>>updateStyleNow (in category 'styling') ----- + updateStyleNow + + self okToStyle + ifTrue: [styler style: textMorph contents].!

1 0

The Trunk: Compiler-mt.407.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.407.mcz ==================== Summary ==================== Name: Compiler-mt.407 Author: mt Time: 4 August 2019, 10:42:01.663314 am UUID: 5c828155-c416-4d42-8f88-15176ffa33eb Ancestors: Compiler-mt.406 Prepares syntax highlighting for syntax-error tool: Insert the error message as a comment. =============== Diff against Compiler-mt.406 =============== Item was changed: ----- Method: Parser>>notify:at: (in category 'error handling') ----- notify: string at: location cue requestor isNil ifTrue: [| notification | (encoder == self or: [encoder isNil]) ifTrue: [^ self fail "failure setting up syntax error"]. (notification := SyntaxErrorNotification inClass: encoder classEncoding withCode: (source contents asText copyReplaceFrom: location to: location - 1 + with: (('"', string , ' ->"') asText)) - with: ((string , ' ->') asText allBold - addAttribute: TextColor red; yourself)) doitFlag: doitFlag errorMessage: string location: location) signal. notification tryNewSourceIfAvailable] ifFalse: [cue requestor notify: string , ' ->' at: location in: source]. ^self fail!

1 0

The Trunk: Tools-ct.850.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.850.mcz ==================== Summary ==================== Name: Tools-ct.850 Author: ct Time: 29 June 2019, 3:20:14.082481 pm UUID: c9ab314f-14db-b747-aaa5-d9fda33ece80 Ancestors: Tools-cmm.849 Implement #spawn: on SearchBar (Press <cmd>o to open a Workspace window) =============== Diff against Tools-cmm.849 =============== Item was added: + ----- Method: SearchBar>>spawn: (in category '*Tools') ----- + spawn: contentsString + + UIManager default edit: contentsString label: 'Workspace'!

1 0

The Trunk: Tools-cmm.849.mcz
by commits＠source.squeak.org 04 Aug '19

04 Aug '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.849.mcz ==================== Summary ==================== Name: Tools-cmm.849 Author: cmm Time: 25 May 2019, 5:49:45.269032 pm UUID: 4e35d5b2-3233-4b12-8419-2476ff4d09e0 Ancestors: Tools-nice.847 - Fix from Tim Johnson prevents a DNU from ChangeSorter under certain conditions. - Add ability to filter methods from a MessageSet based on package they're NOT in (helpful for filtering test methods, or identifying methods in the wrong package). =============== Diff against Tools-nice.847 =============== Item was changed: ----- Method: ChangeSorter>>setContents (in category 'code pane') ----- setContents "return the source code that shows in the bottom pane" | sel class strm changeType | self clearUserEditFlag. + myChangeSet ifNil: [^ contents := String empty]. "should not happen but can" + currentClassName ifNil: [^ contents := myChangeSet preambleString ifNil: [String empty]]. - currentClassName ifNil: [^ contents := myChangeSet preambleString ifNil: ['']]. class := self selectedClassOrMetaClass. (sel := self selectedMessageName) == nil ifFalse: [changeType := (myChangeSet atSelector: (sel := sel asSymbol) class: class). changeType == #remove ifTrue: [^ contents := 'Method has been removed (see versions)']. changeType == #addedThenRemoved ifTrue: [^ contents := 'Added then removed (see versions)']. class ifNil: [^ contents := 'Method was added, but cannot be found!!']. (class includesSelector: sel) ifFalse: [^ contents := 'Method was added, but cannot be found!!']. contents := class sourceCodeAt: sel. (#(prettyPrint prettyDiffs) includes: contentsSymbol) ifTrue: [contents := class prettyPrinterClass format: contents in: class notifying: nil]. self showingAnyKindOfDiffs ifTrue: [contents := self diffFromPriorSourceFor: contents]. ^ contents := contents asText makeSelectorBoldIn: class] ifTrue: [strm := WriteStream on: (String new: 100). (myChangeSet classChangeAt: (self withoutItemAnnotation: currentClassName)) do: [:each | each = #remove ifTrue: [strm nextPutAll: 'Entire class was removed.'; cr]. each = #addedThenRemoved ifTrue: [strm nextPutAll: 'Class was added then removed.']. each = #rename ifTrue: [strm nextPutAll: 'Class name was changed.'; cr]. each = #add ifTrue: [strm nextPutAll: 'Class definition was added.'; cr]. each = #change ifTrue: [strm nextPutAll: 'Class definition was changed.'; cr]. each = #reorganize ifTrue: [strm nextPutAll: 'Class organization was changed.'; cr]. each = #comment ifTrue: [strm nextPutAll: 'New class comment.'; cr. ]]. ^ contents := strm contents].! Item was changed: ----- Method: MessageSet>>filterMessageList (in category 'filtering') ----- filterMessageList "Allow the user to refine the list of messages." | builder menuSpec | builder := ToolBuilder default. menuSpec := builder pluggableMenuSpec new model: self; yourself. menuSpec addList: #( ('unsent messages' filterToUnsentMessages 'filter to show only messages that have no senders') - ('messages that send...' filterToSendersOf 'filter to show only messages that send a selector I specify') ('messages that do not send...' filterToNotSendersOf 'filter to show only messages that do not send a selector I specify') - ('messages whose selector is...' filterToImplementorsOf 'filter to show only messages with a given selector I specify') ('messages whose selector is NOT...' filterToNotImplementorsOf 'filter to show only messages whose selector is NOT a seletor I specify') - ('messages in current change set' filterToCurrentChangeSet 'filter to show only messages that are in the current change set') ('messages not in current change set' filterToNotCurrentChangeSet 'filter to show only messages that are not in the current change set') - ('messages in any change set' filterToAnyChangeSet 'filter to show only messages that occur in at least one change set') ('messages not in any change set' filterToNotAnyChangeSet 'filter to show only messages that do not occur in any change set in the system') - ('messages authored by me' filterToCurrentAuthor 'filter to show only messages whose authoring stamp has my initials') ('messages not authored by me' filterToNotCurrentAuthor 'filter to show only messages whose authoring stamp does not have my initials') - ('messages logged in .changes file' filterToMessagesInChangesFile 'filter to show only messages whose latest source code is logged in the .changes file') ('messages only in .sources file' filterToMessagesInSourcesFile 'filter to show only messages whose latest source code is logged in the .sources file') - ('messages with prior versions' filterToMessagesWithPriorVersions 'filter to show only messages that have at least one prior version') ('messages without prior versions' filterToMessagesWithoutPriorVersions 'filter to show only messages that have no prior versions') - ('uncommented messages' filterToUncommentedMethods 'filter to show only messages that do not have comments at the beginning') ('commented messages' filterToCommentedMethods 'filter to show only messages that have comments at the beginning') - ('messages in hardened classes' filterToMessagesWithHardenedClasses 'filter to show only messages of established classes (as opposed to Uniclasses such as Player23)') - ('methods in classes with matching names' filterToMatchingClassesNames 'filter to show only methods of classes with names that match the given criteria (wildcards are allowed)') ('methods in package...' filterToPackage 'filter to show only methods of a given package') + ('methods not in package...' filterToNotPackage 'filter to show only methods not of a given package') - ('messages that...' filterToMessagesThat 'let me type in a block taking a class and a selector, which will specify yea or nay concerning which elements should remain in the list')). builder runModal: (builder open: menuSpec).! Item was added: + ----- Method: MessageSet>>filterToNotPackage (in category 'filtering') ----- + filterToNotPackage + self requestPackageSelection ifNotNil: + [ : selectedPackage | self filterFrom: + [ : aClass : aSelector | (selectedPackage + includesMethod: aSelector + ofClass: aClass) not ] ]! Item was changed: ----- Method: MessageSet>>filterToPackage (in category 'filtering') ----- filterToPackage + self requestPackageSelection ifNotNil: + [ : selectedPackage | self filterFrom: + [ : aClass : aSelector | selectedPackage + includesMethod: aSelector + ofClass: aClass ] ]! - - | packages selectedIndex selectedPackage | - - packages := (PackageOrganizer default packages sort: [ :a :b | - a packageName <= b packageName ]). - - selectedIndex := UIManager default chooseFrom: (packages collect:[:each | each packageName]) lines: #() title: 'Select a package...'. - selectedIndex isZero ifTrue:[^ self]. - - selectedPackage := packages at: selectedIndex. - self filterFrom: [:aClass :aSelector | selectedPackage includesMethod: aSelector ofClass: aClass ] - ! Item was added: + ----- Method: MessageSet>>requestPackageSelection (in category 'private') ----- + requestPackageSelection + | packages selectedIndex | + packages := PackageOrganizer default packages sort: + [ : a : b | a packageName <= b packageName ]. + selectedIndex := UIManager default + chooseFrom: (packages collect: [ : each | each packageName ]) + lines: Array empty + title: 'Select a package...'. + ^ packages at: selectedIndex ifAbsent: [ nil ]!

1 0

Jump to page: