\ listutil

decimal

(hex) 0FFFF constant noListSelection

\ Given a list ID, return the 0-based
\ index of the currently selected
\ item. If nothing is selected, then
\ noListSelection is returned.
: list-sel@  ( listID -- selection )
    GetObjectPtr      ( &lst. )
    LstGetSelection ;
