From 5dbc19e898e1c72b479256f49f5ec04670ba2eae Mon Sep 17 00:00:00 2001 From: Esteban Lorenzano Date: Thu, 14 Nov 2024 15:47:43 +0100 Subject: [PATCH 1/2] add an extension to show items in queue this can be VERY slow, so is not the first view (so you have to choose it if you want to see) --- .../WaitfreeQueue.extension.st | 24 +++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 src/NewTools-Inspector-Extensions/WaitfreeQueue.extension.st diff --git a/src/NewTools-Inspector-Extensions/WaitfreeQueue.extension.st b/src/NewTools-Inspector-Extensions/WaitfreeQueue.extension.st new file mode 100644 index 00000000..d8af3ca8 --- /dev/null +++ b/src/NewTools-Inspector-Extensions/WaitfreeQueue.extension.st @@ -0,0 +1,24 @@ +Extension { #name : 'WaitfreeQueue' } + +{ #category : '*NewTools-Inspector-Extensions' } +WaitfreeQueue >> inspectionItemsOn: builder [ + + | items | + + items := Array streamContents: [ :stream | + | item count | + + item := dummy. + count := 0. + [ + item := item next. + item == dummy + ifFalse: [ stream nextPut: item object ]. + item isCircular + ] whileFalse + ]. + + ^ builder newList + items: items; + yourself +] From 0ccb49e70b1d2229c35ba9fa6b95074d6cb75c58 Mon Sep 17 00:00:00 2001 From: Esteban Lorenzano Date: Tue, 3 Dec 2024 15:07:36 +0100 Subject: [PATCH 2/2] add missing package --- src/BaselineOfNewTools/BaselineOfNewTools.class.st | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/BaselineOfNewTools/BaselineOfNewTools.class.st b/src/BaselineOfNewTools/BaselineOfNewTools.class.st index 8353bf3a..237d17a9 100644 --- a/src/BaselineOfNewTools/BaselineOfNewTools.class.st +++ b/src/BaselineOfNewTools/BaselineOfNewTools.class.st @@ -154,7 +154,8 @@ BaselineOfNewTools >> baseline: spec [ 'NewTools-DebuggerSelector' 'NewTools-DebuggerSelector-Tests' ); group: 'FileBrowser' with: #( - 'NewTools-FileBrowser' + 'NewTools-FileBrowser' + 'NewTools-FileBrowser-Morphic' 'NewTools-FileBrowser-Tests' ); group: 'RewriterTools' with: #( 'NewTools-RewriterTools-Backend'