redcar 0.2.9dev

data/plugins/edit_view/lib/edit_view.rb

@@ -0,0 +1,76 @@
+
+require "edit_view/command"
+require "edit_view/document"
+require "edit_view/mirror"
+require "edit_view/edit_tab"
+
+module Redcar
+  class EditView
+    include Redcar::Model
+    include Redcar::Observable
+    
+    def self.start
+      Sensitivity.new(:edit_tab_focussed, Redcar.app, false, [:tab_focussed]) do |tab|
+        tab and tab.is_a?(EditTab)
+      end
+    end
+    
+    attr_reader :document
+    
+    def initialize(tab)
+      @tab = tab
+      create_document
+      @grammar = nil
+      @focussed = nil
+    end
+    
+    def create_document
+      @document = Redcar::Document.new(self)
+    end
+    
+    def title=(title)
+      @tab.title = title
+    end
+    
+    def cursor_offset=(offset)
+      controller.cursor_offset = offset
+    end
+    
+    def cursor_offset
+      controller.cursor_offset
+    end
+    
+    def scroll_to_line(line_index)
+      controller.scroll_to_line(line_index)
+    end
+    
+    def grammar
+      @grammar
+    end
+    
+    def grammar=(name)
+      @grammar = name
+      notify_listeners(:grammar_changed, name)
+    end
+    
+    def set_grammar(name)
+      @grammar = name
+    end
+    
+    def gained_focus
+      notify_listeners(:focussed)
+    end
+    
+    def serialize
+      { :contents      => document.to_s,
+        :cursor_offset => cursor_offset,
+        :grammar       => grammar         }
+    end
+    
+    def deserialize(data)
+      self.grammar       = data[:grammar]
+      document.text      = data[:contents]
+      self.cursor_offset = data[:cursor_offset]
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/command.rb

@@ -0,0 +1,6 @@
+module Redcar
+  class EditTabCommand < TabCommand
+
+    sensitize :edit_tab_focussed
+  end
+end

data/plugins/edit_view/lib/edit_view/document.rb

@@ -0,0 +1,63 @@
+
+module Redcar
+  # Each Redcar::Document is associated with an EditView, and has methods for
+  # reading and modifying the contents of the EditView. Every document has a
+  # Mirror of some resource.
+  #
+  # Events: new_mirror
+  class Document
+    include Redcar::Model
+    include Redcar::Observable
+    
+    class << self
+      attr_accessor :default_mirror
+    end
+    
+    attr_reader :mirror
+    
+    def initialize(edit_view)
+      @edit_view = edit_view
+    end
+    
+    def to_s
+      controller.to_s
+    end
+    
+    def text=(text)
+      controller.text = text
+    end
+    
+    def length
+      controller.length
+    end
+    
+    def line_count
+      controller.line_count
+    end
+    
+    def save!
+      @mirror.commit(to_s)
+    end
+    
+    def title
+      @mirror ? @mirror.title : nil
+    end
+    
+    def mirror=(new_mirror)
+      notify_listeners(:new_mirror, new_mirror) do
+        @mirror = new_mirror
+        mirror.add_listener(:change) do
+          update_from_mirror
+        end
+        update_from_mirror
+      end
+    end
+    
+    private
+    
+    def update_from_mirror
+      self.text        = mirror.read
+      @edit_view.title = mirror.title
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/edit_tab.rb

@@ -0,0 +1,29 @@
+module Redcar
+  class EditTab < Tab
+    include Redcar::Observable
+    
+    attr_reader :edit_view
+    
+    def initialize(*args)
+      super
+      create_edit_view
+    end
+    
+    def create_edit_view
+      @edit_view = Redcar::EditView.new(self)
+      @edit_view.add_listener(:focussed, &method(:edit_view_focussed))
+    end
+    
+    def edit_view_focussed
+      notify_listeners(:focussed)
+    end
+    
+    def serialize
+      { :title     => title }
+    end
+    
+    def deserialize(data)
+      self.title = data[:title]
+    end
+  end
+end

data/plugins/edit_view/lib/edit_view/mirror.rb

