redcar 0.6.1 → 0.7

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

@@ -0,0 +1,37 @@
+
+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 + ".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
+        path = File.join(Redcar.root, %w(plugins application icons darwin-folder.png))
+        image(path)
+      end
+      
+      def self.file_image
+        path = File.join(Redcar.root, %w(plugins application icons darwin-file.png))
+        image(path)
+      end
+    end
+  end
+end

data/plugins/application_swt/lib/application_swt/menu.rb

@@ -60,12 +60,10 @@ module Redcar
       end
 
       def add_entries_to_menu(menu, menu_model)
-
         menu_model.each do |entry|
           if entry.is_a?(Redcar::Menu::LazyMenu)
             menu_header = Swt::Widgets::MenuItem.new(menu, Swt::SWT::CASCADE)
             menu_header.text = entry.text
-            #new_menu = Swt::Widgets::Menu.new(@window.shell, Swt::SWT::DROP_DOWN)
             new_menu = Swt::Widgets::Menu.new(menu)
             menu_header.menu = new_menu
             menu_header.add_arm_listener do
@@ -75,10 +73,17 @@ module Redcar
           elsif entry.is_a?(Redcar::Menu)
             menu_header = Swt::Widgets::MenuItem.new(menu, Swt::SWT::CASCADE)
             menu_header.text = entry.text
-            #new_menu = Swt::Widgets::Menu.new(@window.shell, Swt::SWT::DROP_DOWN)
             new_menu = Swt::Widgets::Menu.new(menu)
             menu_header.menu = new_menu
+            menu_header.enabled = (entry.length > 0)
             add_entries_to_menu(new_menu, entry)
+            menu_header.add_arm_listener do
+              entry.entries.zip(new_menu.get_items) do |sub_entry, swt_item|
+                if sub_entry.lazy_text?
+                  swt_item.text = sub_entry.text
+                end
+              end
+            end
           elsif entry.is_a?(Redcar::Menu::Item::Separator)
             item = Swt::Widgets::MenuItem.new(menu, Swt::SWT::SEPARATOR)
           elsif entry.is_a?(Redcar::Menu::Item)

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

@@ -19,8 +19,11 @@ module Redcar
           @item.dispose
         end        
         @item = Swt::Custom::CTabItem.new(notebook.tab_folder, Swt::SWT::CLOSE, position)
-        @icon = Swt::Graphics::Image.new(ApplicationSWT.display, FILE_ICON)
-        @item.image = @icon
+        set_icon(@model.icon)
+      end
+      
+      def set_icon(icon)
+        @item.image = @icon = ApplicationSWT::Icon.swt_image(icon)
       end
       
       def create_tab_widget
@@ -66,6 +69,7 @@ module Redcar
         @model.add_listener(:focus, &method(:focus))
         @model.add_listener(:close, &method(:close))
         @model.add_listener(:moved, &method(:move_tab_widget_to_position))
+        @model.add_listener(:changed_icon, &method(:set_icon))
       end
       
       def focus
@@ -74,7 +78,6 @@ module Redcar
       
       def close
         @item.dispose
-        @icon.dispose
       end
     end
   end

data/plugins/application_swt/lib/application_swt/treebook.rb

@@ -1,13 +1,17 @@
+require 'swt/vtab_folder'
+require 'swt/vtab_item'
+
 module Redcar
   class ApplicationSWT
     class Treebook
-      
+      attr_reader :tab_folder
+
       def initialize(window, model)
         @window, @model = window, model
         add_listeners
         create_tree_view
       end
-      
+
       def add_listeners
         @model.add_listener(:tree_added,   &method(:tree_added))
         @model.add_listener(:tree_removed, &method(:tree_removed))
@@ -15,46 +19,40 @@ module Redcar
       end
 
       def tree_added(tree)
