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

 picksetwrap()       Define the wrap mode of a list
------------------------------------------------------------------------------
 Declaration
   pick.hdr

 Syntax
   func logical picksetwrap extern
   param value _LIST   pList, ;
         value logical lWrap

 Arguments
   pList is a list pointer.
   lWrap indicates the wrap mode for the list.

 Return
   A logical indicating the previous wrap mode.

 Description
   The picksetwrap() function sets the wrap mode for the specified
   list. By default, the wrap mode of a list displayed by the
   pickdisp() function is off, i.e. the selection bar remains on
   the first/last item when the user tries to move it beyond/past this item.
   With lWrap set to .t., the selection bar wraps to the first item
   when the user tries to move the selection bar past the last item in
   the list, and the bar wraps to the last item when the user tries to move
   it beyond the first 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_picksetwrap
   vardef
      _SLIST pList
   enddef
   pList := FileMenu()
   clear
   pickdisp( pList, 2,  2, 12, 20 )
   picksetwrap( pList, .t. )                  // enable wrap
   pickdisp( pList, 2, 32, 12, 50 )
   pickclear( pList )
   endproc

   proc main
   Test_picksetwrap()
   endproc