The R Project SVN R

Rev

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

Rev 44201 Rev 45067
Line 1069... Line 1069...
1069 
	handlechar(DE, text);
 1069 
	handlechar(DE, text);
1070 
    }
 1070 
    }
1071 
 
 1071 
 
1072 
}
 1072 
}
1073 
 
 1073 
 
- 
 
 1074 
static void de_im(control c, font *f, point *pt)
- 
 
 1075 
{
- 
 
 1076 
    DEstruct DE = getdata(c);
- 
 
 1077 
    int x, y;
- 
 
 1078 
 
- 
 
 1079 
    drawelt(DE, DE->crow, DE->ccol);
- 
 
 1080 
    gsetcursor(DE->de, ArrowCursor);
- 
 
 1081 
    find_coords(DE, DE->crow, DE->ccol, &x, &y);
- 
 
 1082 
    pt->x = x + DE->text_xoffset + DE->clength * fontwidth(consolefn);
- 
 
 1083 
    pt->y = y - DE->text_yoffset - 1;
- 
 
 1084 
    *f = consolefn;
- 
 
 1085 
}
- 
 
 1086 
 
1074 
static void de_ctrlkeyin(control c, int key)
 1087 
static void de_ctrlkeyin(control c, int key)
1075 
{
 1088 
{
1076 
    int st, i;
 1089 
    int st, i;
1077 
    DEstruct DE = getdata(c);
 1090 
    DEstruct DE = getdata(c);
1078 
 
 1091 
 
Line 1754... Line 1767...
1754 
    setclose(c, declose);
 1767 
    setclose(c, declose);
1755 
    sethit(c, de_sbf);
 1768 
    sethit(c, de_sbf);
1756 
    setkeyaction(c, de_ctrlkeyin);
 1769 
    setkeyaction(c, de_ctrlkeyin);
1757 
    if(DE->isEditor) {
 1770 
    if(DE->isEditor) {
1758 
	setkeydown(c, de_normalkeyin);
 1771 
	setkeydown(c, de_normalkeyin);
- 
 
 1772 
	setim(c, de_im);
1759 
	setmousedown(c, de_mousedown);
 1773 
	setmousedown(c, de_mousedown);
1760 
	setmouseup(c, de_mouseup);
 1774 
	setmouseup(c, de_mouseup);
1761 
    }
 1775 
    }
1762 
    return(c);
 1776 
    return(c);
1763 
}
 1777 
}