diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st index edab059..fe49439 100644 --- a/repository/TiddlyWiki/TiddlyWiki.class.st +++ b/repository/TiddlyWiki/TiddlyWiki.class.st @@ -611,6 +611,26 @@ TiddlyWiki >> networkView [ ^ view ] +{ #category : #accessing } +TiddlyWiki >> networkViewHighlightingCreator: creatorName [ + | view | + view nodes + stencil: [ :each | + | color size | + color := (each creator = creatorName) + ifTrue: [ Color blue ] + ifFalse: [ Color lightGray ]. + size := 5 @ 5. + BlElement new background: color; size: size; + when: BlClickEvent + do: [ :e | e currentTarget phlow spawnTool: each ] ]; + with: self tiddlers. + view edges + connectToAll: #linkedTiddlers. + view layout force. + ^ view +] + { #category : #accessing } TiddlyWiki >> oldestCreatedTiddler [