redcar 0.2.9dev

data/plugins/application_swt/lib/application_swt/notebook/drag_and_drop_listener.rb

@@ -0,0 +1,71 @@
+module Redcar
+  class ApplicationSWT
+    class Notebook
+      class DragAndDropListener
+  
+        def initialize(tab_folder)
+          @tab_folder       = tab_folder
+          @drag, @exit_drag = false, false
+          @drag_item        = nil
+        end
+  
+        def handleEvent(e)
+          if e.type == Swt::SWT::DragDetect
+            p = @tab_folder.toControl(Swt::Widgets::Display.getCurrent.getCursorLocation) # see bug 43251
+          else
+            p = Swt::Graphics::Point.new(e.x, e.y)
+          end
+          case e.type
+          when Swt::SWT::DragDetect
+            item = @tab_folder.getItem(p)
+            return unless item
+            @drag = true
+            @exit_Drag = false
+            @drag_item = item
+          when Swt::SWT::MouseEnter
+            if @exit_drag
+              @exit_drag = false;
+              @drag = (e.button != 0)
+            end
+          when Swt::SWT::MouseExit
+            if @drag
+              @tab_folder.setInsertMark(nil, false)
+              @exit_drag = true
+              @drag = false
+            end
+          when Swt::SWT::MouseUp
+            return unless @drag
+            @tab_folder.setInsertMark(nil, false)
+            if item = @tab_folder.getItem(Swt::Graphics::Point.new(p.x, 1))
+              rect = item.getBounds()
+              after = (p.x > rect.x + rect.width/2)
+              index = @tab_folder.indexOf(item)
+              index = after ? index + 1 : index -1
+              index = [0, index].max
+              new_item = Swt::Custom::CTabItem.new(@tab_folder, Swt::SWT::NONE, index)
+              new_item.setText("new tab item")
+              c = @drag_item.getControl()
+              @drag_item.setControl(nil)
+              new_item.setControl(c)
+              @drag_item.dispose()
+              @tab_folder.setSelection(new_item)
+            end
+            @drag = false
+            @exit_drag = false
+            @drag_item = nil
+          when Swt::SWT::MouseMove
+            return unless @drag
+            item = @tab_folder.getItem(Swt::Graphics::Point.new(p.x, 2))
+            unless item 
+              @tab_folder.setInsertMark(nil, false)
+              return
+            end
+            rect = item.getBounds
+            after = (p.x > rect.x + rect.width/2)
+            @tab_folder.setInsertMark(item, after)
+          end
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/swt/grid_data.rb

@@ -0,0 +1,11 @@
+module Swt
+  module Layout
+    class GridData
+      def self.construct
+        layoutData = GridData.new
+        yield layoutData
+        layoutData
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/swt_wrapper.rb

@@ -0,0 +1,106 @@
+
+require 'rbconfig'
+
+module Swt
+  def self.jar_path
+    case Config::CONFIG["host_os"]
+    when /darwin/i
+      if Config::CONFIG["host_cpu"] == "x86_64"
+        'osx64/swt'
+      else
+        'osx/swt'
+      end
+    when /linux/i
+      if %w(amd64 x84_64).include? Config::CONFIG["host_cpu"]
+        'linux64/swt'
+      else
+        'linux/swt'
+      end
+    when /windows|mswin/i
+      'win32/swt'
+    end
+  end
+
+  path = File.expand_path(File.dirname(__FILE__) + "/../../vendor/swt/" + Swt.jar_path)
+  if File.exist?(path + ".jar")
+    require path
+  else
+    puts "SWT jar file required: #{path}.jar"
+    exit
+  end
+
+  import org.eclipse.swt.SWT
+  
+  module Widgets
+    import org.eclipse.swt.widgets.Button
+    import org.eclipse.swt.widgets.Caret
+    import org.eclipse.swt.widgets.Combo
+    import org.eclipse.swt.widgets.Composite
+    import org.eclipse.swt.widgets.Display
+    import org.eclipse.swt.widgets.Event
+    import org.eclipse.swt.widgets.FileDialog
+    import org.eclipse.swt.widgets.Label
+    import org.eclipse.swt.widgets.Menu
+    import org.eclipse.swt.widgets.MenuItem
+    import org.eclipse.swt.widgets.Shell
+    import org.eclipse.swt.widgets.TabFolder
+    import org.eclipse.swt.widgets.TabItem
+    import org.eclipse.swt.widgets.Text
+  end
+
+  module Custom
+    import org.eclipse.swt.custom.CTabFolder
+    import org.eclipse.swt.custom.CTabItem
+    import org.eclipse.swt.custom.SashForm
+  end
+  
+  module Layout
+    import org.eclipse.swt.layout.FillLayout
+    import org.eclipse.swt.layout.GridLayout
+    import org.eclipse.swt.layout.GridData
+    import org.eclipse.swt.layout.RowLayout
+  end
+  
+  module Graphics
+    import org.eclipse.swt.graphics.Color
+    import org.eclipse.swt.graphics.Font
+    import org.eclipse.swt.graphics.GC
+    import org.eclipse.swt.graphics.Image
+    import org.eclipse.swt.graphics.Point
+  end
+  
+  module Events
+    import org.eclipse.swt.events.KeyEvent
+  end
+  
+  class RRunnable
+    include java.lang.Runnable
+
+    def initialize(&block)
+      @block = block
+    end
+
+    def run
+      @block.call
+    end
+  end
+end
+
+module JFace
+  Dir[File.dirname(__FILE__) + "/../../vendor/jface/*.jar"].each do |jar_fn|
+    require jar_fn
+  end
+  
+  module Viewers
+    import org.eclipse.jface.viewers.TreeViewer
+    import org.eclipse.jface.viewers.ITreeContentProvider
+    import org.eclipse.jface.viewers.ILabelProvider
+  end
+end
+
+
+
+
+
+
+

