Fixes ungraft and removes accidental duplication

[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 026a1631bc2a45f174e52f847b6a2495e6adb2b8..bbf68cb274f64a1fa477af62300b7a8d09351003 100644 (file)
--- a/basis/ui/tools/button-list/button-list.factor
+++ b/basis/ui/tools/button-list/button-list.factor
@@ -27,7 +27,7 @@ active-buttons [ H{ } ] initialize
     label-from-button [ dup active-buttons get delete-at ] [ f ] if* ;
 
 M: clickable graft* [ store-labelled-button drop ] [ call-next-method ] bi ;
-M: button ungraft* [ remove-labelled-button drop ] [ call-next-method ] bi ;
+M: clickable ungraft* [ remove-labelled-button drop ] [ call-next-method ] bi ;
 
 : <active-buttons-table> ( model -- table )
     [ keys [ ">" swap 2array ] map ] <arrow> trivial-renderer [ second ] <search-table>