Starting BreaApps.
This commit is contained in:
parent
bbda57b908
commit
8833341eee
39
repository/Brea/BreaApp.class.st
Normal file
39
repository/Brea/BreaApp.class.st
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
Class {
|
||||||
|
#name : #BreaApp,
|
||||||
|
#superclass : #Object,
|
||||||
|
#instVars : [
|
||||||
|
'name',
|
||||||
|
'folder'
|
||||||
|
],
|
||||||
|
#category : #Brea
|
||||||
|
}
|
||||||
|
|
||||||
|
{ #category : #accessing }
|
||||||
|
BreaApp >> folder [
|
||||||
|
^ folder
|
||||||
|
]
|
||||||
|
|
||||||
|
{ #category : #accessing }
|
||||||
|
BreaApp >> folder: aFileDirectory [
|
||||||
|
folder := aFileDirectory
|
||||||
|
]
|
||||||
|
|
||||||
|
{ #category : #accessing }
|
||||||
|
BreaApp >> launch [
|
||||||
|
^ MiniDocsServer singleton
|
||||||
|
]
|
||||||
|
|
||||||
|
{ #category : #accessing }
|
||||||
|
BreaApp >> name [
|
||||||
|
^ name
|
||||||
|
]
|
||||||
|
|
||||||
|
{ #category : #accessing }
|
||||||
|
BreaApp >> name: aString [
|
||||||
|
name := aString
|
||||||
|
]
|
||||||
|
|
||||||
|
{ #category : #accessing }
|
||||||
|
BreaApp >> parentFolder: anObject [
|
||||||
|
self folder: anObject / self name asCamelCase
|
||||||
|
]
|
Loading…
Reference in New Issue
Block a user