redcar-dev 0.12.17dev

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

@@ -0,0 +1,83 @@
+module Redcar
+  class ApplicationSWT
+    class Notebook
+      class TabTransfer < Swt::DND::ByteArrayTransfer
+        
+        class TabType
+          # Empty class for now, until we figure out which
+          # information we want to attach to the transfer.
+          # This _will_ be needed to DnD tabs between windows
+        end
+        
+        TAB_TYPE = "TabType"
+        TAB_TYPE_ID = register_type(TAB_TYPE)
+        @@instance = nil
+        
+        def self.get_instance
+          @@instance || TabTransfer.new
+        end
+        
+        def javaToNative(types, transfer_data)
+          return if (types.nil? || types.empty? || (types.first.class != TabType))
+          
+          begin
+            # write data to a byte array and then ask super to convert to
+            out = java.io.ByteArrayOutputStream.new
+            write_out = java.io.DataOutputStream.new(out)
+            types.length.times do |i|
+              buffer = TAB_TYPE.to_java_bytes
+              write_out.write_int(buffer.length)
+              write_out.write(buffer)
+            end
+            buffer = out.to_byte_array
+            write_out.close
+            super(buffer, transfer_data)
+          rescue java.io.IOException => e
+          end
+        end
+        
+        def nativeToJava(transfer_data)
+          if (is_supported_type(transfer_data))
+            buffer = super
+            return nil unless buffer
+            
+            data = []
+            begin
+              input = java.io.ByteArrayInputStream.new(buffer)
+              read_in = java.io.DataInputStream.new(input)
+              while (read_in.available > 20) do
+                datum = TabType.new
+                int size = read_in.read_int
+                name = Java::byte[size].new
+                read_in.read(name)
+                tab_type_name = String.from_java_bytes(name);
+                data << datum
+              end
+              read_in.close
+            rescue java.io.IOException => e
+              return null;
+            end
+            return data.to_java
+          end
+          return nil
+        end
+        
+        def get_type_names
+          [TAB_TYPE].to_java(:string)
+        end
+        
+        def get_type_ids
+          [TAB_TYPE_ID].to_java(:int)
+        end
+        
+        def getTypeIds
+          get_type_ids
+        end
+        
+        def getTypeNames
+          get_type_names
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/speedbar.rb

