Squeak-dev October 2019

squeak-dev@lists.squeakfoundation.org

41 participants
284 discussions

The Trunk: Morphic-ul.1552.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1552.mcz ==================== Summary ==================== Name: Morphic-ul.1552 Author: ul Time: 1 October 2019, 12:51:14.444047 pm UUID: 7ad29809-b301-4b6a-994f-490953dd07c2 Ancestors: Morphic-mt.1551 - Arrays contain nils by default =============== Diff against Morphic-mt.1551 =============== Item was changed: ----- Method: LazyListMorph>>font: (in category 'drawing') ----- font: newFont font := (newFont ifNil: [ TextStyle default defaultFont ]). self adjustHeight. + listFilterOffsets := Array new: self getListSize. - listFilterOffsets := Array new: self getListSize withAll: nil. self changed.! Item was changed: ----- Method: LazyListMorph>>listChanged (in category 'list management') ----- listChanged "set newList to be the list of strings to display" | size | size := self getListSize. + listItems := Array new: size. + listIcons := Array new: size. + listFilterOffsets := Array new: size. - listItems := Array new: size withAll: nil. - listIcons := Array new: size withAll: nil. - listFilterOffsets := Array new: size withAll: nil. maxWidth := nil. selectedRow := nil. selectedRows := PluggableSet integerSet. preSelectedRow := nil. self adjustHeight. self adjustWidth. self changed. !

1 0

The Trunk: Tools-mt.896.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.896.mcz ==================== Summary ==================== Name: Tools-mt.896 Author: mt Time: 1 October 2019, 12:51:43.394611 pm UUID: 64caf9cf-236a-a744-9d3d-2f33f66647d9 Ancestors: Tools-mt.895 Fixes a tool-update bug when drag-dropping classes or methods between categories. This surfaced only now because I recently cached #getFullList in PluggableListMorph. Now we notice those missing "self changed: #myListSelector" in tool models. I suppose that only "more recent" features - such as this drag-and-drop feature - might be affected because list filtering is not around *that* long. =============== Diff against Tools-mt.895 =============== Item was changed: ----- Method: Browser>>dropOnMessageCategories:at: (in category 'drag and drop') ----- dropOnMessageCategories: method at: index | sourceClass destinationClass category copy | copy := Sensor shiftPressed. (method isKindOf: CompiledMethod) ifFalse:[^self inform: 'Can only drop methods']. sourceClass := method methodClass. destinationClass := self selectedClassOrMetaClass. sourceClass == destinationClass ifTrue:[ category := self messageCategoryList at: index. category = ClassOrganizer allCategory ifTrue: [^false]. destinationClass organization classify: method selector under: category suppressIfDefault: false logged: true. + self changed: #messageCategoryList. + self changed: #messageList. ^true ]. (copy or: [ (destinationClass inheritsFrom: sourceClass) or: [ (sourceClass inheritsFrom: destinationClass) or: [ sourceClass theNonMetaClass == destinationClass theNonMetaClass ] ] ]) ifFalse: [ (self confirm: ( 'Classes "{1}" and "{2}" are unrelated.{3}Are you sure you want to move this method?' format: { sourceClass. destinationClass. Character cr })) ifFalse: [ ^false ] ]. destinationClass compile: method getSource classified: (self messageCategoryList at: index) withStamp: method timeStamp notifying: nil. copy ifFalse: [ sourceClass removeSelector: method selector ]. ^true! Item was changed: ----- Method: Browser>>dropOnSystemCategories:at: (in category 'drag and drop') ----- dropOnSystemCategories: aClass at: index | category | (aClass isBehavior) ifFalse:[^self inform: 'Can only drop classes']. category := self systemCategoryList at: index. self selectedEnvironment organization classify: aClass instanceSide name under: category. + self changed: #systemCategoryList. + self changed: #classList. ^true!

1 0

The Trunk: Morphic-mt.1549.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1549.mcz ==================== Summary ==================== Name: Morphic-mt.1549 Author: mt Time: 30 September 2019, 11:19:38.88371 am UUID: 6bbc0287-72da-fe4c-889d-591c9bec9657 Ancestors: Morphic-mt.1548 Caches "fullList" in pluggable lists to speed up list filtering. Note that we have now two kinds of caches in PluggableListMorph: (1) inst-var access to "list" with invalidation/update via #getList and (2) the accessor #fullList. In the future, we should harmonize that design ... Since the addition of list filters, we forgot to treat inst-var access to "list" as a cache. There are way too many sends of #getFullList at the moment. So that new cache makes sense. =============== Diff against Morphic-mt.1548 =============== Item was changed: ScrollPane subclass: #PluggableListMorph + instanceVariableNames: 'list fullList getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow hoverRow listMorph hScrollRangeCache keystrokePreviewSelector priorSelection getIconSelector getHelpSelector' - instanceVariableNames: 'list getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow hoverRow listMorph hScrollRangeCache keystrokePreviewSelector priorSelection getIconSelector getHelpSelector' classVariableNames: 'ClearFilterAutomatically FilterableLists HighlightHoveredRow MenuRequestUpdatesSelection' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! !PluggableListMorph commentStamp: 'cmm 8/21/2011 23:37' prior: 0! When a PluggableListMorph is in focus, type in a letter (or several letters quickly) to go to the next item that begins with that letter (if FilterableLists is false). Special keys (up, down, home, etc.) are also supported.! Item was changed: ----- Method: PluggableListMorph>>getFullList (in category 'model access') ----- getFullList "The full, unfiltered list." + ^ fullList ifNil: [fullList := model perform: getListSelector]! - ^ model perform: getListSelector! Item was changed: ----- Method: PluggableListMorph>>updateList (in category 'updating') ----- updateList + | index | + fullList := nil. - "the list has changed -- update from the model" self listMorph listChanged. - self setScrollDeltas. index := self getCurrentSelectionIndex. self resetPotentialDropRow. self selectionIndex: (self uiIndexFor: index). !

