Return to t2.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sunlib

Annotation of researchv9/jtools/src/sunlib/t2.c, revision 1.1

1.1     ! root        1: #include "jerq.h"
        !             2: 
        !             3: static char *editstrs[]={
        !             4:        "cut",
        !             5:        "paste",
        !             6:        "snarf",
        !             7:        "send",
        !             8:        "cut",
        !             9:        "paste",
        !            10:        "snarf",
        !            11:        "send",
        !            12:        "cut",
        !            13:        "paste",
        !            14:        "snarf",
        !            15:        "send",
        !            16:        "paste",
        !            17:        "snarf",
        !            18:        "send",
        !            19:        "cut",
        !            20:        "paste",
        !            21:        "snarf",
        !            22:        "send",
        !            23:        0,
        !            24: };
        !            25: static Menu    editmenu = {editstrs};
        !            26: 
        !            27: main(argc, argv)
        !            28: char **argv;
        !            29: {
        !            30:        int i, h, w, y;
        !            31:        static char *s = "Hello world";
        !            32:        char c[2];
        !            33: 
        !            34:        request(KBD|MOUSE);
        !            35:        initdisplay(argc, argv);
        !            36: 
        !            37:        c[1] = 0;
        !            38:        h = fontheight(&defont);
        !            39:        y = h + 5;
        !            40:        w = strwidth(&defont, "m");
        !            41:        for(i = 0; ; ){
        !            42:                wait(MOUSE|KBD);
        !            43:                if(P->state & KBD){
        !            44:                        c[0] = kbdchar();
        !            45:                        string(&defont, c, &display, Pt(10+w*i, y), F_OR);
        !            46:                        i++;
        !            47:                        if(i > 50){
        !            48:                                i = 0;
        !            49:                                y += h;
        !            50:                        }
        !            51:                }
        !            52:                if(button2())
        !            53:                        menuhit(&editmenu, 2);
        !            54:                else if(button3())
        !            55:                        break;
        !            56:        }
        !            57: }

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