mirror of
https://github.com/gnustep/libs-gsweb.git
synced 2025-02-23 11:41:20 +00:00
6549dee6e7
I've rewritten AutoValue handling in GSWBrowser,GSWCheckBoxList, GSWRadioButtonList, GSWPopUpButton to make it coherent and working like specifications. * GSWeb/GSWSwitchComponent.m: o add more information when componentName is null * GSWRepetition.h/.m: o added startIndex, stopIndex * GSWeb/GSWConstants.h/.m: o added startIndex__Key,stopIndex__Key * GSWeb/GSWComponent.h/.m: o replace _isSynchronized by _isParentToComponentSynchronized and _isComponentToParentSynchronized; o added -synchronizesParentToComponentVariablesWithBindings and -synchronizesComponentToParentVariablesWithBindings * GSWeb/GSWApplication.m: o doc/comments o Exception when no session class found * GSWeb/GSWComponentDefinition.m o doc/comments * GSWeb/GSWComponentRequestHandler.m o doc/comments o response message changed when request handling failed * GSWeb/GSWMailDelivery.m o implemented composeEmail...component: methods o change mail sending code * GSWeb/GSWContext.h/.m: o replace ASSIGNCOPY by ASSIGN in -copy for _awakePageComponents); * GSWeb/GSWHyperlink.m: o replaced otherAssociations by otherQueryAssociations in -computeQueryDictionaryInContext o hanldle queryDictionary association o GSWPopUpButton.m: * GSWExtensionsGSW.framework/GSWValidationFailureComponent.gswc/GSWValidationFailureComponent.html: o replaced <br> by <br/> * GSWeb/GSWInput.h o removed autoValue variable (static var may cause multithread problems and there were different autoValue implementation). o remove name key to avoid duplicate name in html produced code o some rewrite for auto value o doc/comments * GSWeb/GSWPopUpButton.h/.m: o use super appendToResponse:inContext: (no more name problem) o rewriten auto value handling (see Testing/DynamicElements for test) o doc/comments * GSWeb/GSWBrowser.h/.m: o use super appendToResponse:inContext: (no more name problem) o rewriten auto value handling (see Testing/DynamicElements for test) o doc/comments * GSWeb/GSWCheckBoxList.h/.m: o rewriten auto value handling (see Testing/DynamicElements for test) o handling disabled binding o doc/comments * GSWeb/GSWRadioButtonList.h/.m: o rewriten auto value handling (see Testing/DynamicElements for test) o handling disabled binding o doc/comments * GSWeb/GSWTextField.h/.m: o output value in appendValueToResponse:inContext: instead of appendGSWebObjectsAssociationsToResponse:inContext: * GSWExtensions.framework/GSWLongResponsePage.h/.m o added git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gsweb/trunk@15008 72102866-910b-0410-8b05-ffd578937521
442 lines
16 KiB
Objective-C
442 lines
16 KiB
Objective-C
/** GSWRadioButtonList.m - <title>GSWeb: Class GSWRadioButtonList</title>
|
|
|
|
Copyright (C) 1999-2002 Free Software Foundation, Inc.
|
|
|
|
Written by: Manuel Guesdon <mguesdon@orange-concept.com>
|
|
Date: Jan 1999
|
|
|
|
$Revision$
|
|
$Date$
|
|
|
|
This file is part of the GNUstep Web Library.
|
|
|
|
<license>
|
|
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.
|
|
</license>
|
|
**/
|
|
|
|
static char rcsId[] = "$Id$";
|
|
|
|
#include <GSWeb/GSWeb.h>
|
|
|
|
/**
|
|
Bindings
|
|
|
|
list Array of objects that the dynamic element iterate through.
|
|
|
|
index On each iteration the element put the current index in this binding
|
|
|
|
item On each iteration the element take the item at the current index and put it in this binding
|
|
|
|
displayString String to display for each radio button.
|
|
|
|
value Value for the INPUT tag for each radio button
|
|
|
|
prefix An html string to insert before each value.
|
|
|
|
suffix An html string to insert after each value.
|
|
|
|
selection Selected object (used to pre-check radio button and modified to reflect user choice)
|
|
It contains object from list, not value binding evaluated one !
|
|
|
|
selectionValue Selected value (used to pre-check radio button and modified to reflect user choice)
|
|
It contains evaluated value binding !
|
|
|
|
name Name of the element in the form (should be unique). If not specified, GSWeb assign one.
|
|
|
|
disabled If evaluated to yes, the radio button appear inactivated.
|
|
|
|
escapeHTML If evaluated to yes, escape displayString
|
|
|
|
**/
|
|
//====================================================================
|
|
@implementation GSWRadioButtonList
|
|
|
|
//--------------------------------------------------------------------
|
|
-(id)initWithName:(NSString*)aName
|
|
associations:(NSDictionary*)associations
|
|
contentElements:(NSArray*)elements
|
|
{
|
|
//OK
|
|
NSMutableDictionary* tmpAssociations=[NSMutableDictionary dictionaryWithDictionary:associations];
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
NSDebugMLLog(@"gswdync",@"aName=%@ associations:%@ elements=%@",
|
|
aName,associations,elements);
|
|
_defaultEscapeHTML=1;
|
|
[tmpAssociations removeObjectForKey:list__Key];
|
|
[tmpAssociations removeObjectForKey:item__Key];
|
|
[tmpAssociations removeObjectForKey:index__Key];
|
|
[tmpAssociations removeObjectForKey:selection__Key];
|
|
if (!WOStrictFlag)
|
|
[tmpAssociations removeObjectForKey:selectionValue__Key];
|
|
[tmpAssociations removeObjectForKey:prefix__Key];
|
|
[tmpAssociations removeObjectForKey:suffix__Key];
|
|
[tmpAssociations removeObjectForKey:displayString__Key];
|
|
[tmpAssociations removeObjectForKey:escapeHTML__Key];
|
|
if ((self=[super initWithName:aName
|
|
associations:tmpAssociations
|
|
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(@"GSWRadioButtonList",@"'item' parameter must be settable");
|
|
};
|
|
_index=[[associations objectForKey:index__Key
|
|
withDefaultObject:[_index autorelease]] retain];
|
|
if (_index && ![_index isValueSettable])
|
|
{
|
|
ExceptionRaise0(@"GSWRadioButtonList",@"'index' parameter must be settable");
|
|
};
|
|
|
|
_selection=[[associations objectForKey:selection__Key
|
|
withDefaultObject:[_selection autorelease]] retain];
|
|
if (_selection && ![_selection isValueSettable])
|
|
{
|
|
ExceptionRaise0(@"GSWRadioButtonList",@"'selection' parameter must be settable");
|
|
};
|
|
if (!WOStrictFlag)
|
|
{
|
|
_selectionValue=[[associations objectForKey:selectionValue__Key
|
|
withDefaultObject:[_selectionValue autorelease]] retain];
|
|
if (_selectionValue && ![_selectionValue isValueSettable])
|
|
{
|
|
ExceptionRaise0(@"GSWRadioButtonList",@"'selectionValue' 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(_selectionValue);//GSWeb Only
|
|
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
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
[self _slowTakeValuesFromRequest:request
|
|
inContext:context];
|
|
LOGObjectFnStopC("GSWRadioButtonList");
|
|
};
|
|
|
|
//-----------------------------------------------------------------------------------
|
|
-(void)_slowTakeValuesFromRequest:(GSWRequest*)request
|
|
inContext:(GSWContext*)context
|
|
{
|
|
//OK
|
|
BOOL disabledInContext=NO;
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
|
|
disabledInContext=[self disabledInContext:context];
|
|
if (!disabledInContext)
|
|
{
|
|
if ([context _wasFormSubmitted])
|
|
{
|
|
GSWComponent* component=[context component];
|
|
NSArray* listValue=nil; // _list value
|
|
NSString* name=nil;
|
|
BOOL found=NO;
|
|
id formValue=nil;
|
|
id valueValue=nil; // _value value (or autoValue)
|
|
id itemValue=nil; // _item value
|
|
NSString* valueValueString=nil; // _value value as string
|
|
id itemValueToSet=nil; // item value to set to _selection
|
|
id valueValueToSet=nil; // valueValue to set to _selectionValue
|
|
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] && !found;i++)
|
|
{
|
|
NSDebugMLLog(@"gswdync",@"item=%@",_item);
|
|
NSDebugMLLog(@"gswdync",@"index=%@",_index);
|
|
|
|
itemValue=[listValue objectAtIndex:i];
|
|
if (_item)
|
|
[_item setValue:itemValue
|
|
inComponent:component];
|
|
|
|
if (_index)
|
|
[_index setValue:[NSNumber numberWithShort:i]
|
|
inComponent:component];
|
|
|
|
NSDebugMLLog(@"gswdync",@"value=%@",_value);
|
|
if (_value) // Binded Value
|
|
valueValue = [_value valueInComponent:component];
|
|
else // Auto Value
|
|
valueValue = [NSNumber numberWithInt:i];
|
|
valueValueString=[NSString stringWithFormat:@"%@",valueValue];
|
|
|
|
NSDebugMLLog(@"gswdync",@"valueValue=%@",valueValue);
|
|
|
|
if (valueValue)
|
|
{
|
|
// we compare (with object equality not pointer equality)
|
|
BOOL isEqual=SBIsValueEqual(valueValueString,formValue);
|
|
NSDebugMLLog(@"gswdync",@"isEqual=%s",(isEqual ? "YES" : "NO"));
|
|
|
|
if (isEqual)
|
|
{
|
|
itemValueToSet=itemValue;
|
|
valueValueToSet=valueValue;
|
|
found=YES;
|
|
};
|
|
};
|
|
};
|
|
NSDebugMLLog(@"gswdync",@"component=%@",component);
|
|
NSDebugMLLog(@"gswdync",@"found=%s",(found ? "YES" : "NO"));
|
|
NSDebugMLLog(@"gswdync",@"selection=%@",_selection);
|
|
GSWLogAssertGood(component);
|
|
NS_DURING
|
|
{
|
|
[_selection setValue:itemValueToSet
|
|
inComponent:component];
|
|
};
|
|
NS_HANDLER
|
|
{
|
|
LOGException(@"GSWRadioButtonList _selection=%@ itemValueToSet=%@ exception=%@",
|
|
_selection,itemValueToSet,localException);
|
|
if (WOStrictFlag)
|
|
{
|
|
[localException raise];
|
|
}
|
|
else
|
|
{
|
|
[self handleValidationException:localException
|
|
inContext:context];
|
|
};
|
|
}
|
|
NS_ENDHANDLER;
|
|
if (!WOStrictFlag && _selectionValue)
|
|
{
|
|
NS_DURING
|
|
{
|
|
[_selectionValue setValue:valueValueToSet
|
|
inComponent:component];
|
|
};
|
|
NS_HANDLER
|
|
{
|
|
LOGException(@"GSWRadioButtonList _selectionValue=%@ valueValueToSet=%@ exception=%@",
|
|
_selectionValue,valueValueToSet,localException);
|
|
if (WOStrictFlag)
|
|
{
|
|
[localException raise];
|
|
}
|
|
else
|
|
{
|
|
[self handleValidationException:localException
|
|
inContext:context];
|
|
};
|
|
}
|
|
NS_ENDHANDLER;
|
|
};
|
|
};
|
|
};
|
|
LOGObjectFnStopC("GSWRadioButtonList");
|
|
};
|
|
|
|
//-----------------------------------------------------------------------------------
|
|
-(void)_fastTakeValuesFromRequest:(GSWRequest*)request
|
|
inContext:(GSWContext*)context
|
|
{
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
LOGObjectFnNotImplemented(); //TODOFN
|
|
LOGObjectFnStopC("GSWRadioButtonList");
|
|
};
|
|
|
|
//-----------------------------------------------------------------------------------
|
|
-(void)appendToResponse:(GSWResponse*)response
|
|
inContext:(GSWContext*)context
|
|
{
|
|
//OK
|
|
GSWRequest* request=nil;
|
|
BOOL isFromClientComponent=NO;
|
|
BOOL disabledInContext=NO;
|
|
NSString* name=nil;
|
|
GSWComponent* component=nil;
|
|
NSArray* listValue=nil;
|
|
id selectionValue=nil;
|
|
id selectionValueValue=nil;
|
|
int i=0;
|
|
id displayStringValue=nil;
|
|
id prefixValue=nil;
|
|
id suffixValue=nil;
|
|
id valueValue=nil; // _value value (or auto value)
|
|
id itemValue=nil; // _item value
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
|
|
request=[context request];
|
|
isFromClientComponent=[request isFromClientComponent];
|
|
name=[self nameInContext:context];
|
|
component=[context component];
|
|
|
|
selectionValue=[_selection valueInComponent:component];
|
|
selectionValueValue=[_selectionValue 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++)
|
|
{
|
|
BOOL isEqual=NO;
|
|
|
|
disabledInContext=[self disabledInContext:context];
|
|
|
|
itemValue=[listValue objectAtIndex:i];
|
|
[_item setValue:itemValue
|
|
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=\""];
|
|
|
|
NSDebugMLLog(@"gswdync",@"_value (class: %@): %@",[_value class],_value);
|
|
// Value property of the INPUT tag
|
|
if (_value) // Binded Value
|
|
valueValue = [_value valueInComponent:component];
|
|
else // Auto Value
|
|
valueValue = [NSNumber numberWithInt:i];
|
|
NSDebugMLLog(@"gswdync",@"valueValue=%@",valueValue);
|
|
|
|
[response appendContentHTMLAttributeValue:valueValue];
|
|
[response appendContentCharacter:'"'];
|
|
|
|
NSDebugMLLog(@"gswdync",@"selectionValue=%@",selectionValue);
|
|
NSDebugMLLog(@"gswdync",@"selectionValue class=%@",[selectionValue class]);
|
|
NSDebugMLLog(@"gswdync",@"itemValue=%@",itemValue);
|
|
NSDebugMLLog(@"gswdync",@"itemValue class=%@",[itemValue class]);
|
|
if (selectionValue)
|
|
{
|
|
isEqual=SBIsValueEqual(itemValue,selectionValue);
|
|
NSDebugMLLog(@"gswdync",@"isEqual=%s",(isEqual ? "YES" : "NO"));
|
|
}
|
|
|
|
NSDebugMLLog(@"gswdync",@"selectionValueValue=%@",selectionValueValue);
|
|
NSDebugMLLog(@"gswdync",@"selectionValueValue class=%@",[selectionValueValue class]);
|
|
NSDebugMLLog(@"gswdync",@"valueValue=%@",valueValue);
|
|
NSDebugMLLog(@"gswdync",@"valueValue class=%@",[valueValue class]);
|
|
if (isEqual==NO && selectionValueValue)
|
|
{
|
|
isEqual=SBIsValueEqual(valueValue,selectionValueValue);
|
|
NSDebugMLLog(@"gswdync",@"isEqual=%s",(isEqual ? "YES" : "NO"));
|
|
}
|
|
|
|
if (isEqual)
|
|
[response appendContentString:@" CHECKED"];
|
|
|
|
if (disabledInContext)
|
|
[response _appendContentAsciiString:@" DISABLED"];
|
|
|
|
[response appendContentCharacter:'>'];
|
|
[response appendContentString:prefixValue];
|
|
[response appendContentHTMLString:displayStringValue];
|
|
[response appendContentString:suffixValue];
|
|
};
|
|
LOGObjectFnStopC("GSWRadioButtonList");
|
|
};
|
|
|
|
@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
|