home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / pascal / !Pascal / h / txtscrap < prev    next >
Encoding:
Text File  |  1992-02-09  |  1.5 KB  |  51 lines
  1. (* 
  2.  * Title: txtscrap.h
  3.  * Purpose: Coordinate a unique txt selection among many txt objects.
  4.  *
  5.  *)
  6.  
  7. # ifndef __txtscrap_h
  8. # define __txtscrap_h
  9.  
  10. # ifndef __txt_h
  11. # include "txt.h"
  12. # endif
  13.  
  14. (**************************** INTERFACE FUNCTIONS *************************)
  15.  
  16.  
  17. (* --------------------------- txtscrap_setselect --------------------------
  18.  * Description:   Calls txt_setselect(t, from, to) and remembers t.
  19.  *                If another txt object currently holds the selection
  20.  *                then this is first cleared.
  21.  *
  22.  * Parameters:    txt t -- text object
  23.  *                txt_index from -- array index of start of selection
  24.  *                txt_index to -- array index of end of selection
  25.  *                (i.e. first character not in the selection).
  26.  *
  27.  * Returns:       void.
  28.  * Other Info:    If "from" >= "to" then the selection will be unset, and
  29.  *                t will not be remembered as holding the current selection.
  30.  *                A txt must not be destroyed while still holding the
  31.  *                selection, please clear the selection first.
  32.  *
  33.  *)
  34. procedure txtscrap_setselect(t : txt; from, _to : txt_index); extern;
  35.  
  36.  
  37. (* -------------------------- txtscrap_selectowner -------------------------
  38.  * Description:   Returns the current holder of the selection.
  39.  *
  40.  * Parameters:    void.
  41.  *
  42.  * Returns:       The txt that currently holds the selection, or 0 if none.
  43.  * Other Info:    none.
  44.  *
  45.  *)
  46. function txtscrap_selectowner : txt; extern;
  47.  
  48. # endif
  49.  
  50. (* end scrap.h *)
  51.