diff --git a/extra/ui/gadgets/gadgets-docs.factor b/extra/ui/gadgets/gadgets-docs.factor index b9d12847be..47ae6b4733 100755 --- a/extra/ui/gadgets/gadgets-docs.factor +++ b/extra/ui/gadgets/gadgets-docs.factor @@ -180,10 +180,6 @@ HELP: focusable-child { $values { "gadget" gadget } { "child" gadget } } { $description "Outputs the child of the gadget which would prefer to receive keyboard focus." } ; -HELP: gadget, -{ $values { "gadget" gadget } } -{ $description "Adds a new child to the gadget being constructed. This word can only be used from a quotation passed to " { $link make-gadget } "." } ; - HELP: make-gadget { $values { "gadget" gadget } { "quot" quotation } } { $description "Calls the quotation in a new scope with the gadget stored in the " { $link gadget } " variable." } ; diff --git a/extra/ui/gadgets/gadgets.factor b/extra/ui/gadgets/gadgets.factor index ebe3773ce9..ce0df019e7 100755 --- a/extra/ui/gadgets/gadgets.factor +++ b/extra/ui/gadgets/gadgets.factor @@ -357,8 +357,6 @@ M: f request-focus-on 2drop ; : focus-path ( world -- seq ) [ focus>> ] follow ; -: gadget, ( gadget -- ) gadget get swap add-gadget drop ; - : g ( -- gadget ) gadget get ; : g-> ( x -- x x gadget ) dup g ;