o added Anchor

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

GSWExtensions.framework/GSWCollapsibleComponentContent.gswc/GSWCollapsibleComponentContent.gswd

@@ -1,7 +1,14 @@
+Anchor: GSWGenericContainer
+{
+        elementName = "a";
+        name = anchorName;
+}
+
 Link: GSWHyperlink
 {
 	action = toggleVisibilityAction;
-    disabled = ^disabled;
+        disabled = ^disabled;
+        fragmentIdentifier = anchorName;
 };
 
 Image: GSWImage

GSWExtensions.framework/GSWCollapsibleComponentContent.gswc/GSWCollapsibleComponentContent.html

@@ -1 +1 @@
-<gsweb name="Link"><gsweb name="Image"></gsweb></gsweb> <gsweb name="Label"></gsweb><gsweb name="Condition"><gsweb name="Content"></gsweb></gsweb>
+<gsweb name="Anchor"></gsweb><gsweb name="Link"><gsweb name="Image"></gsweb></gsweb> <gsweb name="Label"></gsweb><gsweb name="Condition"><gsweb name="Content"></gsweb></gsweb>

GSWExtensions.framework/GSWCollapsibleComponentContent.h

@@ -28,6 +28,7 @@
 //==============================================================================
 @interface GSWCollapsibleComponentContent: GSWComponent
 {
+  NSString* _tmpAnchorName;
   BOOL _isVisibleConditionPassed;
   BOOL _isVisible;
   NSString* _openedImageFileName;
@@ -36,10 +37,6 @@
   NSString* _closedHelpString;
 };
 
--(void)awake;
--(void)sleep;
--(void)dealloc;
--(BOOL)synchronizesVariablesWithBindings;
 -(BOOL)isVisible;
 -(GSWComponent*)toggleVisibilityAction;
 -(NSString*)imageFileName;

GSWExtensions.framework/GSWCollapsibleComponentContent.m

@@ -66,6 +66,15 @@ RCS_ID("$Id$")
     return NO;
 };
 
+-(void)appendToResponse:(GSWResponse*)aResponse
+              inContext:(GSWContext*)aContext 
+{
+  _tmpAnchorName=[NSString stringWithString:[[self context] elementID]];
+  [super appendToResponse:aResponse
+         inContext:aContext];
+  _tmpAnchorName=nil;
+};
+
 -(BOOL)isVisible
 {
   LOGObjectFnStart();
@@ -189,5 +198,9 @@ RCS_ID("$Id$")
   return _helpString;
 };
 
+-(NSString*)anchorName
+{
+  return _tmpAnchorName;
+};
 
 @end