basis/ui/tools/listener/popups/popups.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors documents.elements kernel math.rectangles
   4 math.vectors ui.gadgets.editors ui.gadgets.glass ;
   5 IN: ui.tools.listener.popups
   6
   7 : caret-loc ( interactor element -- loc )
   8     [
   9         [ [ editor-caret ] [ model>> ] bi ] dip
  10         prev-elt
  11     ] [ drop ] 2bi
  12     loc>point ;
  13
  14 : relevant-rect ( interactor element -- rect )
  15     [ caret-loc ] [ drop caret-dim { 0 1 } v+ ] 2bi <rect> ;
  16
  17 : show-listener-popup ( interactor element popup -- )
  18     [ [ drop ] [ relevant-rect ] 2bi ] dip swap show-popup ;