-        tree_view = TreeViewSWT.new(@tree_composite, tree)
-        tree.controller = tree_view
-        title = tree.tree_mirror.title
-        @tree_combo.add(title)
-        @tree_combo.select(@tree_combo.get_items.to_a.index(title))
-        @tree_layout.topControl = tree_view.control
-        @tree_composite.layout
+        i = Swt::Widgets::VTabItem.new(@tab_folder, Swt::SWT::NULL)
+        i.text = tree.tree_mirror.title
+        i.control = TreeViewSWT.new(@tab_folder, tree)
+        tree.controller = i.control
+        @tab_folder.silent_selection(i)
       end
-      
+
       def tree_removed(tree)
         tree.controller.close
-        @tree_combo.remove(tree.tree_mirror.title)
+        @tab_folder.remove_item(@tab_folder.get_item(tree.tree_mirror.title))
       end
-      
+
       def tree_focussed(tree)
-        @tree_layout.topControl = tree.controller.control
-        @tree_composite.layout
-        @tree_combo.select(@tree_combo.get_items.to_a.index(tree.tree_mirror.title))
+        item = @tab_folder.get_item(tree.tree_mirror.title)
+        @tab_folder.silent_selection(item)
       end
 
       def create_tree_view
-        @tree_composite = Swt::Widgets::Composite.new(@window.tree_sash, Swt::SWT::NONE)
-        @tree_layout = Swt::Custom::StackLayout.new
-        @tree_composite.setLayout(@tree_layout)
-        
-        @tree_combo = Swt::Widgets::Combo.new(@window.left_composite, Swt::SWT::READ_ONLY)
-        grid_data = Swt::Layout::GridData.new
-        grid_data.grabExcessHorizontalSpace = true
-        grid_data.horizontalAlignment = Swt::Layout::GridData::FILL
-        grid_data.grabExcessVerticalSpace = false
-      	@tree_combo.setLayoutData(grid_data)
-        @tree_combo.add_selection_listener do
-          selected_tree = @model.trees.detect {|t| t.tree_mirror.title == @tree_combo.text}
-          @model.focus_tree(selected_tree)
+        @tab_folder = Swt::Widgets::VTabFolder.new(@window.tree_sash, Swt::SWT::NONE)
+        colors = [ Swt::Graphics::Color.new(display, 230, 240, 255),
+          Swt::Graphics::Color.new(display, 170, 199, 246),
+          Swt::Graphics::Color.new(display, 135, 178, 247) ]
+        percents = [60, 85]
+        @tab_folder.set_selection_background(colors, percents, true)
+
+        @tab_folder.add_selection_listener do |event|
+          tab_item = event.item
+          tree_view_swt = tab_item.control
+          @model.focus_tree(tree_view_swt.model)
         end
-        
-        @tree_composite.layout
+
+        @tab_folder.layout
         @window.left_composite.layout
       end
-      
     end
   end
 end

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

@@ -0,0 +1,170 @@
+module Swt
+  class GraphicsUtils
+    import org.eclipse.swt.SWT
+    import org.eclipse.swt.widgets.Display
+    import org.eclipse.swt.graphics.FontMetrics
+    import org.eclipse.swt.graphics.GC
+    import org.eclipse.swt.graphics.Image
+    import org.eclipse.swt.graphics.ImageData
+    import org.eclipse.swt.graphics.Point
+    import org.eclipse.swt.graphics.Rectangle
+
+    ##
+    # Draws text vertically (rotates plus or minus 90 degrees). Uses the current
+    # font, color, and background.
+    # <dl>
+    # <dt><b>Styles: </b></dt>
+    # <dd>UP, DOWN</dd>
+    # </dl>
+    #
+    # @param string the text to draw
+    # @param x the x coordinate of the top left corner of the drawing rectangle
+    # @param y the y coordinate of the top left corner of the drawing rectangle
+    # @param gc the GC on which to draw the text
+    # @param style the style (SWT.UP or SWT.DOWN)
+    #          <p>
+    #          Note: Only one of the style UP or DOWN may be specified.
+    #          </p>
+    #
+    def self.draw_vertical_text(string, x, y, gc, style)
+      display = Display.current
+
+      fm = gc.font_metrics
+      pt = gc.text_extent(string)
+
+      string_image = Image.new(display, pt.x, pt.y)
+      string_gc = GC.new(string_image)
+
+      string_gc.foreground = gc.foreground
+      string_gc.background = gc.background
+      string_gc.font = gc.font
+      string_gc.draw_text(string, 0, 0)
+
+      draw_vertical_image(string_image, x, y, gc, style)
+
+      string_gc.dispose
+      string_image.dispose
+    end
+
+    ##
+    # Draws an image vertically (rotates plus or minus 90 degrees)
+    # <dl>
+    # <dt><b>Styles: </b></dt>
+    # <dd>UP, DOWN</dd>
+    # </dl>
+    #
+    # @param image the image to draw
+    # @param x the x coordinate of the top left corner of the drawing rectangle
+    # @param y the y coordinate of the top left corner of the drawing rectangle
+    # @param gc the GC on which to draw the image
+    # @param style the style (SWT.UP or SWT.DOWN)
+    #          <p>
+    #          Note: Only one of the style UP or DOWN may be specified.
+    #          </p>
+    #
+    def self.draw_vertical_image(image, x, y, gc, style)
+      display = Display.current
+
+      sd = image.image_data
+      dd = ImageData.new(sd.height, sd.width, sd.depth, sd.palette)
+      up = (style == SWT::UP)
+
+      # Transform all pixels
+      sd.width.times do |sx|
+        sd.height.times do |sy|
+          dx = up ? sy : sd.height - sy - 1
+          dy = up ? sd.width - sx - 1 : sx
+          dd.set_pixel(dx, dy, sd.get_pixel(sx, sy))
+        end
+      end
+
+      vertical = Image.new(display, dd)
+      gc.draw_image(vertical, x, y)
+      vertical.dispose
+    end
+
+    ##
+    # Creates an image containing the specified text, rotated either plus or minus
+    # 90 degrees.
+    # <dl>
+    # <dt><b>Styles: </b></dt>
+    # <dd>UP, DOWN</dd>
+    # </dl>
+    #
+    # @param text the text to rotate
+    # @param font the font to use
+    # @param foreground the color or pattern for the text
+    # @param background the background color or pattern
+    # @param style direction to rotate (up or down)
+    # @param optional options hash for padding
+    # @return Image
+    #         <p>
+    #         Note: Only one of the style UP or DOWN may be specified.
+    #         </p>
+    #
+    def self.create_rotated_text(text, font, foreground, background, style, options = {})
+      options = {:padding_x => 16, :padding_y => 4}.merge(options)
+
+      display = Display.current
+
+      gc = GC.new(display)
+      gc.font = font
+
+      fm = gc.font_metrics
+      pt = gc.text_extent(text)
+      extent = Rectangle.new(0, 0, pt.x + options[:padding_x], pt.y + options[:padding_y])
+      gc.dispose
+
+      string_image = Image.new(display, extent.width, extent.height)
+
+      gc = GC.new(string_image)
+
+      gc.font = font
+      gc.foreground = foreground
+      gc.background = background
+
+      # Do customization
+      yield(gc, extent) if block_given?
+
+      gc.draw_text(text, options[:padding_x] / 2, options[:padding_y] / 2, true)
+
+      image = create_rotated_image(string_image, style)
+      gc.dispose
+      string_image.dispose
+      return image
+    end
+
+    ##
+    # Creates a rotated image (plus or minus 90 degrees)
+    # <dl>
+    # <dt><b>Styles: </b></dt>
+    # <dd>UP, DOWN</dd>
+    # </dl>
+    #
+    # @param image the image to rotate
+    # @param style direction to rotate (up or down)
+    # @return Image
+    #         <p>
+    #         Note: Only one of the style UP or DOWN may be specified.
+    #         </p>
+    #
+    def self.create_rotated_image(image, style)
+      display = Display.current
+
+      sd = image.image_data
+      dd = ImageData.new(sd.height, sd.width, sd.depth, sd.palette)
+
+      up = (style == SWT::UP)
+
+      sd.width.times do |sx|
+        sd.height.times do |sy|
+          dx = up ? sy : sd.height - sy - 1
+          dy = up ? sd.width - sx - 1 : sx
+          dd.set_pixel(dx, dy, sd.get_pixel(sx, sy))
+        end
+      end
+
+      return Image.new(display, dd)
+    end
+  end
+end

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

