Highlighting tiddler collections in the network view.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-06-22 13:05:45 -05:00
parent 6430d33fd7
commit c7fca28305

View File

@ -682,6 +682,31 @@ TiddlyWiki >> networkViewHighlightingCreator: creatorName [
^ view ^ view
] ]
{ #category : #accessing }
TiddlyWiki >> networkViewHighlightingNodesIn: aCollection [
^ self networkViewHighlightingNodesIn: aCollection withColor: self networkViewForeground
]
{ #category : #accessing }
TiddlyWiki >> networkViewHighlightingNodesIn: aCollection withColor: aColor [
| view |
view := GtMondrian new.
view nodes
stencil: [ :each |
| color size |
color := (aCollection includes: each )
ifTrue: [ aColor ]
ifFalse: [ self networkViewBackground ].
size := 5 @ 5.
BlElement new background: color; size: size ];
with: self tiddlers.
view edges
connectToAll: #linkedTiddlers.
view layout force.
^ view
]
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> oldestCreatedTiddler [ TiddlyWiki >> oldestCreatedTiddler [