home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / tegltc.zip / SAMPROGS / SAMC0203.C < prev    next >
Text File  |  1990-05-14  |  1KB  |  51 lines
  1. /*  samc0203.c    */
  2.  
  3. #include <graphics.h>
  4. #include "teglsys.h"
  5.  
  6. optionmptr  om1, om2;
  7.  
  8. unsigned infooption(imagestkptr ifs, msclickptr ms)
  9.   {
  10.     imagestkptr fs;
  11.     unsigned x=200,y=120,w=340,h=100;
  12.  
  13.     hidemouse();
  14.     quickframe(&fs,&x,&y,&w,&h);
  15.  
  16.     setcolor(BLACK);
  17.     frametext(fs,1,2,"TEGL Windows Toolkit II");
  18.     frametext(fs,2,2,"Copyright 1990, TEGL Systems Corporation");
  19.     frametext(fs,3,2,"All Rights Reserved.");
  20.     showmouse();
  21.  
  22.     return(1);
  23.   }
  24.  
  25. unsigned getmssense(imagestkptr ifs, msclickptr ms)
  26.   {
  27.     setmousesense(ifs->x,ifs->y);
  28.     return(1);
  29.   }
  30.  
  31. void main()
  32.   {
  33.     easytegl();
  34.  
  35.     om1 = createoptionmenu(font14);
  36.     defineoptions(om1," Info... ", TRUE, infooption);
  37.     defineoptions(om1,"--",     FALSE, NULL);
  38.     defineoptions(om1," Quit ", TRUE, quit);
  39.  
  40.     om2 = createoptionmenu(font14);
  41.     defineoptions(om2," Memory ",TRUE,showcoordinates);
  42.     defineoptions(om2," Mouse sensitivity ",TRUE,getmssense);
  43.  
  44.     createbarmenu(0,0,getmaxx());
  45.     outbaroption(" File ",om1);
  46.     outbaroption(" Utility ",om2);
  47.  
  48.  
  49.     teglsupervisor();
  50.   }
  51.