From 2f2306e973b4d2321b8e5b16c7f6915a286cfe03 Mon Sep 17 00:00:00 2001 From: razetime Date: Sat, 21 Oct 2023 20:45:31 +0800 Subject: [PATCH] ui.gadget.comboboxes: correct on click behaviour --- extra/ui/gadgets/comboboxes/comboboxes.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/ui/gadgets/comboboxes/comboboxes.factor b/extra/ui/gadgets/comboboxes/comboboxes.factor index e95dcfa5bc..b0a185834c 100644 --- a/extra/ui/gadgets/comboboxes/comboboxes.factor +++ b/extra/ui/gadgets/comboboxes/comboboxes.factor @@ -7,7 +7,7 @@ IN: ui.gadgets.comboboxes TUPLE: combo-table < table spawner ; M: combo-table handle-gesture - [ call-next-method drop ] 2keep swap T{ button-up } = [ + [ call-next-method drop ] 2keep swap T{ button-down } = [ [ spawner>> ] [ tbl:selected-row [ swap set-control-value ] [ 2drop ] if ] [ hide-glass ] tri @@ -16,7 +16,7 @@ M: combo-table handle-gesture TUPLE: combobox < label-control table ; combobox H{ - { T{ button-down } [ dup table>> over >>spawner show-glass ] } + { T{ button-up } [ dup table>> over >>spawner show-glass ] } } set-gestures : ( options -- combobox ) -- 2.34.1