weft-qda 0.9.6

data/lib/weft/wxgui/category.xpm

@@ -0,0 +1,26 @@
+/* XPM */
+static char *category[] = {
+/* columns rows colors chars-per-pixel */
+"16 16 4 1",
+"  c black",
+". c gray60",
+"X c gray100",
+"o c None",
+/* pixels */
+"oooooooooooooooo",
+"oo     ooooooooo",
+"o XXXXX oooooooo",
+"o XXXXX oooooooo",
+"o XXXXX oooooooo",
+"oo     ooooooooo",
+"oooo.ooooooooooo",
+"oooo.ooooooooooo",
+"oooo.ooo      oo",
+"oooo.ooo XXXX oo",
+"oooo....      oo",
+"oooo.ooooooooooo",
+"oooo.ooo      oo",
+"oooo.ooo XXXX oo",
+"oooo....      oo",
+"oooooooooooooooo"
+};

data/lib/weft/wxgui/dialogs.rb

@@ -0,0 +1,128 @@
+module QDA::GUI
+  class DocumentImportProgressTracker < QDA::Indexer
+    PT_STYLE = Wx::PD_APP_MODAL|Wx::PD_AUTO_HIDE
+    def initialize(parent, title)
+      super()
+      @parent = parent
+      @doctitle = title
+    end
+
+    def prepare(content)
+      @progbar = Wx::ProgressDialog.new('Importing document',
+                                         "Reading document #{@doctitle}",
+                                        content.count($/),
+                                        @parent, PT_STYLE)
+      @progress = 0
+    end
+
+    def feed(line)
+      if ! @progbar.update(@progress += 1)
+        raise "Aborted document import"
+      end
+      super
+    end
+
+    def terminate()
+      @progbar.destroy()
+    end
+  end
+
+  class WordIndexSaveProgressTracker < QDA::Indexer
+    attr_reader :progbar
+    PT_STYLE = Wx::PD_APP_MODAL|Wx::PD_AUTO_HIDE
+    def initialize(count, parent, title)
+      super()
+      @progbar = Wx::ProgressDialog.new( 'Importing document',
+                                         "Saving indexes for #{title}",
+                                         count, parent, PT_STYLE)
+      @progress = 0
+    end
+
+    def next()
+      if ! @progbar.update(@progress += 1)
+        raise "Aborted document import"
+      end
+    end
+
+    def terminate()
+      @progbar.destroy()
+    end
+  end
+
+  class SearchDialog < Wx::Dialog
+    def initialize(parent)
+      super( parent, -1, 'Search', DEF_POS, Wx::Size.new(500,175) )
+
+      sizer = Wx::FlexGridSizer.new(2, 5)
+
+      # search text entry
+      sizer.add(Wx::StaticText.new(self, -1, 'Search for'), 
+                0, Wx::ALIGN_CENTRE_VERTICAL|Wx::ALIGN_LEFT|Wx::ALL, 4)
+      @term  = Wx::TextCtrl.new(self, -1, '', DEF_POS, DEF_SIZE,
+                                Wx::TE_PROCESS_ENTER)
+      evt_text_enter(@term.get_id) { | e | on_search(e) }
+      sizer.add(@term, 2, Wx::GROW|Wx::ALL|Wx::ADJUST_MINSIZE, 4)
+
+      # how much context to return
+      sizer.add(Wx::StaticText.new(self, -1, 'Expand results by '), 
+                0, Wx::ALIGN_CENTRE_VERTICAL|Wx::ALIGN_LEFT|Wx::ALL, 4)
+      mini_sizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+
+      @expand = Wx::SpinCtrl.new( self, -1, "")
+      @expand.set_range(0, 1000)
+      @expand.set_value(100)
+      mini_sizer.add(@expand, 0, Wx::ALL, 4)
+      mini_sizer.add(Wx::StaticText.new(self, -1, 'characters'),
+                     0, Wx::ALL, 6)
+      sizer.add(mini_sizer, 0)
+
+      # options
+      sizer.add(Wx::StaticText.new(self, -1, ''), 0, Wx::ALIGN_CENTRE, 4)
+      @case_sensi  = Wx::CheckBox.new(self, -1, "Case sensitive?")
+      sizer.add(@case_sensi, 0, Wx::ALL, 4)
+
+      sizer.add(Wx::StaticText.new(self, -1, ''), 0, Wx::ALIGN_CENTRE, 4)
+      @whole_word  = Wx::CheckBox.new(self, -1, "Whole words only?")
+      sizer.add(@whole_word, 0, Wx::ALL, 4)
+
+      # buttons
+      button = Wx::Button.new(self, -1, 'Search')
+      button.evt_button(button.get_id) { | e | on_search(e) }
+      sizer.add(button, 0, Wx::ALL, 4)
+
+      button = Wx::Button.new(self, -1, 'Cancel')
+      button.evt_button(button.get_id) { | e | end_modal(Wx::ID_CANCEL) }
+      sizer.add(button, 0, Wx::ALL|Wx::ALIGN_RIGHT, 4)
+
+      self.set_sizer(sizer)
+      # sizer.set_size_hints(self)
+      sizer.fit(self)
+    end
+
+    def on_search(e)
+      if term =~ /^\s*$/
+        Wx::MessageDialog.new(nil, Lang::NO_SEARCH_TERM_SPECIFIED,
+                          Lang::NO_SEARCH_TERM_SPECIFIED, 
+                          Wx::OK|Wx::ICON_ERROR).show_modal()
+        return false
+      end
+      end_modal(Wx::ID_OK)
+    end
+
+    def term
+      @term.get_value
+    end
+
+    def case_sensitive
+      @case_sensi.is_checked 
+    end
+
+    def whole_word
+      @whole_word.is_checked
+    end
+    
+    def expand
+      @expand.get_value().to_i
+    end
+  end
+end

