The R Project SVN – R – Diff – /trunk/src/gnuwin32/dataentry.c

 #include "rui.h"
 static dataeditor de;
 static ConsoleData p;
-extern int R_de_up;
+static int R_de_up;
 #ifndef max
 #define max(a, b) (((a)>(b))?(a):(b))
 #endif
 #ifndef min
 static void bell();
 static void cleararea(int, int, int, int, rgb);
 static void clearrect();
 static void closerect();
 static void clearwindow();
-void de_closewin();
+static void de_closewin();
 static void copyarea(int, int, int, int);
 static void copyH(int, int, int);
 static void deredraw();
 static void eventloop();
 static void downlightrect();
 static void de_popupmenu(int, int, int);
 static void printlabs();
 static void printrect(int, int);
 static void printstring(char*, int, int, int, int);
 static void printelt(SEXP, int, int, int);
+static void setcellwidths();
+static dataeditor newdataeditor();
-void de_copy(control c);
+static void de_copy(control c);
-void de_paste(control c);
+static void de_paste(control c);
-void de_delete(control c);
+static void de_delete(control c);
-extern menuitem de_mvw;
+static menuitem de_mvw;
 static SEXP inputlist;  /* each element is a vector for that row */
 static SEXP ssNA_STRING;
 static double ssNA_REAL;
 static int xmaxused, ymaxused;
 static int oldWIDTH=0, oldHEIGHT=0;
 static int nboxchars=0;
-char *demenuitems[20];
 void R_ProcessEvents(); /* in system.c */
 static void eventloop()
