home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Frameworks / TransSkel 3.18 / Source / Control Stuff / SkelFlashButton.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-20  |  349 b   |  21 lines  |  [TEXT/KAHL]
  1. /*
  2.  * Flash a push button to simulate a click in it.
  3.  */
  4.  
  5. # include    "TransSkel.h"
  6.  
  7.  
  8. # define    hiliteClicks    8
  9.  
  10. pascal void
  11. SkelFlashButton (ControlHandle ctrl)
  12. {
  13. short    oldHilite;
  14. long    dummy;
  15.  
  16.     oldHilite = (**ctrl).contrlHilite;
  17.     HiliteControl (ctrl, inButton);        /* flash it */
  18.     Delay ((long) hiliteClicks, &dummy);
  19.     HiliteControl (ctrl, oldHilite);
  20. }
  21.