From aee8bc24d47565ac0567e889c444eb31afb893f1 Mon Sep 17 00:00:00 2001
From: Offray <offray.luna@mutabit.com>
Date: Thu, 30 May 2024 10:38:16 -0500
Subject: [PATCH] Using visualization options instead of hardcoded default
 values.

---
 repository/TiddlyWiki/TiddlyWiki.class.st | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index c5bcfcb..b950f48 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -613,7 +613,12 @@ TiddlyWiki >> networkView [
 
 { #category : #accessing }
 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 }
@@ -624,8 +629,8 @@ TiddlyWiki >> networkViewHighlightingCreator: creatorName [
 		stencil: [ :each | 
 			| color  size |
 			color := (each creator = creatorName)
-					ifTrue: [ Color blue ]
-					ifFalse: [ Color lightGray ].
+					ifTrue: [ self networkViewForeground ]
+					ifFalse: [ self networkViewBackground ].
 			size := 5 @ 5.
 			BlElement new background: color; size: size ];
 		with: self tiddlers.