editor: add simple carp editor
This commit is contained in:
1
Pond.package/CarpEditor.class/README.md
Normal file
1
Pond.package/CarpEditor.class/README.md
Normal file
@@ -0,0 +1 @@
|
||||
I’m a simple editor with Carp code in it.
|
8
Pond.package/CarpEditor.class/instance/gtCheck.st
Normal file
8
Pond.package/CarpEditor.class/instance/gtCheck.st
Normal 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
6
Pond.package/CarpEditor.class/instance/gtContent..st
Normal 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
5
Pond.package/CarpEditor.class/instance/initialize.st
Normal 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
3
Pond.package/CarpEditor.class/instance/text.st
Normal file
@@ -0,0 +1,3 @@
|
||||
initialization
|
||||
text
|
||||
^ text
|
14
Pond.package/CarpEditor.class/properties.json
Normal file
14
Pond.package/CarpEditor.class/properties.json
Normal 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"
|
||||
}
|
Reference in New Issue
Block a user