@@ -0,0 +1,42 @@
+
+module Redcar
+  class EditView
+    # Abstract interface. A Mirror allows an EditView contents to reflect 
+    # some other resource. They have methods for loading the contents from the 
+    # resource and commiting changes.
+    #
+    # Events: changed
+    module Mirror
+      include Redcar::Observable
+      
+      # Return the title of the resource. (e.g. the filename)
+      def title
+        raise "not implemented"
+      end
+      
+      # Return the contents of the resource reflected by this mirror. 
+      # (E.g. the contents of the file)
+      def read
+        raise "not implemented"
+      end
+
+      # Does the resource still exist or not? (E.g. does the file exist?)
+      def exists?
+        raise "not implemented"
+      end
+      
+      # Has the resource changed since the last time either `read` or `commit` 
+      # were was called? (E.g. has the file changed since the last time its 
+      # contents were loaded)
+      def changed?
+        raise "not implemented"
+      end
+      
+      # Replace the contents of the resource with `contents`. (E.g. save the
+      # new contents of the file.)
+      def commit(contents)
+        raise "not implemented"
+      end
+    end
+  end
+end

data/plugins/edit_view/plugin.yaml

@@ -0,0 +1,14 @@
+--- !ruby/object:FreeBASE::PluginConfiguration
+name: edit_view
+description: Edit View is the editing widget 
+version: 1.0
+author: Daniel Lucraft
+autoload: true
+require_path: edit_view/lib/edit_view.rb
+startup_module: Redcar::EditView
+load_dependencies: 
+  core: "*"
+  application: "*"
+start_dependencies: 
+  core: "*"
+  application: "*"

data/plugins/edit_view/spec/edit_view/document_spec.rb

@@ -0,0 +1,77 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Document do
+  class TestEditView
+    attr_accessor :title
+  end
+    
+  class TestDocumentController
+    def to_s
+      @text
+    end
+    
+    def text=(val)
+      @text = val
+    end
+  end
+  
+  class TestMirror
+    include Redcar::Observable
+    
+    def read
+      @text || "Test content"
+    end
+    
+    def commit(val)
+      @text = val
+    end
+    
+    def title
+      "foo"
+    end
+
+    def make_a_change
+      @text = "Changed content"
+      notify_listeners(:change)
+    end
+  end
+  
+  before do
+    @controller = TestDocumentController.new
+    @controller.text = ""
+    @doc = Redcar::Document.new(TestEditView.new)
+    @doc.controller = @controller
+    @mirror
+  end
+  
+  describe "with no mirror" do
+    it "reads from the mirror when it is set" do
+      @doc.mirror = TestMirror.new
+      @controller.to_s.should == "Test content"
+    end
+  end
+  
+  describe "with a mirror" do
+    before do
+      @mirror = TestMirror.new
+      @doc.mirror = @mirror
+    end
+    
+    it "responds to changes from the mirror" do
+      @mirror.make_a_change
+      @controller.to_s.should == "Changed content"
+    end
+    
+    it "saves by committing to the mirror" do
+      @controller.text = "Saved text"
+      @doc.save!
+      @mirror.read.should == "Saved text"
+    end
+  end
+end
+
+
+
+
+
+

data/plugins/edit_view/spec/spec_helper.rb

@@ -0,0 +1,4 @@
+$:.push File.join(File.dirname(__FILE__), '..', '..', '..', 'lib')
+
+require 'redcar'
+Redcar.require

data/plugins/edit_view_swt/lib/edit_view_swt.rb

