The R Project SVN R

Rev

Rev 27357 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27357 Rev 27662
Line 1442... Line 1442...
1442
	boxw[col] = get_col_width(col)*FW + 8;
1442
	boxw[col] = get_col_width(col)*FW + 8;
1443
	deredraw();
1443
	deredraw();
1444
    }
1444
    }
1445
}
1445
}
1446
 
1446
 
-
 
1447
static void de_stayontop(control c)
-
 
1448
{
-
 
1449
    if (ischecked(c)) {
-
 
1450
	uncheck(c);
-
 
1451
	BringToTop(de, 0);
-
 
1452
    } else {
-
 
1453
	check(c);
-
 
1454
	BringToTop(de, 1);
-
 
1455
    }
-
 
1456
}
-
 
1457
 
1447
static void de_sbf(control c, int pos)
1458
static void de_sbf(control c, int pos)
1448
{
1459
{
1449
    if (pos < 0) { /* horizontal */
1460
    if (pos < 0) { /* horizontal */
1450
	colmin = 1 + (-pos*xScrollbarScale - 1);
1461
	colmin = 1 + (-pos*xScrollbarScale - 1);
1451
    } else {
1462
    } else {
Line 1547... Line 1558...
1547
    {"-", 0, 0},
1558
    {"-", 0, 0},
1548
    {"Copy selected cell", de_copy, 0},
1559
    {"Copy selected cell", de_copy, 0},
1549
    {"Paste to selected cell", de_paste, 0},
1560
    {"Paste to selected cell", de_paste, 0},
1550
    {"Autosize column", de_autosize, 0},
1561
    {"Autosize column", de_autosize, 0},
1551
    {"-", 0, 0},
1562
    {"-", 0, 0},
-
 
1563
    {"Stay on top", de_stayontop, 0},
-
 
1564
    {"-", 0, 0},
1552
    {"Close", declose, 0},
1565
    {"Close", declose, 0},
1553
    LASTMENUITEM
1566
    LASTMENUITEM
1554
};
1567
};
1555
 
1568
 
1556
static void demenuact(control m)
1569
static void demenuact(control m)
Line 1559... Line 1572...
1559
}
1572
}
1560
 
1573
 
1561
static void depopupact(control m)
1574
static void depopupact(control m)
1562
{
1575
{
1563
    /* use this to customize the menu */
1576
    /* use this to customize the menu */
-
 
1577
    if (ismdi())
-
 
1578
    	disable(DePopup[6].m);
-
 
1579
    else
-
 
1580
    	enable(DePopup[6].m);
1564
}
1581
}
1565
 
1582
 
1566
 
1583
 
1567
#define MCHECK(a) if (!(a)) {del(c);return NULL;}
1584
#define MCHECK(a) if (!(a)) {del(c);return NULL;}
1568
 
1585