The R Project SVN R

Rev

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

Rev 46774 Rev 46784
Line 641... Line 641...
641 
    t = newrichtextarea(NULL, rect(0, 0, w, h));
 641 
    t = newrichtextarea(NULL, rect(0, 0, w, h));
642 
    setdata(c, t);
 642 
    setdata(c, t);
643 
    setdata(t, p);
 643 
    setdata(t, p);
644 
 
 644 
 
645 
    gsetcursor(c, ArrowCursor);
 645 
    gsetcursor(c, ArrowCursor);
646 
    setforeground(c, consolefg);
 646 
    setforeground(c, guiColors[editorfg]);
647 
    setbackground(c, consolebg);
 647 
    setbackground(c, guiColors[editorbg]);
648 
    setrichtextbackground(t, consolebg);
 648 
    setbackground(t, guiColors[editorbg]);
649
649
650 
#ifdef USE_MDI
 650 
#ifdef USE_MDI
651 
    if (ismdi() && (RguiMDI & RW_TOOLBAR)) {
 651 
    if (ismdi() && (RguiMDI & RW_TOOLBAR)) {
652 
	int btsize = 24;
 652 
	int btsize = 24;
653 
	rect r = rect(2, 2, btsize, btsize);
 653 
	rect r = rect(2, 2, btsize, btsize);
Line 750... Line 750...
750 
    MCHECK(newmenuitem("-", 0, NULL));
 750 
    MCHECK(newmenuitem("-", 0, NULL));
751 
    p->hmenu = (HelpMenuItems) malloc(sizeof(struct structHelpMenuItems));
 751 
    p->hmenu = (HelpMenuItems) malloc(sizeof(struct structHelpMenuItems));
752 
    RguiCommonHelp(m, p->hmenu);
 752 
    RguiCommonHelp(m, p->hmenu);
753 
 
 753 
 
754 
    settextfont(t, editorfn);
 754 
    settextfont(t, editorfn);
- 
 
 755 
    setforeground(t, guiColors[editorfg]);
755 
    setresize(c, editorresize);
 756 
    setresize(c, editorresize);
756 
    setclose(c, editorclose);
 757 
    setclose(c, editorclose);
757 
    setdel(c, editordel);
 758 
    setdel(c, editordel);
758 
    setdel(t, textboxdel);
 759 
    setdel(t, textboxdel);
759 
    setonfocus(c, editorfocus);
 760 
    setonfocus(c, editorfocus);