Add support for for link attributes.

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

ChangeLog

@@ -1,3 +1,8 @@
+2011-07-03 Fred Kiefer <FredKiefer@gmx.de>
+
+	* Source/NSLayoutManager.m (-drawGlyphsForGlyphRange:atPoint:,
+	-drawUnderlineForGlyphRange:...:): Add support for for link attributes.
+
 2011-07-03 Riccardo Mottola <rm@gnu.org>
 
 	* Source/NSSliderCell.m:
@@ -73,7 +78,6 @@
 	In particular, the action now deletes the newline character when
 	the insertion point is at the end of a line.
 
->>>>>>> .r33429
 2011-06-22 Fred Kiefer <FredKiefer@gmx.de>
 
 	* Headers/AppKit/NSPrintPanel.h: Add missing APPKIT_EXPORT for new

Source/NSLayoutManager.m

@@ -1485,6 +1485,8 @@ attachmentSize(linefrag_t *lf, NSUInteger glyphIndex)
   */
   NSColor *defaultTextColor = [NSColor textColor];
   NSColor *selectedTextColor = defaultTextColor;
+  NSColor *link_color = nil;
+  id linkValue;
  
 #define GBUF_SIZE 16 /* TODO: tweak */
   NSGlyph gbuf[GBUF_SIZE];
@@ -1544,6 +1546,18 @@ attachmentSize(linefrag_t *lf, NSUInteger glyphIndex)
   if (run_color == nil)
     run_color = defaultTextColor;
 
