home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.mdf / SourceCode / SliderDualActing / SliderCellFine.m < prev    next >
Encoding:
Text File  |  1993-01-18  |  5.8 KB  |  232 lines
  1.  
  2. /**************************************************************************
  3. *
  4. *        Object Name: SliderCellFine
  5. *
  6. *--------------------------------------------------------------------------
  7. *        Programmer:andrew stone
  8. *        Copyright (c) 1989,1990 Stone Design Corp.  All rights reserved. 
  9. ***************************************************************************/
  10.  
  11. #import "SliderCellFine.h"
  12. #import "SliderDualActing.h"
  13. #import <appkit/Application.h>
  14. #import <dpsclient/wraps.h>
  15. #import <math.h>
  16.  
  17.  
  18. /* Dragging 'resolution' of slider: how much the slider changes by */
  19.  
  20. #define FINE    .5                /* reduce altStep to 50% */
  21. #define SUPERFINE    .25            /* reduce altStep to 25% */
  22. #define DEFAULT_VAL    50.
  23. #define DEFAULT_MAX    100.
  24. #define DEFAULT_MIN    0.
  25. #define DEFAULT_ALT    1.
  26.  
  27. @implementation SliderCellFine
  28.  
  29. + new
  30. {
  31.     //sane defaults
  32.     self = [super new];
  33.     [self setAltStep:DEFAULT_ALT whole:YES default:DEFAULT_VAL];
  34.     [self setMax:DEFAULT_MAX allowHigher:YES min:DEFAULT_MIN allowLower:YES];
  35.     return self;
  36. }
  37.  
  38. - increment
  39. {
  40.     if (value+altStep <= maxValue) value += altStep;
  41.     else if (scfFlags.allowHigher)
  42.         { [self setMaxValue:value+altStep]; value += altStep; }
  43.     else return nil;    // failed to work
  44.     
  45.     [textPal setFloatValue:value];
  46.     return self;
  47. }
  48. - decrement
  49. {
  50.     if (value-altStep >= minValue) value -= altStep;
  51.     else if (scfFlags.allowLower)
  52.          { [self setMinValue:value+altStep]; value -= altStep; }
  53.     else return nil;    // failed to work
  54.  
  55.     [textPal setFloatValue:value];
  56.     return self;
  57. }
  58.  
  59.  
  60. - (double)checkValue:(double)val     // returns validated number
  61. {
  62.    if (val>= minValue && val<= maxValue) {
  63.       value = val;
  64.       return val;
  65.    } else if (val<minValue && scfFlags.allowLower) {
  66.       [self setMinValue:val];
  67.       value = val;
  68.       return val;
  69.    } else if (val>maxValue && scfFlags.allowHigher) {
  70.        [self setMaxValue:val];
  71.        value = val;
  72.        return val;
  73.     } else return value;      // no change allowed
  74. }
  75.  
  76. -(BOOL)isDecimal
  77. { 
  78.   return scfFlags.isDecimal;
  79. }
  80.  
  81. - (BOOL)continueTracking:(const NXPoint *)lastPoint
  82.               at:(const NXPoint *)currentPoint
  83.               inView:controlView
  84. {
  85.     NXEvent *e = [NXApp currentEvent];
  86.  
  87.     if  (e->flags & NX_ALTERNATEMASK) {
  88.         NXRect r;
  89.         double step = altStep;
  90.     
  91.         if (!lastPoint) lastPoint = currentPoint;
  92.     
  93.         if (e->flags & NX_SHIFTMASK) {
  94.               if (textPal) {
  95.                   [textPal setFloatingPointFormat:YES left:2 right:2];
  96.                 scfFlags.isDecimal =YES;
  97.             }
  98.             if (e->flags & NX_COMMANDMASK) step*=SUPERFINE; 
  99.             else step *= FINE;         
  100.         }
  101.         else if (scfFlags.isWhole) value = floor(value);
  102.  
  103.  
  104.         if (trackRect.size.width>trackRect.size.height) {
  105.             [self getKnobRect:&r flipped:NO];
  106.             if (r.origin.x+r.size.width<trackRect.size.width)
  107.                 r.size.width+=1.;
  108.                if (currentPoint->x >lastPoint->x) {
  109.                    value+=step;if (value>maxValue) value=maxValue;
  110.             } else if (currentPoint->x < lastPoint->x) {
  111.                     value -= step;if (value<minValue)value=minValue;
  112.             }
  113.         } else  {                 // is a vertical slider
  114.             [self getKnobRect:&r flipped:YES];
  115.             if (r.origin.y+r.size.height<trackRect.size.height)
  116.                 r.size.height+=1.;
  117.             if (currentPoint->y < lastPoint->y) {
  118.                 value+=step; if (value>maxValue) value=maxValue;
  119.             } else if (currentPoint->y > lastPoint->y) {
  120.                 value -= step; if (value<minValue)value=minValue;
  121.             }
  122.         }
  123.         PSsetgray(.5);        // Track gray 1.0
  124.         NXRectFill(&r);
  125.         [self drawKnob];
  126.         
  127.         [textPal setFloatValue:value];
  128.         if (scfFlags.sendContinuously) [controlView _sendIt];
  129.  
  130.         lastPoint = currentPoint;
  131.         return YES;
  132.     } 
  133.     else if  (e->flags & NX_COMMANDMASK) {
  134.         NXRect r;
  135.         if (trackRect.size.width>trackRect.size.height)
  136.             [self getKnobRect:&r flipped:NO];
  137.         else 
  138.             [self getKnobRect:&r flipped:YES];
  139.         value = defaultValue;
  140.         if (textPal) {
  141.             [textPal setFloatingPointFormat:NO left:4 right:0];
  142.             [textPal setFloatValue:value];
  143.             scfFlags.isDecimal = NO;
  144.         }
  145.         if (defaultMax) [self setMaxValue:defaultMax];
  146.         if (defaultMin) [self setMinValue:defaultMin];
  147.         PSsetgray(.5);
  148.         NXRectFill(&r);
  149.         [self drawKnob];
  150.         return YES;
  151.     } else {
  152.         BOOL retVal;
  153.           [textPal setFloatValue:value];
  154.          retVal =[super continueTracking:(const NXPoint *)lastPoint
  155.               at:(const NXPoint *)currentPoint
  156.               inView:controlView];
  157.           [textPal setFloatValue:value];  //YUP, two times is better than 1!
  158.         if (scfFlags.sendContinuously) [controlView _sendIt];
  159.         return retVal;
  160.      }
  161. }
  162.  
  163.  // Client Initialization Routines:
  164.  
  165.  // this method allows slider to setup what fine step will be
  166.  // and if we should keep it to a whole integer
  167.  
  168. - setAltStep:(double)step whole:(BOOL)flag default:(double)val
  169. {
  170.     scfFlags.isWhole = flag;
  171.     scfFlags.isDecimal = 1-flag;     // support for Clients rounding results
  172.     if (scfFlags.isWhole) [textPal setFloatingPointFormat:NO left:4 right:0]; 
  173.     altStep = step;
  174.     defaultValue = val;
  175.     value = val;
  176.     return self;
  177. }
  178.  
  179.  // set highest high and yes if you can surpass and lowest lows and surpass flag
  180.  
  181. - setMax:(double)max allowHigher:(BOOL)hi min:(double)min allowLower:(BOOL)lo
  182. {
  183.     defaultMax = max;
  184.     [self setMaxValue:max];
  185.     defaultMin = min;
  186.     [self setMinValue:min];
  187.     scfFlags.allowHigher = hi;
  188.     scfFlags.allowLower = lo;
  189.     return self;
  190. }
  191.  
  192.  // archive methods:   // not tested C.E.
  193. - read:(NXTypedStream *)stream
  194. {
  195.     [super read:stream];
  196.     NXReadTypes(stream,"sffff",&scfFlags,&altStep,
  197.                                     &defaultValue,&defaultMax,&defaultMin);
  198.     [self setMinValue:defaultMin];
  199.       [self setMaxValue:defaultMax];
  200.     return self;
  201. }
  202.  
  203. - write:(NXTypedStream *)stream
  204. {
  205.     [super write:stream];
  206.     NXWriteTypes(stream,"sffff",&scfFlags,&altStep,
  207.                                     &defaultValue,&defaultMax,&defaultMin);
  208.     return self;
  209. }
  210.  
  211.  // private and historical functions
  212.  
  213. - _setAlwaysSendUpAction:(BOOL)flag
  214. {
  215.      scfFlags.sendContinuously = flag;
  216.     return self;
  217. }
  218.  
  219. - setDefault:(double) def
  220. {
  221.    defaultValue = def;   // needed for GrayView
  222.    return self;
  223. }
  224.  
  225. - setTextPal:anObject
  226. {
  227.   textPal = anObject;
  228.   return self;
  229. }
  230.  
  231. @end
  232.