@@ -0,0 +1,170 @@
+
+require 'edit_view_swt/document'
+require 'edit_view_swt/edit_tab'
+
+require 'joni'
+require 'jcodings'
+require 'jdom'
+
+require File.dirname(__FILE__) + '/../vendor/java-mateview'
+
+module Redcar
+  class EditViewSWT
+    include Redcar::Observable
+    
+    def self.load
+      gui = ApplicationSWT.gui
+      gui.register_controllers(Redcar::EditTab => EditViewSWT::Tab)
+      load_textmate_assets
+    end
+    
+    def self.load_textmate_assets
+      JavaMateView::Bundle.load_bundles(Redcar::ROOT + "/textmate/")
+      JavaMateView::ThemeManager.load_themes(Redcar::ROOT + "/textmate/")
+      end
+    
+    attr_reader :mate_text, :widget
+
+    def initialize(model, edit_tab)
+      @model = model
+      @edit_tab = edit_tab
+      @handlers = []
+      create_mate_text
+      create_grammar_selector
+      create_document
+      attach_listeners
+      @mate_text.add_grammar_listener do |new_grammar|
+        @model.set_grammar(new_grammar)
+      end
+      @mate_text.set_grammar_by_name "Plain Text"
+      @mate_text.set_theme_by_name(ARGV.option("theme") || "Twilight")
+    end
+    
+    def create_mate_text
+      parent = @edit_tab.notebook.tab_folder
+      @widget = Swt::Widgets::Composite.new(parent, Swt::SWT::NONE)
+      layout = Swt::Layout::GridLayout.new
+      layout.numColumns = 2
+      @widget.layout = layout
+      @mate_text = JavaMateView::MateText.new(@widget)
+      if Core.platform == :osx
+        default_font = "Monaco"
+        default_font_size = 15
+      elsif Core.platform == :linux
+        default_font = "Monospace"
+        default_font_size = 14
+      elsif Core.platform == :windows
+        default_font = "FixedSys"
+        default_font_size = 15
+      end
+      @mate_text.set_font(ARGV.option("font") || default_font, 
+                          (ARGV.option("font-size") || default_font_size).to_i)
+      @edit_tab.item.control = @widget
+      
+      @mate_text.layoutData = Swt::Layout::GridData.construct do |data|
+        data.horizontalAlignment = Swt::Layout::GridData::FILL
+        data.verticalAlignment = Swt::Layout::GridData::FILL
+        data.grabExcessHorizontalSpace = true
+        data.grabExcessVerticalSpace = true
+        data.horizontalSpan = 2  
+      end
+      
+      @model.controller = self
+    end
+    
+    def create_grammar_selector
+      @combo = Swt::Widgets::Combo.new @widget, Swt::SWT::READ_ONLY
+      bundles  = JavaMateView::Bundle.bundles.to_a
+      grammars = bundles.map{|b| b.grammars.to_a}.flatten
+      items    = grammars.map{|g| g.name}
+      @combo.items = items.to_java(:string)
+      
+      @mate_text.add_grammar_listener do |new_grammar|
+        @combo.select(items.index(new_grammar))
+      end
+      
+      @combo.add_selection_listener do |event|
+        puts "selected #{@combo.text}"
+        @mate_text.set_grammar_by_name(@combo.text)
+      end
+      
+      @widget.pack
+    end
+    
+    def create_document
+      @document = EditViewSWT::Document.new(@model.document, @mate_text.mate_document)
+      @model.document.controller = @document
+      h1 = @model.document.add_listener(:before => :new_mirror, 
+            &method(:update_grammar))
+      h2 = @model.add_listener(:grammar_changed, &method(:model_grammar_changed))
+      @mate_text.getTextWidget.addFocusListener(FocusListener.new(self))
+      @handlers << [@model.document, h1] << [@model, h2]
+    end
+    
+    def swt_focus_gained
+      # p [:swt_focus_gained, self.class]
+      @model.gained_focus
+    end
+    
+    def focus
+      @mate_text.set_focus
+    end
+    
+    def has_focus?
+      focus_control = ApplicationSWT.display.get_focus_control
+      focus_control.parent.parent == @mate_text
+    end
+    
+    def attach_listeners
+      # h = @document.add_listener(:set_text, &method(:reparse))
+      # @handlers << [@document, h]
+    end
+    
+    def reparse
+      @mate_text.parser.parse_range(0, @mate_text.parser.styledText.get_line_count-1)
+    end
+    
+    def cursor_offset=(offset)
+      @mate_text.get_text_widget.set_caret_offset(offset)
+    end
+    
+    def cursor_offset
+      @mate_text.get_text_widget.get_caret_offset
+    end
+    
+    def scroll_to_line(line_index)
+      @mate_text.get_text_widget.set_top_index(line_index)
+    end
+    
+    def model_grammar_changed(name)
+      @mate_text.set_grammar_by_name(name)
+    end
+    
+    def update_grammar(new_mirror)
+      title = new_mirror.title
+      return if @mate_text.set_grammar_by_filename(title)
+      contents = new_mirror.read
+      first_line = contents.to_s.split("\n").first
+      @mate_text.set_grammar_by_first_line(first_line) if first_line
+    end
+    
+    def dispose
+      @combo.dispose
+      @widget.dispose
+      @handlers.each {|obj, h| obj.remove_listener(h) }
+      @handlers.clear
+    end
+    
+    class FocusListener
+      def initialize(obj)
+        @obj = obj
+      end
+
+      def focusGained(e)
+        @obj.swt_focus_gained
+      end
+
+      def focusLost(_); end
+    end
+  end
+end