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

 __tops_             Top displayed item in a pick list
------------------------------------------------------------------------------
 Declaration
   pick.hdr

 Syntax
   int __tops_

 Default
   1.

 Description
   The __tops_ system variable holds the order number of the list
   item that is currently displayed as the topmost item by the picklist()
   function.

 Example
   #define EXAMPLE_LIST
   #include example.hdr

   vardef static
      _SLIST pList
   enddef
   
   func uint ShowData static
   @ 2, 30 ?? "__tops_ is", __tops_
   return( lastkey() )
   endfunc
   
   proc Test_tops_
   vardef
      uint   n
      int    iChoice
   enddef
   clear
   ?
   pList := ExampleList()
   ShowData()
   on key do ShowData
   cursor( .f. )
   @ 3, 30 to 8, 45
   picklist( pList, 4, 31, 7, 44, iChoice, .f., .f. )
   pickclear( pList )
   endproc

   proc main
   Test_tops_()
   endproc