Offray/TiddlyWikiPharo
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Using visualization options instead of hardcoded default values.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-05-30 10:38:16 -05:00
parent 2a07efd48c
commit aee8bc24d4
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
repository/TiddlyWiki/TiddlyWiki.class.st
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.