+  linkValue = [attributes objectForKey: NSLinkAttributeName];
+  if (linkValue != nil)
+    {
+      if (link_color == nil)
+	{
+	  NSDictionary *link_attributes = [[self firstTextView] linkTextAttributes];
+	  link_color = [link_attributes valueForKey: NSForegroundColorAttributeName];
+	}
+      if (link_color != nil)
+	run_color = link_color;
+    }
+
   if (selectedGlyphRange.length > 0)
     {
       /* Get the text view's color setting for selected text as we will
@@ -1639,6 +1653,19 @@ attachmentSize(linefrag_t *lf, NSUInteger glyphIndex)
 	    {
 	      run_color = defaultTextColor;
 	    }
+
+	  linkValue = [attributes objectForKey: NSLinkAttributeName];
+	  if (linkValue != nil)
+	      {
+		if (link_color == nil)
+		  {
+		    NSDictionary *link_attributes = [[self firstTextView] linkTextAttributes];
+		    link_color = [link_attributes valueForKey: NSForegroundColorAttributeName];
+		  }
+		if (link_color != nil)
+		  run_color = link_color;
+	      }
+
 	  glyph = glyph_run->glyphs;
 
 	  /* If the font has changed or the color has changed (and we are
@@ -1752,14 +1779,37 @@ for (i = 0; i < gbuf_len; i++) printf("   %3i : %04x\n", i, gbuf[i]); */
   {
     const NSRange characterRange = [self characterRangeForGlyphRange: range
 						    actualGlyphRange: NULL];
+    id linkUnderlineValue = nil;
 
     for (i=characterRange.location; i<NSMaxRange(characterRange); )
       {
 	NSRange underlinedCharacterRange;
-	id underlineValue = [[self textStorage] attribute: NSUnderlineStyleAttributeName
+	NSRange linkCharacterRange;
+	id underlineValue = nil;
+
+	linkValue = [_textStorage attribute: NSLinkAttributeName
+				    atIndex: i
+		      longestEffectiveRange: &linkCharacterRange
+				    inRange: characterRange];
+	if (linkValue != nil)
+	  {
+	    if (linkUnderlineValue == nil)
+	      {
+		NSDictionary *link_attributes = [[self firstTextView] linkTextAttributes];
+		linkUnderlineValue = [link_attributes valueForKey: NSUnderlineStyleAttributeName];
+	      }
+	    underlineValue = linkUnderlineValue;
+	    underlinedCharacterRange = linkCharacterRange;
+	  }
+	else
+	  {
+	    underlineValue = [_textStorage attribute: NSUnderlineStyleAttributeName
 					     atIndex: i
 			       longestEffectiveRange: &underlinedCharacterRange
 					     inRange: characterRange];
+	    underlinedCharacterRange = NSIntersectionRange(underlinedCharacterRange, 
+							   linkCharacterRange);
+	  }
 	if (underlineValue != nil && [underlineValue integerValue] != NSUnderlineStyleNone)
 	  {
 	    const NSRange underlinedGylphRange = [self glyphRangeForCharacterRange: underlinedCharacterRange
@@ -1916,6 +1966,7 @@ static void GSDrawPatternLine(NSPoint start, NSPoint end, NSInteger pattern, CGF
   // contiguous regions with the same underline color.
 
   NSUInteger i;
+  NSColor *link_color = nil;
   const NSRange characterRange = [self characterRangeForGlyphRange: underlineRange
 						  actualGlyphRange: NULL];
 
@@ -1926,29 +1977,55 @@ static void GSDrawPatternLine(NSPoint start, NSPoint end, NSInteger pattern, CGF
       return;
     }
 
-  for (i=characterRange.location; i<NSMaxRange(characterRange); )
+  for (i = characterRange.location; i < NSMaxRange(characterRange); )
     {
       NSRange underlineColorCharacterRange, foregroundColorCharacterRange, rangeToDraw;
-      NSColor *underlineColor = (NSColor*)[[self textStorage] attribute: NSUnderlineColorAttributeName
+      NSColor *underlineColor = nil;
+      NSRange glyphRangeToDraw;
+      NSRange linkCharacterRange;
+      id linkValue;
+
+      linkValue = [_textStorage attribute: NSLinkAttributeName
+				  atIndex: i
+		    longestEffectiveRange: &linkCharacterRange
+				  inRange: NSMakeRange(i, NSMaxRange(characterRange)-i)];
+      if (linkValue != nil)
+	{
+	  if (link_color == nil)
+	    {
+	      NSDictionary *link_attributes = [[self firstTextView] linkTextAttributes];
+	      link_color = [link_attributes valueForKey: NSForegroundColorAttributeName];
+	    }
+	  if (link_color != nil)
+	    underlineColor = link_color;
+
+	  underlineColorCharacterRange = linkCharacterRange;
+	}
+      else
+	{
+	  underlineColor = (NSColor*)[[self textStorage] 
+				       attribute: NSUnderlineColorAttributeName
 					 atIndex: i
 				       longestEffectiveRange: &underlineColorCharacterRange
 					 inRange: NSMakeRange(i, NSMaxRange(characterRange)-i)];
-      NSColor *foregroundColor = (NSColor*)[[self textStorage] attribute: NSForegroundColorAttributeName
+	  underlineColorCharacterRange = NSIntersectionRange(underlineColorCharacterRange, 
-								 atIndex: i
+							     linkCharacterRange);
-						   longestEffectiveRange: &foregroundColorCharacterRange
+	}
-								 inRange: NSMakeRange(i, NSMaxRange(characterRange)-i)];
-      /*NSLog(@"asked to underline '%@'. at %d, ul color is %@ (%@) and fg color is %@ (%@)", [[[self textStorage] string] substringWithRange: characterRange],
-	    i,
-	    underlineColor,
-	    NSStringFromRange(underlineColorCharacterRange),
-	    foregroundColor,
-	    NSStringFromRange(foregroundColorCharacterRange));*/
 
       if (underlineColor != nil)
 	{
 	  [underlineColor set];
+	  rangeToDraw = underlineColorCharacterRange;
 	}
-      else if (foregroundColor != nil)
+      else
+	{
+	  NSColor *foregroundColor = (NSColor*)[[self textStorage] 
+						 attribute: NSForegroundColorAttributeName
+						   atIndex: i
+						 longestEffectiveRange: &foregroundColorCharacterRange
+						   inRange: NSMakeRange(i, NSMaxRange(characterRange)-i)];
+
+	  if (foregroundColor != nil)
 	    {
 	      [foregroundColor set];
 	    }
@@ -1960,22 +2037,24 @@ static void GSDrawPatternLine(NSPoint start, NSPoint end, NSInteger pattern, CGF
 	  // Draw the smaller range
 	  rangeToDraw = underlineColorCharacterRange.length < foregroundColorCharacterRange.length ?
 	    underlineColorCharacterRange : foregroundColorCharacterRange;
+	}
       
-      // do the actual underline
+      glyphRangeToDraw = [self glyphRangeForCharacterRange: rangeToDraw
-      {
-
-	  const NSRange glyphRangeToDraw = [self glyphRangeForCharacterRange: rangeToDraw
 				      actualCharacterRange: NULL];
+      if (glyphRangeToDraw.length > 0)
+	{
+	  // do the actual underline
 	  
 	  // FIXME: find the largest font within the range to underline
-	  NSFont *largestFont = [self effectiveFontForGlyphAtIndex: glyphRangeToDraw.location // NOTE: GS private method
+	  // NOTE: GS private method
+	  NSFont *largestFont = [self effectiveFontForGlyphAtIndex: glyphRangeToDraw.location
 							     range: NULL];
 
 	  const CGFloat underlineWidth = [largestFont pointSize] * 
 	    (((type & NSUnderlineStyleDouble) != 0) ? 0.05 : 0.07);
 	  
 	  NSPoint start = [self locationForGlyphAtIndex: glyphRangeToDraw.location];
-	  NSPoint end = [self locationForGlyphAtIndex: NSMaxRange(glyphRangeToDraw) - 1]; //FIXME: check length > 0
+	  NSPoint end = [self locationForGlyphAtIndex: NSMaxRange(glyphRangeToDraw) - 1];
 
 	  // FIXME: remove this hack lowers the underline slightly
 	  start.y += [largestFont pointSize] * 0.07;