From sfischme at uwaterloo.ca  Sun Jan 25 03:45:42 2009
From: sfischme at uwaterloo.ca (Sebastian Fischmeister)
Date: Sat, 24 Jan 2009 21:45:42 -0500
Subject: [Rd] Warning for dropped text with devices that don't
	support	clipping (in text attachments)
Message-ID: <2AE1968C-4CFA-46B6-A159-0D24816E3026@uwaterloo.ca>

Hello,

   Apparently, the mail program doesn't like attachments. Here's the  
patch and the script again.

Sebastian

------- R Script -------

xfig 
(file 
= 
"test 
.fig",onefile=TRUE,width=6,height=4,textspecial=TRUE,defaultfont=TRUE)
barplot(seq(.8,0,-0.15))
legend("topright",legend=c("1234567890"),cex=.7,text.width=.5)
dev.off()
unlink("test.fig")

------- patch -------

Index: src/main/engine.c
===================================================================
--- src/main/engine.c	(revision 47716)
+++ src/main/engine.c	(working copy)
@@ -1424,7 +1424,7 @@
  	if (toDevice) /* Device will do clipping */
  	    textfn(x, y, str, rot, hadj, gc, dd->dev);
  	else /* don't draw anything; this could be made less crude :) */
-	    ;
+	    warning(_("current device doesn't support clipping, text removed  
'%s'"), str);
      }
  }



[Rd] Warning for dropped text with devices that don't support clipping (in text attachments)
Sebastian Fischmeister