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

16
src/Carp/GtCarpNewFunctionCoderModel.class.st
View File

@@ -10,14 +10,11 @@ Class {
{ #category : #accessing }
GtCarpNewFunctionCoderModel >> initializeAddOns: addOns [
super initializeAddOns: addOns.
addOns
addMainAction: 'Save' translated
icon: BrGlamorousVectorIcons accept
action: [ :aCoderUIModel :anElement |
self save ]
id: GtMethodCoderSaveActionId.
addMainAction: 'Save' translated
icon: BrGlamorousVectorIcons accept
action: [ :aCoderUIModel :anElement | self save ]
id: GtMethodCoderSaveActionId
]
{ #category : #coders }
@@ -32,6 +29,9 @@ GtCarpNewFunctionCoderModel >> onSave: aBlock [
{ #category : #accessing }
GtCarpNewFunctionCoderModel >> save [
module addExpression: (CarpParser parse: sourceCode currentSourceText value text) intoModel.
| expression |
expression := (CarpParser parse: sourceCode currentSourceText value text) intoModel.
module addExpression: expression.
self bindAndExecute: module toCarp.
onSave ifNotNil: [ onSave value ]
]