[q-lang-cvs] q/modules/ggi/examples ggi_demo.q,1.2,1.3

[<ag...@us...>]

Update of /cvsroot/q-lang/q/modules/ggi/examples
In directory sc8-pr-cvs1:/tmp/cvs-serv1606

Modified Files:
	ggi_demo.q 
Log Message:
replaced ggi_get_char_size with ggi_get_string_size in demo

Index: ggi_demo.q
===================================================================
RCS file: /cvsroot/q-lang/q/modules/ggi/examples/ggi_demo.q,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ggi_demo.q	15 Dec 2003 12:07:14 -0000	1.2
--- ggi_demo.q	21 Dec 2003 11:05:29 -0000	1.3
***************
*** 138,146 ****
  		  ggi_set_foreground VIS WHITE ||
  		  ggi_puts VIS (0,HEIGHT-H) MSG
! 		    where (_,H) = ggi_get_char_size VIS;
  
  hide_msg	= ggi_set_foreground VIS BLACK ||
  		  ggi_puts VIS (0,HEIGHT-H) MSG
! 		    where (_,H) = ggi_get_char_size VIS;
  
  /* The main function. */
--- 138,146 ----
  		  ggi_set_foreground VIS WHITE ||
  		  ggi_puts VIS (0,HEIGHT-H) MSG
! 		    where (_,H) = ggi_get_string_size VIS MSG;
  
  hide_msg	= ggi_set_foreground VIS BLACK ||
  		  ggi_puts VIS (0,HEIGHT-H) MSG
! 		    where (_,H) = ggi_get_string_size VIS MSG;
  
  /* The main function. */