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

 picksetmarkch()     Define the tick marker character of a list
------------------------------------------------------------------------------
 Declaration
   pick.hdr

 Syntax
   func uint picksetmarkch extern
   param value _LIST pList, ;
         value uint  uMarkChar

 Arguments
   pList is a list pointer.
   uMarkChar is the ASCII code of the mark character.

 Return
   The ASCII code of the previous mark character.

 Description
   To picksetmarkch() function is used to redefine the mark
   character for a list with the ASCII code of the new character in
   uMarkChar. By default the pickdisp() function uses the "."
   character character as a "tick marker" for marked items in a
   displayed list.

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

 Example
   #define EXAMPLE_LIST
   #include example.hdr

   proc Test_picksetmarkch
   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 .|
                                         //         +-------------+
   
   picksetmarkch( pList, '*' )
   
   pickdisp( pList, 5, 10, 6, 22 )       // Output: +-------------+
                                         //         |First item   |
                                         //         |Second item *|
                                         //         +-------------+
   pickclear( pList )
   endproc

   proc main
   Test_picksetmarkch()
   endproc