window_blessing 0.0.1

data/.gitignore

@@ -0,0 +1,18 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+*.log

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in window_blessing.gemspec
+gemspec

data/Guardfile

@@ -0,0 +1,7 @@
+guard 'rspec', :cli => "--color" do
+  watch(%r{^spec/.+_spec\.rb$})
+  watch(%r{^lib/(.+)\.rb$})     { "spec" }
+  watch('spec/spec_helper.rb')  { "spec" }
+
+end
+

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 Shane Brinkman-Davis
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,43 @@
+# WindowBlessing
+
+Forget Curses! Try Blessings instead! WindowBlessing is an evented windowing framework for terminal apps.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'window_blessing'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install window_blessing
+
+## Potentially useful Unicode characters
+http://www.csbruce.com/software/utf-8.html
+
+  * ⁰ ¹ ² ³ ⁴ ⁵ ⁶ ⁷ ⁸ ⁹
+  * ╀ ╁ ╂ ╃ ╄ ╅ ╆ ╇ ╈ ╉ ╊ ╋
+  * ═ ║ ╒ ╓ ╔ ╕ ╖ ╗ ╘ ╙ ╚ ╛ ╜ ╝ ╞ ╟ ╠ ╡ ╢ ╣ ╤ ╥ ╦ ╧ ╨ ╩ ╪ ╫ ╬
+  * ◠ ◡ ◦ ◧ ◨ ◩ ◪ ◫ ◬ ◭ ◮
+  * ◰ ◱ ◲ ◳ ◴ ◵ ◶ ◷ ◸ ◹ ◺ ◿
+  * ▀▁▂▃▄▅▆▇█
+  * ▉▊▋▌▍▎▏▐
+  * ░▒▓
+  * ▔▕▖▗▘▙▚▛▜▝▞▟
+  * ▸▾
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1,12 @@
+require "bundler/gem_tasks"
+require "rspec/core/rake_task"
+
+task :default => :spec
+
+desc "Run specs"
+RSpec::Core::RakeTask.new do |task|
+    task.pattern = "**/spec/*_spec.rb"
+    task.rspec_opts = Dir.glob("[0-9][0-9][0-9]_*").collect { |x| "-I#{x}" }.sort
+    task.rspec_opts << '--color'
+    task.rspec_opts << '-f documentation'
+end

data/bin/buffered_screen_demo.rb

