Return to scroll.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sam / x11

Annotation of researchv9/jtools/src/sam/x11/scroll.c, revision 1.1.1.1

1.1       root        1: #include "samterm.h"
                      2: Rectangle      scrpos();
                      3: extern Texture darkgrey;
                      4: scrdraw(l, tot)
                      5:        register Flayer *l;
                      6:        long tot;
                      7: {
                      8:        Rectangle r;
                      9:        register Bitmap *b;
                     10:        if(l->f.b==0)
                     11:                panic("scrdraw");
                     12:        r=l->scroll;
                     13:        r.origin.x+=1;  /* border between margin and bar */
                     14:        if(l->visible!=All || (b=balloc(r))==0)
                     15:                b=l->f.b;
                     16:        rectf(b, r, F_OR);
                     17:        texture(b, inset(r, 1), &darkgrey, F_STORE);
                     18:        rectf(b, scrpos(r, l->origin, l->origin+l->f.nchars, tot), F_CLR);
                     19:        if(b!=l->f.b){
                     20:                bitblt(b, b->rect, l->f.b, b->rect.origin, F_STORE);
                     21:                bfree(b);
                     22:        }
                     23: }
                     24: Rectangle
                     25: scrpos(r, p0, p1, tot)
                     26:        Rectangle r;
                     27:        register long p0, p1, tot;
                     28: {
                     29:        register long h;
                     30:        Rectangle q;
                     31:        q=inset(r, 1);
                     32:        h=q.corner.y-q.origin.y;
                     33:        if(tot==0)
                     34:                return q;
                     35:        if(tot>1024L*1024L)
                     36:                tot>>=10, p0>>=10, p1>>=10;
                     37:        if(p0>0)
                     38:                q.origin.y+=muldiv(h, p0, tot);
                     39:        if(p1<tot)
                     40:                q.corner.y-=muldiv(h, tot-p1, tot);
                     41:        if(q.corner.y<q.origin.y+2){
                     42:                if(q.origin.y+2<=r.corner.y)
                     43:                        q.corner.y=q.origin.y+2;
                     44:                else
                     45:                        q.origin.y=q.corner.y-2;
                     46:        }
                     47:        return q;
                     48: }
                     49: scroll(l, but)
                     50:        register Flayer *l;
                     51: {
                     52:        register in=0, oin;
                     53:        register long tot=scrtotal(l);
                     54:        Rectangle scr, r, s, nscr;
                     55:        register x, y, my, oy, h;
                     56:        register long p0;
                     57:        s=inset(l->scroll, 1);
                     58:        x=s.origin.x+FLSCROLLWID/2;
                     59:        scr=scrpos(l->scroll, l->origin, l->origin+l->f.nchars, tot);
                     60:        r=scr;
                     61:        y=scr.origin.y;
                     62:        my=mouse.xy.y;
                     63: 
                     64:        while(button(but)){
                     65:                oin=in;
                     66:                in=abs(x-mouse.xy.x)<=FLSCROLLWID/2;
                     67:                if(oin!=in)
                     68:                        rectf(l->f.b, r, F_XOR);
                     69:                if(in){
                     70:                        oy=y;
                     71:                        my=mouse.xy.y;
                     72:                        if(my<s.origin.y)
                     73:                                my=s.origin.y;
                     74:                        if(my>=s.corner.y)
                     75:                                my=s.corner.y;
                     76:                        if(my != mouse.xy.y)
                     77:                                cursset(Pt(mouse.xy.x, my));
                     78:                        if(but==1){
                     79:                                p0=l->origin-charofpt(&l->f, Pt(s.corner.x, my));
                     80:                                nscr=scrpos(l->scroll, p0, p0+l->f.nchars, tot);
                     81:                                y=nscr.origin.y;
                     82:                        }else if(but==2){
                     83:                                y=my;
                     84:                                if(y>s.corner.y-2)
                     85:                                        y=s.corner.y-2;
                     86:                        }else if(but==3){
                     87:                                p0=l->origin+charofpt(&l->f, Pt(s.corner.x, my));
                     88:                                nscr=scrpos(l->scroll, p0, p0+l->f.nchars, tot);
                     89:                                y=nscr.origin.y;
                     90:                        }
                     91:                        if(y!=oy){
                     92:                                rectf(l->f.b, r, F_XOR);
                     93:                                r=raddp(scr, Pt(0, y-scr.origin.y));
                     94:                                rectf(l->f.b, r, F_XOR);
                     95:                        }
                     96:                }
                     97:                jnap(2);
                     98:        }
                     99:        if(in){
                    100:                Text *t=(Text *)l->user1;
                    101:                h=s.corner.y-s.origin.y;
                    102:                rectf(l->f.b, r, F_XOR);
                    103:                if(but==1)
                    104:                        outTsll(Torigin, t->tag, l->origin, (long)(my-s.origin.y)/fheight(l->f.font)+1);
                    105:                else if(but==2){
                    106:                        if(tot>1024L*1024L)
                    107:                                p0=muldiv(tot>>10, y-s.origin.y, h)<<10;
                    108:                        else
                    109:                                p0=muldiv(tot, y-s.origin.y, h);
                    110:                        outTsll(Torigin, t->tag, p0, 1L);
                    111:                }else if(but==3){
                    112:                        p0=l->origin+charofpt(&l->f, Pt(s.corner.x, my));
                    113:                        if(p0>tot)
                    114:                                p0=tot;
                    115:                        horigin(t->tag, p0);
                    116:                }
                    117:        }
                    118: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.