/*
 *   $VER: FOLDS.MENU 4.0039 (22-Mai-95)
 */

VERSIONCHECK 40000 "FOLDS.MENU"


MENU "Falten"

ITEM "Falte Block" "alt f"
  FOLD @MARKA @MARKB;

ITEM "Entfalte Zeile" "alt u"
  UNFOLD @CURSOR @CURSOR 1;

ITEM "Falte zurück" "alt shift f"
  REFOLD;

ITEMBAR

ITEM "Entfalte alle ..." ""
  GETNUMBER "Wieviele Faltungsebenen\nsollen entfaltet werden?" 1 
  UNFOLD @SOT @EOT _RN;