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

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