@@ -0,0 +1,125 @@
+module Swt
+  module Widgets
+    class VTabFolder < Swt::Widgets::Composite
+      attr_accessor :tab_area, :content_area
+      attr_reader :selection_color_options, :font, :items
+
+      SelectionEvent = Struct.new("Event", :item, :doit)
+
+      def initialize(parent, style)
+        super(parent, style | Swt::SWT::BORDER)
+        self.layout = Swt::Layout::GridLayout.new(2, false).tap do |l|
+          l.horizontalSpacing = -1
+          l.verticalSpacing = -1
+          l.marginHeight = -1
+          l.marginWidth = -1
+        end
+
+        @items = []
+        @selection_listeners = []
+        @font = Swt::Widgets::Display.current.system_font
+
+        @tab_area = Swt::Widgets::Composite.new(self, Swt::SWT::NONE).tap do |t|
+          t.layout_data = Swt::Layout::GridData.new(Swt::Layout::GridData::FILL_VERTICAL | Swt::Layout::GridData::GRAB_VERTICAL)
+          t.layout = Swt::Layout::RowLayout.new.tap do |l|
+            l.type         = Swt::SWT::VERTICAL
+            l.spacing      = -1
+            l.wrap         = false
+            l.marginLeft   = 0
+            l.marginRight  = 0
+            l.marginTop    = 0
+            l.marginBottom = 0
+          end
+        end
+      end
+
+      def set_selection_background(colors, percents, vertical = true)
+        @selection_color_options = { :colors => colors,
+          :percents => percents.collect { |i| i / 100.0 },
+          :vertical => vertical }
+      end
+
+      def add_item(tab)
+        @items << tab
+        tab.draw_label(@tab_area)
+        tab.font = @font
+        tab.active = true if @items.size == 1
+        layout
+      end
+
+      def remove_item(tab)
+        @items.delete(tab)
+        tab.dispose
+        selection = @items.first if tab.active?
+        layout
+      end
+
+      def get_item(selector)
+        return @items[selector] if selector.respond_to? :to_int
+        return @items.detect { |i| i.text == selector } if selector.respond_to? :to_str
+        raise NotImplementedError, "Getting via Point not implemented"
+      end
+
+      def item_count
+        @items.size
+      end
+
+      def selection
+        @items.detect { |x| x.active? }
+      end
+
+      def selection=(tab)
+        return if tab.nil?
+        evt = SelectionEvent.new.tap do |e|
+          e.item = tab
+          e.doit = true
+        end
+        @selection_listeners.each do |l|
+          if l.respond_to? :call
+            l[evt]
+          else
+            l.widgetSelected(evt)
+          end
+        end
+        if evt.doit
+          silent_selection(tab)
+        end
+      end
+
+      def silent_selection(tab)
+        return if tab.nil?
+        selection.active = false if selection
+        if tab.respond_to? :to_int
+          @items[tab].active = true
+        else
+          tab.active = true
+        end
+        layout
+        @tab_area.layout
+      end
+
+      def selection_index
+        index_of(selection)
+      end
+
+      def index_of(tab)
+        @items.index(tab)
+      end
+
+      def show_item(tab)
+        selection = tab
+      end
+
+      def add_selection_listener(listener = nil)
+        return @selection_listeners << listener if listener
+        raise ArgumentError, "Expected a listener or a block" unless block_given?
+        @selection_listeners << Proc.new
+      end
+
+      def font= swt_font
+        @font = swt_font
+        @items.each { |tab| tab.font = swt_font }
+      end
+    end
+  end
+end