The R Project SVN R

Rev

Rev 10217 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10217 Rev 11073
Line 1334... Line 1334...
1334 
 
 1334 
 
1335 
    popupcol = colmin + col - 1;
 1335 
    popupcol = colmin + col - 1;
1336 
    blah = get_col_name(popupcol);
 1336 
    blah = get_col_name(popupcol);
1337 
    wconf = newwindow("Variable editor",
 1337 
    wconf = newwindow("Variable editor",
1338 
		      rect(x_pos + r.x-150, y_pos + r.y-50, 300, 100),
 1338 
		      rect(x_pos + r.x-150, y_pos + r.y-50, 300, 100),
1339 
		      Titlebar | Closebox);
 1339 
		      Titlebar | Closebox | Modal);
1340 
    setclose(wconf, popupclose);
 1340 
    setclose(wconf, popupclose);
1341 
    setbackground(wconf, bbg);
 1341 
    setbackground(wconf, bbg);
1342 
    lwhat = newlabel("variable name", rect(10, 22, 90, 20), AlignLeft);
 1342 
    lwhat = newlabel("variable name", rect(10, 22, 90, 20), AlignLeft);
1343 
    varname = newfield(blah, rect(100, 20, 120, 20));
 1343 
    varname = newfield(blah, rect(100, 20, 120, 20));
1344 
    lrb = newlabel("type", rect(50, 62, 50, 20), AlignLeft);
 1344 
    lrb = newlabel("type", rect(50, 62, 50, 20), AlignLeft);
Line 1440... Line 1440...
1440 
{
 1440 
{
1441 
    char blah[25];
 1441 
    char blah[25];
1442 
 
 1442 
 
1443 
    devw = newwindow("Cell width(s)",
 1443 
    devw = newwindow("Cell width(s)",
1444 
		      rect(0, 0, 250, 60),
 1444 
		      rect(0, 0, 250, 60),
1445 
		      Titlebar | Centered | Closebox);
 1445 
		      Titlebar | Centered | Closebox | Modal);
1446 
    setclose(devw, vw_close);
 1446 
    setclose(devw, vw_close);
1447 
    setbackground(devw, bbg);
 1447 
    setbackground(devw, bbg);
1448 
    lwhat = newlabel("Cell width", rect(10, 20, 70, 20), AlignLeft);
 1448 
    lwhat = newlabel("Cell width", rect(10, 20, 70, 20), AlignLeft);
1449 
    sprintf(blah, "%d", nboxchars);
 1449 
    sprintf(blah, "%d", nboxchars);
1450 
    varname = newfield(blah, rect(80, 20, 40, 20));
 1450 
    varname = newfield(blah, rect(80, 20, 40, 20));
Line 1542... Line 1542...
1542 
#ifdef USE_MDI
 1542 
#ifdef USE_MDI
1543 
    }
 1543 
    }
1544 
#endif
 1544 
#endif
1545 
    c = (dataeditor) newwindow(" Data Editor", rect(x, y, w, h),
 1545 
    c = (dataeditor) newwindow(" Data Editor", rect(x, y, w, h),
1546 
			       Document | StandardWindow | TrackMouse |
 1546 
			       Document | StandardWindow | TrackMouse |
1547 
			       VScrollbar | HScrollbar | Modal);
 1547 
			       VScrollbar | HScrollbar);
1548 
    if (!c) {
 1548 
    if (!c) {
1549 
         freeConsoleData(p);
 1549 
         freeConsoleData(p);
1550 
         return NULL;
 1550 
         return NULL;
1551 
    }
 1551 
    }
1552 
    setdata(c, p);
 1552 
    setdata(c, p);