redcar-dev 0.12.17dev

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

@@ -0,0 +1,143 @@
+
+module Redcar
+  class ApplicationSWT
+    class ModelessListDialogController
+
+      DEFAULT_HEIGHT_IN_ROWS = 4
+      DEFAULT_WIDTH  = 300
+
+      def initialize(model)
+        @model  = model
+        parent  = ApplicationSWT.display
+        @shell  = Swt::Widgets::Shell.new(parent, Swt::SWT::MODELESS)
+        @list   = Swt::Widgets::List.new(@shell, Swt::SWT::V_SCROLL | Swt::SWT::SINGLE)
+        layout  = Swt::Layout::GridLayout.new(1, true)
+        layout.marginHeight    = 0
+        layout.marginWidth     = 0
+        layout.verticalSpacing = 0
+        @shell.setLayout(layout)
+        @list.set_layout_data(Swt::Layout::GridData.new(Swt::Layout::GridData::FILL_BOTH))
+        @key_listener = KeyListener.new(@model)
+        if @model.close_on_lost_focus
+          @focus_listener = FocusListener.new(@model)
+          @list.add_focus_listener(@focus_listener)
+        end
+        @list.add_key_listener(@key_listener)
+        @shell.pack
+        @shell.set_size DEFAULT_WIDTH, convert_to_pixels(DEFAULT_HEIGHT_IN_ROWS)
+        attach_listeners
+      end
+
+      def set_size(width,height)
+        @shell.set_size width, convert_to_pixels(height)
+      end
+
+      def convert_to_pixels(rows)
+        @list.get_item_height * rows
+      end
+
+      def set_location(offset)
+        x, y = Swt::GraphicsUtils.below_pixel_location_at_offset(offset)
+        @shell.set_location(x,y) if x and y
+      end
+
+      # Item at a particular index
+      def select(index)
+        items = @list.get_items
+        if items.size > index and index >= 0
+          item = items[index]
+          item = item[2,item.length] if item =~ /^(\d)\s.*/
+        end
+        item
+      end
+
+      # The currently selected value
+      def selection_value
+        @list.get_selection.first
+      end
+
+      # Zero-based selected index
+      def selection_index
+        @list.get_selection_index
+      end
+
+      # Close the dialog
+      def close
+        @list.remove_key_listener(@key_listener)
+        @list.remove_focus_listener(@focus_listener) if @focus_listener
+        @shell.dispose
+      end
+
+      # Open the dialog
+      def open
+        ApplicationSWT.register_shell(@shell)
+        @shell.open
+      end
+
+      # Update the list items
+      #
+      # @param [Array<String>] items
+      def update_list(items)
+        (0..9).each do |i|
+          items[i] = "#{i+1} #{items[i]}" if items.size > i
+        end
+        @list.set_items items
+      end
+
+      def attach_listeners
+        @model.add_listener(:open, &method(:open))
+        @model.add_listener(:close, &method(:close))
+        @model.add_listener(:set_location, &method(:set_location))
+        @model.add_listener(:set_size, &method(:set_size))
+        @model.add_listener(:update_list, &method(:update_list))
+      end
+
+      class KeyListener
+
+        def initialize(model)
+          @model = model
+        end
+
+        def key_pressed(e)
+          case e.keyCode
+          when Swt::SWT::CR, Swt::SWT::LF
+            index = @model.selection_index
+            @model.selected(index)
+          when Swt::SWT::ARROW_RIGHT
+            items = @model.next_list
+            @model.update_list(items) if items
+          when Swt::SWT::ARROW_LEFT
+            items = @model.previous_list
+            @model.update_list(items) if items
+          when Swt::SWT::ESC
+            @model.close
+          else
+            (0..9).each do |i|
+              if e.keyCode == Swt::SWT.const_get("KEYPAD_#{i}") or
+                e.keyCode == i + 48
+                @model.selected(i - 1)
+                break
+              end
+            end
+          end
+        end
+
+        def key_released(e)
+        end
+      end
+
+      class FocusListener
+        def initialize(model)
+          @model = model
+        end
+
+        def focus_gained(e)
+        end
+
+        def focus_lost(e)
+          @model.close
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,24 @@
+module Redcar
+  class ApplicationSWT
+    module Dialogs
+      # A type of JFace Dialog with no button bar.
+      class NoButtonsDialog < JFace::Dialogs::Dialog
+      
+        def createContents(parent)
+          composite = Swt::Widgets::Composite.new(parent, 0)
+          layout = Swt::Layout::GridLayout.new
+          layout.marginHeight = 0
+          layout.marginWidth = 0
+          layout.verticalSpacing = 0
+          composite.setLayout(layout)
+          composite.setLayoutData(Swt::Layout::GridData.new(Swt::Layout::GridData::FILL_BOTH))
+          JFace::Dialogs::Dialog.applyDialogFont(composite)
+          initializeDialogUnits(composite)
+          dialogArea = createDialogArea(composite)
+          
+          composite
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,118 @@
+
+module Redcar
+  class ApplicationSWT
+    module Dialogs
+      class TextAndFileDialog < JFace::Dialogs::Dialog
+
+        CONTINUE_BUTTON = "Continue"
+        BROWSE_BUTTON = "Browse"
+        # TODO: refactor this mess!
+        def set_text(title,message_1,message_2)
+          @title = title
+          @message_1 = message_1
+          @message_2 = message_2
+        end
+
+        def result
+          @result
+        end
+
+        def set_result(result)
+          @result = result
+        end
+
+        def createContents(parent)
+          composite = Swt::Widgets::Composite.new(parent, Swt::SWT::NONE)
+          composite.setLayout(Swt::Layout::FormLayout.new)
+          composite.setSize(480,200)
+          composite.shell.setText(@title)
+
+          target_label = Swt::Widgets::Label.new(composite, Swt::SWT::NONE)
+          target_labelLData = Swt::Layout::FormData.new
+          target_labelLData.left =  Swt::Layout::FormAttachment.new(0, 1000, 12)
+          target_labelLData.top = Swt::Layout::FormAttachment.new(0, 1000, 78)
+          target_labelLData.width = 200
+          target_labelLData.height = 17
+          target_label.setLayoutData(target_labelLData)
+          target_label.setText(@message_2)
+
+          dialog_message = Swt::Widgets::Label.new(composite, Swt::SWT::NONE);
+          dialog_messageLData = Swt::Layout::FormData.new
+          dialog_messageLData.left =  Swt::Layout::FormAttachment.new(0, 1000, 12)
+          dialog_messageLData.top =  Swt::Layout::FormAttachment.new(0, 1000, 6)
+          dialog_messageLData.width = 200
+          dialog_messageLData.height = 17
+          dialog_message.setLayoutData(dialog_messageLData)
+          dialog_message.setText(@message_1)
+
+          continue_button = Swt::Widgets::Button.new(composite, Swt::SWT::PUSH | Swt::SWT::CENTER)
+          continueLData = Swt::Layout::FormData.new
+          continueLData.left =  Swt::Layout::FormAttachment.new(0, 1000, 146)
+          continueLData.top =  Swt::Layout::FormAttachment.new(0, 1000, 141)
+          continueLData.width = 70
+          continueLData.height = 30
+          continue_button.setLayoutData(continueLData)
+          continue_button.setText(CONTINUE_BUTTON)
+
+          browse_files = Swt::Widgets::Button.new(composite, Swt::SWT::PUSH | Swt::SWT::CENTER)
+          browse_files.setText(BROWSE_BUTTON)
+          browse_filesLData = Swt::Layout::FormData.new
+          browse_filesLData.width = 70
+          browse_filesLData.height = 30
+          browse_filesLData.left =  Swt::Layout::FormAttachment.new(0, 1000, 310)
+          browse_filesLData.top =  Swt::Layout::FormAttachment.new(0, 1000, 110)
+          browse_files.setLayoutData(browse_filesLData)
+
+          target_dirLData = Swt::Layout::FormData.new
+          target_dirLData.left =  Swt::Layout::FormAttachment.new(0, 1000, 12)
+          target_dirLData.top =  Swt::Layout::FormAttachment.new(0, 1000, 110)
+          target_dirLData.width = 300
+          target_dirLData.height = 22
+          target_dir = Swt::Widgets::Text.new(composite, Swt::SWT::NONE)
+          target_dir.setLayoutData(target_dirLData)
+
+          repo_urlLData = Swt::Layout::FormData.new
+          repo_urlLData.left =  Swt::Layout::FormAttachment.new(0, 1000, 12)
+          repo_urlLData.top =  Swt::Layout::FormAttachment.new(0, 1000, 38)
+          repo_urlLData.width = 300
+          repo_urlLData.height = 22
+          repo_url = Swt::Widgets::Text.new(composite, Swt::SWT::NONE)
+          repo_url.setLayoutData(repo_urlLData)
+
+          listener = SelectionListener.new(self,composite,repo_url,target_dir)
+          browse_files.addListener(Swt::SWT::Selection, listener)
+          continue_button.addListener(Swt::SWT::Selection, listener)
+
+          composite
+        end
+
+        def open
+          super
+          @result
+        end
+
+        class SelectionListener
+          def initialize(parent,dialog,repo_url,target_dir)
+            @dialog = dialog.shell
+            @repo_url = repo_url
+            @target_dir = target_dir
+            @parent = parent
+          end
+
+          def handleEvent(event)
+            if (event.widget.getText == BROWSE_BUTTON)
+              target_dir_path = Application::Dialog.open_directory({})
+              @target_dir.setText(target_dir_path) if target_dir_path
+            elsif (event.widget.getText == CONTINUE_BUTTON)
+              @parent.set_result({
+                :text => @repo_url.text,
+                :directory => @target_dir.text
+              })
+              @dialog.close
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/gradient.rb

