home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / tegltc.zip / SAMPROGS / SAMC0204.C < prev    next >
Text File  |  1990-05-14  |  1KB  |  57 lines
  1. /*  samc0204.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.  
  21.     definebuttonclick(fs,x+300,y+70,imageOK,NULL);
  22.  
  23.     getmousey(fs);
  24.  
  25.     dropstackimage(fs);
  26.     showmouse();
  27.  
  28.     return(1);
  29.   }
  30.  
  31. unsigned getmssense(imagestkptr ifs, msclickptr ms)
  32.   {
  33.     setmousesense(ifs->x,ifs->y);
  34.     return(1);
  35.   }
  36.  
  37. void main()
  38.   {
  39.     easytegl();
  40.  
  41.     om1 = createoptionmenu(font14);
  42.     defineoptions(om1," Info... ", TRUE, infooption);
  43.     defineoptions(om1,"--",     FALSE, NULL);
  44.     defineoptions(om1," Quit ", TRUE, quit);
  45.  
  46.     om2 = createoptionmenu(font14);
  47.     defineoptions(om2," Memory ",TRUE,showcoordinates);
  48.     defineoptions(om2," Mouse sensitivity ",TRUE,getmssense);
  49.  
  50.     createbarmenu(0,0,getmaxx());
  51.     outbaroption(" File ",om1);
  52.     outbaroption(" Utility ",om2);
  53.  
  54.  
  55.     teglsupervisor();
  56.   }
  57.