Revision: 747 http://trac.macosforge.org/projects/ruby/changeset/747 Author: ben@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