@@ -0,0 +1,185 @@
+require 'application_swt/speedbar/button_item'
+require 'application_swt/speedbar/combo_item'
+require 'application_swt/speedbar/label_item'
+require 'application_swt/speedbar/slider_item'
+require 'application_swt/speedbar/text_box_item'
+require 'application_swt/speedbar/toggle_item'
+
+module Redcar
+  class ApplicationSWT
+    class Speedbar
+      include Redcar::ReentryHelpers
+
+      attr_reader :widget
+
+      def initialize(window, parent, model)
+        @window_model = window
+        @parent = parent
+        @model = model
+        create_widgets
+        attach_key_listeners
+        disable_menu_items
+        if widget = focussable_widgets.first
+          widget.set_focus
+        end
+        @handlers = Hash.new {|h,k| h[k] = []}
+        @parent.layout
+        @model.after_draw if @model.respond_to?(:after_draw)
+      end
+
+      def close
+        @composite.dispose
+        @parent.layout
+      end
+
+      def disable_menu_items
+        key_strings = []
+        @model.__items.each do |i|
+          if i.respond_to?(:key)
+            key_strings << i.key
+          end
+        end
+        key_strings.uniq.each do |key_string|
+          ApplicationSWT::Menu.disable_items(key_string)
+        end
+      end
+
+      def num_columns
+        return @model.num_columns if @model.respond_to?(:num_columns)
+        @model.__items.select {|i| !i.is_a?(Redcar::Speedbar::KeyItem) }.length
+      end
+
+      def key_items
+        @model.__items.select {|i| i.respond_to?(:key) and i.key }
+      end
+
+      def keyable_widgets
+        @keyable_widgets ||= []
+      end
+
+      def focussable_widgets
+        @focussable_widgets ||= []
+      end
+
+      def create_widgets
+        create_bar_widget
+        create_item_widgets
+      end
+
+      def create_bar_widget
+        @composite = Swt::Widgets::Composite.new(@parent, Swt::SWT::NONE)
+        grid_data = Swt::Layout::GridData.new
+        grid_data.grabExcessHorizontalSpace = true
+        grid_data.horizontalAlignment = Swt::Layout::GridData::FILL
+        @composite.setLayoutData(grid_data)
+        layout = Swt::Layout::GridLayout.new(num_columns + 1, false)
+        layout.verticalSpacing = 0
+        layout.marginHeight = 0
+        layout.marginTop = 5
+        @composite.setLayout(layout)
+        image = Swt::Graphics::Image.new(ApplicationSWT.display, Redcar::Speedbar.close_image_path)
+        label = Swt::Widgets::Label.new(@composite, 0)
+        label.set_image(image)
+
+        label.add_mouse_listener(MouseListener.new(self))
+      end
+
+      def execute_listener_in_model(item, *args)
+        if item.listener
+          begin
+            @model.instance_exec(*args, &item.listener)
+          rescue => err
+            error_in_listener(err)
+          end
+        end
+      end
+
+      def create_item_widgets
+        @model.__items.each do |item|
+          swt_klass = self.class.const_get(item.class.to_s.split("::").last)
+          swt_klass.new(self, @composite, item)
+        end
+      end
+
+      class KeyListener
+        def initialize(speedbar)
+          @speedbar = speedbar
+        end
+
+        def key_pressed(e)
+          @speedbar.key_press(e)
+        end
+
+        def key_released(e)
+        end
+      end
+
+      class MouseListener
+        def initialize(speedbar)
+          @speedbar = speedbar
+        end
+
+        def mouse_down(*_); end
+
+        def mouse_up(*_)
+          @speedbar.close_pressed
+        end
+
+        def mouse_double_click(*_); end
+      end
+
+      def attach_key_listeners
+        keyable_widgets.each do |widget|
+          widget.add_key_listener(KeyListener.new(self))
+        end
+      end
+
+      def close_pressed
+        @window_model.close_speedbar
+      end
+
+      def key_press(e)
+        return if Application::Dialog.in_dialog?
+        key_string = Menu::BindingTranslator.key_string(e)
+        if key_string == "\e"
+          @window_model.close_speedbar
+          e.doit = false
+        end
+        key_items.each do |key_item|
+          if Menu::BindingTranslator.matches?(key_string, key_item.key)
+            e.doit = false
+            begin
+              @model.instance_exec(&key_item.listener)
+            rescue Object => err
+              error_in_listener(err)
+            end
+          end
+        end
+      end
+
+      def rescue_speedbar_errors
+        begin
+          yield
+        rescue Object => e
+          if e.class.name == "TestingError"
+            raise e
+          else
+            puts "*** Error in speedbar"
+            puts e.class.to_s + ": " + e.message
+            puts e.backtrace
+          end
+        end
+      end
+
+      def error_in_listener(e)
+        if e.class.name == "TestingError"
+          raise e
+        else
+          puts "*** Error in speedbar listener: #{e.message}"
+          puts e.backtrace.map {|l| "    " + l}
+        end
+      end
+    end
+  end
+end
+

data/plugins/application_swt/lib/application_swt/speedbar/button_item.rb

@@ -0,0 +1,20 @@
+module Redcar
+  class ApplicationSWT
+    class Speedbar
+      class ButtonItem
+        def initialize(speedbar, composite, item)
+          button = Swt::Widgets::Button.new(composite, 0)
+          button.set_text(item.text)
+          button.add_selection_listener do
+            speedbar.execute_listener_in_model(item)
+          end
+          item.add_listener(:changed_text) do |new_text|
+            button.set_text(item.text)
+          end
+          speedbar.keyable_widgets << button
+          speedbar.focussable_widgets << button
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/speedbar/combo_item.rb

@@ -0,0 +1,55 @@
+module Redcar
+  class ApplicationSWT
+    class Speedbar
+      class ComboItem
+        def initialize(speedbar, composite, item)
+          if @editable = item.editable
+            type = Swt::SWT::DROP_DOWN
+          else
+            type = Swt::SWT::READ_ONLY
+          end
+          combo = Swt::Widgets::Combo.new(composite, type)
+          combo.items = item.items.to_java(:string)
+          if @editable
+            combo.set_text(item.value || "")
+            combo.add_modify_listener do
+              speedbar.ignore(item.name) do
+                item.value = combo.text
+                speedbar.execute_listener_in_model(item, item.value)
+              end
+            end
+          else
+            combo.select(item.items.index(item.value)) if item.value
+          end
+          combo.add_selection_listener do
+            speedbar.ignore(item.name) do
+              item.value = combo.text
+              speedbar.execute_listener_in_model(item, item.value)
+            end
+          end
+          item.add_listener(:changed_items) do |new_items|
+            speedbar.rescue_speedbar_errors do
+              speedbar.ignore(item.name) do
+                combo.items = item.items.to_java(:string)
+                item.value = @editable ? "" : nil
+              end
+            end
+          end
+          item.add_listener(:changed_value) do |new_value|
+            speedbar.rescue_speedbar_errors do
+              speedbar.ignore(item.name) do
+                if @editable
+                  combo.set_text(item.value)
+                else
+                  combo.select(item.items.index(item.value))
+                end
+              end
+            end
+          end
+          speedbar.keyable_widgets    << combo
+          speedbar.focussable_widgets << combo
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/speedbar/label_item.rb

