show-links-popup ( browser-gadget quot title -- )


Vocabulary
ui.tools.browser.popups

Inputs
browser-gadgetan object
quotan object
titlean object


Outputs
None

Definition
USING: accessors kernel math.rectangles namespaces ui.gadgets
ui.gadgets.glass ui.gestures ;

IN: ui.tools.browser.popups

: show-links-popup ( browser-gadget quot title -- )
[ dup model>> ] 2dip <links-popup>
[ hand-loc get-global point>rect show-glass ]
[ request-focus ] bi ; inline