Return to t7.c CVS log

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

Annotation of researchv9/jtools/src/sunlib/t7.c, revision 1.1.1.1

1.1       root        1: #include "jerq.h"
                      2: 
                      3: main (argc, argv)
                      4: int argc;
                      5: char **argv;
                      6: {
                      7:    int r;
                      8: 
                      9:    request(KBD|MOUSE);
                     10:    initdisplay(argc, argv);
                     11:    for(;;){
                     12:       r = wait(MOUSE|KBD);
                     13:       if(button1()){
                     14:          rectf(&display, Drect, F_CLR);
                     15:          rectf(&display, Rect(Drect.origin.x, Drect.origin.y,
                     16:                mouse.xy.x, Drect.corner.y), F_XOR);
                     17:       } else if(button23())
                     18:          break;
                     19:       if(r&KBD && kbdchar() == 'y')
                     20:          string(&defont, "Hello", &display, Drect.origin, F_XOR);
                     21:    }
                     22: }

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