libs-gui/Source/GSHelpManagerPanel.m

#import <AppKit/AppKit.h>
#import <AppKit/GSHelpManagerPanel.h>

@implementation GSHelpManagerPanel
{
  id textView;
}

static GSHelpManagerPanel* _GSsharedGSHelpPanel;

+sharedHelpManagerPanel
{
  if(!_GSsharedGSHelpPanel)
    _GSsharedGSHelpPanel = [[GSHelpManagerPanel alloc] init];
  return _GSsharedGSHelpPanel;
}

/* This window should not be destroyed... So we don't allow it to! */
-retain
{
  return self;
}

-release
{
  return self;
}

-autorelease
{
  return self;
}

-init
{
  NSScrollView* scrollView;
  NSRect scrollViewRect = {{0, 0}, {470, 150}};
  NSRect winRect = {{100, 100}, {470, 150}};
  NSColor* backColor;
  unsigned int style = NSTitledWindowMask | NSClosableWindowMask
    | NSMiniaturizableWindowMask | NSResizableWindowMask;
  
  [self initWithContentRect:winRect
	styleMask:style
	backing:NSBackingStoreRetained
	defer:NO];
  [self setRepresentedFilename: @"Help"];
  [self setDocumentEdited: NO];
  
  scrollView = [[NSScrollView alloc] initWithFrame:scrollViewRect];
  [scrollView setHasHorizontalScroller:NO];
  [scrollView setHasVerticalScroller:YES]; 
  [scrollView setAutoresizingMask: NSViewHeightSizable];
  
  textView = [NSText new];
  [textView setEditable: NO];
  [textView setRichText: YES];
  [textView setSelectable: YES];
  [textView setFrame:[[scrollView contentView] frame]];
  backColor = [NSColor colorWithCalibratedWhite:0.85 alpha:1.0]; // off white
  [textView setBackgroundColor:backColor];					
  [scrollView setDocumentView:textView];
  [[self contentView] addSubview: scrollView];
  
  [self setTitle:@"Help"];
  
  return self;
}

-(void)setHelpText: (NSAttributedString*) helpText
{
  [textView setText: [helpText string]];
}

-(BOOL) isFloatingPanel
{
  return YES;
}

-(void) close
{
  [NSApp stopModal];
  [super close];
}
@end