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

 updatecursor()      Make cursor shape track state of Insert flag
------------------------------------------------------------------------------
 Declaration
   io.hdr

 Syntax
   proc updatecursor extern

 Arguments
   None.

 Return
   None.

 Description
   This procedure sets the cursor shape according to the current state of
   the insert flag.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_updatecursor
   vardef
      uint uKey
   enddef
   ? "Input text. The cursor shape is automatically set during input"
   ? "according to the current insert state. Press Escape to exit."
   ?
   do while .t.
      updatecursor()
      uKey := getkey()
      if uKey == K_ESC
         exit
      endif
      if uKey >= ' ' .and. uKey <= 'z'
         ?? chr( uKey )
      endif
   enddo
   endproc

   proc main
   Test_updatecursor()
   endproc