[q-lang-cvs] qcalc qcalc.q,1.201,1.202

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

Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv3743

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.201
retrieving revision 1.202
diff -C2 -d -r1.201 -r1.202
*** qcalc.q	29 Nov 2007 02:02:22 -0000	1.201
--- qcalc.q	29 Nov 2007 02:13:38 -0000	1.202
***************
*** 3012,3016 ****
  
  gui_getc_pixmap X
! 		= sprintf "<img src=%s/>" (str S)
  		    where (I,J) = qt_data X, (R:Ref|_) = gui_data (I,J),
  		      S:String = get R;
--- 3012,3016 ----
  
  gui_getc_pixmap X
! 		= sprintf "<img src=\"%s\"/>" (htmlquote S)
  		    where (I,J) = qt_data X, (R:Ref|_) = gui_data (I,J),
  		      S:String = get R;