home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Code Resources / SliderCDEF 1.0 / SliderCDEF Source ƒ / SliderCDEF.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-12-10  |  1.6 KB  |  68 lines  |  [TEXT/KAHL]
  1. #include <SetUpA4.h>
  2. #include "SliderCDEF.h"
  3.  
  4. // main for SliderCDEF
  5. //
  6. // The entry point to the control definition. This function is called directly by the control
  7. // manager for all control actions.
  8. pascal long main( short varCode, ControlHandle theControl, short message, long param )
  9. {
  10.     Point        thePoint;
  11.     long        result = 0L;
  12.     
  13.     // Set up global variable access using register A4.
  14.     RememberA0();
  15.     SetUpA4();
  16.         
  17.     switch( message ) {
  18.         case drawCntl:
  19.             // If the control is visible, draw it.
  20.             if ( (**theControl).contrlVis ) {
  21.                 SliderDrawControl( varCode, theControl, param );
  22.             }
  23.             // Always return 0 for drawCntl.
  24.             result = 0L;
  25.             break;
  26.         case testCntl:
  27.             // Find the part code of the control part clicked on, if any.
  28.             result = SliderTestControl( varCode, theControl, param );
  29.             break;
  30.         case calcCRgns:
  31.             SliderCalcCRgns( varCode, theControl, param );
  32.             result = 0L;
  33.             break;
  34.         case initCntl:
  35.             SliderInitControl( varCode, theControl, param );
  36.             result = 0L;
  37.             break;
  38.         case dispCntl:
  39.             SliderDisposeControl( varCode, theControl, param );
  40.             result = 0L;
  41.             break;
  42.         case posCntl:
  43.             SliderPositionControl( varCode, theControl, param );
  44.             result = 0L;
  45.             break;
  46.         case thumbCntl:
  47.             result = 0L;
  48.             break;
  49.         case dragCntl:
  50.             result = SliderDragControl( varCode, theControl, param );
  51.             break;
  52.         case autoTrack:
  53.             result = SliderDragControl( varCode, theControl, param );
  54.             break;
  55.         case calcCntlRgn:
  56.             SliderCalcCntlRgn( varCode, theControl, param );
  57.             result = 0L;
  58.             break;
  59.         case calcThumbRgn:
  60.             SliderCalcThumbRgn( varCode, theControl, param );
  61.             result = 0L;
  62.             break;
  63.         default:
  64.             result = 0L;
  65.     }
  66.     RestoreA4();
  67.     return result;
  68. }