Click above to get retro games delivered to your door ever month!

 pickismarked()      Return the marked status of a list item
------------------------------------------------------------------------------
 Declaration
   pick.hdr

 Syntax
   func logical pickismarked extern
   param value _SLIST pList, ;
         value uint   uItem

 Arguments
   pList is a list pointer.
   uItem is a list item index.

 Return
   A logical indicating if the list item is marked.

 Description
   This function returns .t. if the specified list item is marked, or .f. if
   it is not marked (the default). The pickdisp() function displays
   marked items with a leading or trailing "tick marker" ('.' by default).

 Example
   #define EXAMPLE_LIST
   #include example.hdr

   proc Test_pickismarked
   vardef
      _SLIST pList
   enddef
   pList := pickinit()
   
   pickadd( pList, "One" )
   pickadd( pList, "Two" )
   pickadd( pList, "Three" )
   pickadd( pList, "Four" )
   pickadd( pList, "Five" )
   
   picksetmarked( pList, 3, .t. ) // set the marked flag for item 3
   
   ? pickismarked( pList, 1 )     // output: .f.
   ? pickismarked( pList, 3 )     // output: .t.
   
   pickclear( pList )
   endproc

   proc main
   Test_pickismarked()
   endproc