redcar-dev 0.12.17dev

data/plugins/application_swt/lib/application_swt/dialogs/filter_list_dialog_controller.rb

@@ -0,0 +1,233 @@
+module Redcar
+  class ApplicationSWT
+    class FilterListDialogController
+      include ReentryHelpers
+      
+      class << self
+        # when set, the FilterListDialog is non-modal for testing
+        attr_writer :test_mode
+        def test_mode?; @test_mode; end
+      end
+      
+      class FilterListDialog < Dialogs::NoButtonsDialog
+        attr_reader :list, :text
+        attr_accessor :controller
+        
+        def createDialogArea(parent)
+          composite = Swt::Widgets::Composite.new(parent, Swt::SWT::NONE)
+          layout = Swt::Layout::RowLayout.new(Swt::SWT::VERTICAL)
+          composite.setLayout(layout)
+
+          @text = Swt::Widgets::Text.new(composite, Swt::SWT::SINGLE | Swt::SWT::LEFT | Swt::SWT::ICON_CANCEL)
+          @text.set_layout_data(Swt::Layout::RowData.new(400, 20))
+          @list = Swt::Widgets::List.new(composite, Swt::SWT::V_SCROLL | Swt::SWT::H_SCROLL | Swt::SWT::SINGLE)
+          @list.set_layout_data(Swt::Layout::RowData.new(400, 200))
+          controller.attach_listeners
+          controller.update_list_sync
+          get_shell.add_shell_listener(ShellListener.new(controller))
+          ApplicationSWT.register_shell(get_shell)
+          ApplicationSWT.register_dialog(get_shell, self)
+
+          @list.set_selection(0)
+        end
+      end
+      
+      class ShellListener
+        def initialize(controller)
+          @controller = controller
+        end
+        
+        def shell_closed(e)
+          @controller.ignore(:closing) do
+            e.doit = false
+            @controller.model.close
+          end
+        end
+      
+        def shell_activated(_); end
+        def shell_deactivated(_); end
+        def shell_deiconified(_); end
+        def shell_iconified(_); end
+      end
+      
+      def self.storage
+        @storage ||= begin
+          storage = Plugin::Storage.new('filter_list_dialog_controller')
+          storage.set_default('pause_before_update_seconds', 0.25)
+          storage
+        end
+      end    
+      
+      attr_reader :model, :dialog
+      
+      def initialize(model)
+        @model = model
+        @dialog = FilterListDialog.new(Redcar.app.focussed_window.controller.shell)
+        @dialog.controller = self
+        if FilterListDialogController.test_mode?
+          @dialog.setBlockOnOpen(false)
+          @dialog.setShellStyle(Swt::SWT::DIALOG_TRIM)
+        end
+        attach_model_listeners
+      end
+      
+      def attach_model_listeners
+        @model.add_listener(:open, &method(:open))
+        @model.add_listener(:close, &method(:close))
+      end
+
+      class ModifyListener
+        def initialize(controller)
+          @controller = controller
+        end
+        
+        def modify_text(e)
+          @controller.update_list
+        end
+      end
+      
+      class KeyListener
+        def initialize(controller)
+          @controller = controller
+        end
+        
+        def key_pressed(e)
+          @controller.key_pressed(e)
+        end
+        
+        def key_released(e)
+        end
+      end
+      
+      class SelectionListener
+        def initialize(controller)
+          @controller = controller
+        end
+        
+        def widgetDefaultSelected(e)
+          @controller.selected
+        end
+        
+        def widgetSelected(e)
+          @controller.text_focus
+          @controller.widget_selected
+        end
+      end
+      
+      def attach_listeners
+        @dialog.text.add_modify_listener(ModifyListener.new(self))
+        @dialog.text.add_key_listener(KeyListener.new(self))
+        @dialog.list.add_selection_listener(SelectionListener.new(self))
+      end
+      
+      def open
+        @dialog.open
+        @dialog = nil unless FilterListDialogController.test_mode?
+      end
+      
+      def close
+        @dialog.close
+        ApplicationSWT.unregister_dialog(@dialog)
+        @dialog = nil
+      end
+      
+      def update_list
+        @last_keypress = Time.now
+        pause_time = FilterListDialogController.storage['pause_before_update_seconds']
+        Swt::Widgets::Display.getCurrent.timerExec(pause_time*1000, Swt::RRunnable.new {
+          if @last_keypress and (Time.now - @last_keypress + pause_time) > pause_time
+            @last_keypress = nil
+            update_list_sync
+          end
+        })
+      end
+      
+      def update_list_sync
+        if @dialog
+          s = Time.now
+          dialog = @dialog
+          this = self
+          Thread.new(@dialog.text.get_text) do |text|
+            begin
+              list = @model.update_list(text)
+              Redcar.update_gui do
+                this.populate_list(list)
+                if this.dialog
+                  this.dialog.list.set_selection(0)
+                  this.text_focus
+                end
+              end
+            rescue => e
+              puts e.message
+              puts e.backtrace
+            end
+          end
+        end
+      end
+      
+      def widget_selected
+        if @model.step?
+          @model.moved_to(@dialog.list.get_selection.first, @dialog.list.get_selection_index)
+        end
+      end
+
+      def text_focus
+        @dialog.text.set_focus
+      end
+      
+      def wait_for_search
+        @update_thread.join unless @update_thread.nil?
+      end
+
+      def select_closest_match?
+        @dialog.list.get_selection_index == 0
+      end
+
+      def selected
+        wait_for_search if select_closest_match?
+        @model.selected(@dialog.list.get_selection.first, @dialog.list.get_selection_index)
+      end
+      
+      def key_pressed(key_event)
+        case key_event.keyCode
+        when Swt::SWT::CR, Swt::SWT::LF
+          selected
+          false
+        when Swt::SWT::ARROW_DOWN
+          move_down
+          false
+        when Swt::SWT::ARROW_UP
+          move_up
+          false
+        else
+          true
+        end
+      end
+      
+      def move_down
+        move_selection(1, @dialog.list.get_item_count - 1)
+      end
+      
+      def move_up
+        move_selection(-1, 0)
+      end
+
+      def move_selection(step, border)
+        curr_ix = @dialog.list.get_selection_index
+        new_ix = curr_ix + step
+        new_ix = border if (new_ix <=> border) == step
+        @dialog.list.set_selection(new_ix)
+        widget_selected
+      end
+      
+      def populate_list(contents)
+        if @dialog
+          @dialog.list.removeAll
+          contents.each do |text|
+            @dialog.list.add(text)
+          end
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/dialogs/input_dialog.rb

