<commit_before>*GToolkit-Documenter
gtInspectorTreeIn: composite
	<gtInspectorPresentationOrder: 10>
	^ composite blocMondrian
		title: 'Tree';
		painting: [ :view :x :presentation |
			view nodes
				shape: [ :each | 
					(each isKindOf: BrCollectionRope)
						ifTrue: [
							BlTextElement new 
								zIndex: 10;
								background: Color white;
								constraintsDo: [ :c | c padding: (BlInsets all: 5) ];
								text: each asString asRopedText;
								when: BlClickEvent do: [ presentation selection: each ] ]
						ifFalse: [
							BlElement new 
								zIndex: 10;
								geometry: BlEllipse new;
								border: (BlBorder paint: Color black width: 1);
								in: [ :anElement |
									(each isKindOf: BrAttributeRope)
										ifTrue: [ anElement background: Color orange ]
										ifFalse: [ anElement background: Color white ] ];
								size: 10@10;
								when: BlClickEvent do: [ presentation selection: each ] ] ];
				with: (self withDeepCollect: #children).
			view edges
				shape: [ :each | BlLineElement new border: (BlBorder paint: (Color gray alpha: 0.5) width: 1 ) ];
				connectToAll: #children.
			view layout tree 
				horizontalGap: 20;
				verticalGap: 40 ]<commit_msg>[documenter] changed rope tree to horizontal<commit_after>*GToolkit-Documenter
gtInspectorTreeIn: composite
	<gtInspectorPresentationOrder: 10>
	^ composite blocMondrian
		title: 'Tree';
		painting: [ :view :x :presentation |
			view nodes
				shape: [ :each | 
					(each isKindOf: BrCollectionRope)
						ifTrue: [
							BlTextElement new 
								zIndex: 10;
								background: Color white;
								constraintsDo: [ :c | c padding: (BlInsets all: 5) ];
								text: each asString asRopedText;
								when: BlClickEvent do: [ presentation selection: each ] ]
						ifFalse: [
							BlElement new 
								zIndex: 10;
								geometry: BlEllipse new;
								border: (BlBorder paint: Color black width: 1);
								in: [ :anElement |
									(each isKindOf: BrAttributeRope)
										ifTrue: [ anElement background: Color orange ]
										ifFalse: [ anElement background: Color white ] ];
								size: 10@10;
								when: BlClickEvent do: [ presentation selection: each ] ] ];
				with: (self withDeepCollect: #children).
			view edges
				shape: [ :each | BlLineElement new border: (BlBorder paint: (Color gray alpha: 0.5) width: 1 ) ];
				connectToAll: #children.
			view layout horizontalTree 
				horizontalGap: 30;
				verticalGap: 10 ]
{'fraction_non_alphanumeric': 0.09728415079043372, 'fraction_numerical': 0.015403323875152006, 'mean_word_length': 2.6617210682492582, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5566456', 'n_tokens_mistral': 1088, 'n_tokens_neox': 738, 'n_words': 227}