Packages January 2023

packages@lists.squeakfoundation.org

1 participants
145 discussions

The Trunk: PreferenceBrowser-mt.155.mcz
by commits＠source.squeak.org 20 Jan '23

20 Jan '23

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.155.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.155 Author: mt Time: 20 January 2023, 6:49:09.406382 pm UUID: 6e676602-7bfe-f846-922f-7dc9b403571f Ancestors: PreferenceBrowser-mt.154 Complements System-mt.1385 =============== Diff against PreferenceBrowser-mt.154 =============== Item was added: + ----- Method: PreferenceBrowser>>initialExtentKey (in category 'initialize-release') ----- + initialExtentKey + + ^ { self class name . title }! Item was changed: ----- Method: PreferenceBrowserMorph>>initializeWithModel: (in category 'initialization') ----- initializeWithModel: aPreferenceBrowser lastKeystrokeTime := 0. lastKeystrokes := ''. self defaultFocusMorph: #search; hResizing: #spaceFill; "Snap #extent to grid if enabled. See #worldGridEnabled." vResizing: #spaceFill; "Snap #extent to grid if enabled. See #worldGridEnabled." model: aPreferenceBrowser; setLabel: self model windowTitle; name: 'PreferenceBrowser'; addMorph: self rootPanel fullFrame: self rootPanelLayoutFrame; addMorph: self newButtonRow fullFrame: self buttonRowLayoutFrame; "Set bounds like the MorphicToolBuilder does when building windows." bounds: (RealEstateAgent initialFrameFor: self + initialExtent: ((RealEstateAgent savedExtentFor: aPreferenceBrowser) + ifNil: [aPreferenceBrowser initialExtent] + ifNotNil: [:initialExtent | (initialExtent * RealEstateAgent scaleFactor) rounded]) - initialExtent: aPreferenceBrowser initialExtent world: self currentWorld).!

1 0

The Trunk: Morphic-mt.2070.mcz
by commits＠source.squeak.org 20 Jan '23

20 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2070.mcz ==================== Summary ==================== Name: Morphic-mt.2070 Author: mt Time: 20 January 2023, 6:48:51.837382 pm UUID: 698147f2-5aa9-2c41-b96e-a21f8163a07d Ancestors: Morphic-mt.2069 Complements System-mt.1385 =============== Diff against Morphic-mt.2069 =============== Item was changed: ----- Method: SystemWindow>>delete (in category 'open/close') ----- delete | thisWorld sketchEditor aPaintBox | self mustNotClose ifTrue: [^self]. model okToClose ifFalse: [^self]. thisWorld := self world. sketchEditor := self extantSketchEditor. self activeHand removeKeyboardListener: self. + RealEstateAgent rememberExtentFor: model. self isFlexed ifTrue: [owner delete] ifFalse: [super delete]. model windowIsClosing; release. model := nil. sketchEditor ifNotNil: [sketchEditor deleteSelfAndSubordinates. (thisWorld notNil and: [(aPaintBox := thisWorld paintBoxOrNil) notNil]) ifTrue: [aPaintBox delete]]. SystemWindow noteTopWindowIn: thisWorld!

1 0

The Trunk: Collections-mt.1027.mcz
by commits＠source.squeak.org 20 Jan '23

