Using visualization options instead of hardcoded default values.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-05-30 10:38:16 -05:00
parent 2a07efd48c
commit aee8bc24d4

View File

@ -613,7 +613,12 @@ TiddlyWiki >> networkView [
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> networkViewBackground [ TiddlyWiki >> networkViewBackground [
self configDictonary at: 'networkView' at: 'background' ifAbsentPut: [Color lightGray] ^ self configDictonary at: 'networkView' at: 'background' ifAbsentPut: [Color lightGray]
]
{ #category : #accessing }
TiddlyWiki >> networkViewForeground [
^ self configDictonary at: 'networkView' at: 'background' ifAbsentPut: [Color blue]
] ]
{ #category : #accessing } { #category : #accessing }
@ -624,8 +629,8 @@ TiddlyWiki >> networkViewHighlightingCreator: creatorName [
stencil: [ :each | stencil: [ :each |
| color size | | color size |
color := (each creator = creatorName) color := (each creator = creatorName)
ifTrue: [ Color blue ] ifTrue: [ self networkViewForeground ]
ifFalse: [ Color lightGray ]. ifFalse: [ self networkViewBackground ].
size := 5 @ 5. size := 5 @ 5.
BlElement new background: color; size: size ]; BlElement new background: color; size: size ];
with: self tiddlers. with: self tiddlers.