Commit 37c9008c authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

Minor correction.

parent b9e3a4b2
......@@ -272,6 +272,7 @@ module Dl = struct
end
open Dl
type historic = {mutable top : string dl; mutable current : string dl}
......@@ -296,7 +297,7 @@ let get_current () =
let _ =
command_entry#event#connect#key_press
(fun (key: 'a Gdk.event) ->
~callback:(fun (key: 'a Gdk.event) ->
match (GdkEvent.Key.hardware_keycode key) with
| 111 -> (* Arrow top *)
next_command ();
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment