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

 picksetmarkpos()    Define the tick marker position of a list
------------------------------------------------------------------------------
 Declaration
   pick.hdr

 Syntax
   func logical picksetmarkpos extern
   param value _LIST   pList, ;
         value logical lMarkLeft

 Arguments
   pList is a list pointer.
   lMarkLeft indicates if the mark character is to be placed to the
   left of the item.

 Return
   A logical indicating the previous position of the mark character.

 Description
   The picksetmarkpos() function is used to override the default
   position of the list mark character. By default, the pickdisp() function
   places the "tick marker" at the rightmost column of marked items. With
   lMarkLeft set to .t., pickdisp() indents all items by one column, and
   places the "tick markers" at the leftmost column of the display area.

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

 Example
   #define EXAMPLE_LIST
   #include example.hdr

   proc Test_picksetmarkpos
   vardef
      _SLIST pList
   enddef
   pList := pickinit()
   pickadd( pList, "&First item" )
   pickadd( pList, "Seco&nd item" )
   
   picksetmarked( pList, 2, .t. )
   
   @ 4, 9 to 7, 23
   pickdisp( pList, 5, 10, 6, 22 )       // Output: +-------------+
                                         //         |First item   |
                                         //         |Second item .|
                                         //         +-------------+
   
   picksetmarkpos( pList, .t. )
   
   pickdisp( pList, 5, 10, 6, 22 )       // Output: +-------------+
                                         //         | First item  |
                                         //         |.Second item |
                                         //         +-------------+
   
   pickclear( pList )
   endproc

   proc main
   Test_picksetmarkpos()
   endproc