libs-gsweb/GSWeb.framework/GSWRadioButtonList.m

/* GSWRadioButtonList.m - GSWeb: Class GSWRadioButtonList
   Copyright (C) 1999 Free Software Foundation, Inc.
   
   Written by:	Manuel Guesdon <mguesdon@sbuilders.com>
   Date: 		Jan 1999
   
   This file is part of the GNUstep Web 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; if not, write to the Free
   Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

static char rcsId[] = "$Id$";

#include <GSWeb/GSWeb.h>

//====================================================================
@implementation GSWRadioButtonList

//--------------------------------------------------------------------
-(id)initWithName:(NSString*)name_
	 associations:(NSDictionary*)associations_
  contentElements:(NSArray*)elements_
{
  //OK
  NSMutableDictionary* _associations=[NSMutableDictionary dictionaryWithDictionary:associations_];
  LOGObjectFnStart();
  NSDebugMLLog(@"gswdync",@"name_=%@ associations_:%@ elements_=%@",name_,associations_,elements_);
  defaultEscapeHTML=1;
  [_associations removeObjectForKey:list__Key];
  [_associations removeObjectForKey:item__Key];
  [_associations removeObjectForKey:index__Key];
  [_associations removeObjectForKey:selection__Key];
  [_associations removeObjectForKey:prefix__Key];
  [_associations removeObjectForKey:suffix__Key];
  [_associations removeObjectForKey:displayString__Key];
  [_associations removeObjectForKey:escapeHTML__Key];
  if ((self=[super initWithName:name_
				   associations:_associations
				   contentElements:nil]))
	{
	  list=[[associations_ objectForKey:list__Key
							  withDefaultObject:[list autorelease]] retain];
	  item=[[associations_ objectForKey:item__Key
							  withDefaultObject:[item autorelease]] retain];
	  if (item && ![item isValueSettable])
		{
		  ExceptionRaise0(@"GSWCheckBox",@"'item' parameter must be settable");
		};
	  index=[[associations_ objectForKey:index__Key
							withDefaultObject:[index autorelease]] retain];
	  if (index && ![index isValueSettable])
		{
		  ExceptionRaise0(@"GSWCheckBox",@"'index' parameter must be settable");
		};

	  selection=[[associations_ objectForKey:selection__Key
								withDefaultObject:[selection autorelease]] retain];
	  if (![selection isValueSettable])
		{
		  ExceptionRaise0(@"GSWCheckBox",@"'selection' parameter must be settable");
		};
	  prefix=[[associations_ objectForKey:prefix__Key
							 withDefaultObject:[prefix autorelease]] retain];
	  suffix=[[associations_ objectForKey:suffix__Key
							 withDefaultObject:[suffix autorelease]] retain];
	  displayString=[[associations_ objectForKey:displayString__Key
									withDefaultObject:[displayString autorelease]] retain];
	  escapeHTML=[[associations_ objectForKey:escapeHTML__Key
								 withDefaultObject:[escapeHTML autorelease]] retain];
	};
  return self;
};

//-----------------------------------------------------------------------------------
-(void)dealloc
{
  DESTROY(list);
  DESTROY(item);
  DESTROY(index);
  DESTROY(selection);
  DESTROY(prefix);
  DESTROY(suffix);
  DESTROY(displayString);
  DESTROY(escapeHTML);
  [super dealloc];
}

//--------------------------------------------------------------------
-(NSString*)description
{
  return [NSString stringWithFormat:@"<%s %p>",
				   object_get_class_name(self),
				   (void*)self];
};

//--------------------------------------------------------------------
-(NSString*)elementName
{
  return @"INPUT";
};

@end

//====================================================================
@implementation GSWRadioButtonList (GSWRadioButtonListA)

//-----------------------------------------------------------------------------------
-(void)takeValuesFromRequest:(GSWRequest*)request_
				   inContext:(GSWContext*)context_
{
  //OK
  LOGObjectFnStart();
  [self _slowTakeValuesFromRequest:request_
		inContext:context_];
  LOGObjectFnStop();
};

//-----------------------------------------------------------------------------------
-(void)_slowTakeValuesFromRequest:(GSWRequest*)request_
						inContext:(GSWContext*)context_
{
  //OK
  BOOL _disabledInContext=NO;
  LOGObjectFnStart();

  [self resetAutoValue];
  _disabledInContext=[self disabledInContext:context_];
  if (!_disabledInContext)
	{
	  if ([context_ _wasFormSubmitted])
		{
		  GSWComponent* _component=[context_ component];
		  NSArray* _listValue=nil;
		  NSString* _name=nil;
		  int _foundIndex=-1;
		  id _formValue=nil;
		  id _valueValue=nil;
		  id _valueToSet=nil;
		  int i=0;
		  _name=[self nameInContext:context_];
		  NSDebugMLLog(@"gswdync",@"_name=%@",_name);
		  _formValue=[request_ formValueForKey:_name];
		  NSDebugMLLog(@"gswdync",@"_formValue=%@",_formValue);
		  _listValue=[list valueInComponent:_component];
		  NSAssert3(!_listValue || [_listValue respondsToSelector:@selector(count)],
					@"The list (%@) (%@ of class:%@) doesn't  respond to 'count'",
					list,
					_listValue,
					[_listValue class]);
		  NSDebugMLLog(@"gswdync",@"_listValue=%@",_listValue);
		  for(i=0;i<[_listValue count] && _foundIndex<0;i++)
			{
			  NSDebugMLLog(@"gswdync",@"item=%@",item);
			  NSDebugMLLog(@"gswdync",@"index=%@",index);
			  if (item)
				[item setValue:[_listValue objectAtIndex:i]
					  inComponent:_component];
			  else if (index)
				[index setValue:[NSNumber numberWithShort:i]
					   inComponent:_component];
			  NSDebugMLLog(@"gswdync",@"value=%@",value);

				  //TODOV
			  _valueValue=[self valueInContext:context_];
			  NSDebugMLLog(@"gswdync",@"_valueValue=%@",_valueValue);
			  if (_valueValue)
			    {
			      BOOL _isEqual=SBIsValueEqual(_valueValue,_formValue);
			      NSDebugMLLog(@"gswdync",@"_isEqual=%s",(_isEqual ? "YES" : "NO"));
			      if (_isEqual)
				{
				  if(autoValue == NO)
				    _valueToSet=_valueValue;
				  else
				    _valueToSet=[_listValue objectAtIndex:i];
				  _foundIndex=i;
				};
			    };
			};
		  NSDebugMLLog(@"gswdync",@"_component=%@",_component);
		  NSDebugMLLog(@"gswdync",@"_foundIndex=%d",_foundIndex);
		  NSDebugMLLog(@"gswdync",@"selection=%@",selection);
		  GSWLogAssertGood(_component);
                  if (!WOStrictFlag)
                    {
                      NS_DURING
			{
			  if (_foundIndex>=0)
                            [selection setValue:_valueToSet
                                       inComponent:_component];
			  else
                            [selection setValue:nil
                                       inComponent:_component];
			};
                      NS_HANDLER
			{
			  [self handleValidationException:localException
                                inContext:context_];
			}
                      NS_ENDHANDLER;
                    }
                  else
                    {
                      if (_foundIndex>=0)
			[selection setValue:_valueToSet
                                   inComponent:_component];
                      else
			[selection setValue:nil
                                   inComponent:_component];
                    };
		};
	};
  LOGObjectFnStop();
};

//-----------------------------------------------------------------------------------
-(void)_fastTakeValuesFromRequest:(GSWRequest*)request_
						inContext:(GSWContext*)context_
{
  LOGObjectFnStart();
  LOGObjectFnNotImplemented();	//TODOFN
  LOGObjectFnStop();
};

//-----------------------------------------------------------------------------------
-(void)appendToResponse:(GSWResponse*)response_
			  inContext:(GSWContext*)context_
{
  //OK
  GSWRequest* _request=nil;
  BOOL _isFromClientComponent=NO;
  NSString* _name=nil;
  GSWComponent* _component=nil;
  NSArray* _listValue=nil;
  id _selectionValue=nil;
  int i=0;
  id _displayStringValue=nil;
  id _prefixValue=nil;
  id _suffixValue=nil;
  id _valueValue=nil;
  BOOL _isEqual=NO;
  LOGObjectFnStart();
  [self resetAutoValue];
  autoValue = NO;
  _request=[context_ request];
  _isFromClientComponent=[_request isFromClientComponent];
  _name=[self nameInContext:context_];
  _component=[context_ component];
  _selectionValue=[selection valueInComponent:_component];
  _listValue=[list valueInComponent:_component];
  NSAssert3(!_listValue || [_listValue respondsToSelector:@selector(count)],
			@"The list (%@) (%@ of class:%@) doesn't  respond to 'count'",
			list,
			_listValue,
			[_listValue class]);
  for(i=0;i<[_listValue count];i++)
	{
	  [item setValue:[_listValue objectAtIndex:i]
			inComponent:_component];
	  _prefixValue=[prefix valueInComponent:_component];
	  _suffixValue=[suffix valueInComponent:_component];
	  [index setValue:[NSNumber numberWithShort:i]
			 inComponent:_component];
	  _displayStringValue=[displayString valueInComponent:_component];
	  [response_ appendContentString:@"<INPUT NAME=\""];
	  [response_ appendContentString:_name];
	  [response_ appendContentString:@"\" TYPE=radio VALUE=\""];
	  _valueValue=[self valueInContext:context_];
	  [response_ appendContentHTMLAttributeValue:_valueValue];
	  [response_ appendContentCharacter:'"'];
	  //TODOV
	  if(value)
	    _isEqual=SBIsValueEqual(_valueValue,_selectionValue);
	  else
	    {
	      _isEqual=SBIsValueEqual([_listValue objectAtIndex:i],_selectionValue);
	      autoValue = YES;
	    }
	  if (_isEqual)
		[response_ appendContentString:@"\" CHECKED"];
	  [response_ appendContentCharacter:'>'];
	  [response_ appendContentString:_prefixValue];
	  [response_ appendContentHTMLString:_displayStringValue];
	  [response_ appendContentString:_suffixValue];
	};
  LOGObjectFnStop();
};

@end

//====================================================================
@implementation GSWRadioButtonList (GSWRadioButtonListB)
-(BOOL)appendStringAtRight:(id)_unkwnon
			   withMapping:(char*)_mapping
{
  LOGObjectFnNotImplemented();	//TODOFN
  return NO;
};

-(BOOL)appendStringAtLeft:(id)_unkwnon
			  withMapping:(char*)_mapping
{
  LOGObjectFnNotImplemented();	//TODOFN
  return NO;
};

-(BOOL)compactHTMLTags
{
  return NO;
};

@end