data/lib/weft/wxgui/document.xpm

@@ -0,0 +1,25 @@
+/* XPM */
+static char *document[] = {
+/* columns rows colors chars-per-pixel */
+"16 16 3 1",
+"  c black",
+". c gray100",
+"X c None",
+/* pixels */
+"XXXXXXXXXXXXXXXX",
+"XX         XXXXX",
+"XX ........ XXXX",
+"XX ......... XXX",
+"XX .      ... XX",
+"XX .......... XX",
+"XX .        . XX",
+"XX .......... XX",
+"XX .        . XX",
+"XX .......... XX",
+"XX .        . XX",
+"XX .......... XX",
+"XX .        . XX",
+"XX .......... XX",
+"XX            XX",
+"XXXXXXXXXXXXXXXX"
+};

data/lib/weft/wxgui/error_handler.rb

@@ -0,0 +1,52 @@
+module QDA::GUI
+class ErrorHandlerApp < Wx::App
+  attr_accessor :err
+
+  def on_init()
+    frame = Wx::Frame.new(nil, -1, 'Text')
+
+    panel = Wx::Panel.new(frame)
+    sizer = Wx::BoxSizer.new(Wx::VERTICAL)
+
+    @text_box = Wx::TextCtrl.new(panel, -1, @err.to_s,
+                                Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, 
+                                Wx::TE_MULTILINE|Wx::TE_RICH|Wx::TE_NOHIDESEL)
+    butt_panel = Wx::Panel.new(panel)
+    bott_sizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+
+    button = Wx::Button.new(butt_panel, -1, 'Save')
+    button.evt_button(button.get_id) { | e | on_font(e) }
+    bott_sizer.add(button, 1, Wx::ALL, 4)
+
+    button = Wx::Button.new(butt_panel, -1, 'Send')
+    button.evt_button(button.get_id) { | e | on_bold(e) }
+    bott_sizer.add(button, 1, Wx::ALL, 4)
+
+    button = Wx::Button.new(butt_panel, -1, 'Close')
+    button.evt_button(button.get_id) { | e | on_colour(e) }
+    bott_sizer.add(button, 1, Wx::ALL, 4)
+
+    butt_panel.set_sizer(bott_sizer)
+
+    sizer.add(@text_box, 1, Wx::GROW)
+    sizer.add(butt_panel, 0, Wx::GROW|Wx::ADJUST_MINSIZE|Wx::ALIGN_BOTTOM)
+    panel.set_sizer(sizer)
+
+
+    frame.set_client_size( Wx::Size.new(200,200) )
+    frame.show()
+  end
+
+  def on_font(e)
+    dialog = Wx::FontDialog.new()
+    case dialog.show_modal()
+    when Wx::ID_OK
+      font = dialog.get_font_data.get_chosen_font()
+      @text_box.set_font(font)
+    when Wx::ID_CANCEL
+      return
+    end
+  end
+end
+
+end

data/lib/weft/wxgui/inspectors.rb

@@ -0,0 +1,361 @@
+require 'weft/wxgui/inspectors/textcontrols'
+
+module QDA::GUI
+  class CategoryDropDown < Wx::ComboBox
+    include Subscriber
+
+    MAXIMUM_DROPDOWN_LENGTH = 7
+    attr_accessor :sticky
+
+    # +locked+ if true will prevent the dropdown from responding to
+    # global category focus events.
+    def initialize(app, parent, text_box = nil, locked = false)
+      super(parent, -1, '', Wx::DEFAULT_POSITION,
+             Wx::DEFAULT_SIZE, [])
+      @locked = locked
+      @client_data = {}
+      @text_box = text_box
+      @sticky = false
+
+      @app = app
+
+      evt_kill_focus() do | e | 
+        find_and_add_categories()
+        e.skip()
+      end
+
+      evt_text_enter(self.get_id) do | e |
+        find_and_add_categories()
+      end
+
+      evt_combobox(self.get_id) do | e |
+        e.skip()
+        on_item_selected(e)
+      end
+        
+      subscribe(:focus_category, :category_deleted, :category_changed)
+      if $wxapp.current_category
+        set_active_category($wxapp.current_category)
+      end
+    end
+
+    # is this dropdown responding to global :focus_category events?
+    def locked?
+      @locked ? true : false
+    end
+
+    # make this dropdown receive global :focus_category events
+    def lock
+      @locked = true
+    end
+
+    # prevent this dropdown responding to global :focus_category events
+    def unlock
+      @locked = false
+    end
+
+    # highlight text coded by the category on the way.
+    def set_selection(idx)
+      super(idx)
+      if @text_box && category = current_category 
+        @text_box.highlight_codingtable(category.codes)
+      end
+    end
+    
+    # highlight text coded by the newly-selected category
+    def on_item_selected(e)
+      if @text_box && category = current_category 
+        @text_box.highlight_codingtable(category.codes)
+      end
+    end
+
+    # add the newly-focused category to this dropdown and highlight
+    # its text.
+    def receive_focus_category(cat)
+      set_active_category(cat) unless locked?
+    end
+
+    # if a category is deleted it should be removed from the list
+    def receive_category_deleted(cat)
+      (0 .. count - 1).each do | i |
+        delete(i) if get_client_data(i).dbid == cat.dbid
+      end
+    end
+
+    def receive_category_changed(cat)
+      (0 .. count - 1).each do | i |
+        if get_client_data(i).dbid == cat.dbid
+          # TODO set_string not implemented (wxr 0.6.0)
+          # set_string(i, cat.name)
+          # set_client_data(cat.name, cat)
+          prepend(cat) # will automatically delete old
+        end
+      end
+    end
+
+    def set_active_category(category)
+      # clear the first node unless it is sticky because it has been used
+      unless @sticky
+        delete(0)
+      end
+      # clear any remaining excess items
+      while count > MAXIMUM_DROPDOWN_LENGTH
+        delete(count - 1)
+      end
+
+      prepend(category)
+      @sticky = false
+      set_selection(0)
+      # currently disabled until 0.9.6
+
+    end
+
+    def prepend(category)
+      copy = [ category.name, category ]
+      while count > 0
+        this_text = get_string(0)
+        this_cat  = @client_data[this_text]
+        unless this_cat.dbid == category.dbid
+          copy.push( this_text,  @client_data[this_text] )
+        end
+        delete(0)
+      end
+
+      until copy.empty?
+        new_text, new_data = copy.shift, copy.shift
+        append(new_text, nil)
+        set_client_data(new_text, new_data)
+      end
+      set_selection(0)
+    end
+
+    # added for compatibility with set_client_data - temporarily
+    # removed in WxRuby 0.4.0, should remove when this is fixed
+    def append(text, category, *args )
+      super(text, nil, *args)
+      set_client_data(text, category )
+    end
+
+    # mimicking WxWidgets method, temp disabled in WxRuby
+    def set_client_data(text, client_data)
+      @client_data[text] = client_data
+    end
+
+    # mimicking ...
+    def get_client_data(index)
+      text = get_string(index)
+      @client_data[text]
+    end
+
+    def find_and_add_categories()
+      typed_text = get_value()
+      unless find_string( typed_text ) || typed_text.empty?
+        matches = @app.app.get_categories_by_path(typed_text)
+        if matches.empty?
+          
+        elsif matches.length > 1
+
+        end
+        matches.each { | cat | prepend(cat) unless cat.parent.nil? }
+        set_selection( 0 )
+      end
+    end
+
+    def on_blur(e)
+      find_and_add_categories()
+      e.skip()
+    end
+
+    # missing in wxruby, but part of WxWidgets
+    # this version differs by returning nil rather than -1 on failure
+    def find_string(str)
+      ( 0 ... count ).each do | i |
+        return i if str == get_string(i)
+      end
+      return nil
+    end
+
+
+    # TODO - some visual cue to indicate that no category matched find-first
+    def set_broken(bool)
+      
+    end
+
+    def set_warning(bool)
+
+    end
+    # returns the Category object associated with the currently
+    # selected item in the drop down.
+    def current_category
+      if curr_sel = get_selection()
+        if curr_sel.nil? || curr_sel == -1
+          return nil
+        end
+        return get_client_data( curr_sel )
+      end
+    end
+  end
+
+  class WorkAreaWindow <  Wx::MDIChildFrame
+    # the default size for new windows of this type and
+    # subclasses. Expressed as a proportion of MDI client area width
+    # and MDI client area height.
+    W_WINDOW_DEF_SIZE = [ 0.6, 0.8 ]
+
+    def initialize(workarea, title, last_layout)
+      size = pos = nil
+      if last_layout
+        size = Wx::Size.new( last_layout[:w], last_layout[:h] )
+        pos  = Wx::Point.new( last_layout[:x], last_layout[:y] )
+      else
+        proportions = self.class::W_WINDOW_DEF_SIZE
+        size = workarea.proportional_size(*proportions)
+        pos  = Wx::DEFAULT_POSITION
+      end
+      super(workarea, -1, title, pos, size)
+    end
+
+    # returns a hash serialising the current shape and location of
+    # this window, so it can later be unthawed
+    def layout()
+      curr_size = get_size()
+      pos = get_position
+      return { :x => pos.x,
+        :y => pos.y,
+        :w => curr_size.width,
+        :h => curr_size.height }
+    end
+    
+    def layout=(layout)
+      move( Wx::Point.new(layout[:x], layout[:y]) )
+      set_client_size( Wx::Size.new(layout[:w], layout[:h]) )
+    end
+    
+    # is this the currently focused window within the MDI layout?
+    def active?()
+      self == parent.active_child
+    end
+  end
+
+  # a WorkArea Window with a notebook layout with a coding panel
+  # including a text display in the first pane. Documents, Categories
+  # and Queries are all displayed using this model
+  class InspectorWindow < WorkAreaWindow
+    if Wx::RUBY_PLATFORM == 'WXGTK'
+      # GTK uses a notebook to fake MDI windows, so if running under
+      # WXGTK, place the real notebook tabs on the right instead
+      INSPECTOR_NB_STYLE = [ Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, 
+                             Wx::NB_RIGHT ]
+    else
+      INSPECTOR_NB_STYLE = []
+    end
+
+    def initialize(workarea, title, last_layout, &text_constructor)
+      super(workarea, title, last_layout)
+
+      @notebook = Wx::Notebook.new(self, -1, *INSPECTOR_NB_STYLE)
+      panel_1 = Wx::Panel.new(@notebook, -1)
+      sizer_1 = Wx::BoxSizer.new(Wx::VERTICAL)
+
+      @text_box = text_constructor.call(panel_1)
+      sizer_1.add(@text_box, 10, Wx::GROW|Wx::ALL, 4)
+
+      butt_panel = Wx::Panel.new(panel_1, -1)
+      bott_sizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+      
+      @drop_down = CategoryDropDown.new(@app, butt_panel, @text_box)
+      bott_sizer.add(@drop_down, 3, Wx::ALL, 4)
+
+      button = Wx::Button.new(butt_panel, -1, 'Code')
+      button.evt_button(button.get_id) { | e | on_code(e) }
+      bott_sizer.add(button, 1, Wx::ALL, 4)
+
+      button = Wx::Button.new(butt_panel, -1, 'Uncode')
+      button.evt_button(button.get_id) { | e | on_uncode(e) }
+      bott_sizer.add(button, 1, Wx::ALL, 4)
+
+      # 		button = Wx::Button.new(butt_panel, -1, 'Note')
+      # 		button.evt_button(button.get_id) { | e | on_code(e) }
+      # 		bott_sizer.add(button, 1, Wx::ALL, 4, Wx::ALIGN_RIGHT)
+
+
+      butt_panel.sizer = bott_sizer
+      sizer_1.add(butt_panel, 0,
+                   Wx::GROW|Wx::ADJUST_MINSIZE|Wx::ALIGN_BOTTOM) 
+
+      panel_1.set_sizer( sizer_1 )
+      @notebook.add_page(panel_1, 'text') 
+      evt_activate() { | e | on_activate(e) }
+    end
+
+    # (hopefully temporary) method -- when this window is closed,
+    # all widgets containsed within it that are subscribers to
+    # application events should also be unsubscribed so their notify
+    # method isn't later called - which causes a crash in wxruby 0.6.0
+    def associated_subscribers()
+      [ @drop_down ]
+    end
+
+    # this method should update the code combo box - this is done by
+    # the MDI Parent. But - the ActivateEvent class is not currently
+    # available in wxruby 0.6.0, so there's no way to distinguish an
+    # activate from a deactivate
+    def on_activate(e)
+      # e.methods.each { | m | p m }
+      # if e.get_active
+      #		  p "FOO"
+      # end
+    end
+
+    # code from the main text window
+    def on_code(e)
+      return unless category = get_current_category() # from drop-down
+
+      Wx::BusyCursor.busy do
+        codes = @text_box.selection_to_fragments()
+        codes.each { | c | category.code(c.docid, c.offset, c.length) }
+
+        $wxapp.app.save_category( category )
+        @drop_down.sticky = true
+        $wxapp.broadcast(:category_changed, category )
+      end
+    end
+    
+    # uncode from the main text window
+    def on_uncode(e)
+      return unless category = get_current_category()
+      Wx::BusyCursor.busy do 
+        codes = @text_box.selection_to_fragments()
+        codes.each { | c | category.uncode(c.docid, c.offset, c.length) }
+        $wxapp.app.save_category( category )
+        @drop_down.sticky = true
+        $wxapp.broadcast(:category_changed, category )          
+      end
+    end
+
+    def refresh()
+
+    end
+
+    # the current category active in this window
+    def get_current_category()
+      if curr = @drop_down.current_category
+        return curr
+      else
+        return nil
+      end
+    end
+
+    # set the display font for use in this inspector
+    def set_display_font(font)
+      @text_box.set_font(font)
+    end
+  end
+  
+  require 'weft/wxgui/inspectors/document.rb'
+  require 'weft/wxgui/inspectors/category.rb'
+  # require 'weft/wxgui/inspectors/imagedocument.rb'
+  require 'weft/wxgui/inspectors/search.rb'
+  require 'weft/wxgui/inspectors/script.rb'
+  require 'weft/wxgui/inspectors/codereview.rb'
+end