[macruby-changes] [747] MacRuby/trunk/lib

[source_changes at macosforge.org]

Revision: 747
          http://trac.macosforge.org/projects/ruby/changeset/747
Author:   ben at tanjero.com
Date:     2008-11-20 11:36:47 -0800 (Thu, 20 Nov 2008)
Log Message:
-----------
Very rough first shot at attributed string support.

Modified Paths:
--------------
    MacRuby/trunk/lib/hotcocoa.rb

Added Paths:
-----------
    MacRuby/trunk/lib/hotcocoa/attributed_string.rb

Added: MacRuby/trunk/lib/hotcocoa/attributed_string.rb
===================================================================
--- MacRuby/trunk/lib/hotcocoa/attributed_string.rb	                        (rev 0)
+++ MacRuby/trunk/lib/hotcocoa/attributed_string.rb	2008-11-20 19:36:47 UTC (rev 747)
@@ -0,0 +1,80 @@
+class String
+    def with_attributes(attributes = {})
+	NSMutableAttributedString.alloc.initWithString(self, :attributes => attributes)
+    end
+end
+
+class Range
+    def to_NSRange(max = nil)
+	if last == -1 and max
+	    last = max
+	end
+	NSRange.new(first, last - first + 1)
+    end
+end
+
+class NSRangedProxyAttributeHash < Hash
+    def initialize(proxy)
+	@proxy = proxy
+    end
+
+    def [](k)
+	@proxy.string.attribute(k, atIndex:@proxy.range.first, effectiveRange:nil)
+    end
+
+    def []=(k,v)
+	@proxy.string.removeAttribute(k, range:@proxy.range.to_NSRange(@proxy.string.length - 1))
+	@proxy.string.addAttribute(k, value:v, range:@proxy.range.to_NSRange(@proxy.string.length - 1))
+    end
+
+    def <<(attributes)
+	attributes.each_pair do |k, v|
+	    self[k] = v
+	end
+    end
+    alias :merge :<<
+end
+
+class NSRangedProxyAttributedString
+    attr_reader :string, :range
+    def initialize(string, range)
+	@string = string
+	@range = range
+    end
+
+    def attributes
+	NSRangedProxyAttributeHash.new(self)
+    end
+end
+
+class NSMutableAttributedString
+    def with_attributes(attributes = {})
+	string.with_attributes(attributes)
+    end
+
+    def <<(s)
+	case s
+	when String
+	    mutableString.appendString s
+	else
+	    appendAttributedString s
+	end
+    end
+
+    def attributes
+	NSRangedProxyAttributedString.new(self, 0..-1).attributes
+    end
+
+    def [](r)
+	NSRangedProxyAttributedString.new(self, r)
+    end
+
+    def []=(r, s)
+	case s
+	when String
+	    replaceCharactersInRange(r.to_NSRange(length - 1), :withString => s)
+	else
+	    replaceCharactersInRange(r.to_NSRange(length - 1), :withAttributedString => s)
+	end
+    end
+end

Modified: MacRuby/trunk/lib/hotcocoa.rb
===================================================================
--- MacRuby/trunk/lib/hotcocoa.rb	2008-11-15 05:36:04 UTC (rev 746)
+++ MacRuby/trunk/lib/hotcocoa.rb	2008-11-20 19:36:47 UTC (rev 747)
@@ -18,5 +18,6 @@
 require 'hotcocoa/kernel_ext'
 require 'hotcocoa/plist'
 require 'hotcocoa/kvo_accessors'
+require 'hotcocoa/attributed_string'
 
 HotCocoa::Mappings.reload
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20081120/98c8c48b/attachment.html>