From 9c7a9bb280af589e8970b69a4910b35fc26bc6fb Mon Sep 17 00:00:00 2001
From: OffrayLuna <offray.luna@mutabit.com>
Date: Sat, 2 May 2020 18:59:57 -0500
Subject: [PATCH] Preparing for content importation.

---
 repository/Grafoscopio-Utils/CodiMD.class.st | 26 ++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/repository/Grafoscopio-Utils/CodiMD.class.st b/repository/Grafoscopio-Utils/CodiMD.class.st
index 040e385..796820d 100644
--- a/repository/Grafoscopio-Utils/CodiMD.class.st
+++ b/repository/Grafoscopio-Utils/CodiMD.class.st
@@ -10,7 +10,9 @@ Class {
 	#superclass : #Object,
 	#instVars : [
 		'server',
-		'pad'
+		'pad',
+		'contents',
+		'url'
 	],
 	#category : #'Grafoscopio-Utils'
 }
@@ -21,6 +23,16 @@ CodiMD class >> newDefault [
 		defaultServer.
 ]
 
+{ #category : #accessing }
+CodiMD >> contents [
+	^ contents
+]
+
+{ #category : #accessing }
+CodiMD >> contents: anObject [
+	contents := anObject
+]
+
 { #category : #'as yet unclassified' }
 CodiMD >> defaultServer [
 	self server: 'https://docutopia.tupale.co'.
@@ -46,7 +58,17 @@ CodiMD >> server: aUrlString [
 	server := aUrlString
 ]
 
+{ #category : #accessing }
+CodiMD >> url [
+	^ url
+]
+
+{ #category : #accessing }
+CodiMD >> url: anObject [
+	url := anObject
+]
+
 { #category : #visiting }
 CodiMD >> visit [
-	WebBrowser openOn: self server, '/', self pad.
+	WebBrowser openOn: self url.
 ]