Unique ids for booleans in values and improved visualization.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-05-11 12:19:34 -05:00
parent 5cf1d7bcc6
commit 6433da508a
2 changed files with 8 additions and 2 deletions

View File

@ -0,0 +1,6 @@
Extension { #name : #Dictionary }
{ #category : #'*MiniDocs' }
Dictionary >> treeView [
^ self asOrderedDictionary treeView
]

View File

@ -48,7 +48,7 @@ OrderedDictionary >> replaceNilsWith: aCharacter [
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
OrderedDictionary >> replaceWithUniqueNilsAndBooleansStartingAt: anInteger [ OrderedDictionary >> replaceWithUniqueNilsAndBooleansStartingAt: anInteger [
| totalNils shortUID newArray | | totalNils shortUID |
totalNils := self flattened asDataSeries countNils. totalNils := self flattened asDataSeries countNils.
shortUID := [NanoID generate copyFrom: 1 to: 3]. shortUID := [NanoID generate copyFrom: 1 to: 3].
self associations doWithIndex: [:assoc :i | | subIndex | self associations doWithIndex: [:assoc :i | | subIndex |
@ -73,7 +73,7 @@ OrderedDictionary >> treeView [
border: (BlBorder paint: Color black); border: (BlBorder paint: Color black);
geometry: BlEllipseGeometry new; geometry: BlEllipseGeometry new;
layout: (BlLinearLayout new alignCenter); layout: (BlLinearLayout new alignCenter);
addChild: (BlTextElement text: (x asRopedText fontSize: 17)) ]; addChild: (BlTextElement text: (x asRopedText fontSize: 10)) ];
with: (self flatCollectAsSet: #yourself) , self keys. with: (self flatCollectAsSet: #yourself) , self keys.
view edges view edges
stencil: [ :x | BlLineElement new border: (BlBorder paint: (Color blue alpha: 0.5) width: 4) ]; stencil: [ :x | BlLineElement new border: (BlBorder paint: (Color blue alpha: 0.5) width: 4) ];