carpentry/gt4carp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

A better IDE

Browse Source
This commit is contained in:
Veit Heller
2022-06-14 15:54:07 +02:00
parent 22d00d0360
commit d75b000ad1
11 changed files with 101 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Carp/LeCarpApplicationStrategy.class.st
View File

@@ -13,9 +13,8 @@ LeCarpApplicationStrategy class >> strategyName [
{ #category : #accessing }
LeCarpApplicationStrategy >> applicationServer [
content database isDatabase ifFalse: [ ^ nil ].
CarpApplication uniqueInstance ifNil:
[ CarpApplication uniqueInstance: (self newCarpApplicationFor: content database) ].
[ CarpApplication uniqueInstance: self newCarpApplication ].
^ CarpApplication uniqueInstance
]
@@ -31,10 +30,10 @@ LeCarpApplicationStrategy >> applicationSettings [
]
{ #category : #accessing }
LeCarpApplicationStrategy >> newCarpApplicationFor: aLeDatabase [
LeCarpApplicationStrategy >> newCarpApplication [
^ CarpApplication new initializeWith:
(self updatedSettings: LanguageLinkSettings carpDefaultSettings).
(self updatedSettings: LanguageLinkSettings carpDefaultSettings)
]