Initial revision

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

Source/NSTextField.m

@@ -0,0 +1,426 @@
+/* 
+   NSTextField.m
+
+   Text field control class for text entry
+
+   Copyright (C) 1996 Free Software Foundation, Inc.
+
+   Author:  Scott Christley <scottc@net-community.com>
+   Date: 1996
+   
+   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.
+
+   If you are interested in a warranty or support for this source code,
+   contact Scott Christley <scottc@net-community.com> for more information.
+   
+   You should have received a copy of the GNU Library General Public
+   License along with this library; if not, write to the Free
+   Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/ 
+
+#include <gnustep/gui/NSTextField.h>
+#include <gnustep/gui/NSWindow.h>
+#include <gnustep/gui/NSTextFieldCell.h>
+#include <gnustep/gui/NSApplication.h>
+
+//
+// class variables
+//
+id MB_NSTEXTFIELDCELL_CLASS;
+
+@implementation NSTextField
+
+//
+// Class methods
+//
++ (void)initialize
+{
+  if (self == [NSTextField class])
+    {
+      // Initial version
+      [self setVersion:1];
+
+      // Set our cell class to NSTextFieldCell
+      [self setCellClass:[NSTextFieldCell class]];
+    }
+}
+
+//
+// Initializing the NSTextField Factory 
+//
++ (Class)cellClass
+{
+  return MB_NSTEXTFIELDCELL_CLASS;
+}
+
++ (void)setCellClass:(Class)classId
+{
+  MB_NSTEXTFIELDCELL_CLASS = classId;
+}
+
+//
+// Instance methods
+//
+- init
+{
+  return [self initWithFrame:NSZeroRect];
+}
+
+- initWithFrame:(NSRect)frameRect
+{
+  [super initWithFrame:frameRect];
+
+  // set our cell
+  [[self cell] release];
+  [self setCell:[[MB_NSTEXTFIELDCELL_CLASS alloc] init]];
+  [cell setState:1];
+
+  return self;
+}
+
+//
+// Setting User Access to Text 
+//
+- (BOOL)isEditable
+{
+  return [cell isEditable];
+}
+
+- (BOOL)isSelectable
+{
+  return [cell isSelectable];
+}
+
+- (void)setEditable:(BOOL)flag
+{
+  [cell setEditable:flag];
+}
+
+- (void)setSelectable:(BOOL)flag
+{
+  [cell setSelectable:flag];
+}
+
+//
+// Editing Text 
+//
+- (void)selectText:(id)sender
+{
+  if ([[self window] makeFirstResponder:self])
+    [cell selectText:sender];
+}
+
+//
+// Setting Tab Key Behavior 
+//
+- (id)nextText
+{
+  return next_text;
+}
+
+- (id)previousText
+{
+  return previous_text;
+}
+
+- (void)setNextText:(id)anObject
+{
+  id t;
+
+  next_text = anObject;
+
+  // Tell the object that we are the previous text
+  // Unless it already knows that
+  if ([anObject respondsToSelector:@selector(setPreviousText:)])
+    {
+      t = [anObject previousText];
+      if (t != self)
+	[anObject setPreviousText:self];
+    }
+}
+
+- (void)setPreviousText:(id)anObject
+{
+  id t;
+
+  previous_text = anObject;
+
+  // Tell the object that we are the next text
+  // Unless it already knows that
+  if ([anObject respondsToSelector:@selector(setNextText:)])
+    {
+      t = [anObject nextText];
+      if (t != self)
+	[anObject setNextText:self];
+    }
+}
+
+//
+// Assigning a Delegate 
+//
+- (void)setDelegate:(id)anObject
+{
+  text_delegate = anObject;
+}
+
+- (id)delegate
+{
+  return text_delegate;
+}
+
+//
+// Drawing
+//
+- (void)drawRect:(NSRect)rect
+{
+  [cell drawWithFrame:rect inView:self];
+}
+
+//
+// Modifying Graphic Attributes 
+//
+- (NSColor *)backgroundColor
+{
+  return [cell backgroundColor];
+}
+
+- (BOOL)drawsBackground
+{
+  return [cell drawsBackground];
+}
+
+- (BOOL)isBezeled
+{
+  return [cell isBezeled];
+}
+
+- (BOOL)isBordered
+{
+  return [cell isBordered];
+}
+
+- (void)setBackgroundColor:(NSColor *)aColor
+{
+  [cell setBackgroundColor:aColor];
+}
+
+- (void)setBezeled:(BOOL)flag
+{
+  [cell setBezeled:flag];
+}
+
+- (void)setBordered:(BOOL)flag
+{
+  [cell setBordered:flag];
+}
+
+- (void)setDrawsBackground:(BOOL)flag
+{
+  [cell setDrawsBackground:flag];
+}
+
+- (void)setTextColor:(NSColor *)aColor
+{
+  [cell setTextColor:aColor];
+}
+
+- (NSColor *)textColor
+{
+  return [cell textColor];
+}
+
+//
+// Target and Action 
+//
+- (SEL)errorAction
+{
+  return error_action;
+}
+
+- (void)setErrorAction:(SEL)aSelector
+{
+  error_action = aSelector;
+}
+
+//
+// Handling Events 
+//
+- (void)mouseDown:(NSEvent *)theEvent
+{
+  // If not selectable then don't recognize the mouse down
+  if (![self isSelectable]) return;
+
+  [[self window] makeFirstResponder:self];
+}
+
+- (void)mouseUp:(NSEvent *)theEvent
+{
+  // If not selectable then don't recognize the mouse up
+  if (![self isSelectable]) return;
+}
+
+- (void)mouseMoved:(NSEvent *)theEvent
+{
+  // If not selectable then don't recognize the mouse moved
+  if (![self isSelectable]) return;
+}
+
+- (void)keyDown:(NSEvent *)theEvent
+{
+  int result;
+  unsigned int flags = [theEvent modifierFlags];
+  unsigned int key_code = [theEvent keyCode];
+  char out[80];
+
+  // If SHIFT-TAB key then make the previous text the first responder
+  if ((key_code == 0x09) && (flags & NSShiftKeyMask))
+    {
+      if ([previous_text respondsToSelector:@selector(selectText:)])
+	// Either select the previous' text
+	[previous_text selectText:self];
+      else
+	// Or select ourself
+	[self selectText:self];
+
+      // Have the target perform the action
+      [self sendAction:[self action] to:[self target]];
+
+      return;
+    }
+
+  // If TAB key then make the next text the first responder
+  if (key_code == 0x09)
+    {
+      if ([next_text respondsToSelector:@selector(selectText:)])
+	// Either select the next's text
+	[next_text selectText:self];
+      else
+	// Or select ourself
+	[self selectText:self];
+
+      // Have the target perform the action
+      [self sendAction:[self action] to:[self target]];
+
+      return;
+    }
+
+  // If RETURN key then make the next text the first responder
+  if (key_code == 0x0d)
+    {
+      if ([next_text respondsToSelector:@selector(selectText:)])
+	// Either select the next's text
+	[next_text selectText:self];
+      else
+	// Or select ourself
+	[self selectText:self];
+
+      // Have the target perform the action
+      [self sendAction:[self action] to:[self target]];
+
+      return;
+    }
+
+  // If not editable then don't recognize the key down
+  if (![self isEditable]) return;
+}
+
+- (void)keyUp:(NSEvent *)theEvent
+{
+  unsigned int key_code = [theEvent keyCode];
+
+  // Ignore TAB and RETURN key
+  if ((key_code == 0x09) || (key_code == 0x0d))
+    {
+      return;
+    }
+
+  // If not editable then don't recognize the key up
+  if (![self isEditable]) return;
+}
+
+- (BOOL)acceptsFirstResponder
+{
+  if ([self isSelectable])
+    return YES;
+  else
+    return NO;
+}
+
+- (BOOL)becomeFirstResponder
+{
+  if ([self isSelectable])
+    {
+      [cell selectText:self];
+      return YES;
+    }
+  else
+    {
+      return NO;
+    }
+}
+
+- (void)textDidBeginEditing:(NSNotification *)aNotification
+{
+  if ([text_delegate respondsTo:@selector(textDidBeginEditing:)])
+    return [text_delegate textDidBeginEditing:aNotification];
+}
+
+- (void)textDidChange:(NSNotification *)aNotification
+{
+  if ([text_delegate respondsTo:@selector(textDidChange:)])
+    return [text_delegate textDidChange:aNotification];
+}
+
+- (void)textDidEndEditing:(NSNotification *)aNotification
+{
+  if ([text_delegate respondsTo:@selector(textDidEndEditing:)])
+    return [text_delegate textDidEndEditing:aNotification];
+}
+
+- (BOOL)textShouldBeginEditing:(NSText *)textObject
+{
+  return YES;
+}
+
+- (BOOL)textShouldEndEditing:(NSText *)textObject
+{
+  return YES;
+}
+
+//
+// NSCoding protocol
+//
+- (void)encodeWithCoder:aCoder
+{
+  [super encodeWithCoder:aCoder];
+
+  [aCoder encodeObjectReference: next_text withName: @"Next text"];
+  [aCoder encodeObjectReference: previous_text withName: @"Previous text"];
+  [aCoder encodeObjectReference: text_delegate withName: @"Text delegate"];
+  [aCoder encodeValueOfObjCType: @encode(SEL) at: &error_action];
+}
+
+- initWithCoder:aDecoder
+{
+  [super initWithCoder:aDecoder];
+
+  [aDecoder decodeObjectAt: &next_text withName: NULL];
+  [aDecoder decodeObjectAt: &previous_text withName: NULL];
+  [aDecoder decodeObjectAt: &text_delegate withName: NULL];
+  [aDecoder decodeValueOfObjCType: @encode(SEL) at: &error_action];
+
+  return self;
+}
+
+@end
+