New accessors.
This commit is contained in:
parent
1c54938532
commit
f73ca8ef32
@ -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.
|
||||||
|
Loading…
Reference in New Issue
Block a user