basis: removing unnecessary method stack effects.

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

diff --git a/basis/ui/gadgets/gadgets.factor b/basis/ui/gadgets/gadgets.factor
index 2a81f56718f6bec85dce2d9b3ab3ce1438417e01..e06ab08c914c7a936f85e75f389f3b0d8ca8c885 100644 (file)
--- a/basis/ui/gadgets/gadgets.factor
+++ b/basis/ui/gadgets/gadgets.factor
@@ -79,10 +79,10 @@ PRIVATE>
     rect rect-bounds v+ axis children quot (fast-children-on) ?1+
     children <slice> ; inline
 
-M: gadget contains-rect? ( bounds gadget -- ? )
+M: gadget contains-rect?
     dup visible?>> [ call-next-method ] [ 2drop f ] if ;
 
-M: gadget contains-point? ( loc gadget -- ? )
+M: gadget contains-point?
     dup visible?>> [ call-next-method ] [ 2drop f ] if ;
 
 : pick-up ( point gadget -- child/f )
@@ -182,7 +182,7 @@ M: gadget dim-changed
 
 PRIVATE>
 
-M: gadget dim<< ( dim gadget -- )
+M: gadget dim<<
     2dup dim>> =
     [ 2drop ]
     [ [ nip ] [ call-next-method ] 2bi dim-changed ] if ;