Return to t7.c CVS log

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

researchv9-SUN3(old)

#include "jerq.h"

main (argc, argv)
int argc;
char **argv;
{
   int r;

   request(KBD|MOUSE);
   initdisplay(argc, argv);
   for(;;){
      r = wait(MOUSE|KBD);
      if(button1()){
         rectf(&display, Drect, F_CLR);
         rectf(&display, Rect(Drect.origin.x, Drect.origin.y,
               mouse.xy.x, Drect.corner.y), F_XOR);
      } else if(button23())
         break;
      if(r&KBD && kbdchar() == 'y')
         string(&defont, "Hello", &display, Drect.origin, F_XOR);
   }
}

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