@@ -0,0 +1,61 @@
+module Redcar
+  class ApplicationSWT
+    class Gradient
+      # Expects a hash with gradient color locations from 1-100 as keys
+      # and 6-character hex RGB strings as values
+      def initialize(color_stops_or_solid_color)
+        if color_stops_or_solid_color.is_a?(String)
+          color_stops = {100 => color_stops_or_solid_color}
+        else
+          color_stops = color_stops_or_solid_color
+        end
+          
+        raise ArgumentError, "Color stops must be in the range 0-100" if color_stops.any? { |position, color| (position < 0) || (position > 100) }
+        @color_stops = color_stops
+        make_start_and_end_stops_explicit!
+      end
+      
+      def to_hash
+        @color_stops
+      end
+  
+      def swt_stops
+        stops_with_implicit_zero = @color_stops.keys.sort - [0]
+        stops_with_implicit_zero.to_java(:int)
+      end
+  
+      def swt_colors
+        hex_rgb_strings = @color_stops.sort.map { |position, color| color }
+        swt_colors = hex_rgb_strings.map do |hex_rgb_string|
+          if hex_rgb_string =~ /^ (\W+)? ([0-9A-Fa-f]{3}{1,2}) (\W+)? $/x
+            hex_string = Regexp.last_match.captures[1]
+            if(hex_string.size == 3) # Shorthand
+              hex_string = hex_string.split('').map{ |hex_string| hex_string * 2 }.join('')
+            end
+            
+            color_components = hex_string.scan(/.{2}/)          
+            int_components = color_components.map { |component| component.to_i(16) }
+            Swt::Graphics::Color.new(ApplicationSWT.display, *int_components[0...3])
+            
+          elsif Swt::SWT.const_defined?(const_name = "COLOR_#{ hex_rgb_string.upcase }")
+            swt_const = Swt::SWT.const_get(const_name)
+            ApplicationSWT.display.get_system_color(swt_const)
+              
+          else
+            raise "Colors must be RGB hex strings or SWT color names"
+          end
+        end
+        
+        swt_colors.to_java(Swt::Graphics::Color)
+      end
+      
+      private
+
+      def make_start_and_end_stops_explicit!
+        @color_stops[0] ||= @color_stops[@color_stops.keys.min]
+        @color_stops[100] ||= @color_stops[@color_stops.keys.max]
+      end
+      
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/html_tab.rb

