Browse Source

editor: add simple carp editor

master
Veit Heller 2 years ago
parent
commit
dd28135d14
  1. 1
      Pond.package/CarpEditor.class/README.md
  2. 8
      Pond.package/CarpEditor.class/instance/gtCheck.st
  3. 6
      Pond.package/CarpEditor.class/instance/gtContent..st
  4. 5
      Pond.package/CarpEditor.class/instance/initialize.st
  5. 3
      Pond.package/CarpEditor.class/instance/text.st
  6. 14
      Pond.package/CarpEditor.class/properties.json

1
Pond.package/CarpEditor.class/README.md

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

8
Pond.package/CarpEditor.class/instance/gtCheck.st

@ -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

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

5
Pond.package/CarpEditor.class/instance/initialize.st

@ -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

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

14
Pond.package/CarpEditor.class/properties.json

@ -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"
}
Loading…
Cancel
Save