Changeset 4386

Timestamp:

10/15/03 15:10:20 (19 years ago)

Author:

piso

Message:

populateModeMenu()

File:

• trunk/j/src/org/armedbear/j/LispMode.java (modified) (2 diffs)

trunk/j/src/org/armedbear/j/LispMode.java

@@ -3 +3 @@
  *
  * Copyright (C) 1998-2003 Peter Graves
- * $Id: LispMode.java,v 1.58 2003-10-10 18:59:14 piso Exp $
+ * $Id: LispMode.java,v 1.59 2003-10-15 15:10:20 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -84 +84 @@
         km.mapKey(KeyEvent.VK_9, CTRL_MASK | SHIFT_MASK, "insertParentheses");
         km.mapKey(KeyEvent.VK_0, CTRL_MASK | SHIFT_MASK, "movePastCloseAndReindent");
+    }
+
+    public void populateModeMenu(Editor editor, Menu menu)
+    {
+        boolean enabled = LispShell.findLisp(null) != null;
+        menu.add(editor, "Eval Region", 'R', "evalRegionLisp", enabled);
+        menu.add(editor, "Eval Defun", 'D', "evalDefunLisp", enabled);
     }