+{
     while (R_de_up) R_ProcessEvents();
     ssNA_REAL = -NA_REAL;
     tvec = allocVector(REALSXP, 1);
     REAL(tvec)[0] = ssNA_REAL;
     PROTECT(ssNA_STRING = coerceVector(tvec, STRSXP)); nprotect++;
     bwidth = 0;
-    hwidth = 0;
+    hwidth = 5;
     /* setup inputlist  */
     if (indata != R_NilValue) {
 	xmaxused = 0; ymaxused = 0;
 /* Window Drawing Routines */
 static rgb bbg;
-void drawwindow()
+static void setcellwidths()
+{
     int i, w, dw;
-    /* might have resized */
     windowWidth = w = 2*bwidth + boxw[0] + BOXW(colmin);
     nwide = 2;
     for (i = 2; i < 100; i++) { /* 100 on-screen columns cannot occur */
 	dw = BOXW(i + colmin - 1);
 	if((w += dw) > WIDTH) {
 	    nwide = i;
 	    windowWidth = w - dw;
 	    break;
+	}
+    }
+}
+static void drawwindow()
+{
+    int i;
+    /* might have resized */
+    setcellwidths();
     nhigh = (HEIGHT - 2 * bwidth - hwidth) / box_h;
-    windowHeight = nhigh * box_h + 2 * bwidth;
+    windowHeight = nhigh * box_h + 2 * bwidth + hwidth;
     oldWIDTH = WIDTH;
     oldHEIGHT = HEIGHT;
     clearwindow();
     gchangescrollbar(de, VWINSB, rowmin-1, ymaxused, nhigh, 0);
     gchangescrollbar(de, HWINSB, colmin-1, xmaxused, nwide, 0);
     highlightrect();
+}
-void doHscroll(int oldcol)
+static void doHscroll(int oldcol)
+{
-    int i, w, dw;
+    int i, dw;
     int oldnwide = nwide, oldwindowWidth = windowWidth;
     /* horizontal re-position */
-    windowWidth = w = 2*bwidth + boxw[0] + BOXW(colmin);
-    nwide = 2;
+    setcellwidths();
-    for (i = 2; i < 100; i++) {
-	dw = BOXW(i + colmin - 1);
-	if((w += dw) > WIDTH) {
-	    nwide = i;
-	    windowWidth = w - dw;
-	    break;
-	}
-    }
     colmax = colmin + (nwide - 2);
     if (oldcol < colmin) { /* drop oldcol...colmin-1 */
 	dw = boxw[0];
 	for (i = oldcol; i < colmin; i++) dw += BOXW(i);
 	copyH(dw, boxw[0], oldwindowWidth - dw + 1);
+}
 /* find_coords finds the coordinates of the upper left corner of the
    given cell on the screen: row and col are on-screen coords */
-void find_coords(int row, int col, int *xcoord, int *ycoord)
+static void find_coords(int row, int col, int *xcoord, int *ycoord)
+{
     int i, w;
     w = bwidth;
     if (col > 0) w += boxw[0];
     for(i = 1; i < col; i ++) w += BOXW(i + colmin - 1);
     *ycoord = bwidth + hwidth + box_h * row;
+}
 /* draw the window with the top left box at column wcol and row wrow */
-void jumpwin(int wcol, int wrow)
+static void jumpwin(int wcol, int wrow)
+{
     if (wcol < 0 || wrow < 0) {
 	bell();
 	return;
+    }
 	rowmin = wrow;
 	deredraw();
     } else highlightrect();
+}
-void advancerect(int which)
+static void advancerect(int which)
+{
     /* if we are in the header, changing a name then only down is
        allowed */
     if (crow < 1 && which != DOWN) {
     return res;
+}
 /* whichcol is absolute col no, col is position on screen */
-void drawcol(int whichcol)
+static void drawcol(int whichcol)
+{
     int i, src_x, src_y, len, col = whichcol - colmin + 1, bw = BOXW(whichcol);
     char *clab;
     SEXP tmp;
+    }
+}
 /* whichrow is absolute row no */
-void drawrow(int whichrow)
+static void drawrow(int whichrow)
+{
     int i, src_x, src_y, lenip, row = whichrow - rowmin + 1, w;
     char rlab[15];
     SEXP tvec;
    spreadsheet in row ssrow and col sscol */
 /* WARNING: This has no check that you're not beyond the end of the
    vector. Caller must check. */
-void printelt(SEXP invec, int vrow, int ssrow, int sscol)
+static void printelt(SEXP invec, int vrow, int ssrow, int sscol)
+{
     char *strp;
     PrintDefaults(R_NilValue);
     if (TYPEOF(invec) == REALSXP) {
 	if (REAL(invec)[vrow] != ssNA_REAL) {
 	} else
 	printstring("", 0, whichrow,  whichcol, 0);
+    }
+}
-void jumppage(int dir)
+static void jumppage(int dir)
+{
     int i, w, oldcol, wcol;
     switch (dir) {
     case UP:
 	break;
+    }
+}
 /* draw a rectangle, used to highlight/downlight the current box */
-void printrect(int lwd, int fore)
+static void printrect(int lwd, int fore)
+{
     int x, y;
     find_coords(crow, ccol, &x, &y);
     drawrectangle(x + lwd - 1, y + lwd -1,
 		  BOXW(ccol+colmin-1) - lwd + 1,
 		  box_h - lwd + 1, lwd, fore);
+}
-void downlightrect()
+static void downlightrect()
+{
     printrect(2, 0);
     printrect(1, 1);
+}
-void highlightrect()
+static void highlightrect()
+{
     printrect(2, 1);
+}
 /* close up the entry to a cell, put the value that has been entered
    into the correct place and as the correct type */
 extern double R_strtod(char *c, char **end); /* in coerce.c */
-void closerect()
+static void closerect()
+{
     SEXP cvec, c0vec, tvec;
     int wcol = ccol + colmin - 1, wrow = rowmin + crow - 1, wrow0;
     *bufp = '\0';
 /* print a null terminated string, check to see if it is longer than
    the print area and print it, left adjusted if necessary; clear the
    area of previous text; */
-void printstring(char *ibuf, int buflen, int row, int col, int left)
+static void printstring(char *ibuf, int buflen, int row, int col, int left)
+{
     int x_pos, y_pos, bw, fw;
     char buf[45], *pc = buf;
     find_coords(row, col, &x_pos, &y_pos);
     if (col == 0) bw = boxw[0]; else bw = BOXW(col+colmin-1);
-    cleararea(x_pos + 2, y_pos + 2, bw - 3, box_h - 3,
+    cleararea(x_pos + 1, y_pos + 1, bw - 1, box_h - 1,
 	      (row==0 || col==0) ? bbg:p->bg);
     strncpy(buf, ibuf, buflen);
     buf[buflen] = '\0';
     fw = (bw - 8)/FW;
     if (buflen > fw) {
+	}
+    }
     de_drawtext(x_pos + text_xoffset, y_pos - text_yoffset, pc);
+}
-void clearrect()
+static void clearrect()
+{
     int x_pos, y_pos;
     find_coords(crow, ccol, &x_pos, &y_pos);
     cleararea(x_pos, y_pos, BOXW(ccol+colmin-1), box_h, p->bg);
+}
    depending on the current column type, only printing characters
    should get this far */
 /* --- Not true! E.g. ESC ends up in here... */
-void handlechar(char *text)
+static void handlechar(char *text)
+{
     int c = text[0];
     if ( c == '\033' ) {
 	CellModified = 0;
  donehc:
     bell();
+}
-void printlabs()
+static void printlabs()
+{
     char clab[10], *p;
     int i;
     for (i = colmin; i <= colmax; i++) {
 	sprintf(clab, "%4d", i);
 	printstring(clab, strlen(clab), i - rowmin + 1, 0, 0);
+    }
+}
-              /* ================ Windows-specific ================ */
+              /* ================ GraphApp-specific ================ */
 static void bell()
+{
     gabeep();
+}
     gdrawstr(de, p->f, p->fg, pt(xpos, ypos), text);
+}
 /* Keypress callbacks */
-void de_normalkeyin(control c, int k)
+static void de_normalkeyin(control c, int k)
+{
     int i, st;
     char text[1];
     st = ggetkeystate();
 	handlechar(text);
+    }
+}
-void de_ctrlkeyin(control c, int key)
+static void de_ctrlkeyin(control c, int key)
+{
     int st, i;
     st = ggetkeystate();
     if ((p->chbrk) && (key == p->chbrk) &&
     return prev;
+}
 static int online, clickline;
-void de_mousedown(control c, int buttons, point xy)
+static void de_mousedown(control c, int buttons, point xy)
+{
     int xw, yw, wcol=0, wrow, i, w;
     if (buttons & LeftButton) {
 	xw = xy.x;
 	highlightrect();
 	return;
+    }
+}
-void de_mouseup(control c, int buttons, point xy)
+static void de_mouseup(control c, int buttons, point xy)
+{
     int xw, bw, i, w;
     if (online) {
 	xw = xy.x;
 	gsetcursor(de, ArrowCursor);
 	deredraw();
+    }
+}
-void de_redraw(control c, rect r)
+static void de_redraw(control c, rect r)
+{
     deredraw();
+}
 static void deredraw()
+{
-    int i, w, dw;
+    int i;
     if (WIDTH != oldWIDTH || HEIGHT != oldHEIGHT) {
 	drawwindow();
 	return;
+    }
-    windowWidth = w = 2*bwidth + boxw[0] + BOXW(colmin);
-    nwide = 2;
+    setcellwidths();
-    for (i = 2; i < 100; i++) { /* 100 on-screen columns cannot occur */
-	dw = BOXW(i + colmin - 1);
-	if((w += dw) > WIDTH) {
-	    nwide = i;
-	    windowWidth = w - dw;
-	    break;
-	}
-    }
     gfillrect(de, bbg, rect(0, 0, windowWidth, box_h));
     gfillrect(de, bbg, rect(0, 0, boxw[0], windowHeight));
     for (i = 1; i < nhigh; i++)
 	for (i = colmin; i <= colmax; i++) drawcol(i);
     gfillrect(de, p->bg, rect(windowWidth+1, 0, WIDTH-windowWidth-1, HEIGHT));
     highlightrect();
+}
-void de_closewin()
+static void de_closewin()
+{
     closerect();
     hide(de);
     del(de);
+}
-#include <windows.h>
-extern HDC get_context(dataeditor);
 static void copyarea(int src_x, int src_y, int dest_x, int dest_y)
+{
     int mx = max(src_x, dest_x), my = max(src_y, dest_y);
-    HDC dc = get_context(de);
-    BitBlt(dc, dest_x, dest_y,
+    copyrect(de, pt(dest_x, dest_y),
-	   windowWidth - mx, windowHeight - my,
+	     rect(src_x, src_y, windowWidth - mx, windowHeight - my));
-	   dc, src_x, src_y, SRCCOPY);
+}
 static void copyH(int src_x, int dest_x, int width)
+{
-    HDC dc = get_context(de);
+    copyrect(de, pt(dest_x, hwidth),
-    BitBlt(dc, dest_x, hwidth, width, windowHeight - hwidth,
+	     rect(src_x, hwidth, width, windowHeight - hwidth));
-	   dc, src_x, hwidth, SRCCOPY);
+}
+#include <windows.h> /* for COLOR_BTNFACE */
 static int  initwin()
+{
-    int i, w, dw;
+    int i;
     rect r;
-    demenuitems[0] = "";
     de = newdataeditor();
     if(!de) return 1;
     p = getdata(de);
     nboxchars = asInteger(GetOption(install("de.cellwidth"), R_GlobalEnv));
     boxw[0] = 5*FW + 8;
     for(i = 1; i < 100; i++) boxw[i] = get_col_width(i)*FW + 8;
     box_h = FH + 4;
     text_xoffset = 5;
     text_yoffset = -3;
-    windowWidth = w = 2*bwidth + boxw[0] + boxw[1];
-    nwide = 2;
+    setcellwidths();
-    for (i = 2; i < 100; i++) {
-	if((w += boxw[i]) > WIDTH) {
-	    nwide = i;
-	    windowWidth = w - boxw[i];
-	    break;
-	}
-    }
     nhigh = (HEIGHT - 2 * bwidth - hwidth) / box_h;
-    windowHeight = nhigh * box_h + 2 * bwidth - hwidth;
+    windowHeight = nhigh * box_h + 2 * bwidth + hwidth;
     r = getrect(de);
     r.width = windowWidth + 3;
     r.height = windowHeight + 3;
     resize(de, r);
     ccol = 1;
     /* drawwindow(); done as repaint but
        decide if we need scrollbars here to avoid flashing*/
     nhigh = (HEIGHT - 2 * bwidth - hwidth) / box_h;
     gchangescrollbar(de, VWINSB, 0, ymaxused, nhigh, 0);
-    windowWidth = w = 2*bwidth + boxw[0] + BOXW(colmin);
-    nwide = 2;
+    setcellwidths();
-    for (i = 2; i < 100; i++) {
-	dw = BOXW(i + colmin - 1);
-	if((w += dw) > WIDTH) {
-	    nwide = i;
-	    windowWidth = w - dw;
-	    break;
-	}
-    }
     gchangescrollbar(de, HWINSB, 0, xmaxused, nwide, 0);
     show(de);
     R_de_up = 1;
     return 0;
+}
 	LEVELS(CAR(tvec)) = levs;
+    }
     TAG(tvec) = install(buf);
     hide(wconf);
     del(wconf);
-//    addto(de);
+}
-void getscreenrect(control, rect *);
+extern void getscreenrect(control, rect *);
 static void nm_hit_key(window w, int key)
+{
     if(key == '\n') popupclose(wconf);
+}
     getscreenrect(de, &r);
     wconf = newwindow("Variable editor",
 		      rect(x_pos + r.x-150, y_pos + r.y-50, 300, 100),
 		      Titlebar | Closebox);
     setclose(wconf, popupclose);
-    setbackground(wconf, LightGrey);
+    setbackground(wconf, bbg);
     lwhat = newlabel("variable name", rect(10, 20, 90, 20), AlignLeft);
     varname = newfield(blah, rect(100, 20, 120, 20));
     lrb = newlabel("type", rect(50, 60, 50, 20), AlignLeft);
     rb_num = newradiobutton("numeric", rect(100, 60 , 80, 20), NULL);
     rb_char = newradiobutton("character", rect(180, 60 , 80, 20), NULL);
     if (isnumeric) check(rb_num); else check(rb_char);
     setkeydown(wconf, nm_hit_key);
     show(wconf);
+}
-void de_copy(control c)
+static void de_copy(control c)
+{
-    HGLOBAL hglb;
-    char *s, *cell;
-    int ll;
-    cell = get_cell_text();
+    copystringtoclipboard(get_cell_text());
-    ll = strlen(cell) + 1;
-    if (!(hglb = GlobalAlloc(GHND, ll))){
-        R_ShowMessage("Insufficient memory: cell not copied to the clipboard");
-	return;
-    }
-    if (!(s = (char *)GlobalLock(hglb))){
-        R_ShowMessage("Insufficient memory: cell not copied to the clipboard");
-	return;
-    }
-    strcpy(s, cell);
-    GlobalUnlock(hglb);
-    if (!OpenClipboard(NULL) || !EmptyClipboard()) {
-        R_ShowMessage("Unable to open the clipboard");
-        GlobalFree(hglb);
-        return;
-    }
-    SetClipboardData(CF_TEXT, hglb);
-    CloseClipboard();
+}
-void de_paste(control c)
+static void de_paste(control c)
+{
-    HGLOBAL hglb;
-    char *p, *pc;
+    char *p;
     closerect();
-    if ( OpenClipboard(NULL) &&
+    if ( clipboardhastext() &&
-         (hglb = GetClipboardData(CF_TEXT)) &&
+	 !getstringfromclipboard(buf, 29) ) {
-         (pc = (char *)GlobalLock(hglb))) {
-	/* set current cell to first line of pc */
+	/* set current cell to first line of clipboard */
 	CellModified = 1;
-	strncpy(buf, pc, 29);
-        GlobalUnlock(hglb);
-	CloseClipboard();
-	buf[30] = '\0';
 	if ((p = strchr(buf, '\n'))) *p = '\0';
 	clength = strlen(buf);
 	bufp = buf + clength;
 	closerect();
+    }
     highlightrect();
+}
-void de_delete(control c)
+static void de_delete(control c)
+{
     CellModified = 1;
     buf[0] = '\0';
     clength = -1;
     bufp = buf + clength;
     closerect();
     highlightrect();
+}
-void de_autosize(control c)
+static void de_autosize(control c)
+{
     int col = ccol + colmin - 1;
     if(col < 100) {
 	boxw[col] = get_col_width(col)*FW + 8;
 	deredraw();
+    }
+}
-void de_sbf(control c, int pos)
+static void de_sbf(control c, int pos)
+{
     if (pos < 0) { /* horizontal */
 	colmin = 1 + (-pos - 1);
     } else {
 	rowmin = 1 + pos;
 	if(rowmin > ymaxused - nhigh + 2) rowmin = ymaxused - nhigh + 2;
+    }
     drawwindow();
+}
-extern menuitem de_mvw;
 static checkbox varwidths;
 static void vw_close(control c)
+{
     int x;
     devw = newwindow("Cell width(s)",
 		      rect(0, 0, 250, 60),
 		      Titlebar | Centered | Closebox);
     setclose(devw, vw_close);
-    setbackground(devw, LightGrey);
+    setbackground(devw, bbg);
     lwhat = newlabel("Cell width", rect(10, 20, 70, 20), AlignLeft);
     sprintf(blah, "%d", nboxchars);
     varname = newfield(blah, rect(80, 20, 40, 20));
     varwidths = newcheckbox("variable", rect(150, 20, 80, 20), vw_callback);
     if (nboxchars == 0) {
+    }
     setkeydown(devw, vw_hit_key);
     show(devw);
+}
-void menudecellwidth(control m)
+static void menudecellwidth(control m)
+{
     de_popup_vw();
+}
+static void deldataeditor(control m)
+{
+    freeConsoleData(getdata(m));
+}
+static void declose(control m)
+{
+    de_closewin();
+    show(RConsole);
+    R_de_up =0;
+}
+static void deresize(console c, rect r)
+FBEGIN
+    if (((WIDTH  == r.width) &&
+	 (HEIGHT == r.height)) ||
+	(r.width == 0) || (r.height == 0) ) /* minimize */
+        FVOIDRETURN;
+    WIDTH = r.width;
+    HEIGHT = r.height;
+FVOIDEND
+static void menudehelp(control m)
+{
+    char s[] = "Navigation.\n  Keyboard: cursor keys move selection\n\tTab move right, Shift+Tab moves left\n\tPgDn or Ctrl+F: move down one screenful\n\tPgUp or Ctrl+B: move up one screenful\n\tHome: move to (1,1) cell\n\tEnd: show last rows of last column.\n   Mouse: left-click in a cell, use the scrollbar(s).\n\nEditing.\n  Type in the currently hightlighted cell\n  Double-click in a cell for an editable field\n\nMisc.\n  Ctrl-L redraws the screen, auto-resizing the columns\n  Ctrl-C copies selected cell\n  Ctrl-V pastes to selected cell\n  Right-click menu for copy, paste, autosize currently selected column\n\n";
+    askok(s);
+}
+static MenuItem DePopup[28] = {
+    {"Help", menudehelp, 0},
+    {"-", 0, 0},
+    {"Copy selected cell", de_copy, 0},
+    {"Paste selected cell", de_paste, 0},
+    {"Autosize column", de_autosize, 0},
+    {"-", 0, 0},
+    {"Close", declose, 0},
+    LASTMENUITEM
+};
+static void demenuact(control m)
+{
+    /* use this to customize the menu */
+}
+static void depopupact(control m)
+{
+    /* use this to customize the menu */
+}
+#define MCHECK(a) if (!(a)) {del(c);return NULL;}
+static dataeditor newdataeditor()
+{
+    ConsoleData p;
+    int w, h, x, y;
+    dataeditor c;
+    menuitem m;
+    p = newconsoledata((consolefn) ? consolefn : FixedFont,
+		       pagerrow, pagercol,
+		       consolefg, consoleuser, consolebg,
+		       DATAEDITOR);
+    if (!p) return NULL;
+    w = WIDTH ;
+    h = HEIGHT;
+#ifdef USE_MDI
+    if (ismdi()) {
+	RECT *pR = RgetMDIsize();
+	x = (pR->right - w) / 3; x = x > 20 ? x:20;
+	y = (pR->bottom - h) / 3; y = y > 20 ? y:20;
+    } else {
+#endif
+	x = (devicewidth(NULL) - w) / 3;
+	y = (deviceheight(NULL) - h) / 3 ;
+#ifdef USE_MDI
+    }
+#endif
+    c = (dataeditor) newwindow(" Data Editor", rect(x, y, w, h),
+			       Document | StandardWindow | TrackMouse |
+			       VScrollbar | HScrollbar | Modal);
+    if (!c) {
+         freeConsoleData(p);
+         return NULL;
+    }
+    setdata(c, p);
+    if(h == 0) HEIGHT = getheight(c);
+    if(w == 0) WIDTH  = getwidth(c);
+    COLS = WIDTH / FW - 1;
+    ROWS = HEIGHT / FH - 1;
+    BORDERX = (WIDTH - COLS*FW) / 2;
+    BORDERY = (HEIGHT - ROWS*FH) / 2;
+    gsetcursor(c, ArrowCursor);
+    setbackground(c, consolebg);
+    if (ismdi() && (RguiMDI & RW_TOOLBAR)) {
+	/* blank toolbar to stop windows jumping around */
+        int btsize = 24;
+        control tb;
+        addto(c);
+        MCHECK(tb = newtoolbar(btsize + 4));
+	gsetcursor(tb, ArrowCursor);
+    }
+    MCHECK(gpopup(depopupact, DePopup));
+    MCHECK(m = newmenubar(demenuact));
+    MCHECK(newmenu("File"));
+/*    MCHECK(m = newmenuitem("-", 0, NULL));*/
+    MCHECK(m = newmenuitem("Close", 0, declose));
+#ifdef USE_MDI
+    newmdimenu();
+#endif
+    MCHECK(newmenu("Edit"));
+    MCHECK(m = newmenuitem("Copy  \tCTRL+C", 0, de_copy));
+    MCHECK(m = newmenuitem("Paste \tCTRL+V", 0, de_paste));
+    MCHECK(m = newmenuitem("Delete\tDEL", 0, de_delete));
+    MCHECK(m = newmenuitem("-", 0, NULL));
+    MCHECK(de_mvw = newmenuitem("Cell widths ...", 0, menudecellwidth));
+    MCHECK(m = newmenu("Help"));
+    MCHECK(newmenuitem("Data editor", 0, menudehelp));
+    setdata(c, p);
+    setresize(c, deresize);
+    setredraw(c, de_redraw);
+    setdel(c, deldataeditor);
+    setclose(c, declose);
+    sethit(c, de_sbf);
+    setkeyaction(c, de_ctrlkeyin);
+    setkeydown(c, de_normalkeyin);
+    setmousedown(c, de_mousedown);
+    setmouseup(c, de_mouseup);
+    return(c);
+}

The R Project SVN R

(root)/trunk/src/gnuwin32/dataentry.c @ 9212 – Rev 9205 → 9212