[q-lang-cvs] qcalc qcalc.q,1.199,1.200

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

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

Modified Files:
	qcalc.q 
Log Message:
also set the MIME source path, so that relative paths in rich text elements work, too

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.199
retrieving revision 1.200
diff -C2 -d -r1.199 -r1.200
*** qcalc.q	29 Nov 2007 00:59:27 -0000	1.199
--- qcalc.q	29 Nov 2007 01:15:50 -0000	1.200
***************
*** 968,973 ****
  		  // clear the log
  		  qt LOG "setText" "" || clearmsg ||
! 		  // go to the new directory
  		  chdir PWD ||
  		  // give the interpreter some time to start and read the
  		  // message queue until either the interpreter process has
--- 968,976 ----
  		  // clear the log
  		  qt LOG "setText" "" || clearmsg ||
! 		  // go to the new directory and change the MIME source path
! 		  // accordingly
  		  chdir PWD ||
+ 		  qt (qt "QMimeSourceFactory" "defaultFactory" ())
+ 		  "setFilePath" [PWD] ||
  		  // give the interpreter some time to start and read the
  		  // message queue until either the interpreter process has