Ctrl-W to wipe output area

Dierk · Jun 1, 2015 · c5915a5 · c5915a5
1 parent 18b1949
commit c5915a5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/client/src/main/frege/org/frege/Application.fr b/client/src/main/frege/org/frege/Application.fr
@@ -96,6 +96,7 @@ onKeyReleased mQueue stage inputArea outputArea items historySelection = KeyEven
                 "l"    -> loadFile stage inputArea
                 "b"    -> biggerFont  inputArea outputArea
                 "s"    -> smallerFont inputArea outputArea
+                "w"    -> outputArea.setText ""
                 _      -> return ()
             else do
                 code <- keyEvent.getCode
@@ -468,6 +469,7 @@ cmdHelp = [
             ("Ctrl-L", "Load Frege code via file chooser dialog."),
             ("Ctrl-B", "Bigger font."),
             ("Ctrl-S", "Smaller font."),
+            ("Ctrl-W", "Wipe output area."),
             ("Ctrl-Enter", "Insert line feed."),
             (":t or :type <expression>", "Display the type of an expression."),
             (":browse <module name>", "Display the names in a module if " ++