data/plugins/application_swt/lib/application_swt/tab.rb

@@ -0,0 +1,58 @@
+module Redcar
+  class ApplicationSWT
+    class Tab
+      attr_reader :item, :model, :notebook, :widget
+      
+      FILE_ICON = File.join(Redcar.root, %w(plugins application lib application assets file.png))
+      
+      def initialize(model, notebook)
+        @model, @notebook = model, notebook
+        create_item_widget
+        create_tab_widget
+        attach_listeners
+      end
+      
+      def create_item_widget
+        if @item
+          @item.dispose
+        end
+        @item = Swt::Custom::CTabItem.new(notebook.tab_folder, Swt::SWT::CLOSE)
+        @icon = Swt::Graphics::Image.new(ApplicationSWT.display, FILE_ICON)
+        @item.image = @icon
+      end
+      
+      def create_tab_widget
+        @widget = Swt::Widgets::Text.new(notebook.tab_folder, Swt::SWT::MULTI)
+        @widget.text = "Example of a tab"
+        @item.control = @widget
+      end
+      
+      def move_tab_widget_to_current_notebook
+        @widget.setParent(notebook.tab_folder)
+        @item.control = @widget
+      end
+      
+      def set_notebook(notebook_controller)
+        @notebook = notebook_controller
+      end
+      
+      def swt_focus_gained
+        notify_listeners(:swt_focus_gained)
+      end
+      
+      def attach_listeners
+        @model.add_listener(:focus, &method(:focus))
+        @model.add_listener(:close, &method(:close))
+      end
+      
+      def focus
+        @notebook.model_event_focus_tab(self)
+      end
+      
+      def close
+        @item.dispose
+        @icon.dispose
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/window.rb

@@ -0,0 +1,142 @@
+
+module Redcar
+  class ApplicationSWT
+    class Window
+      attr_reader :shell, :window, :shell_listener
+      
+      class ShellListener
+        def initialize(controller)
+          @controller = controller
+        end
+        
+        def shell_closed(e)
+          unless @in_close_operation
+            @in_close_operation = true
+            e.doit = false
+            @controller.swt_event_closed
+            @in_close_operation = false
+          end
+        end
+
+        def shell_activated(e)
+          unless @in_activate_operation
+            @in_activate_operation = true
+            e.doit = false
+            @controller.swt_event_activated
+            @in_activate_operation = false
+          end
+        end
+        
+        def shell_deactivated(_); end
+        def shell_deiconified(_); end
+        def shell_iconified(_); end
+      end
+      
+      def initialize(window)
+        @window = window
+      	@notebook_handlers = Hash.new {|h,k| h[k] = []}
+        create_shell
+        create_sash(window)
+        new_notebook(window.notebooks.first)
+        add_listeners
+      end
+      
+      def add_listeners
+        @window.add_listener(:show,          &method(:show))
+        @window.add_listener(:menu_changed,  &method(:menu_changed))
+        @window.add_listener(:title_changed, &method(:title_changed))
+        @window.add_listener(:new_notebook,  &method(:new_notebook))
+        @window.add_listener(:notebook_removed,  &method(:notebook_removed))
+        @window.add_listener(:closed,        &method(:closed))
+        method = method(:notebook_orientation_changed)
+        @window.add_listener(:notebook_orientation_changed, &method)
+        @window.add_listener(:focussed,      &method(:focussed))
+      end
+        
+      def show
+        @shell.open
+        @shell.text = window.title
+      end
+      
+      def menu_changed(menu)
+        @menu_controller = ApplicationSWT::Menu.new(self, menu)
+        shell.menu_bar = @menu_controller.menu_bar
+      end
+      
+      def title_changed(new_title)
+        @shell.text = new_title
+      end
+      
+      def new_notebook(notebook_model)
+        notebook_controller = ApplicationSWT::Notebook.new(notebook_model, @sash)
+        width = (100/@window.notebooks.length).to_i
+        widths = [width]*@window.notebooks.length
+      	@sash.setWeights(widths.to_java(:int))
+      end
+      
+      def notebook_removed(notebook_model)
+        notebook_controller = notebook_model.controller
+        @notebook_handlers[notebook_model].each do |h|
+          notebook_controller.remove_listener(h)
+        end
+        notebook_controller.dispose
+        width = (100/@window.notebooks.length).to_i
+        widths = [width]*@window.notebooks.length
+      	@sash.setWeights(widths.to_java(:int))
+      end
+      
+      def notebook_orientation_changed(new_orientation)
+        orientation = horizontal_vertical(new_orientation)
+        @sash.setOrientation(orientation)
+      end
+      
+      def focussed(_)
+        @shell.set_active
+      end
+      
+      def closed(_)
+        @shell.close
+        @menu_controller.close
+      end
+      
+      def dispose
+        @shell.dispose
+        @menu_controller.close
+      end
+        
+      def swt_event_closed
+        @window.close
+      end
+        
+      def swt_event_activated
+        @window.focus
+      end
+        
+      private
+      
+      def create_shell
+        @shell = Swt::Widgets::Shell.new(ApplicationSWT.display)
+        @shell.layout = Swt::Layout::GridLayout.new(1, false)
+      	@shell_listener = ShellListener.new(self)
+        @shell.add_shell_listener(@shell_listener)  
+      end
+      
+      def create_sash(window_model)
+        orientation = horizontal_vertical(window_model.notebook_orientation)
+        @sash     = Swt::Custom::SashForm.new(@shell, orientation)
+        grid_data = Swt::Layout::GridData.new(Swt::Layout::GridData::FILL_BOTH)
+      	@sash.setLayoutData(grid_data)
+      	@sash.setSashWidth(10)
+      end
+      
+      def horizontal_vertical(symbol)
+        case symbol
+        when :horizontal
+          Swt::SWT::HORIZONTAL
+        when :vertical
+          Swt::SWT::VERTICAL
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/plugin.yaml

