home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / desklib / Libraries / Icon / c / SetText < prev    next >
Encoding:
Text File  |  1994-05-29  |  1.9 KB  |  63 lines
  1. /*
  2.     ####             #    #     # #
  3.     #   #            #    #       #          The FreeWare C library for 
  4.     #   #  ##   ###  #  # #     # ###             RISC OS machines
  5.     #   # #  # #     # #  #     # #  #   ___________________________________
  6.     #   # ####  ###  ##   #     # #  #                                      
  7.     #   # #        # # #  #     # #  #    Please refer to the accompanying
  8.     ####   ### ####  #  # ##### # ###    documentation for conditions of use
  9.     ________________________________________________________________________
  10.  
  11.     File:    Icon.SetText.c
  12.     Author:  Copyright © 1992, 1993, 1994 Jason Williams
  13.     Version: 1.01 (12 Mar 1994)
  14.     Purpose: 'Print' a string into an icon's text buffer.
  15. */
  16.  
  17. #include "Wimp.h"
  18. #include "WimpSWIs.h"
  19. #include "Coord.h"
  20. #include "Icon.h"
  21.  
  22. #include "string.h"
  23.  
  24.  
  25. extern void Icon_SetText(window_handle w, icon_handle i, char *text)
  26. /*
  27.  * Copies the text string into the icon's indirected string buffer (and redraws)
  28.  * If unable to set the text (incorrect icon type), it returns quietly
  29.  * If text passed in is a NULL pointer, sets icon text to " "
  30.  */
  31. {
  32.   icon_block  istate;
  33.   char        temp[2] = " ";
  34.   caret_block caret;
  35.   int         len;
  36.  
  37.   if (text == NULL)
  38.     text = temp;
  39.  
  40.   Wimp_GetIconState(w, i, &istate);
  41.   if (istate.flags.value & (icon_TEXT | icon_INDIRECTED))
  42.   {
  43.     /* Indirected text icon, so set text field - ensure no buffer overflow */
  44.     strncpy(istate.data.indirecttext.buffer, text,
  45.               istate.data.indirecttext.bufflen - 1);
  46.     istate.data.indirecttext.buffer[istate.data.indirecttext.bufflen-1] = 0;
  47.  
  48.     /* Ensure caret isn't beyond end of text */
  49.     Wimp_GetCaretPosition( &caret );
  50.     if ( caret.window == w && caret.icon == i )
  51.     {
  52.       len = strlen( istate.data.indirecttext.buffer );
  53.       if ( caret.index > len )
  54.       {
  55.         caret.index = len;
  56.         Wimp_SetCaretPosition( &caret );
  57.       }
  58.     }
  59.     
  60.     Wimp_SetIconState(w, i, 0, 0);
  61.   }
  62. }
  63.