The R Project SVN R

Rev

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

Rev 9229 Rev 9236
Line 1312... Line 1312...
1312 
    TAG(tvec) = install(buf);
 1312 
    TAG(tvec) = install(buf);
1313 
    hide(wconf);
 1313 
    hide(wconf);
1314 
    del(wconf);
 1314 
    del(wconf);
1315 
}
 1315 
}
1316 
 
 1316 
 
1317 
extern void getscreenrect(control, rect *);
 - 
 
1318 
 
 - 
 
1319 
static void nm_hit_key(window w, int key)
 1317 
static void nm_hit_key(window w, int key)
1320 
{
 1318 
{
1321 
    if(key == '\n') popupclose(wconf);
 1319 
    if(key == '\n') popupclose(wconf);
1322 
}
 1320 
}
1323 
 
 1321 
 
1324 
static void de_popupmenu(int x_pos, int y_pos, int col)
 1322 
static void de_popupmenu(int x_pos, int y_pos, int col)
1325 
{
 1323 
{
1326 
    char *blah;
 1324 
    char *blah;
1327 
    rect r;
 1325 
    rect r = screen_coords(de);
1328 
 
 1326 
 
1329 
    popupcol = colmin + col - 1;
 1327 
    popupcol = colmin + col - 1;
1330 
    blah = get_col_name(popupcol);
 1328 
    blah = get_col_name(popupcol);
1331 
    getscreenrect(de, &r);
 - 
 
1332 
    wconf = newwindow("Variable editor",
 1329 
    wconf = newwindow("Variable editor",
1333 
		      rect(x_pos + r.x-150, y_pos + r.y-50, 300, 100),
 1330 
		      rect(x_pos + r.x-150, y_pos + r.y-50, 300, 100),
1334 
		      Titlebar | Closebox);
 1331 
		      Titlebar | Closebox);
1335 
    setclose(wconf, popupclose);
 1332 
    setclose(wconf, popupclose);
1336 
    setbackground(wconf, bbg);
 1333 
    setbackground(wconf, bbg);
Line 1482... Line 1479...
1482 
 
 1479 
 
1483 
static MenuItem DePopup[28] = {
 1480 
static MenuItem DePopup[28] = {
1484 
    {"Help", menudehelp, 0},
 1481 
    {"Help", menudehelp, 0},
1485 
    {"-", 0, 0},
 1482 
    {"-", 0, 0},
1486 
    {"Copy selected cell", de_copy, 0},
 1483 
    {"Copy selected cell", de_copy, 0},
1487 
    {"Paste selected cell", de_paste, 0},
 1484 
    {"Paste to selected cell", de_paste, 0},
1488 
    {"Autosize column", de_autosize, 0},
 1485 
    {"Autosize column", de_autosize, 0},
1489 
    {"-", 0, 0},
 1486 
    {"-", 0, 0},
1490 
    {"Close", declose, 0},
 1487 
    {"Close", declose, 0},
1491 
    LASTMENUITEM
 1488 
    LASTMENUITEM
1492 
};
 1489 
};