Preparing for content importation.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-05-02 18:59:57 -05:00
parent bd897d8def
commit 9c7a9bb280

View File

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