Improving visualization techniques.
This commit is contained in:
parent
736155c5e9
commit
4210215215
@ -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 [
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user