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

editor: add simple carp editor

Browse Source
This commit is contained in:
Veit Heller
2019-12-18 22:33:36 +01:00
parent 40c60f36ab
commit dd28135d14
6 changed files with 37 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Pond.package/CarpEditor.class/README.md Normal file
View File

@@ -0,0 +1 @@
I’m a simple editor with Carp code in it.

8
Pond.package/CarpEditor.class/instance/gtCheck.st Normal file
View File

@@ -0,0 +1,8 @@
initialization
gtCheck
<gtInspectorAction>
"TODO: make carp checker configurable"
^ GLMGenericAction new
action: [ GTInspector openOn: (CarpCheckExample new succeedingCarpChecker file: editor text asString; check) ];
icon: GLMUIThemeExtraIcons glamorousRefresh;
title: 'Check'

6
Pond.package/CarpEditor.class/instance/gtContent..st Normal file
View File

@@ -0,0 +1,6 @@
initialization
gtContent: aView
<gtInspectorPresentationOrder: 0>
(aView custom: editor)
title: 'Editor';
display: text

5
Pond.package/CarpEditor.class/instance/initialize.st Normal file
View File

@@ -0,0 +1,5 @@
initialization
initialize
text := ''.
"TODO: find out how to override the mode properly"
editor := GLMRubricHighlightedTextPresentation new withLineNumbers: true; editingMode: RubPlainTextMode new

3
Pond.package/CarpEditor.class/instance/text.st Normal file
View File

@@ -0,0 +1,3 @@
initialization
text
^ text

14
Pond.package/CarpEditor.class/properties.json Normal file
View File

@@ -0,0 +1,14 @@
{
"commentStamp" : "VeitHeller 12/18/2019 21:39",
"super" : "Object",
"category" : "Pond",
"classinstvars" : [ ],
"pools" : [ ],
"classvars" : [ ],
"instvars" : [
"text",
"editor"
],
"name" : "CarpEditor",
"type" : "normal"
}