Grafoscopio document tree preview.

src/MiniDocs/GrafoscopioNode.class.st

@@ -119,3 +119,40 @@ GrafoscopioNode >> tags [
 GrafoscopioNode >> tags: anObject [
 	tags := anObject
 ]
+
+{ #category : #accessing }
+GrafoscopioNode >> viewBody [
+
+	| aText |
+	aText := self header asRopedText.
+
+	self children do: [ :child | 
+		aText append: ' ' asRopedText.
+		aText append: (child header asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor).
+		aText append: ('= "' asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor).
+		aText append: (child body asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor).
+		aText append:
+			('"' asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor) ].
+
+
+	^ aText
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> viewChildrenFor: aView [ 
+	<gtView>
+	
+	children ifNil: [ ^ aView empty ].
+	
+	^ aView columnedTree
+		title: 'Children';
+		priority: 1;
+		items: [ { self } ];
+		children: #children;
+		column: 'Name' text: #viewBody;
+		expandUpTo: 2
+]

src/MiniDocs/MiniDocs.class.st

@@ -44,6 +44,12 @@ MiniDocs class >> appFolder [
 	^ tempFolder 
 ]
 
+{ #category : #accessing }
+MiniDocs class >> importGrafoscopioFile: aFileReference [ 
+
+	^ (STON fromString: aFileReference) first parent
+]
+
 { #category : #accessing }
 MiniDocs class >> initialize [
 	self keyboardShortcutsRemapping