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

 pickiswrap()        Return the wrap mode of a list
------------------------------------------------------------------------------
 Declaration
   pick.hdr

 Syntax
   func logical pickiswrap extern
   param value _SLIST pList

 Arguments
   pList is a list pointer.


 Return
   A logical indicating the skip mode for the list.

 Description
   The pickiswrap() function returns the currently defined wrap mode
   for list display. By default wrap mode is turned off, i. e. when
   executing the pickdisp() function, the selection bar does not wrap to the
   first/last item if the user tries to move the bar past the
   last/beyond the first list item.

   This function is normally used with string lists to be displayed via the
   pickdisp() function.

 Example
   #define EXAMPLE_LIST
   #include example.hdr

   proc Test_pickiswrap
   vardef
      _SLIST pList
   enddef
   pList := pickinit()
   
   pickadd( pList, "One" )
   pickadd( pList, "Two" )
   pickadd( pList, "Three" )
   pickadd( pList, "Four" )
   pickadd( pList, "Five" )
   
   ? pickiswrap( pList )          // display current skip setting (.f.)
   picksetwrap( pList, .t. )      // clear the skip flag for the list
   ? pickiswrap( pList )          // display current skip setting (.t.)
   
   pickclear( pList )
   endproc

   proc main
   Test_pickiswrap()
   endproc