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

 picksetskip()       Define the skip mode of a list
------------------------------------------------------------------------------
 Declaration
   pick.hdr

 Syntax
   func logical picksetskip extern
   param value _LIST   pList, ;
         value logical lSkip

 Arguments
   pList is a list pointer
   lSkip is the skip status for the list.

 Return
   A logical indicating the previous skip status.

 Description
   The picksetskip() function sets the skip status of the specified list.
   By default, pickdisp()'s skip mode is on, i.e. when the user tries to move
   the selection bar on a non-active item in the list, the bar skips over it
   to the next active item. With lSkip set to .f., the selection bar
   can be positioned on non-active  items. This may be necessary if you
   want to implement a user-defined  keystroke handler which allows to
   reactivate items. Items with separator lines are always skipped,
   independently of the skip mode.

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

 Example
   #define EXAMPLE_LIST
   #include example.hdr

   proc Test_picksetskip
   vardef
      _SLIST pList
   enddef
   pList := FileMenu()
   clear
   __syscolor[ CLR_INACT ] := BLACK_DARK_GREY // dim inactives
   picksetact( pList, 4, .f. )                // deactivate some menu items
   picksetact( pList, 5, .f. )
   picksetact( pList, 7, .f. )
   pickdisp( pList, 2,  2, 12, 20 )
   clear
   picksetskip( pList, .f. )                  // disable skipping
   pickdisp( pList, 2, 32, 12, 50 )
   pickclear( pList )
   endproc

   proc main
   Test_picksetskip()
   endproc