home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progc / teglc.arj / EASYTST1.C < prev    next >
Text File  |  1990-05-13  |  872b  |  42 lines
  1.  
  2. #include "teglsys.h"
  3.  
  4. unsigned easyquit(imagestkptr frame,msclickptr mouseclickpos)
  5. {
  6.     if (getyesno(250,150,"Are you sure"))
  7.        abort_msg("Bye....");
  8.  
  9.     return 1;
  10. }
  11.  
  12. unsigned easyerror(imagestkptr frame,msclickptr mouseclickpos)
  13. {
  14.     errmess(250,150,"Fake error occured in Programmer");
  15.     return 1;
  16. }
  17.  
  18. unsigned easymessage(imagestkptr frame,msclickptr mouseclickpos)
  19. {
  20.     framefromicon(frame,mouseclickpos,150,150,250,250);
  21.     prepareforupdate(stackptr);
  22.     frametext(stackptr,1,2,"First Line");
  23.     frametext(stackptr,2,2,"Second Line");
  24.     frametext(stackptr,3,2,"Third Line");
  25.     commitupdate();
  26.  
  27.     return 1;
  28. }
  29.  
  30.  
  31.  
  32. void main()
  33. {
  34.     easytegl();
  35.  
  36.     activebutton(100,100,"QUIT",easyquit);
  37.     activebutton(150,100,"ERROR",easyerror);
  38.     activebutton(220,100,"MESSAGE",easymessage);
  39.  
  40.     teglsupervisor();
  41. }
  42.