@@ -0,0 +1,46 @@
+module Redcar
+  class ApplicationSWT
+    module Dialogs
+      class InputDialog < JFace::Dialogs::Dialog
+        def initialize(parent_shell, title, message, options={})
+          super(parent_shell)
+          @title, @message = title, message
+          @options = {:password => false, :initial_text => ""}.merge(options)
+        end
+        
+        def password?
+          @options[:password]
+        end
+        
+        def initial_text
+          @options[:initial_text]
+        end
+        
+        def createDialogArea(parent)
+          composite = super(parent)
+          
+          passwordLabel = Swt::Widgets::Label.new(composite, Swt::SWT::RIGHT)
+          passwordLabel.setText(@message)
+          
+          style = Swt::SWT::SINGLE
+          style = style | Swt::SWT::PASSWORD if password?
+          @inputField = Swt::Widgets::Text.new(composite, style)
+          data = Swt::Layout::GridData.new(Swt::Layout::GridData::FILL_HORIZONTAL)
+          @inputField.setLayoutData(data)
+          @inputField.setText(initial_text)
+          
+          getShell.setText(@title)
+        end
+        
+        def value
+          @text
+        end
+        
+        def close
+          @text = @inputField.getText
+          super
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/dialogs/modeless_dialog.rb

@@ -0,0 +1,113 @@
+
+module Redcar
+  class ApplicationSWT
+    class ModelessDialog
+
+      DEFAULT_WIDTH = 300
+      DEFAULT_HEIGHT_IN_ROWS = 4
+
+      def initialize(title,message,width=DEFAULT_WIDTH,height=DEFAULT_HEIGHT_IN_ROWS)
+        @title   = title
+        @message = message
+        @width   = width
+        @height  = height
+      end
+
+      def close
+        @text.remove_key_listener(@key_listener)
+        @text.remove_focus_listener(@focus_listener)
+        @shell.dispose
+      end
+
+      def open(parent,*location)
+        createDialogArea(parent)
+        @shell.set_location(*location)
+        @shell.open
+      end
+
+      def inspect
+        "#<Redcar::ModelessDialog width=#{@width}, height=#{@height}, location=#{@shell.get_location}>"
+      end
+
+      class KeyListener
+
+        def initialize(text)
+          @text = text
+        end
+
+        def key_pressed(e)
+        end
+
+        def key_released(e)
+          if e.stateMask == Swt::SWT::CTRL
+            case e.keyCode
+            when 97
+              e.widget.select_all
+            when 99
+              e.widget.copy
+            end
+          elsif e.stateMask == Swt::SWT::ALT
+          else
+            case e.keyCode
+            when Swt::SWT::ESC
+              @text.close
+            end
+          end
+        end
+      end
+
+      class FocusListener
+        def initialize(text)
+          @text = text
+        end
+
+        def focus_gained(e)
+        end
+
+        def focus_lost(e)
+          @text.close
+        end
+      end
+
+      private
+
+      def createDialogArea(parent)
+        display = ApplicationSWT.display
+        shell  = Swt::Widgets::Shell.new(parent, Swt::SWT::MODELESS)
+        layout = Swt::Layout::GridLayout.new
+        layout.marginHeight    = 0
+        layout.marginWidth     = 0
+        layout.verticalSpacing = 0
+        shell.setLayout(layout)
+
+        text = Swt::Custom::StyledText.new(shell, Swt::SWT::WRAP|Swt::SWT::V_SCROLL)
+        text.setLayoutData(Swt::Layout::GridData.new(Swt::Layout::GridData::FILL_BOTH))
+        text.set_editable false
+        new_line = "\n"
+        new_line = "\r\n" if Redcar.platform == :windows
+        text.set_text(@title + new_line + @message)
+        style1 = Swt::Custom::StyleRange.new
+        style1.start = 0
+        style1.length = @title.split(//).length
+        style1.fontStyle = Swt::SWT::BOLD
+        style1.foreground = display.getSystemColor(Swt::SWT::COLOR_WHITE)
+        text.setStyleRange(style1)
+        text.set_margins(2,2,2,2)
+        text.setBackground(Swt::Graphics::Color.new(display, 230, 240, 255))
+        text.setLineBackground(0, 1, Swt::Graphics::Color.new(display, 135, 178, 247))
+        @key_listener = KeyListener.new(self)
+        @focus_listener = FocusListener.new(self)
+        text.add_key_listener(@key_listener)
+        text.add_focus_listener(@focus_listener)
+        ApplicationSWT.register_shell(shell)
+        @text  = text
+        @shell = shell
+        shell.set_size(@width,convert_to_pixels(@height))
+      end
+
+      def convert_to_pixels(rows)
+        @text.get_line_height * rows
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/dialogs/modeless_html_dialog.rb

@@ -0,0 +1,85 @@
+
+module Redcar
+  class ApplicationSWT
+    class ModelessHtmlDialog
+      attr_reader :width, :height
+
+      DEFAULT_WIDTH  = 300
+      DEFAULT_HEIGHT = 100
+
+      def initialize(text,width=DEFAULT_WIDTH,height=DEFAULT_HEIGHT)
+        @text   = text
+        @width  = width
+        @height = height
+      end
+
+      # Close and dispose of the dialog
+      def close
+        # @browser.remove_focus_listener(@focus_listener)
+        @browser.remove_key_listener(@key_listener)
+        @browser.dispose
+        @shell.dispose
+      end
+
+      # Opens the dialog.
+      #
+      # @returns the dialog
+      def open(parent,*location)
+        createDialogArea(parent)
+        @shell.set_location(*location)
+        @shell.open
+        # getting browser focus events does not work - SWT #84532
+        # @focus_listener = ModelessDialog::FocusListener.new(self)
+        # @browser.add_focus_listener(@focus_listener)
+        # @browser.set_focus
+        self
+      end
+
+      # Set the text to be rendered by the dialog
+      def text=(text)
+        @browser.set_text text
+      end
+
+      # Set the dialog to render a given URL
+      def url=(url)
+        @browser.set_url url
+      end
+
+      # Change the dialog size
+      def set_size(width,height)
+        @width  = width
+        @height = height
+        @shell.set_size(@width, @height)
+      end
+
+      # Refresh the rendered content
+      def refresh
+        @browser.refresh
+      end
+
+      def inspect
+        "#<Redcar::ModelessHtmlDialog width=#{@width}, height=#{@height}, location=#{@shell.get_location}>"
+      end
+
+      private
+
+      def createDialogArea(parent)
+        display = ApplicationSWT.display
+        @shell  = Swt::Widgets::Shell.new(parent, Swt::SWT::MODELESS)
+        layout = Swt::Layout::GridLayout.new
+        layout.marginHeight    = 0
+        layout.marginWidth     = 0
+        layout.verticalSpacing = 0
+        @shell.set_layout(layout)
+        @browser = Swt::Browser.new(@shell, Swt::SWT::MOZILLA)
+        @browser.set_layout_data(Swt::Layout::GridData.new(Swt::Layout::GridData::FILL_BOTH))
+        @shell.set_size(@width, @height)
+
+        @key_listener   = ModelessDialog::KeyListener.new(self)
+        @browser.add_key_listener(@key_listener)
+        @browser.set_text(@text)
+        ApplicationSWT.register_shell(@shell)
+      end
+    end
+  end
+end