##' 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 = dev.cur(),
+ Cairo.onSave(device = grDevices::dev.cur(),
onSave=function(device,page){
ch <- getNamespace("CairoHacks")
print(ls(envir=ch))