@@ -0,0 +1,79 @@
+
+module Redcar
+  class ApplicationSWT
+    class HtmlTab < Tab
+      
+      attr_reader :browser
+      
+      def initialize(model, notebook)
+        super
+        @model.add_listener(:changed_title) { |title| @item.text = title }
+      end
+      
+      def create_tab_widget
+        Swt::Graphics::Device.DEBUG = true
+        if Redcar.platform == :windows
+          java.lang.System.setProperty('org.eclipse.swt.browser.XULRunnerPath',
+                                      HtmlTab.windows_xulrunner_path.gsub("/", "\\"))
+          @browser = Swt::Browser.new(notebook.tab_folder, Swt::SWT::MOZILLA)
+        else
+          @browser = Swt::Browser.new(notebook.tab_folder, Swt::SWT::NONE)
+        end
+        @widget = @browser
+        @item.control = @widget
+        add_listeners
+      end
+      
+      # Focuses the Browser tab within the CTabFolder, and gives the keyboard
+      # focus to the EditViewSWT.
+      def focus
+        super
+        browser.set_focus
+      end
+      
+      # Close the HtmlTab, disposing of any resources along the way.
+      def close
+        @browser.remove_location_listener(@location_listener)
+        @browser.dispose
+        @location_listener = nil
+        super
+      end
+      
+      def go_to_location(url)
+        @browser.set_url(url)
+      end
+      
+      class LocationListener
+        def initialize(html_tab)
+          @html_tab = html_tab
+        end
+        
+        def changing(event)
+          uri = URI.parse(event.location)
+          if uri.path =~ %r{/controller/([^/]*)}
+            event.doit = false
+            params = uri.query ? CGI.parse(uri.query) : nil
+            @html_tab.controller_action($1, params)
+          end
+        end
+
+        def changed(*_); end
+      end
+      
+      def add_listeners
+        @location_listener = LocationListener.new(@model)
+        @browser.add_location_listener(@location_listener)
+      end
+      
+      def self.windows_xulrunner_path
+        begin
+          require 'redcar-xulrunner-win'
+        rescue LoadError => e
+          raise "Missing xulrunner browser widget, install gem redcar-xulrunner-win."
+        end
+        Redcar::XulrunnerWin.ensure_unpacked
+        Redcar::XulrunnerWin.path
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/icon.rb

@@ -0,0 +1,35 @@
+
+module Redcar
+  class ApplicationSWT
+    module Icon
+      def self.swt_image(icon)
+        case icon
+        when :directory
+          dir_image
+        when :file
+          file_image
+        when Symbol
+          image(File.expand_path(File.join(Redcar.icons_directory, icon.to_s.gsub(/_/, "-") + ".png")))
+        when String
+          image(icon)
+        end
+      end
+      
+      def self.image(path)
+        cached_images[path] ||= Swt::Graphics::Image.new(ApplicationSWT.display, path)
+      end
+      
+      def self.cached_images
+        @cached_images ||= {}
+      end
+      
+      def self.dir_image
+        swt_image(:darwin_folder)
+      end
+      
+      def self.file_image
+        swt_image(:darwin_file)
+      end
+    end
+  end
+end