ui.tools.button-list: not sure why this commit was missed

[factor.git] / basis / ui / tools / button-list / button-list.factor

diff --git a/basis/ui/tools/button-list/button-list.factor b/basis/ui/tools/button-list/button-list.factor
index 87678d758e23c86e90f32dfd1adc1d2062d19bed..fb99e0c4a61cc9ef6d6512b4a11327ebb228f28c 100644 (file)
--- a/basis/ui/tools/button-list/button-list.factor
+++ b/basis/ui/tools/button-list/button-list.factor
@@ -39,7 +39,10 @@ M: clickable ungraft*
 : <active-buttons-table> ( model -- table )
     [ keys [ ">" swap 2array ] map ] <arrow> trivial-renderer [ second ] <search-table> 
     dup table>>
-        [ second world-buttons at invoke-primary ] >>action
+        [
+            second world-buttons at dup presentation?
+            [ invoke-primary ] [ button-invoke ] if
+        ] >>action
         [ hide-glass ] >>hook
         t >>selection-required?
         10 >>min-rows