home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / languages / c / oslib / Examples / p3-023 < prev    next >
Text File  |  1995-02-16  |  729b  |  32 lines
  1. #include <string.h>
  2.  
  3. #include "macros.h"
  4. #include "os.h"
  5. #include "wimp.h"
  6.  
  7. os_error *write_icon (wimp_w w, wimp_i i, char *buffer, char *string)
  8.  
  9. {  os_error *error = NULL;
  10.    wimp_caret caret;
  11.  
  12.    strcpy (buffer, string);
  13.       /*assume that these are 0-terminated, rather than 13 as in BASIC*/
  14.  
  15.    if ((error = xwimp_get_caret_position (&caret)) != NULL)
  16.       goto finish;
  17.  
  18.    if (w == caret.w && i == caret.i)
  19.    {  int len = strlen (buffer);
  20.  
  21.       if ((error = xwimp_set_caret_position (caret.w, caret.i,
  22.             caret.pos.x, caret.pos.y, -1, MIN (caret.index, len))) != NULL)
  23.          goto finish;
  24.    }
  25.  
  26.    if ((error = xwimp_set_icon_state (w, i, NONE, NONE)) != NULL)
  27.       goto finish;
  28.  
  29. finish:
  30.    return error;
  31. }
  32.