The R Project SVN R

Rev

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

Rev 51948 Rev 51958
Line 561... Line 561...
561 
	    nn[0] = wc;
 561 
	    nn[0] = wc;
562 
	    if (p->cursor_blink) {
 562 
	    if (p->cursor_blink) {
563 
	    	setcaret(c, BORDERX + (CURCOL - FC) * FW, BORDERY + j * FH,
563 
	    	setcaret(c, BORDERX + (CURCOL - FC) * FW, BORDERY + j * FH,
564 
	    		    p->cursor_blink == 1 ? 1 : FW/4, FH);
 564 
	    		    p->cursor_blink == 1 ? 1 : FW/4, FH);
565 
	    	showcaret(c, 1);
 565 
	    	showcaret(c, 1);
566 
	    }
 566 
	    } else showcaret(c, 0);
567 
	    if (p->cursor_blink < 2) {
 567 
	    if (p->cursor_blink < 2) {
568 
	    	r = rect(BORDERX + (CURCOL - FC) * FW, BORDERY + j * FH,
 568 
	    	r = rect(BORDERX + (CURCOL - FC) * FW, BORDERY + j * FH,
569 
		         w0 * FW, FH);
 569 
		         w0 * FW, FH);
570 
	    	gfillrect(p->bm, highlight, r);
 570 
	    	gfillrect(p->bm, highlight, r);
571 
	    	gdrawwcs(p->bm, p->f, bg, pt(r.x, r.y), nn);
 571 
	    	gdrawwcs(p->bm, p->f, bg, pt(r.x, r.y), nn);
Line 573... Line 573...
573 
	} else {
 573 
	} else {
574 
	    if (p->cursor_blink) {
 574 
	    if (p->cursor_blink) {
575 
		setcaret(c, BORDERX + (CURCOL - FC) * FW, BORDERY + j * FH,
575 
		setcaret(c, BORDERX + (CURCOL - FC) * FW, BORDERY + j * FH,
576 
		            p->cursor_blink == 1 ? 1 : FW, FH);
 576 
		            p->cursor_blink == 1 ? 1 : FW, FH);
577 
	    	showcaret(c, 1);
 577 
	    	showcaret(c, 1);
578 
	    }
 578 
	    } else showcaret(c, 0);
579 
	    if (p->cursor_blink < 2)
579 
	    if (p->cursor_blink < 2)
580 
	    	WLHELPER(CURCOL - FC, CURCOL - FC, bg, highlight);
580 
	    	WLHELPER(CURCOL - FC, CURCOL - FC, bg, highlight);
581 
	}
 581 
	}
582 
    }
 582 
    }
583 
    if (insel != 0) return len;
 583 
    if (insel != 0) return len;