home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d430 / smartfields.lha / SmartFields / Functions / field_delete_forward.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-11  |  714 b   |  29 lines
  1. /***************************************
  2. *  FIELD DELETE FORWARD v1.11
  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_delete_forward( field, wreq )
  15.   struct Field *field;
  16.   struct IOStdReq *wreq;
  17. {
  18.   REG int i;
  19.  
  20.   if (field->BufferPos < field->NumChars) {
  21.     con_char_mult_delete( wreq, field->NumChars - field->BufferPos );
  22.     for (i = field->BufferPos; i < field->NumChars; i++)
  23.       *(field->Buffer + i) = '\0';
  24.     field->NumChars = field->BufferPos;
  25.   }
  26.   else
  27.     FLASH_SCREEN;
  28. }
  29.