From 4d4a3f669756242dda4bd507a8ad6026e6206416 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 22 Jan 2023 13:12:10 -0500
Subject: [PATCH] Starting support for reading Grafoscopio nodes/notebooks.

---
 src/MiniDocs/GrafoscopioNode.class.st | 121 ++++++++++++++++++++++++++
 1 file changed, 121 insertions(+)
 create mode 100644 src/MiniDocs/GrafoscopioNode.class.st

diff --git a/src/MiniDocs/GrafoscopioNode.class.st b/src/MiniDocs/GrafoscopioNode.class.st
new file mode 100644
index 0000000..12fe881
--- /dev/null
+++ b/src/MiniDocs/GrafoscopioNode.class.st
@@ -0,0 +1,121 @@
+Class {
+	#name : #GrafoscopioNode,
+	#superclass : #Object,
+	#instVars : [
+		'header',
+		'body',
+		'tags',
+		'children',
+		'parent',
+		'links',
+		'level',
+		'created',
+		'nodesInPreorder'
+	],
+	#category : #MiniDocs
+}
+
+{ #category : #accessing }
+GrafoscopioNode >> body [
+	^ body
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> body: anObject [
+	body := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> children [
+	^ children
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> children: anObject [
+	children := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> created [
+	^ created
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> created: anObject [
+	created := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> gtTextFor: aView [
+	<gtView>
+	^ aView textEditor
+		title: 'Body';
+		text: [ body ]
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> header [
+	^ header
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> header: anObject [
+	header := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> level [
+	^ level
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> level: anObject [
+	level := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> links [
+	^ links
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> links: anObject [
+	links := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> nodesInPreorder [
+	^ nodesInPreorder
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> nodesInPreorder: anObject [
+	nodesInPreorder := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> parent [
+	^ parent
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> parent: anObject [
+	parent := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> printOn: aStream [
+	super printOn: aStream.
+	aStream
+		nextPutAll: '( ', self header, ' )'
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> tags [
+	^ tags
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> tags: anObject [
+	tags := anObject
+]