demo_text.sa

 
---------------------------> Sather 1.1 source file <--------------------------
-- Demo of the text widget
-- Author: Benedict A. Gomes <gomes@samosa.ICSI.Berkeley.EDU>
-- Copyright (C) 1995, International Computer Science Institute
-- text-demo.sa,v 1.1 1995/11/15 03:34:56 gomes Exp
--
-- COPYRIGHT NOTICE: This code is provided WITHOUT ANY WARRANTY
-- and is subject to the terms of the SATHER LIBRARY GENERAL PUBLIC
-- LICENSE contained in the file: Sather/Doc/License of the
-- Sather distribution. The license is also available from ICSI,
-- 1947 Center St., Suite 600, Berkeley CA 94704, USA.


class DEMO_TEXT 
class DEMO_TEXT is
   include GUI_UTIL;

   init is
      t ::= #TK_TEXT;
      t+"Test\n";
      loop 
	 t+"This is a test kfjdkjfl Test"+100.times!+"\n";
      end;
      t.insert_at(TK_INDEX::at(10,1),"My insertion at 10,1");
      t.delete(TK_INDEX::at(11,2),TK_INDEX::at(11,10));
      t+"Deleted index 11,2 to 11,10";
      t.delete(TK_INDEX::at(15,3).word_end,TK_INDEX::at(17,2).line_end);
      t+"Deleted index 15,3 wordend to 17,2 lineend";
   end;
   
end;