home *** CD-ROM | disk | FTP | other *** search
/ Superpower (Alt) / SUPERPOWER.iso / q / source / zscrollv.m < prev    next >
Encoding:
Text File  |  1996-08-08  |  950 b   |  72 lines
  1. #import "qedefs.h"
  2.  
  3. @implementation ZScrollView
  4.  
  5. /*
  6. ====================
  7. initFrame: button:
  8.  
  9. Initizes a scroll view with a button at it's lower right corner
  10. ====================
  11. */
  12.  
  13. - initFrame:(const NXRect *)frameRect button1:b1
  14. {
  15.     [super  initFrame: frameRect];    
  16.  
  17.     [self addSubview: b1];
  18.  
  19.     button1 = b1;
  20.  
  21.     [self setHorizScrollerRequired: YES];
  22.     [self setVertScrollerRequired: YES];
  23.  
  24.     [self setBorderType: NX_BEZEL];
  25.         
  26.     return self;
  27. }
  28.  
  29.  
  30. /*
  31. ================
  32. tile
  33.  
  34. Adjust the size for the pop up scale menu
  35. =================
  36. */
  37.  
  38. - tile
  39. {
  40.     NXRect    scrollerframe;
  41.     
  42.     [super tile];
  43.     [hScroller getFrame: &scrollerframe];
  44.     [button1 setFrame: &scrollerframe];
  45.     
  46.     scrollerframe.size.width = 0;
  47.     [hScroller setFrame: &scrollerframe];
  48.  
  49.     return self;
  50. }
  51.  
  52.  
  53.  
  54. -(BOOL) acceptsFirstResponder
  55. {
  56.     return YES;
  57. }
  58.  
  59. - superviewSizeChanged:(const NXSize *)oldSize
  60. {
  61.     [super superviewSizeChanged: oldSize];
  62.     
  63.     [[self docView] newSuperBounds];
  64.     
  65.     return self;
  66. }
  67.  
  68.  
  69.  
  70. @end
  71.  
  72.