home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / eText5 / Source / NewXTeXT / XText0.9beta2 / XTScroller.m < prev   
Encoding:
Text File  |  1995-07-28  |  1.1 KB  |  41 lines
  1. #import "XTScroller.h"
  2.  
  3. @implementation XTScroller
  4.  
  5. - initFrame:(const NXRect *)frameRect
  6. {
  7.     NXRect rect = {0.0, 0.0, 0.0, 0.0};
  8.     NXSize s = {1.0E38, 1.0E38};
  9.     id my_xtext;
  10.     
  11.     // this is mostly cribbed from the TextLab example
  12.     // it's hard to believe that it needs to be this complicated
  13.  
  14.     [super initFrame:frameRect];
  15.     [[self setVertScrollerRequired:YES] setHorizScrollerRequired:NO];
  16.     
  17.     [self getContentSize:&(rect.size)];
  18.     my_xtext = [[XText alloc] initFrame:&rect];
  19.     [my_xtext setOpaque:YES];
  20.     [my_xtext notifyAncestorWhenFrameChanged:YES];
  21.     [my_xtext setVertResizable:YES];
  22.     [my_xtext setHorizResizable:NO];
  23.     [my_xtext setMonoFont:NO];
  24.     [my_xtext setDelegate:self];
  25.     
  26.     [my_xtext setMinSize:&(rect.size)];
  27.     [my_xtext setMaxSize:&s];
  28.     [my_xtext setAutosizing:NX_HEIGHTSIZABLE | NX_WIDTHSIZABLE];
  29.     
  30.     [my_xtext setCharFilter:NXEditorFilter];
  31.  
  32.     [self setDocView:my_xtext];
  33.     [my_xtext setSel:0 :0];    
  34.     
  35.     [contentView setAutoresizeSubviews:YES];
  36.     [contentView setAutosizing:NX_HEIGHTSIZABLE | NX_WIDTHSIZABLE];
  37.  
  38.     return self;
  39. }
  40. @end
  41.