@@ -0,0 +1,92 @@
+#!/usr/bin/env ruby
+require File.expand_path File.join(File.dirname(__FILE__), %w{.. lib window_blessing})
+include GuiGeo
+include WindowBlessing::Tools
+
+def colorful_buffer(size)
+  WindowBlessing::Buffer.new(size).tap do |buffer|
+    size.y.times do |y|
+      size.x.times do |x|
+        c1 = rgb_screen_color y / (size.y-1).to_f, x / (size.x-1).to_f, 0
+        c2 = rgb_screen_color 0, 1 - y / (size.y-1).to_f, 1 - x / (size.x-1).to_f
+        buffer.draw_rect rect(point(x,y),point(1,1)), :bg => c1, :fg => c2, :string => "o"
+      end
+    end
+  end
+end
+
+def gray_buffer(size)
+  WindowBlessing::Buffer.new(size).tap do |buffer|
+    size.y.times do |y|
+      size.x.times do |x|
+        g1 = gray_screen_color(x / (size.x-1).to_f)
+        g2 = gray_screen_color(y / (size.y-1).to_f)
+        buffer.draw_rect rect(point(x,y),point(1,1)), :bg => g1, :fg => g2, :string => "o"
+      end
+    end
+  end
+end
+
+def draw_instructions(screen)
+  b = WindowBlessing::Buffer.new point(screen.state.size.x,1), contents: " Arrows, Home, End, PgUp, PgDown or drag with Mouse to move. Space to toggle. Ctrl-Q to quit.", bg: gray_screen_color(0.6), fg: rgb_screen_color(0.8,0.8,1.0)
+
+  screen.screen_buffer.draw_buffer point, b
+end
+
+WindowBlessing::BufferedScreen.new.start(:full=>true) do |screen|
+  r = rect 10, 10, 6, 3
+
+  grayb = gray_buffer(point 23,12)
+  colorb = colorful_buffer(point 12,6)
+
+  demo_buffer = colorb
+  screen.screen_buffer.draw_buffer r.loc, demo_buffer
+  draw_instructions(screen)
+
+  r.size = demo_buffer.size
+  old_r = r.clone
+
+  screen.event_manager.add_handler :tick do |event|
+    if r != old_r
+      r = rect(point(0,1), screen.state.size-point(0,1)).bound(r)
+      if r != old_r
+        screen.screen_buffer.draw_rect old_r, :string => " ", :bg => 0
+        screen.screen_buffer.draw_buffer r.loc, demo_buffer
+        old_r = r.clone
+      end
+    end
+  end
+
+  screen.event_manager.add_handler :characters do |event|
+    case event[:raw]
+    when " " then
+      demo_buffer = demo_buffer == grayb ? colorb : grayb
+      r.size = demo_buffer.size
+    end
+  end
+
+  screen.event_manager.add_handler :key_press do |event|
+    WindowBlessing::XtermLog.log "key_press: #{event[:key]}"
+    case event[:key]
+    when :home      then r.loc.x = 0
+    when :page_up   then r.loc.y = 0
+    when :page_down then r.loc.y = screen.state.size.y
+    when :end       then r.loc.x = screen.state.size.x
+    when :left      then r.loc.x -= 1
+    when :right     then r.loc.x += 1
+    when :up        then r.loc.y -= 1
+    when :down      then r.loc.y += 1
+    end
+  end
+
+  screen.event_manager.add_last_handler :resize do |event|
+    WindowBlessing::XtermLog.log "#{__FILE__} resize: #{event.inspect}"
+    draw_instructions screen
+    screen.screen_buffer.draw_buffer r.loc, demo_buffer
+  end
+
+  screen.event_manager.add_handler :pointer do |event|
+    WindowBlessing::XtermLog.log "mouse: drag #{event[:loc]}"
+    r.loc = event[:loc] - demo_buffer.size/2
+  end
+end

data/bin/color_picker_demo.rb

