basis: removing unnecessary method stack effects.

[factor.git] / basis / ui / gadgets / worlds / worlds.factor

diff --git a/basis/ui/gadgets/worlds/worlds.factor b/basis/ui/gadgets/worlds/worlds.factor
index abfab5ce48b9532a99aada153471bf53d5b13dbd..8e8a702e022edafb56ddc33f7b7ff9d7d1d0f2f6 100644 (file)
--- a/basis/ui/gadgets/worlds/worlds.factor
+++ b/basis/ui/gadgets/worlds/worlds.factor
@@ -112,7 +112,7 @@ ERROR: no-world-found ;
         [ (request-focus) ] keep
     ] unless focus-child ;
 
-M: world request-focus-on ( child gadget -- )
+M: world request-focus-on
     2dup eq?
     [ 2drop ] [ dup focused?>> (request-focus) ] if ;
 
@@ -248,7 +248,7 @@ PREDICATE: specific-drag < drag #>> ;
 : generalize-gesture ( gesture -- )
     clone f >># button-gesture ;
 
-M: world handle-gesture ( gesture gadget -- ? )
+M: world handle-gesture
     2dup call-next-method [
         {
             { [ over specific-button-up? ] [ drop generalize-gesture f ] }