Preparing for content importation.

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.
 ]