3 2

The Trunk: Morphic-mt.1540.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1540.mcz ==================== Summary ==================== Name: Morphic-mt.1540 Author: mt Time: 24 September 2019, 5:18:23.87286 pm UUID: a049a4c1-b81f-3b4e-8aa3-cb0ecad08561 Ancestors: Morphic-mt.1539 Complements Tools-mt.893: - more comments - some additional warnings for usability =============== Diff against Morphic-mt.1539 =============== Item was changed: ----- Method: MorphicDebugger class>>openDrawingErrors: (in category 'opening') ----- openDrawingErrors: errors + "Open debuggers for all different errors found. DO NOT suspend the active process because drawing errors got caught gracefully already to keep the system running. The debuggers are only for exploration." - "Open debuggers for all different errors found." self setErrorRecursion. errors do: [:processToLabel | + (self new process: processToLabel key context: processToLabel key suspendedContext) + errorWasInUIProcess: Processor activeProcess = Project current uiProcess; + openNotifierNoSuspendContents: nil label: processToLabel value]. - (MorphicDebugger new process: processToLabel key context: processToLabel key suspendedContext) - errorWasInUIProcess: Processor activeProcess = Project current uiProcess; - openNotifierContents: nil label: processToLabel value]. "Try to draw the debuggers or else there will be no chance to escape from this catch-drawing-error loop." Project current world displayWorld. self clearErrorRecursion.! Item was changed: ----- Method: MorphicDebugger class>>openInterrupt:onProcess: (in category 'opening') ----- openInterrupt: aString onProcess: interruptedProcess "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low." + | errorWasInUIProcess debugger message | - | errorWasInUIProcess debugger | <primitive: 19> "Simulation guard" + Processor activeProcess == Project current uiProcess + ifTrue: [^ self notify: 'You cannot interrupt from within the UI process. Use a helper process instead.\\This interrupt request will be aborted.' withCRs translated]. + errorWasInUIProcess := Project current spawnNewProcessIfThisIsUI: interruptedProcess. + debugger := self new. debugger process: interruptedProcess context: interruptedProcess suspendedContext. debugger externalInterrupt: true; errorWasInUIProcess: errorWasInUIProcess. + ((aString includesSubstring: 'Space') and: [aString includesSubstring: 'low']) + ifTrue: [ + "Space is low!! See SmalltalkImage >> #lowSpaceWatcher." + message := self lowSpaceChoices. + Preferences logDebuggerStackToFile ifTrue: [ + Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log']] + ifFalse: [ + Preferences logDebuggerStackToFile ifTrue: [ + Smalltalk logSqueakError: aString inContext: debugger interruptedContext]]. - Preferences logDebuggerStackToFile ifTrue: - [(aString includesSubstring: 'Space') & (aString includesSubstring: 'low') - ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log'] - "logging disabled for 4.3 release, see - http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html" - "ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"]. + ^ debugger + openNotifierNoSuspendContents: message label: aString; - Preferences eToyFriendly ifTrue: [Project current world stopRunningAll]. - ^debugger - openNotifierContents: nil label: aString; yourself ! Item was changed: ----- Method: MorphicDebugger class>>openOn:context:label:contents:fullView: (in category 'opening') ----- openOn: process context: context label: title contents: contentsStringOrNil fullView: full "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." ErrorRecursionGuard critical: [ | errorWasInUIProcess debugger | ErrorRecursion ifTrue: [ "self assert: process == Project current uiProcess -- DOCUMENTATION ONLY" self clearErrorRecursion. ^ Project current handleFatalDrawingError: title]. [ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: [Smalltalk logSqueakError: title inContext: context]] on: Error do: [:ex | ex return: nil]. errorWasInUIProcess := Project current spawnNewProcessIfThisIsUI: process. "Schedule debugging in deferred UI message because 1) If process is the current UI process, it is already broken. 2) If process is some other process, it must not execute UI code" Project current addDeferredUIMessage: [ + ErrorRecursionGuard critical: [ + self setErrorRecursion. + + self informExistingDebugger: context label: title. + + debugger := self new process: process context: context. + full + ifTrue: [debugger openFullNoSuspendLabel: title] + ifFalse: [debugger openNotifierNoSuspendContents: contentsStringOrNil label: title]. + debugger errorWasInUIProcess: errorWasInUIProcess. - self setErrorRecursion. + "Try drawing the debugger tool at least once to avoid freeze." + Project current world displayWorldSafely. + + self clearErrorRecursion] ]]. - self informExistingDebugger: context label: title. - - debugger := self new process: process context: context. - full - ifTrue: [debugger openFullNoSuspendLabel: title] - ifFalse: [debugger openNotifierContents: contentsStringOrNil label: title]. - debugger errorWasInUIProcess: errorWasInUIProcess. - - "Try drawing the debugger tool at least once to avoid freeze." - Project current world displayWorldSafely. - - self clearErrorRecursion]]. process suspend.! Item was changed: ----- Method: MorphicDebugger class>>openOnMethod:forReceiver:inContext: (in category 'opening') ----- openOnMethod: aCompiledMethod forReceiver: anObject inContext: aContextOrNil + | guineaPig debugger context | - | guineaPig debugger debuggerWindow context | guineaPig := [aCompiledMethod valueWithReceiver: anObject arguments: (aContextOrNil ifNil: [ #() ] ifNotNil: [ { aContextOrNil } ]). guineaPig := nil "spot the return from aCompiledMethod"] newProcess. context := guineaPig suspendedContext. + debugger := self new process: guineaPig context: context. + debugger initializeFull. + - debuggerWindow := debugger openFullNoSuspendLabel: 'Debug it'. "Now step into the expression. But if it is quick (is implemented as a primtiive, e.g. `0') it will return immediately back to the block that is sent newProcess above. Guard against that with the check for home being thisContext." [debugger interruptedContext method == aCompiledMethod] + whileFalse: [ + (guineaPig isNil and: [debugger interruptedContext home == thisContext]) + ifTrue: [^ Project uiManager inform: 'Nothing to debug; expression is optimized']. + debugger send]. + + debugger openFullNoSuspendLabel: 'Debug it'.! - whileFalse: - [(guineaPig isNil - and: [debugger interruptedContext home == thisContext]) ifTrue: - [debuggerWindow delete. - UIManager default inform: 'Nothing to debug; expression is optimized'. - ^self]. - debugger send]! Item was added: + ----- Method: MorphicDebugger>>abandon: (in category 'initialize') ----- + abandon: myWindow + + myWindow delete.! Item was added: + ----- Method: MorphicDebugger>>openFullFromNotifier: (in category 'initialize') ----- + openFullFromNotifier: notifierWindow + "Create, schedule and answer a full debugger with the given label. Do not terminate the current active process." + + super openFullFromNotifier: notifierWindow. + + notifierWindow delete. + + ^ ToolBuilder default + open: self + label: notifierWindow label! Item was added: + ----- Method: MorphicDebugger>>openFullNoSuspendLabel: (in category 'initialize') ----- + openFullNoSuspendLabel: aString + "Create, schedule and answer a full debugger with the given label. Do not terminate the current active process." + + super openFullNoSuspendLabel: aString. + + ^ ToolBuilder default + open: self + label: aString! Item was added: + ----- Method: MorphicDebugger>>openNotifierNoSuspendContents:label: (in category 'initialize') ----- + openNotifierNoSuspendContents: msgString label: label + + | builder spec | + super openNotifierNoSuspendContents: msgString label: label. + + builder := ToolBuilder default. + spec := self buildNotifierWith: builder label: label message: msgString. + + ^ ToolBuilder default open: spec! Item was added: + ----- Method: MorphicProject>>interruptCleanUpFor: (in category 'scheduling & debugging') ----- + interruptCleanUpFor: interruptedProcess + "Clean up things in case of a process interrupt." + + super interruptCleanUpFor: interruptedProcess. + + (Preferences eToyFriendly and: [interruptedProcess == self uiProcess]) + ifTrue: [Project current world stopRunningAll].! Item was changed: ----- Method: MorphicProject>>interruptName:preemptedProcess: (in category 'scheduling & debugging') ----- interruptName: labelString preemptedProcess: theInterruptedProcess "Create a Notifier on the active scheduling process with the given label." | preemptedProcess projectProcess | + self uiProcess == Processor activeProcess ifTrue: [ + ^ self inform: 'You cannot interrupt from within the UI process.\Use a helper process instead.' withCRs translated]. + ActiveHand ifNotNil:[ActiveHand interrupted]. ActiveWorld := world. "reinstall active globals" ActiveHand := world primaryHand. ActiveHand interrupted. "make sure this one's interrupted too" ActiveEvent := nil. projectProcess := self uiProcess. "we still need the accessor for a while" preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess]. "Only debug preempted process if its priority is >= projectProcess' priority" preemptedProcess priority < projectProcess priority ifTrue:[preemptedProcess := projectProcess]. + preemptedProcess suspend. + self interruptCleanUpFor: preemptedProcess. ToolSet debugInterruptedProcess: preemptedProcess label: labelString.! Item was added: + ----- Method: MorphicProject>>startUpActions (in category 'enter') ----- + startUpActions + + super startUpActions. + + self world install. + self world firstHand position: 100@100.!

3 3

Jump to page: