clevic 0.12.0 → 0.13.0.b1

data/lib/clevic/model_column.rb

@@ -1,23 +1,71 @@
 =begin rdoc
-This responds to the same methods as ActiveRecord::ConnectionAdapter::Column.
-It exists to pretend that the accessors generated by association methods
-have a column type of :association, which lets us make a sensible paste
-decision using PasteRole, and makes the field/attribute distinction possible
-in ModelIndex.
+Field metadata class. Includes information for type, reflections etc.
+
+Also, it eases the migration from AR to Sequel, which returns metadata as
+a hash instead of a class.
 =end
 class ModelColumn
-  attr_accessor :primary, :scale, :sql_type, :name, :precision, :default, :limit, :type, :meta
+  # these are from AR
+  attr_accessor :primary, :scale, :sql_type, :name, :precision, :default, :type, :meta
   
-  def initialize( name, type, meta )
+  attr_writer :limit
+  
+  # if it's not here, it's probably from Sequel, so figure it out from
+  # the db_type
+  def limit
+    unless @limit
+      db_type =~ /\((\d+)\)/
+      @limit = $1.to_i
+    end
+    @limit
+  end
+  
+  # these are from Sequel::Model.columns_hash
+  attr_accessor :ruby_default, :primary_key, :allow_null, :db_type
+  
+  # sequel::Model.reflections
+  attr_accessor :key, :eager_block, :type, :eager_grapher, :before_add, :model, :graph_join_type, :class_name, :before_remove, :eager_loader, :uses_composite_keys, :order_eager_graph, :dataset, :cartesian_product_number, :after_add, :cache, :keys, :after_remove, :extend, :graph_conditions, :name, :orig_opts, :after_load, :before_set, :after_set, :reciprocal, :reciprocal_type
+  
+  # for many_to_one targets
+  attr_accessor :primary_keys
+  
+  # TODO not sure where these are from
+  attr_accessor :order, :class, :conditions
+  
+  # For Sequel many_to_many
+  attr_accessor :left_key,
+    :left_keys,
+    :right_key,
+    :right_keys,
+    :left_primary_key,
+    :left_primary_keys,
+    :uses_left_composite_keys,
+    :uses_right_composite_keys,
+    :cartesian_product_number,
+    :join_table,
+    :left_key_alias,
+    :graph_join_table_conditions,
+    :graph_join_table_join_type
+  
+  # added by us
+  attr_accessor :association
+  def association?; association; end
+  
+  def initialize( name, hash )
+    @hash = hash
+    @hash.each do |key,value|
+      send( "#{key}=", value )
+    end
+    
+    # must be after hash so it takes precedence
     @name = name
-    @type = type
-    @meta = meta
   end
   
-  # return the underlying field name, ie "#{attribute}_id" if
-  # it's an association
-  alias_method :old_name, :name
   def name
-    @meta.name
+    @name
+  end
+  
+  def related_class
+    @related_class ||= eval class_name
   end
 end

data/lib/clevic/order_attribute.rb

@@ -1,6 +1,7 @@
 =begin rdoc
 Store the SQL order_by attributes with ascending and descending values
 =end
+# TODO don't use this anymore
 class OrderAttribute
   attr_reader :direction, :attribute
   
@@ -50,4 +51,13 @@ class OrderAttribute
     self.direction == other.direction and
     self.attribute == other.attribute
   end
+  
+  # return -1 for desc, 1 for asc
+  def to_i
+    case direction
+      when :asc; 1
+      when :desc; -1
+      else; raise "unknown direction #{direction}"
+    end
+  end
 end

data/lib/clevic/qt.rb

@@ -0,0 +1,35 @@
+=begin
+  Require this file to do Clevic in Qt
+=end
+
+require 'pathname'
+
+# require these first, so TableModel and TableView get the correct ancestors
+require 'clevic/qt/table_model.rb'
+require 'clevic/qt/table_view.rb'
+( Pathname.new( __FILE__ ).parent + 'qt' ).children.grep( /.rb$/ ).each do |child|
+  require child.to_s
+end
+
+# now require the generic parts
+require 'clevic/table_model'
+require 'clevic/table_view'
+require 'clevic.rb'
+
+module Clevic
+
+def self.tahoma
+  if @font.nil?
+    @font = 
+    begin
+      found = java.awt.GraphicsEnvironment.local_graphics_environment.all_fonts.select {|f| f.font_name == "Tahoma"}.first
+      found.deriveFont( 13.0 )
+      java.awt.Font.new( 'DialogInput', java.awt.Font::PLAIN, 13 )
+  rescue
+      java.awt.Font.new( 'DialogInput', java.awt.Font::PLAIN, 13 )
+    end
+  end
+  @font
+end
+
+end

data/lib/clevic/qt/action_builder.rb

@@ -0,0 +1,47 @@
+module Clevic
+
+module ActionBuilder
+  # Create a new separator and add a new separator.
+  def separator
+    Qt::Action.new( parent ) do |action|
+      action.separator = true
+      add_action action
+      collect_actions << action
+    end
+  end
+    
+  def create_action( &block )
+    Qt::Action.new( parent, &block )
+  end
+  
+  # TODO move this into Action, like the swing adapter
+  def create_key_sequence( sequence )
+    Qt::KeySequence.new( sequence )
+  end
+
+  # set up the code to be executed when an action is triggered,
+  def action_method_or_block( qt_action, options, &block )
+    signal_name = "triggered(#{options.has_key?( :checkable ) ? 'bool' : ''})"
+    
+    # connect the action to some code
+    if options.has_key?( :method )
+      qt_action.connect SIGNAL( signal_name ) do |active|
+        action_triggered do
+          send_args = [ options[:method], options.has_key?( :checkable ) ? active : nil ].compact
+          send( *send_args )
+        end
+      end
+    else
+      unless block.nil?
+        action_triggered do
+          qt_action.connect SIGNAL( signal_name ) do |active|
+            yield( active )
+          end
+        end
+      end
+    end
+  end
+
+end
+
+end

data/lib/clevic/qt/boolean_delegate.rb

@@ -0,0 +1,8 @@
+require 'clevic/qt/text_delegate.rb'
+
+module Clevic
+
+  # TODO alias this for now
+  BooleanDelegate = TextDelegate
+
+end

data/lib/clevic/{browser.rb → qt/browser.rb}

@@ -1,5 +1,5 @@
-require 'clevic/search_dialog.rb'
-require 'clevic/ui/browser_ui.rb'
+require 'clevic/qt/search_dialog.rb'
+require 'clevic/qt/ui/browser_ui.rb'
 require 'clevic/table_view.rb'
 require 'clevic.rb'
 
@@ -23,8 +23,8 @@ class Browser < Qt::Widget
     @layout.setup_ui( main_window )
     
     # set icon. MUST come after call to setup_ui
-    icon_path = Pathname.new( __FILE__ ).parent + "ui/icon.png"
-    raise "icon.png not found" unless icon_path.file?
+    icon_path = Pathname.new( __FILE__ ).parent + "../icons/icon.png"
+    Kernel::raise "icon.png not found" unless icon_path.file?
     main_window.window_icon = Qt::Icon.new( icon_path.realpath.to_s )
     
     # add the tables tab
@@ -52,8 +52,7 @@ class Browser < Qt::Widget
   
   # Set the main window title to the name of the database, if we can find it.
   def database_name
-    #~ FIXME #{__FILE__}:#{__LINE__}"
-    #~ table_view.model.db_options.database
+    table_view.model.entity_class.db.url rescue ''
   end  
   
   def update_menus
@@ -128,18 +127,18 @@ class Browser < Qt::Widget
     
     # Add all existing model objects as tabs, one each
     views.each do |view_class|
-      view = view_class.new
-      unless view.entity_class.table_exists?
-        puts "No table for #{view.entity_class.inspect}"
-        next
-      end
-        
       begin
+        view = view_class.new
+        unless view.entity_class.table_exists?
+          puts "No table for #{view.entity_class.inspect}"
+          next
+        end
+          
         # create the the table_view and the table_model for the entity_class
         tab = Clevic::TableView.new( view )
         
         # show status messages
-        tab.connect( SIGNAL( 'status_text(QString)' ) ) { |msg| @layout.statusbar.show_message( msg, 10000 ) }
+        tab.connect( SIGNAL( 'status_text_signal(QString)' ) ) { |msg| @layout.statusbar.show_message( msg, 10000 ) }
         
         # add a new tab
         tables_tab.add_tab( tab, translate( tab.title ) )
@@ -153,7 +152,7 @@ class Browser < Qt::Widget
         @layout.menu_model.add_action( action )
         
         # handle filter status changed, so we can provide a visual indication
-        tab.connect SIGNAL( 'filter_status(bool)' ) do |status|
+        tab.connect SIGNAL( 'filter_status_signal(bool)' ) do |status|
           # update the tab, so there's a visual indication of filtering
           filter_title = ( tab.filtered ? '| ' : '' ) + translate( tab.title )
           tables_tab.set_tab_text( tables_tab.current_index, filter_title )
@@ -171,6 +170,28 @@ class Browser < Qt::Widget
   def save_all
     tables_tab.tabs.each {|x| x.save_row( x.current_index ) }
   end
+  
+  def self.run( args )
+    # load model files
+    raise "no model definition file specified" if args.empty?
+    args.each { |arg| load_models( Pathname.new( arg ) ) }
+
+    app = Qt::Application.new( args )
+
+    # show UI
+    main_window = Qt::MainWindow.new
+    browser = Clevic::Browser.new( main_window )
+    # this must come after Clevic::Browser.new
+    main_window.show
+    # make sure any partially edited records are saved when the window is closed
+    app.connect( SIGNAL('lastWindowClosed()') ) { browser.save_all }
+    begin
+      app.exec
+    rescue
+      puts $!.message
+      puts $!.backtrace
+    end
+  end
 end
 
 end

data/lib/clevic/qt/clipboard.rb

@@ -0,0 +1,35 @@
+module Clevic
+
+  # see swing clipboard if you need a stream with io/like
+
+  # Clevic wrapper for Qt::Application::clipboard
+  class Clipboard
+    def system
+      Qt::Application::clipboard
+    end
+    
+    def text=( value )
+      system.text = value
+    end
+    
+    def text
+      system.text
+    end
+    
+    def text?
+      system.mime_data.has_text
+    end
+    
+    def html?
+      system.mime_data.has_html
+    end
+    
+    # TODO figure out why Qt never has anything other than text
+    # could be because the event loop isn't running when testing
+    # from irb
+    def html
+      system.mime_data.html
+    end
+  end
+
+end

data/lib/clevic/qt/combo_delegate.rb

@@ -0,0 +1,198 @@
+require 'clevic/qt/item_delegate.rb'
+
+module Clevic
+
+=begin rdoc
+Base class for other delegates using Combo boxes. Emit focus out signals,
+because ComboBox stupidly doesn't.
+
+Generally these will be created using a Clevic::ModelBuilder.
+=end
+class ComboDelegate < Clevic::ItemDelegate
+  def initialize( field )
+    super
+  end
+  
+  # Convert Qt:: constants from the integer value to a string value.
+  def hint_string( hint )
+    hs = String.new
+    Qt::AbstractItemDelegate.constants.each do |x|
+      hs = x if eval( "Qt::AbstractItemDelegate::#{x}.to_i" ) == hint.to_i
+    end
+    hs
+  end
+    
+  def dump_editor_state( editor )
+    if $options[:debug]
+      puts "#{self.class.name}"
+			puts "editor.completer.completion_count: #{editor.completer.completion_count}"
+			puts "editor.completer.current_completion: #{editor.completer.current_completion}"
+			puts "editor.find_text( editor.completer.current_completion ): #{editor.find_text( editor.completer.current_completion )}"
+			puts "editor.current_text: #{editor.current_text}"
+			puts "editor.count: #{editor.count}"
+			puts "editor.completer.current_row: #{editor.completer.current_row}"
+			puts "editor.item_data( editor.current_index ): #{editor.item_data( editor.current_index ).inspect}"
+      puts
+		end
+  end
+  
+  # open the combo box, just like if f4 was pressed
+  def full_edit
+    if is_combo?( @editor )
+      @editor.show_popup
+    end
+  end
+  
+  # returns true if the editor allows values outside of a predefined
+  # range, false otherwise.
+  def restricted?
+    false
+  end
+  
+  # TODO fetch this from the model definition
+  def allow_null?
+    true
+  end
+  
+  # Subclasses should override this to fill the combo box
+  # list with values.
+  def populate( editor, model_index )
+    raise "subclass responsibility"
+  end
+  
+  # return true if this delegate needs a combo, false otherwise
+  def needs_combo?
+    raise "subclass responsibility"
+  end
+
+  def is_combo?( editor )
+    editor.class == Qt::ComboBox
+  end
+  
+  # return true if this field has no data (needs_combo? is false)
+  # and is at the same time restricted (ie needs data from somewhere else)
+  def empty_set?
+    !needs_combo? && restricted?
+  end
+  
+  # the message to display if the set is empty, and
+  # the delegate is restricted to a predefined set.
+  def empty_set_message
+    raise "subclass responsibility"
+  end
+  
+  # if this delegate has an empty set, return the message, otherwise
+  # return nil.
+  def if_empty_message
+    if empty_set?
+      empty_set_message
+    end
+  end
+  
+  def populate_current( editor, model_index )
+    # add the current entry, if it isn't there already
+    # TODO add it in the correct order
+    if ( editor.find_data( model_index.display_value.to_variant ) == -1 )
+      editor.add_item( model_index.display_value, model_index.display_value.to_variant )
+    end
+  end
+
+  def add_nil_item( editor )
+    if ( editor.find_data( nil.to_variant ) == -1 )
+      editor.add_item( '', nil.to_variant )
+    end
+  end
+  
+  # Override the Qt method. Create a ComboBox widget and fill it with the possible values.
+  def createEditor( parent_widget, style_option_view_item, model_index )
+    if needs_combo?
+      @editor = Qt::ComboBox.new( parent_widget )
+      
+      # subclasses fill in the rest of the entries
+      populate( @editor, model_index )
+      
+      # add the current item, if it isn't there already
+      populate_current( @editor, model_index )
+      
+      # create a nil entry
+      add_nil_item( @editor ) if allow_null?
+      
+      # allow prefix matching from the keyboard
+      @editor.editable = true
+      
+      # don't insert if restricted
+      @editor.insert_policy = Qt::ComboBox::NoInsert if restricted?
+    else
+      @editor =
+      if restricted?
+        emit parent.status_text( empty_set_message )
+        nil
+      else
+        Qt::LineEdit.new( model_index.edit_value, parent_widget )
+      end
+    end
+    @editor
+  end
+  
+  # Override the Qt::ItemDelegate method.
+  def updateEditorGeometry( editor, style_option_view_item, model_index )
+    rect = style_option_view_item.rect
+    
+    # ask the editor for how much space it wants, and set the editor
+    # to that size when it displays in the table
+    rect.set_width( [editor.size_hint.width,rect.width].max ) if is_combo?( editor )
+    editor.set_geometry( rect )
+  end
+
+  # Override the Qt method to send data to the editor from the model.
+  def setEditorData( editor, model_index )
+    if is_combo?( editor )
+      editor.current_index = editor.find_data( model_index.attribute_value.to_variant )
+      editor.line_edit.select_all if editor.editable
+    else
+      editor.text = model_index.edit_value
+    end
+  end
+  
+  # This translates the text from the editor into something that is
+  # stored in an underlying model. Intended to be overridden by subclasses.
+  def translate_from_editor_text( editor, text )
+    index = editor.find_text( text )
+    
+    if index == -1
+      text unless restricted?
+    else
+      editor.item_data( index ).value
+    end
+  end
+  
+  # Send the data from the editor to the model. The data will
+  # be translated by translate_from_editor_text,
+  def setModelData( editor, abstract_item_model, model_index )
+    if is_combo?( editor )
+      dump_editor_state( editor )
+      value = 
+      if editor.completer.current_row == -1
+        # item doesn't exist in the list, add it if not restricted
+        editor.current_text unless restricted?
+      elsif editor.completer.completion_count == editor.count
+        # selection from drop down. if it's empty, we want a nil
+        editor.current_text
+      else
+        # there is a matching completion, so use it
+        editor.completer.current_completion
+      end
+      
+      if value != nil
+        model_index.attribute_value = translate_from_editor_text( editor, value )
+      end
+      
+    else
+      model_index.attribute_value = editor.text
+    end
+    abstract_item_model.data_changed( model_index )
+  end
+
+end
+
+end