Fixes galore.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gui/trunk@4866 72102866-910b-0410-8b05-ffd578937521

Source/NSHelpManager.m

@@ -0,0 +1,174 @@
+/* 
+   NSHelpManager.m
+
+   NSHelpManager is the class responsible for managing context help
+   for the application, and its mapping to the graphic elements.
+
+   Copyright (C) 1999 Free Software Foundation, Inc.
+
+   Author:  Pedro Ivo Andrade Tavares <ptavares@iname.com>
+   Date: September 1999
+   
+   This file is part of the GNUstep GUI Library.
+
+   This library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public
+   License as published by the Free Software Foundation; either
+   version 2 of the License, or (at your option) any later version.
+   
+   This library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with this library; see the file COPYING.LIB.
+   If not, write to the Free Software Foundation,
+   59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+*/ 
+
+#include <gnustep/gui/config.h>
+#include <AppKit/NSHelpManager.h>
+#include <Foundation/NSNotification.h>
+
+#include <Foundation/NSFileManager.h>
+#include <Foundation/NSString.h>
+#include <Foundation/NSBundle.h>
+#include <AppKit/NSAttributedString.h>
+#include <AppKit/NSWorkspace.h>
+#include <AppKit/GSHelpManagerPanel.h>
+
+@implementation NSBundle (NSHelpManager)
+
+- (NSAttributedString*) contextHelpForKey: (NSString*) key
+{
+  // FIXME
+  /* There are some issues here. I still have to understand how
+     does Help.plist work. */
+  NSLog(@"contextHelpForKey not implemented yet.");
+  return nil;
+}
+
+@end
+
+@implementation NSApplication (NSHelpManager)
+
+- (void) showHelp: (id)sender
+{
+  // FIXME
+  /* This is obviously very restrictive. The ideal would be to check
+     the Resources first, but this can be done later. */
+  [[NSWorkspace sharedWorkspace] openFile: @"Help.rtf"];
+}
+
+- (void) activateContextHelpMode: (id)sender
+{
+  [NSHelpManager setContextHelpModeActive: YES];
+}
+
+@end
+
+@implementation NSHelpManager
+{
+@private
+  NSMapTable* contextHelpTopics;
+}
+
+static NSHelpManager *_gnu_sharedHelpManager = nil;
+static BOOL _gnu_contextHelpActive = NO;
+
+
+//
+// Class methods
+//
++ (NSHelpManager*)sharedHelpManager
+{
+  if (!_gnu_sharedHelpManager)
+    {
+      _gnu_sharedHelpManager = [NSHelpManager alloc];
+      [_gnu_sharedHelpManager init];
+    }
+  return _gnu_sharedHelpManager;
+}
+
++ (BOOL)isContextHelpModeActive
+{
+  return _gnu_contextHelpActive;
+}
+
++ (void)setContextHelpModeActive: (BOOL) flag
+{
+  _gnu_contextHelpActive = flag;
+  if (flag)
+    {
+      [[NSNotificationCenter defaultCenter] 
+	postNotificationName: NSContextHelpModeDidActivateNotification 
+	object: [self sharedHelpManager]];
+    }
+  else
+    {
+      [[NSNotificationCenter defaultCenter] 
+	postNotificationName: NSContextHelpModeDidDeactivateNotification 
+	object: [self sharedHelpManager]];
+    }
+}
+
+//
+// Instance methods
+//
+- (id) init
+{
+  contextHelpTopics = NSCreateMapTable(NSObjectMapKeyCallBacks,
+				       NSObjectMapValueCallBacks,
+				       64);
+  return self;
+}
+
+- (NSAttributedString*) contextHelpForObject: (id)object
+{
+  /* Help is kept on the contextHelpTopics NSMapTable, with
+     the object for it as the key. 
+     
+     Help is loaded on demand:
+     If it's an NSAttributedString which is stored, then it's already 
+     loaded. 
+     If it's nil, there's no help for this object, and that's what we return.
+     If it's an NSString, it's the path for the help, and we ask NSBundle
+     for it (This part has to be written, so:) */
+  // FIXME
+     
+  id hc = NSMapGet(contextHelpTopics, object);
+  if(hc)
+    {
+      if(![hc isKindOfClass: [NSAttributedString class]])
+	{
+	  hc = [[NSBundle mainBundle] contextHelpForKey: hc];
+	  NSMapInsert(contextHelpTopics, object, hc);
+	}
+    }
+  return hc;
+}
+
+- (void) removeContextHelpForObject: (id)object
+{
+  NSMapRemove(contextHelpTopics, object);
+}
+
+- (void) setContextHelp: (NSAttributedString*) help withObject: (id) object
+{
+  NSMapInsert(contextHelpTopics, object, help);
+}
+
+- (BOOL) showContextHelpForObject: (id)object locationHint: (NSPoint) point
+{
+  id contextHelp = [self contextHelpForObject: object];
+  if (contextHelp)
+    {
+      [[GSHelpManagerPanel sharedHelpManagerPanel] setHelpText: contextHelp];
+      [NSApp runModalForWindow: [GSHelpManagerPanel sharedHelpManagerPanel]];
+      return YES;
+    }
+  else return NO;
+}
+
+@end