@@ -0,0 +1,176 @@
+#!/usr/bin/env ruby
+# encoding: UTF-8
+require File.expand_path File.join(File.dirname(__FILE__), %w{.. lib window_blessing})
+include GuiGeo
+include WindowBlessing::Tools
+include WindowBlessing
+include Widgets
+
+class FadeSlider < Slider
+  attr_accessor_with_redraw :c1, :c2
+  def initialize(area, ev, c1, c2)
+    super area, ev, key_press_step: 1/20.0
+    @c1 = c1
+    @c2 = c2
+  end
+
+  def draw_background
+    size = buffer.size
+    step = (c2 - c1) / (size.x-1).to_f
+    line = size.x.times.collect do |x|
+      (c1 + step * x).to_screen_color
+    end
+    buffer.bg_buffer = size.y.times.collect {line.clone}
+    buffer.fill :string => " ", :fg => value > 0.5 ? Color.black : Color.white
+  end
+end
+
+class ColorPicker2D < Window
+  include Evented
+  attr_accessor_with_redraw :fixed_channel
+  attr_reader :color_ev
+
+  def initialize(area,color_ev,fixed_channel = :g)
+    super area
+    @color_ev = color_ev
+    @fixed_channel = fixed_channel
+    request_redraw_internal
+
+    on :pointer do |event|
+      loc = event[:loc]
+      color = color_ev.get
+      old_color = color.clone
+
+      chan1, chan2 = variable_channels
+      p = loc / (size - point(1.0,1.0))
+      color[chan2] = bound(0.0, p.x, 1.0)
+      color[chan1] = bound(0.0, p.y, 1.0)
+
+      color_ev.set color
+    end
+
+    color_ev.on :refresh do
+      request_redraw_internal
+    end
+  end
+
+  def variable_channels
+    [:r, :g, :b].select {|a| a!=fixed_channel}
+  end
+
+  def draw_background
+    chan1, chan2 = variable_channels
+    color = color_ev.get
+    s = size
+    c = color.clone
+    c[chan1] = 0
+    c[chan2] = 0
+    buffer.bg_buffer = s.y.times.collect do |y|
+      c[chan1] = c1 = y / (s.y-1.0)
+      s.x.times.collect do |x|
+        c[chan2] = c2 =x / (s.x-1.0)
+        c.to_screen_color
+      end
+    end
+
+    l = point color[chan2]*(size.x-1), color[chan1]*(size.y-1)
+    buffer.fill :string => " "
+    buffer.fill :area => rect(l.x.to_i,l.y.to_i,1,1), :string => "+"
+  end
+end
+
+class ColorPreview < Window
+  def initialize(area, color_ev)
+    super area
+    @color_ev = color_ev
+
+    color_ev.on :refresh do
+      request_redraw_internal
+    end
+  end
+
+  def draw_background
+    buffer.fill :string => "Mr. Hungerton, her father, really was the most tactless person upon earth, -- a fluffy, feathery, untidy cockatoo of a man, perfectly good-natured, but absolutely centered upon his own silly self.  If anything could have driven me from Gladys, it would have been the thought of such a father-in-law.  I am convinced that he really believed in his heart that I came round to the Chestnuts three days a week for the pleasure of his company, and very especially to hear his views upon bimetallism, a subject upon which he was by way of being an authority. ",
+      :bg => @color_ev.get
+  end
+end
+
+class ColorPicker < Window
+  include DraggableBackground
+  attr_accessor :gray_slider, :color_preview, :color2d
+  attr_accessor :color_ev, :r_ev, :g_ev, :b_ev, :gray_ev
+
+  def create_evented_variables(initial_color)
+    @color_ev  = EventedVariable.new(initial_color)
+    @r_ev      = EventedVariable.new(initial_color.r).on(:change)  {|event| color = color_ev.get; color.r = event[:value]; color_ev.set color}
+    @g_ev      = EventedVariable.new(initial_color.g).on(:change)  {|event| color = color_ev.get; color.g = event[:value]; color_ev.set color}
+    @b_ev      = EventedVariable.new(initial_color.b).on(:change)  {|event| color = color_ev.get; color.b = event[:value]; color_ev.set color}
+    @gray_ev   = EventedVariable.new(initial_color.br).on(:change) {|event| color_ev.set color(event[:value]) }
+
+    color_ev.on(:change) do |event|
+      color = event[:value]
+      r_ev.set color.r
+      g_ev.set color.g
+      b_ev.set color.b
+      gray_ev.refresh color.br
+
+      update_label
+      @r_value_field.text = color.r256.to_s if @r_value_field.text != color.r256.to_s
+      @g_value_field.text = color.g256.to_s if @g_value_field.text != color.g256.to_s
+      @b_value_field.text = color.b256.to_s if @b_value_field.text != color.b256.to_s
+    end
+  end
+
+  def current_color
+    @color_ev.get
+  end
+
+  def initialize *args
+    super rect(2,2,60,30)
+    self.bg = gray_screen_color 0.2
+    self.fg = gray_screen_color 0.5
+
+    create_evented_variables(Color.white)
+
+    add_child Label.new(rect(2,0,100,1),"Color Picker - Ctrl-Q to quit", :bg => self.bg, :fg => self.fg)
+
+    @r_slider     = add_child FadeSlider.new(rect(10,area.size.y - 10,25,1), r_ev,    Color.black, Color.red  )
+    @g_slider     = add_child FadeSlider.new(rect(10,area.size.y - 8,25,1),  g_ev,    Color.black, Color.green)
+    @b_slider     = add_child FadeSlider.new(rect(10,area.size.y - 6,25,1),  b_ev,    Color.black, Color.blue )
+    @gray_slider  = add_child FadeSlider.new(rect(10,area.size.y - 4,25,1),  gray_ev, Color.black, Color.white)
+
+    text_field_options = {:bg => color(0.1), :fg => Color.gray, :validator => /^[0-9]{0,3}$/}
+    @r_value_field = add_child TextField.new(rect(2,area.size.y - 10,5,1), "123", text_field_options)
+    @g_value_field = add_child TextField.new(rect(2,area.size.y - 8 ,5,1), "123", text_field_options)
+    @b_value_field = add_child TextField.new(rect(2,area.size.y - 6 ,5,1), "123", text_field_options)
+
+    @color2d          = add_child ColorPicker2D.new(rect(area.size.x-15,area.size.y-9,12,6), color_ev)
+
+    @color_preview    = add_child ColorPreview.new(rect(2,2,area.size.x - 20, area.size.y - 14), color_ev)
+
+    @color_info_label = add_child Label.new(rect(2,area.size.y - 2,100,1),"info", :bg => self.bg, :fg => rgb_screen_color(1,1,1))
+
+    @r_slider.on(:pointer, :button1_down) {@color2d.fixed_channel = :r}
+    @g_slider.on(:pointer, :button1_down) {@color2d.fixed_channel = :g}
+    @b_slider.on(:pointer, :button1_down) {@color2d.fixed_channel = :b}
+
+    @r_value_field.evented_value.on(:change) {|event|r_ev.set bound(0.0,event[:value].to_i/255.0,1.0)}
+    @g_value_field.evented_value.on(:change) {|event|g_ev.set bound(0.0,event[:value].to_i/255.0,1.0)}
+    @b_value_field.evented_value.on(:change) {|event|b_ev.set bound(0.0,event[:value].to_i/255.0,1.0)}
+
+    @color_info_label.name = "info_label"
+
+    color_ev.set Color.black
+
+    update_label
+  end
+
+  def update_label
+    @color_info_label.text = "Color: #{current_color.to_hex} / (#{"%.2f, %.2f, %.2f"%current_color.to_a}) / (#{current_color.to_a256.join(', ')})"
+  end
+end
+
+WindowedScreen.new.start(:full=>true, :utf8 => true) do |screen|
+  screen.root_window.add_child ColorPicker.new
+  screen.root_window.add_child(ColorPicker.new).loc = point
+end