@@ -0,0 +1,11 @@
+--- !ruby/object:FreeBASE::PluginConfiguration
+name: application_swt
+description: SWT views for the application
+version: 1.0
+author: Daniel Lucraft
+autoload: true
+startup_module: Redcar::ApplicationSWT
+load_dependencies: 
+  application: "*"
+start_dependencies: 
+  application: "*"

data/plugins/application_swt/spec/application_swt/menu/binding_translator_spec.rb

@@ -0,0 +1,45 @@
+require File.join(File.dirname(__FILE__), "..", "..", "spec_helper")
+
+BindingTranslator = Redcar::ApplicationSWT::Menu::BindingTranslator
+describe BindingTranslator do
+  def check(key, value)
+    BindingTranslator.key(key).should == value
+  end
+  
+  describe "single modifiers" do
+    it "translates Shift+letter" do
+      check("Shift+N", Swt::SWT::SHIFT + 'N'[0])
+      check("Shift+K", Swt::SWT::SHIFT + 'K'[0])
+      check("Shift+P", Swt::SWT::SHIFT + 'P'[0])
+    end
+
+    it "translates Ctrl+letter" do
+      check("Ctrl+T", Swt::SWT::CTRL + 'T'[0])
+      check("Ctrl+2", Swt::SWT::CTRL + '2'[0])
+    end
+
+    it "translates Alt+letter" do
+      check("Alt+B", Swt::SWT::ALT + 'B'[0])
+    end
+
+    it "translates Cmd+letter" do
+      check("Cmd+X", Swt::SWT::COMMAND + 'X'[0])
+    end
+  end
+
+  describe "multiple modifiers" do
+    it "translates Mod+Mod+letter" do
+      check("Ctrl+Alt+W", Swt::SWT::CTRL + Swt::SWT::ALT + 'W'[0])
+      check("Cmd+Alt+W", Swt::SWT::COMMAND + Swt::SWT::ALT + 'W'[0])
+      check("Cmd+Shift+W", Swt::SWT::COMMAND + Swt::SWT::SHIFT + 'W'[0])
+      check("Alt+Shift+W", Swt::SWT::ALT + Swt::SWT::SHIFT + 'W'[0])
+    end
+    
+    it "translates Mod+Mod+Mod+letter" do
+      check("Shift+Ctrl+Alt+W", Swt::SWT::SHIFT + Swt::SWT::CTRL + Swt::SWT::ALT + 'W'[0])
+      check("Shift+Cmd+Alt+W", Swt::SWT::SHIFT + Swt::SWT::COMMAND + Swt::SWT::ALT + 'W'[0])
+      check("Alt+Cmd+Shift+W", Swt::SWT::ALT + Swt::SWT::COMMAND + Swt::SWT::SHIFT + 'W'[0])
+      check("Cmd+Alt+Shift+W", Swt::SWT::COMMAND + Swt::SWT::ALT + Swt::SWT::SHIFT + 'W'[0])
+    end
+  end
+end