New accessors.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-08-28 20:24:25 -05:00
parent 1c54938532
commit f73ca8ef32

View File

@ -23,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'.
@ -92,6 +102,11 @@ CodiMD >> url [
^ url asUrl ^ url asUrl
] ]
{ #category : #accessing }
CodiMD >> url: anObject [
url := anObject
]
{ #category : #visiting } { #category : #visiting }
CodiMD >> visit [ CodiMD >> visit [
WebBrowser openOn: self server, '/', self pad. WebBrowser openOn: self server, '/', self pad.