[ caret-loc ] [ drop caret-dim { 0 1 } v+ ] 2bi <rect> ;
: show-listener-popup ( interactor element popup -- )
- [ [ drop ] [ relevant-rect ] 2bi ] dip swap show-popup ;
\ No newline at end of file
+ [ [ drop ] [ relevant-rect ] 2bi ] dip swap show-popup ;