data/bin/foiled_demo.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+require File.expand_path File.join(File.dirname(__FILE__), %w{.. lib window_blessing})
+
+
+WindowBlessing.main do |main_window|
+#  raise main_window.inspect
+  (c1 = window(rect(10,10,15,7))).background='-='
+  main_window.add_child c1
+
+  on_key do |key|
+    case key
+    when ?Q, ?q             then  break
+    when Curses::Key::UP    then c1.area += point(0,-1)
+    when Curses::Key::DOWN  then c1.area += point(0,1)
+    when Curses::Key::LEFT  then c1.area += point(-1,0)
+    when Curses::Key::RIGHT then c1.area += point(1,0)
+    end
+  end
+
+  on_tick do
+    time = Time.now
+    if time.sec != @last_sec
+      write point(0,0), time.to_s
+      @last_sec = time.sec
+    end
+  end
+end

data/bin/text_editor_demo.rb

@@ -0,0 +1,292 @@
+#!/usr/bin/env ruby
+# encoding: UTF-8
+require File.expand_path File.join(File.dirname(__FILE__), %w{.. lib window_blessing})
+include GuiGeo
+include WindowBlessing::Tools
+include WindowBlessing
+include Widgets
+
+class Theme
+  include WindowBlessing::Tools
+  COLORS = {
+    background: color("ffc").to_screen_color,
+    foreground: color(0.25).to_screen_color,
+    comment: color(0.5).to_screen_color,
+    keyword: color("4a744a").to_screen_color,
+    string: color("4a7494").to_screen_color,
+    number: color("4a7494").to_screen_color,
+    regexp: color("4a7494").to_screen_color,
+    constant: color("c96600").to_screen_color,
+    operator: color("4a744a").to_screen_color
+  }
+end
+
+class CodeMarkup < BabelBridge::Parser
+
+  rule :file, :space, many?(:element) do
+    def colors
+      [[Theme::COLORS[:foreground]]*space.match_length,element.collect{|a| a.colors}].flatten
+    end
+  end
+
+  rule :element, :comment, :space do
+    def colors; [Theme::COLORS[:comment]] * match_length; end
+  end
+
+  rule :element, :keyword, :space do
+    def colors; [Theme::COLORS[:keyword]] * match_length; end
+  end
+
+  rule :element, :string, :space do
+    def colors; [Theme::COLORS[:string]] * match_length; end
+  end
+
+  rule :element, :regexp, :space do
+    def colors; [Theme::COLORS[:regex]] * match_length; end
+  end
+
+  rule :element, :constant, :space do
+    def colors; [Theme::COLORS[:constant]] * match_length; end
+  end
+
+  rule :element, :operator, :space do
+    def colors; [Theme::COLORS[:operator]] * match_length; end
+  end
+
+  rule :element, :number, :space do
+    def colors; [Theme::COLORS[:number]] * match_length; end
+  end
+
+  rule :element, :identifier, :space do
+    def colors; [Theme::COLORS[:foreground]] * match_length; end
+  end
+
+  rule :element, :non_space, :space do
+    def colors; [Theme::COLORS[:foreground]] * match_length; end
+  end
+
+  rule :space, /\s*/
+  rule :number, /[0-9]+(\.[0-9]+)?/
+  rule :comment, /#([^\n]|$)*/
+  rule :string, /"(\\.|[^\\"])*"/
+  rule :string, /:[_a-zA-Z0-9]+[?!]?/
+  rule :regexp, /\/(\\.|[^\\\/])*\//
+  rule :operator, /[-!@$%^&*()_+={}|\[\];:<>\?,\.\/~]+/
+  rule :keyword, /class|end|def|and|or|do|if|then/
+  rule :keyword, /else|elsif|case|then|when|require|include/
+  rule :identifier, /[_a-zA-Z][0-9_a-zA-Z]*/
+  rule :constant, /[A-Z][0-9_a-zA-Z]*/
+  rule :non_space, /[^\s]/
+end
+
+class TextEditor < Window
+  attr_accessor_with_redraw :edit_buffer, :cursor_loc, :cursor_bg
+
+  def initialize(filename)
+    super rect(0,0,80,20)
+    self.bg = Theme::COLORS[:background]
+    self.fg = Theme::COLORS[:foreground]
+    @cursor_loc = point
+    @cursor_bg = Color.yellow
+
+    init_event_handlers
+    self.text = File.read(filename)
+
+    on :parent_resize do |event|
+      self.size = event[:size]
+    end
+    on :parent_set do |event|
+      self.size = parent.size
+    end
+  end
+
+  def init_event_handlers
+    on :string_input do |event|
+      string = event[:string]
+      line = current_line
+      x,y = cursor_loc.x,cursor_loc.y
+      if x > line.length
+        line += " "*(x - line.length)
+      end
+      new_line = if x == 0
+        string + line
+      elsif x == line.length
+        line + string
+      else
+        line[0..x-1] + string + line[x..-1]
+      end
+      new_lines = new_line.split "\n"
+
+      #cop-out for now
+      edit_buffer[cursor_loc.y]= new_lines[0]
+      request_redraw_internal(rect(cursor_loc,point(size.x,1)))
+      cursor_loc.x += string.length
+      color_lines[y]=nil
+    end
+
+    on :key_press do |event|
+      c = cursor_loc.clone
+      case event[:key]
+      when :control_m then c = newline_at_cursor
+      when :backspace then c = backspace
+      when :home      then c = point(0,c.y)
+      when :page_up   then #c = point(0,c.y)
+      when :page_down then #c = point(0,c.y)
+      when :end       then c = point(edit_buffer[c.y].length,c.y)
+      when :left      then
+        if c.x == 0
+          if c.y > 0
+            c.y-=1
+            c.x = edit_buffer[c.y].length
+          end
+        else
+          c.x -= 1
+        end
+      when :right     then c.x += 1
+      when :up        then c.y = max(0, c.y-1)
+      when :down      then c.y = min(c.y+1, edit_buffer.length-1)
+      end
+      self.cursor_loc = c
+    end
+
+    on :focus do
+      request_redraw_internal
+    end
+
+    on :blur do
+      request_redraw_internal
+    end
+  end
+
+  def cursor_area
+    rect(cursor_loc - scroll_pos,point(1,1))
+  end
+
+  def cursor_loc=(c)
+    request_redraw_internal cursor_area
+    @cursor_loc = c
+    request_redraw_internal cursor_area
+  end
+
+  def newline_at_cursor
+    c = cursor_loc.clone
+    x,y = c.x, c.y
+    if x == 0
+      edit_buffer.insert(y,"")
+      color_lines.insert(y,nil)
+    elsif x >= current_line.length
+      edit_buffer.insert(y+1,"")
+      color_lines.insert(y+1,nil)
+    else
+      l = current_line
+      edit_buffer.insert(y,l[0..x-1])
+      color_lines.insert(y,nil)
+      edit_buffer[y+1] = l[x..-1]
+    end
+    color_lines[y]=color_lines[y+1]=nil
+    request_redraw_internal
+    point(0,y+1)
+  end
+
+  def backspace
+    c = cursor_loc.clone
+    x,y = c.x, c.y
+    if x == 0
+      if y > 0
+        c.x = edit_buffer[y-1].length
+        edit_buffer[y-1] += edit_buffer[y]
+        color_lines[y-1] = nil
+        c.y -= 1
+
+        edit_buffer.delete_at(y)
+        color_lines.delete_at(y)
+
+        request_redraw_internal
+      end
+    else
+      edit_buffer[y] = if x == 1
+        current_line[1..-1]
+      elsif x == current_line.length
+        current_line[0..-2]
+      else
+        current_line[0..x-2] + current_line[x..-1]
+      end
+      c.x -= 1
+      request_redraw_current_line
+    end
+    color_lines[y]=nil
+    c
+  end
+
+  def request_redraw_current_line
+    request_redraw_internal current_line_area
+  end
+
+  def line_area(line_number)
+    rect(point(0,line_number),point(edit_buffer[line_number].length,1))
+  end
+
+  def current_line_area
+    line_area(cursor_loc.y)
+  end
+
+  def current_line
+    edit_buffer[cursor_loc.y]
+  end
+
+  def text
+    edit_buffer.join("\n")
+  end
+
+  def text=(t)
+    self.edit_buffer = t.split("\n")
+  end
+
+  def scroll_pos
+    point
+  end
+
+  def line_range
+    scroll_pos.y..scroll_pos.y+size.y-1
+  end
+
+  def visible_lines
+    edit_buffer[line_range]
+  end
+
+  def color_lines
+    @color_lines ||= []
+  end
+
+  def draw_background
+    syntax_highlighter = CodeMarkup.new
+    crop_area = buffer.crop_area
+
+    range = (crop_area+scroll_pos).y_range
+    lines = edit_buffer[range]
+    clines = color_lines[range]
+
+    lines.each_with_index do |a,i|
+      clines[i] ||= begin
+        p = syntax_highlighter.parse(a.clone)
+        log syntax_highlighter.parser_failure_info unless p
+        p.colors
+      end
+      buffer.contents[i+crop_area.y] = a
+      buffer.fg_buffer[i+crop_area.y] = clines[i]
+    end
+
+    color_lines[range] = clines
+
+    buffer.sanitize_contents crop_area.y_range
+    buffer.normalize crop_area.y_range
+    buffer.fill bg:bg
+    buffer.fill :area => cursor_area, :bg => cursor_bg if focused?
+  end
+end
+
+WindowedScreen.new.start(:full=>true, :utf8 => true) do |screen|
+  filename = __FILE__
+  screen.root_window.add_child te=TextEditor.new(filename)
+  te.focus
+end