home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d430 / smartfields.lha / SmartFields / Functions / field_paste.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-11  |  921 b   |  35 lines
  1. /***************************************
  2. *  FIELD PASTE v1.02
  3. *  © Copyright 1988 Timm Martin
  4. *  All Rights Reserved
  5. ****************************************/
  6.  
  7. #include <exec/io.h>
  8. #include <exec/types.h>
  9. #include <console/console.h>
  10. #include <console/fields.h>
  11. #include <console/functions.h>
  12. #include <toolkit/toolkit.h>
  13.  
  14. void field_paste( field, wreq )
  15.   struct Field *field;
  16.   struct IOStdReq *wreq;
  17. {
  18.   extern UBYTE field__clip[];  /* defined in field_input() */
  19.   REG    int i;
  20.  
  21.   if (field__clip[0]) {
  22.     cursor_jump_left( wreq, field->BufferPos );
  23.     con_char_mult_delete( wreq, field->NumChars );
  24.     for (i = 0; i < field->MaxChars - 1 && field__clip[i]; i++)
  25.       *(field->Buffer + i) = field__clip[i];
  26.     *(field->Buffer + i) = '\0';
  27.     field->NumChars = i;
  28.     con_put_string( wreq, field->Buffer );
  29.     cursor_jump_left( wreq, field->NumChars );
  30.     field->BufferPos = 0;
  31.   }
  32.   else
  33.     FLASH_SCREEN;
  34. }
  35.