1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#include <R.h>
#include <Rinternals.h>
#include <Rgraphics.h>
#include <Rdevices.h>
#include <R_ext/GraphicsDevice.h>
#include <R_ext/GraphicsEngine.h>
#define BEGIN_SUSPEND_INTERRUPTS
#define END_SUSPEND_INTERRUPTS
#include <gtk/gtk.h>
#include "devGTK.h"
typedef Rboolean (*GtkDeviceCreateFun)(DevDesc *, char *display, double width, double height, double pointsize);
static GEDevDesc *
createGtkDevice(char *display, double width, double height, double ps, GtkDeviceCreateFun init_fun)
{
GEDevDesc *dd;
NewDevDesc *dev;
R_CheckDeviceAvailable();
BEGIN_SUSPEND_INTERRUPTS {
/* Allocate and initialize the device driver data */
if (!(dev = (NewDevDesc *) calloc(1, sizeof(NewDevDesc))))
return NULL;
/* Do this for early redraw attempts */
dev->displayList = R_NilValue;
if (! init_fun ((DevDesc*)dev, display, width, height, ps)) {
free(dev);
PROBLEM "unable to start device gtk" ERROR;
}
gsetVar(install(".Device"), mkString("GTK"), R_NilValue);
dd = GEcreateDevDesc(dev);
dd->newDevStruct = 1;
Rf_addDevice((DevDesc*) dd);
GEinitDisplayList(dd);
} END_SUSPEND_INTERRUPTS;
gdk_flush();
return(dd);
}
void
do_GTK(char **dpy, double *in_width, double *in_height, double *in_pointsize)
{
char *display, *vmax;
double height, width, ps;
/* gcall = call; */
vmax = vmaxget();
display = R_alloc(strlen(dpy[0]) + 1, sizeof(char));
strcpy(display, dpy[0]);
width = *in_width;
height = *in_height;
if (width <= 0 || height <= 0) {
PROBLEM "Gtk device: invalid width or height" ERROR;
}
ps = *in_pointsize;
createGtkDevice(display, width, height, ps, GTKDeviceDriver);
vmaxset(vmax);
/* return R_NilValue; */
}
SEXP
do_asGTKDevice(SEXP widget, SEXP w, SEXP h, SEXP pointsize)
{
GtkWidget *drawing_widget = (GtkWidget*) R_ExternalPtrAddr(widget);
double width, height, ps;
SEXP ans = Rf_allocVector(LGLSXP, 1);
width = asReal(w);
height = asReal(h);
ps = asReal(pointsize);
LOGICAL(ans)[0] = (createGtkDevice((char *) drawing_widget, width, height, ps, GTKDeviceFromWidget) != NULL);
return(ans);
}
|
