ui.tools.listener: revert the commit that added UP/DOWN keybindings to

cycle history

diff --git a/basis/ui/tools/listener/listener-tests.factor b/basis/ui/tools/listener/listener-tests.factor
index 779be54b4b7410d2588f26c81589f00acc5dbbd7..ae060f0c63b6fb9e5b1c27db8cb6e129bec492d2 100644 (file)
--- a/basis/ui/tools/listener/listener-tests.factor
+++ b/basis/ui/tools/listener/listener-tests.factor
@@ -200,13 +200,6 @@ CONSTANT: text "Hello world.\nThis is a test."
 { } [ "l" get com-scroll-up ] unit-test
 { } [ "l" get com-scroll-down ] unit-test
 
-{ t t } [
-    T{ key-down f f "UP" } T{ key-down f { C+ } "p" }
-    [ <interactor> get-gesture-handler ] same?
-    T{ key-down f f "DOWN" } T{ key-down f { C+ } "n" }
-    [ <interactor> get-gesture-handler ] same?
-] unit-test
-
 ! stream-read-quot
 { [ 3 4 + ] } [
     <listener-gadget> input>> [ register-self ] keep

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index cc6923ab2d0c053de01af6d948a19b3266082c50..b2576d8a07b618f5edd409a32b00f3f0db24cb52 100644 (file)
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -380,8 +380,6 @@ interactor "completion" f {
     { T{ key-down f f "TAB" } code-completion-popup }
     { T{ key-down f { C+ } "p" } recall-previous }
     { T{ key-down f { C+ } "n" } recall-next }
-    { T{ key-down f f "UP" } recall-previous }
-    { T{ key-down f f "DOWN" } recall-next }
     { T{ key-down f { C+ } "r" } history-completion-popup }
 } define-command-map