##' @author Don Armstrong <don@@donarmstrong.com>
##' @export
##' @examples
-##' CairoPDF(file="example.pdf",onefile=TRUE)
+##' Cairo::CairoPDF(file="example.pdf",onefile=TRUE)
##' plot(y~x,data.frame(x=1:5,y=1:5))
##' bookmarks <- make.pdf.bookmark("First plot")
##' plot(y~x,data.frame(x=1:5,y=1:5))
##' write.pdf.bookmarks(file="example.pdf",bookmarks)
make.pdf.bookmark <- function(text,level=1,page=NULL) {
if (!CairoHacks.env$device_set_up) {
- Cairo.onSave(device = grDevices::dev.cur(),
+ Cairo::Cairo.onSave(device = grDevices::dev.cur(),
onSave=function(device,page){
ch <- getNamespace("CairoHacks")
print(ls(envir=ch))