From a31b59748d2e5ba55ec55e4cf27d787b4e03371e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 13 Jan 2009 16:22:07 -0600
Subject: [PATCH] Working on history popup

---
 basis/ui/gadgets/tables/tables.factor   | 4 ++++
 basis/ui/tools/listener/listener.factor | 7 +++++++
 2 files changed, 11 insertions(+)

diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor
index d5db9f5a63..b08e4566f3 100644
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@@ -229,9 +229,13 @@ M: table model-changed
         [ >>mouse-index ] [ (select-row) ] bi
     ] if ;
 
+PRIVATE>
+
 : row-action ( table -- )
     dup selected-row [ swap action>> call ] [ 2drop ] if ;
 
+<PRIVATE
+
 : table-button-up ( table -- )
     hand-click# get 2 =
     [ row-action ] [ update-selected-value ] if ;
diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 1a1aa25eaa..ef4d249734 100644
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -485,6 +485,8 @@ M: completion-renderer row-value drop ;
 
 completion-popup H{
     { T{ key-down f f "ESC" } [ hide-completion-popup ] }
+    { T{ key-down f f "TAB" } [ table>> row-action ] }
+    { T{ key-down f f " " } [ table>> row-action ] }
 } set-gestures
 
 : show-completion-popup ( interactor quot -- )
@@ -498,6 +500,10 @@ completion-popup H{
     [ vocabs-matching ] [ words-matching ] ?
     show-completion-popup ;
 
+: history-completion-popup ( interactor -- )
+    dup '[ _ history>> dup zip completions ]
+    show-completion-popup ;
+
 : pass-to-popup? ( gesture interactor -- ? )
     [ [ key-down? ] [ key-up? ] bi or ]
     [ completion-popup>> ]
@@ -512,4 +518,5 @@ M: interactor handle-gesture
 
 interactor "completion" f {
     { T{ key-down f f "TAB" } word-completion-popup }
+    { T{ key-down f { C+ } "p" } history-completion-popup }
 } define-command-map
\ No newline at end of file