@@ -0,0 +1,15 @@
+module Redcar
+  class ApplicationSWT
+    class Speedbar
+      class LabelItem
+        def initialize(speedbar, composite, item)
+          label = Swt::Widgets::Label.new(composite, 0)
+          label.set_text(item.text)
+          item.add_listener(:changed_text) do |new_text|
+            label.set_text(item.text)
+          end
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/speedbar/slider_item.rb

@@ -0,0 +1,32 @@
+module Redcar
+  class ApplicationSWT
+    class Speedbar
+      class SliderItem
+        def initialize(speedbar, composite, item)
+          slider = Swt::Widgets::Slider.new(composite, Swt::SWT::HORIZONTAL)
+          grid_data = Swt::Layout::GridData.new
+          grid_data.grabExcessHorizontalSpace = true
+          grid_data.horizontalAlignment = Swt::Layout::GridData::FILL
+          slider.layout_data = grid_data
+          slider.selection = item.value
+          slider.maximum   = item.maximum   || 100
+          slider.minimum   = item.minimum   || 0
+          slider.increment = item.increment || 5
+          slider.add_selection_listener do
+            item.value = slider.selection
+            speedbar.execute_listener_in_model(item, item.value)
+          end
+          [:minimum, :maximum, :increment, :enabled].each do |ivar|
+            item.add_listener(:"changed_#{ivar}") do |new_value|
+              speedbar.rescue_speedbar_errors { slider.send(:"#{ivar}=", new_value) }
+            end
+          end
+          item.add_listener(:changed_value) do |new_value|
+            speedbar.rescue_speedbar_errors { slider.selection = new_value }
+          end
+          speedbar.focussable_widgets << slider
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/speedbar/text_box_item.rb

@@ -0,0 +1,36 @@
+module Redcar
+  class ApplicationSWT
+    class Speedbar
+      class TextBoxItem
+        def initialize(speedbar, composite, item)
+          edit_view = EditView.new
+          item.edit_view = edit_view
+          edit_view_swt = EditViewSWT.new(edit_view, composite, :single_line => true)
+          mate_text = edit_view_swt.mate_text
+          mate_text.set_font(EditView.font, EditView.font_size)
+          mate_text.getControl.set_text(item.value)
+          mate_text.set_grammar_by_name "Ruby"
+          mate_text.set_theme_by_name(EditView.theme)
+          mate_text.set_root_scope_by_content_name("Ruby", "string.regexp.classic.ruby")
+          gridData = Swt::Layout::GridData.new
+          gridData.grabExcessHorizontalSpace = true
+          gridData.horizontalAlignment = Swt::Layout::GridData::FILL
+          mate_text.getControl.set_layout_data(gridData)
+          edit_view.document.add_listener(:changed) do
+            speedbar.ignore(item.name) do
+              item.value = edit_view.document.to_s
+              speedbar.execute_listener_in_model(item, item.value)
+            end
+          end
+          item.add_listener(:changed_value) do |new_value|
+            speedbar.ignore(item.name) do
+              mate_text.getControl.set_text(new_value)
+            end
+          end
+          speedbar.keyable_widgets << mate_text.getControl
+          speedbar.focussable_widgets << mate_text.getControl
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/speedbar/toggle_item.rb

@@ -0,0 +1,29 @@
+module Redcar
+  class ApplicationSWT
+    class Speedbar
+      class ToggleItem
+        def initialize(speedbar, composite, item)
+          button = Swt::Widgets::Button.new(composite, Swt::SWT::CHECK)
+          button.set_text(item.text)
+          button.set_selection(!!item.value)
+          button.add_selection_listener do
+            item.value = button.get_selection
+            speedbar.execute_listener_in_model(item, item.value)
+          end
+          item.add_listener(:changed_text) do |new_text|
+            speedbar.rescue_speedbar_errors do
+              button.set_text = new_text
+            end
+          end
+          item.add_listener(:changed_value) do |new_value|
+            speedbar.rescue_speedbar_errors do
+              button.set_selection(!!new_value)
+            end
+          end
+          speedbar.keyable_widgets    << button
+          speedbar.focussable_widgets << button
+        end
+      end
+    end
+  end
+end