!7

lib 1013041 // RSyntaxTextArea

import org.fife.ui.rtextarea.*;
import org.fife.ui.rsyntaxtextarea.*;

static Map<Int> keyStrokeMap = litmap(
  KeyEvent.VK_UP, KeyEvent.VK_KP_UP,
  KeyEvent.VK_DOWN, KeyEvent.VK_KP_DOWN,
  KeyEvent.VK_LEFT, KeyEvent.VK_KP_LEFT,
  KeyEvent.VK_RIGHT, KeyEvent.VK_KP_RIGHT
);

p-substance {
  new RSyntaxTextAreaDefaultInputMap inputMap;
  for (KeyStroke key : inputMap.keys()) {
    Int code = keyStrokeMap.get(key.getKeyCode());
    if (code != null)
      inputMap.put(KeyStroke.getKeyStroke(code, key.getModifiers()),
        inputMap.get(key));
  }
  //inputMap.put(KeyStroke.getKeyStroke(KeyEvent.VK_KP_DOWN, 0),
  //  inputMap.get(KeyStroke.getKeyStroke(KeyEvent.VK_DOWN, 0));
  UIManager.put("RSyntaxTextAreaUI.inputMap", inputMap);

  RSyntaxTextArea textArea = new RSyntaxTextArea(20, 60);
  textArea.setSyntaxEditingStyle(SyntaxConstants.SYNTAX_STYLE_JAVA);
  textArea.setCodeFoldingEnabled(true);
  textArea.setTabSize(2);
  textArea.setTabsEmulated(true); // Spaces are MUCH better
  RTextScrollPane sp = new RTextScrollPane(textArea);
  showFrame(sp);
}