Changeset 4386


Ignore:
Timestamp:
10/15/03 15:10:20 (19 years ago)
Author:
piso
Message:

populateModeMenu()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/j/LispMode.java

    r4295 r4386  
    33 *
    44 * Copyright (C) 1998-2003 Peter Graves
    5  * $Id: LispMode.java,v 1.58 2003-10-10 18:59:14 piso Exp $
     5 * $Id: LispMode.java,v 1.59 2003-10-15 15:10:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    8484        km.mapKey(KeyEvent.VK_9, CTRL_MASK | SHIFT_MASK, "insertParentheses");
    8585        km.mapKey(KeyEvent.VK_0, CTRL_MASK | SHIFT_MASK, "movePastCloseAndReindent");
     86    }
     87
     88    public void populateModeMenu(Editor editor, Menu menu)
     89    {
     90        boolean enabled = LispShell.findLisp(null) != null;
     91        menu.add(editor, "Eval Region", 'R', "evalRegionLisp", enabled);
     92        menu.add(editor, "Eval Defun", 'D', "evalDefunLisp", enabled);
    8693    }
    8794
Note: See TracChangeset for help on using the changeset viewer.