20 Jan '23

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1027.mcz ==================== Summary ==================== Name: Collections-mt.1027 Author: mt Time: 20 January 2023, 6:48:27.271382 pm UUID: e6a4efed-f0ab-7740-9337-9468fd2e65b5 Ancestors: Collections-ct.1026 Complements System-mt.1385 =============== Diff against Collections-ct.1026 =============== Item was added: + ----- Method: TranscriptStream>>containingWindow (in category 'model protocol') ----- + containingWindow + + ^ self dependents detect: + [:d | d isWindowForModel: self] ifNone: [nil]! Item was added: + ----- Method: TranscriptStream>>initialExtentKey (in category 'model protocol') ----- + initialExtentKey + + ^ { #Transcript }!

1 0

The Trunk: System-mt.1385.mcz
by commits＠source.squeak.org 20 Jan '23

20 Jan '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1385.mcz ==================== Summary ==================== Name: System-mt.1385 Author: mt Time: 20 January 2023, 6:48:03.083382 pm UUID: 2f1ecd2b-9f63-cd4b-93da-cea7c860b02c Ancestors: System-mt.1384 Restores "remember window extent" feature as it was present for debugger windows until the recent debugger clean-up. Expand this feature to all kinds of tool windows. Scope it via model class and window title. See implementors of #initialExtentKey. The new preference #rememberWindowExtent is disabled by default. The cache of saved window extent is cleared during #cleanUp: and preference toggling. Big thanks to Christoph (ct) for the idea and first implementation draft. =============== Diff against System-mt.1384 =============== Item was changed: + ----- Method: Model>>defaultWindowColor (in category '*System-Preferences') ----- - ----- Method: Model>>defaultWindowColor (in category '*System-preferences') ----- defaultWindowColor ^ self uniformWindowColor! Item was added: + ----- Method: Model>>initialExtentKey (in category '*System-Support-user interface') ----- + initialExtentKey + + ^ { self class name . self windowTitle hash }! Item was changed: + ----- Method: Model>>uniformWindowColor (in category '*System-Preferences') ----- - ----- Method: Model>>uniformWindowColor (in category '*System-preferences') ----- uniformWindowColor ^ self userInterfaceTheme uniformWindowColor ifNil: [Color veryVeryLightGray]! Item was changed: + ----- Method: Model>>windowColorToUse (in category '*System-Preferences') ----- - ----- Method: Model>>windowColorToUse (in category '*System-preferences') ----- windowColorToUse ^ Color colorFrom: (self class useColorfulWindows ifTrue: [self userInterfaceTheme customWindowColor ifNil: [self defaultWindowColor]] ifFalse: [self uniformWindowColor])! Item was changed: Object subclass: #RealEstateAgent instanceVariableNames: '' + classVariableNames: 'PlaceWindowsAtPointer RememberWindowExtent ReverseStaggerOffset SavedExtents ScaleFactor StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins WindowScaleFactor' - classVariableNames: 'PlaceWindowsAtPointer ReverseStaggerOffset ScaleFactor StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins WindowScaleFactor' poolDictionaries: '' category: 'System-Support'! !RealEstateAgent commentStamp: '<historical>' prior: 0! Responsible for real-estate management on the screen, which is to say, controlling where new windows appear, with what sizes, etc. 5/20/96 sw! Item was added: + ----- Method: RealEstateAgent class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + + aggressive ifTrue: [SavedExtents := nil].! Item was added: + ----- Method: RealEstateAgent class>>rememberExtentFor: (in category 'framing') ----- + rememberExtentFor: aModel + + self rememberWindowExtent ifFalse: [^ self]. + (aModel respondsTo: #initialExtentKey) ifFalse: [^ self]. + + aModel containingWindow ifNotNil: [:window | + self + savedExtentAt: aModel initialExtentKey + put: (window extent / self scaleFactor) rounded].! Item was added: + ----- Method: RealEstateAgent class>>rememberWindowExtent (in category 'preferences') ----- + rememberWindowExtent + <preference: 'Remember window extent' + category: #windows + description: 'When enabled, the extent of every window is saved on close and reused for similar windows.' + type: #Boolean> + ^ RememberWindowExtent ifNil: [false]! Item was added: + ----- Method: RealEstateAgent class>>rememberWindowExtent: (in category 'preferences') ----- + rememberWindowExtent: aBooleanOrNil + + (RememberWindowExtent := aBooleanOrNil) == false + ifTrue: [SavedExtents := nil].! Item was added: + ----- Method: RealEstateAgent class>>savedExtentAt: (in category 'framing') ----- + savedExtentAt: aKey + + ^ SavedExtents ifNotNil: [SavedExtents at: aKey ifAbsent: nil]! Item was added: + ----- Method: RealEstateAgent class>>savedExtentAt:put: (in category 'framing') ----- + savedExtentAt: aKey put: aPoint + + SavedExtents ifNil: [SavedExtents := Dictionary new]. + ^ SavedExtents at: aKey put: aPoint! Item was added: + ----- Method: RealEstateAgent class>>savedExtentFor: (in category 'framing') ----- + savedExtentFor: aModel + + self rememberWindowExtent ifFalse: [^ nil]. + (aModel respondsTo: #initialExtentKey) ifFalse: [^ nil]. + ^ self savedExtentAt: aModel initialExtentKey!

1 0

The Trunk: ToolsTests-mt.118.mcz
by commits＠source.squeak.org 20 Jan '23

20 Jan '23

Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-mt.118.mcz ==================== Summary ==================== Name: ToolsTests-mt.118 Author: mt Time: 20 January 2023, 3:50:07.134382 pm UUID: 3745d303-1094-ec4a-beed-3296cea1f58d Ancestors: ToolsTests-ct.117 Complements System-mt.1384 =============== Diff against ToolsTests-ct.117 =============== Item was changed: ----- Method: DebuggerTests>>test06DebugSpecificContext (in category 'tests') ----- test06DebugSpecificContext | context | process := [ #(1 2 3) collect: [:ea | ea odd ifTrue: [ ea ] ifFalse: [ Processor activeProcess suspend ] ] ] newProcess. process priority: Processor activeProcess priority + 1. process resume. "Find specific context by following #sender chain." context := process suspendedContext. [context selector = #collect: ] whileFalse: [context := context sender]. + debugger := ToolSet debugProcess: process context: context label: 'test06DebugSpecificContext' contents: nil fullView: true. - debugger := ToolSet debugProcess: process context: context label: nil contents: nil fullView: true. self assert: debugger contextStackTop = context.!

1 0

The Trunk: Morphic-mt.2069.mcz
by commits＠source.squeak.org 20 Jan '23

20 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2069.mcz ==================== Summary ==================== Name: Morphic-mt.2069 Author: mt Time: 20 January 2023, 3:49:44.701382 pm UUID: 54851436-afad-d543-837a-1705eb3d1905 Ancestors: Morphic-mt.2068 Complements System-mt.1384 =============== Diff against Morphic-mt.2068 =============== Item was changed: ----- Method: MorphicProject>>openDebuggerWindow: (in category 'scheduling & debugging') ----- openDebuggerWindow: windowOrModel + "Open the debugger window in the world. Verify integrity of visual representation here so that recursive-error detection kicks in immediately. See #guardRecursiveError:during:." - "Open the debugger window in the world. Verify integrity of visual representation here so that recursive-error detection kicks in immediately." | window | window := self uiManager toolBuilder open: windowOrModel. "There are way too many #fullBounds sends. Layout errors might already have happened." window allMorphsDo: [:m | (m hasProperty: #errorOnLayout) ifTrue: [self error: 'Layout error' translated]]. "Try layouting the debugger tool at least once to avoid freeze." self world doLayout. "Not safely!! to trigger layout errors if any" "Try redrawing the UI at least once to avoid freeze." self world displayWorld. "Not safely!! to trigger drawing errors if any"!

1 0

The Trunk: Tools-mt.1185.mcz
by commits＠source.squeak.org 20 Jan '23

20 Jan '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1185.mcz ==================== Summary ==================== Name: Tools-mt.1185 Author: mt Time: 20 January 2023, 3:49:16.090382 pm UUID: 094aa194-809e-394a-9cdd-33097af84d33 Ancestors: Tools-mt.1184 Complements System-mt.1384 =============== Diff against Tools-mt.1184 =============== Item was changed: ----- Method: Debugger class>>openOn:context:label:contents:fullView: (in category 'opening') ----- + openOn: process context: context label: title contents: contentsStringOrNil fullView: bool + "PRIVATE!! Open a notifier or a full debugger window for the given process + at the given context. Clients MUST use a ToolSet that is configured with the + receiver class (or tool) to then debug a process via + Process >> #debug(WithTitle:) + ProcessorScheduler >> #debugWithTitle: + ToolSet >> #debugProcess:context:... + and similar messages in Process or ProcessorScheduler. - openOn: process context: context label: titleOrNil contents: contentsStringOrNil fullView: bool - "Open a notifier or a full debugger window for the given process at the given context. Decorates that invocation with (1) recursive-error detection and (2) error logging, which are both independent from the active GUI framework, that is, MVC or Morphic. + Example invocations: + Processor debugWithTitle: 'Example'. + (Process forBlock: [3+4]) debug. + 7/0. - Note that clients should debug processes through Process >> #debug or ToolSet instead of calling this method directly." - - | activeProcess title | - activeProcess := Processor activeProcess. - title := titleOrNil ifNil: ['Debugger' translated]. + Configure a new tool set like this + ToolSet default: StandardToolSet + See commentary in + Process >> #debugWithTitle:full:contents: + ProcessorScheduler >> #debugContext:title:full:contents:" - "If the active process re-enters this method again, something went wrong with invoking the debugger." - activeProcess hasRecursiveError ifTrue: [ - activeProcess clearErrorRecursionFlag. - ^ ToolSet handleRecursiveError: title]. - - "Explicitely handle logging exceptions. No need to bother the recursion mechanism here." - [Preferences logDebuggerStackToFile - ifTrue: [Smalltalk logSqueakError: title inContext: context] - ] on: Error do: [:ex | - Preferences disable: #logDebuggerStackToFile. - ToolSet debugException: ex]. + ^ (self onProcess: process context: context) + openWithLabel: title + contents: contentsStringOrNil + fullView: bool; + yourself! - "If project-specific debuggers mess up, we have to flag that recursion here. See above." - [activeProcess setErrorRecursionFlag. - ^ (self onProcess: process context: context) - openWithLabel: title contents: contentsStringOrNil fullView: bool; - yourself - ] ensure: [activeProcess clearErrorRecursionFlag].!

1 0

The Trunk: System-mt.1384.mcz
by commits＠source.squeak.org 20 Jan '23

20 Jan '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1384.mcz ==================== Summary ==================== Name: System-mt.1384 Author: mt Time: 20 January 2023, 3:48:54.016382 pm UUID: 85b1fd2e-0162-b54c-b735-f046350d97ad Ancestors: System-mt.1383 Move (1) recursive-error detection and (2) stack-to-file logging from Debugger class to ToolSet/Project so that custom (process) debugging tools cannot omit to include these features. Note that, by now, most of the actual "debugging logic" is simply contained in - Context and Process (for code simulation, i.e., step into etc.) - Project and subclasses (for GUI/system responsiveness protection, i.e., recursive error detection, project fallback, emergency evaluator, ...) It's now easier to write a custom debugger, install it through a custom toolset, and then use it for the next unhandled error. =============== Diff against System-mt.1383 =============== Item was changed: ----- Method: Process>>debug (in category '*System-debugging') ----- debug "See the comment in #debugWithTitle:full:contents:." + ^ self debugWithTitle: 'Debugger' translated! - ^ self debugWithTitle: nil! Item was added: + ----- Method: Project>>debugProcess:inDialog: (in category 'scheduling & debugging') ----- + debugProcess: aProcess inDialog: aMessageText + "Inform the user about a debugging incident where no interactive debugger is available. Give a choice between #terminate and #inspect. Suspend the process anway." + + self addDeferredUIMessage: [ + (self uiManager confirm: aMessageText, '\\Terminate process?' translated withCRs) + ifTrue: [aProcess terminateAggressively] + ifFalse: [aProcess inspect]]. + + self suspendProcessSafely: aProcess. + + ^ nil "There is no debugger tool to answer."! Item was added: + ----- Method: Project>>guardRecursiveError:during: (in category 'scheduling & debugging') ----- + guardRecursiveError: errorMessage during: workBlock + + "If the active process re-enters this method again, something went wrong with invoking the debugger." + Processor activeProcess hasRecursiveError + ifTrue: [ + Processor activeProcess clearErrorRecursionFlag. + ToolSet handleRecursiveError: errorMessage]. + + "If project-specific debuggers mess up, we have to flag that recursion here." + Processor activeProcess setErrorRecursionFlag. + ^ workBlock ensure: [Processor activeProcess clearErrorRecursionFlag]! Item was changed: ----- Method: SmalltalkImage>>logError:inContext:to: (in category 'miscellaneous') ----- logError: errMsg inContext: aContext to: aFilename "Log the error message and a stack trace to the given file." + FileStream forceNewFileNamed: aFilename do: [:stream | + stream nextPutAll: (errMsg ifNil: ['(unspecified error)']); cr. + aContext errorReportOn: stream].! - | ff | - FileDirectory default deleteFileNamed: aFilename ifAbsent: []. - (ff := FileStream fileNamed: aFilename) ifNil: [^ self "avoid recursive errors"]. - - ff nextPutAll: errMsg; cr. - aContext errorReportOn: ff. - ff close.! Item was added: + ----- Method: SmalltalkImage>>tryLogSqueakError:inContext: (in category 'miscellaneous') ----- + tryLogSqueakError: errorMessage inContext: aContext + "Log error message and stack trace in file. Can be disabled via preference. Guard errors to avoid recursive error." + + Preferences logDebuggerStackToFile ifFalse: [^ false]. + + [Smalltalk logSqueakError: errorMessage inContext: aContext] + on: Error do: [:ex | + Preferences disable: #logDebuggerStackToFile. + ToolSet debugException: ex. + ^ false]. + + ^ true! Item was changed: ----- Method: ToolSet class>>debugProcess:context:label:contents:fullView: (in category 'debugging') ----- debugProcess: aProcess context: aContext label: aString contents: contents fullView: aBool + "Open a debugger on the given process, which might be active, suspended, or terminated. You can also use the convenience protocol for debugging on Process and ProcessorScheduler. + + NOTE that you SHOULD NOT pass 'Processor activeProcess' directly to this method to avoid mixing code simulation with genuine code execution. Always use the indirection via ProcessorScheduler >>#debug... See also the comment in Process >> #debugWithTitle:full:contents:." - "Open a debugger on the given process, which might be active, suspended, or terminated. You can also use the convenience protocol for debugging on Process and ProcessorScheduler. NOTE that you should not pass Processor activeProcess directly to this method. Always use the indirection via ProcessorScheduler >>#debug... See also the comment in Process >> #debugWithTitle:full:contents:." + "First, guard this incident to detect and handle recursive errors." + ^ Project current guardRecursiveError: aString during: [ + + "In any case, log the debugging incident into an external file." + Smalltalk tryLogSqueakError: aString inContext: aContext. + + self default + ifNotNil: [:toolSet | + "Let the current tool set decide about the best tool for the job." + toolSet + debugProcess: aProcess context: aContext + label: aString contents: contents + fullView: aBool] + ifNil: [ + "There is no tool set!! :-O ... Inform the user in a simple dialog." + Project current + debugProcess: aProcess + inDialog: ('No debugger available for process:\\ Name: {1}\ Hash: {2}\ Context: {3}\ Title: {4}\ Message: {5}' translated withCRs + format: {aProcess name. aProcess hash. aContext. aString. contents})] ]! - ^ self default - ifNil: [(self confirm: 'Debugger request -- proceed?' translated) ifFalse: [Processor terminateActive]] - ifNotNil: [:ts | ts debugProcess: aProcess context: aContext label: aString contents: contents fullView: aBool]!

1 0

The Trunk: ToolBuilder-MVC-mt.70.mcz
by commits＠source.squeak.org 18 Jan '23

18 Jan '23

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.70.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.70 Author: mt Time: 18 January 2023, 5:09:39.669866 pm UUID: c18105de-f2e5-1647-99fa-854d34c0dc3a Ancestors: ToolBuilder-MVC-mt.69 *** Debugger Refactoring - Step 3 of 2 *** Remove and/or deprecate the old interface. =============== Diff against ToolBuilder-MVC-mt.69 =============== Item was removed: - ----- Method: MVCToolBuilder>>openDebugger: (in category 'opening') ----- - openDebugger: anObject - "Build and open the object. Answer the widget opened." - | window | - window := self build: anObject. - window controller openNoTerminate. - ^window! Item was removed: - ----- Method: MVCToolBuilder>>openDebugger:label: (in category 'opening') ----- - openDebugger: anObject label: aString - "Build an open the object, labeling it appropriately. Answer the widget opened." - | window | - window := self build: anObject. - window label: aString. - window controller openNoTerminate. - ^window! Item was removed: - ----- Method: MVCToolBuilder>>openDebugger:label:closing: (in category 'opening') ----- - openDebugger: anObject label: aString closing: topView - "Build an open the object, labeling it appropriately. Answer the widget opened." - | window | - topView controller controlTerminate. - topView deEmphasize; erase. - - "a few hacks to get the scroll selection artifacts out when we got here by clicking in the list" - " topView subViewWantingControl ifNotNil: [ - topView subViewWantingControl controller controlTerminate - ]." - topView controller status: #closed. - window := self build: anObject. - window label: aString. - window controller openNoTerminate. - topView controller closeAndUnscheduleNoErase. - Processor terminateActive. - ^window!

1 0

The Trunk: ToolBuilder-Kernel-mt.162.mcz
by commits＠source.squeak.org 18 Jan '23

18 Jan '23

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.162.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.162 Author: mt Time: 18 January 2023, 5:09:26.397866 pm UUID: cccbe57c-2d70-7d4e-98e9-23976df3aee1 Ancestors: ToolBuilder-Kernel-eem.161 *** Debugger Refactoring - Step 3 of 2 *** Remove and/or deprecate the old interface. =============== Diff against ToolBuilder-Kernel-eem.161 =============== Item was removed: - ----- Method: ToolBuilder>>openDebugger: (in category 'opening') ----- - openDebugger: aSpec - "Build and open a debugger from the given spec. - Answer the widget opened. Subclasses can override this - method if opening a debugger has specific requirements - different from opening other widgets." - - ^ self open: aSpec - ! Item was removed: - ----- Method: ToolBuilder>>openDebugger:label: (in category 'opening') ----- - openDebugger: aSpec label: aString - "Build and open a debugger from the given spec, labeling it appropriately. - Answer the widget opened. Subclasses can override this - method if opening a debugger has specific requirements - different from opening other widgets." - - ^self open: aSpec label: aString - ! Item was removed: - ----- Method: ToolBuilder>>openDebugger:label:closing: (in category 'opening') ----- - openDebugger: aSpec label: aString closing: topView - "Build and open a debugger from the given spec, labeling it appropriately. - Answer the widget opened. Subclasses can override this - method if opening a debugger has specific requirements - different from opening other widgets." - - self close: topView. - ^ self open: aSpec label: aString - !

1 0

← Newer
1
2
3
4
5
6
7
8
...
15
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 January 2023