Index: main/widget/generic.lisp
===================================================================
--- main/widget/generic.lisp	(revision main,46)
+++ main/widget/generic.lisp	(revision main,63)
@@ -43,3 +43,3 @@
 (defgeneric draw (widget))
 
-(defgeneric activate (widget &optional callback))
+(defgeneric activate (widget &key key-callback &allow-other-keys))