weft-qda 0.9.6

data/lib/weft/wxgui/inspectors/category.rb

@@ -0,0 +1,165 @@
+module QDA
+  module GUI
+	class CategoryWindow < InspectorWindow
+      include Subscriber
+
+	  def initialize(cat, app, workarea, layout)
+		@cat = cat
+		@app = app
+
+        super(workarea, @cat.name, layout) do | parent | 
+          text_box = CompositeText.new(parent, '', 0, @app)
+          text_box.populate( @app.app.get_text_at_category(@cat) )
+          text_box
+        end
+
+        construct_details_panel()
+        if ! @cat.children.empty?
+          construct_explore_panel()
+        end
+
+        @notebook.evt_notebook_page_changing(@notebook.get_id) do | e | 
+          on_change_page(e)
+        end
+
+        set_icon( app.fetch_icon("category.xpm") )
+
+        subscribe(:document_deleted, :category_changed, :category_deleted)
+	  end
+
+      # just a mucky method to reduce the length of the initializer -
+      # ideally i guess this would be done using XRC
+      def construct_details_panel()
+        panel2 = Wx::Panel.new(@notebook, -1)
+        sizer2 = Wx::BoxSizer.new(Wx::VERTICAL)
+
+        # the text entry box for the category's name
+        name_box_label = Wx::StaticBox.new(panel2, -1, 'Name')
+        name_box_sizer = Wx::StaticBoxSizer.new(name_box_label,
+                                                Wx::VERTICAL)
+        @name_field = Wx::TextCtrl.new(panel2, -1, @cat.name) 
+        name_box_sizer.add(@name_field, 0, 
+                           Wx::ADJUST_MINSIZE|Wx::ALL|Wx::GROW, 4)
+        sizer2.add(name_box_sizer,0, Wx::ADJUST_MINSIZE|Wx::ALL|Wx::GROW, 4)
+
+        # Create the statistics panel
+        info_panel = Wx::Panel.new(panel2, -1)
+        info_box_label = Wx::StaticBox.new(info_panel, -1, 'Statistics')
+        info_box_sizer = Wx::StaticBoxSizer.new(info_box_label,
+                                                Wx::VERTICAL)
+
+        info_sizer = Wx::FlexGridSizer.new(3, 2, 5, 6)
+        info_sizer.add( Wx::StaticText.new(info_panel, -1, 'Documents:') )
+        @num_docs_label = Wx::StaticText.new(info_panel, -1, 
+                                            @cat.num_of_docs.to_s) 
+        info_sizer.add( @num_docs_label )
+
+        info_sizer.add( Wx::StaticText.new(info_panel, -1, 'Passages:') )
+        @num_codes_label = Wx::StaticText.new(info_panel, -1, 
+                                              @cat.num_of_codes.to_s)
+        info_sizer.add( @num_codes_label )
+
+        info_sizer.add( Wx::StaticText.new(info_panel, -1, 'Characters:') )
+
+        @num_chars_label =  Wx::StaticText.new(info_panel, -1, 
+                                               @cat.num_of_chars.to_s)
+        info_sizer.add(@num_chars_label)
+        info_box_sizer.add(info_sizer, 0, 
+                           Wx::GROW|Wx::ADJUST_MINSIZE|Wx::ALL, 4)
+        info_panel.set_sizer(info_box_sizer)
+        sizer2.add(info_panel, 0, Wx::GROW|Wx::ADJUST_MINSIZE|Wx::ALL, 2)
+
+
+        memo_label = Wx::StaticBox.new(panel2, -1, 'Memo')
+        memo_sizer = Wx::StaticBoxSizer.new(memo_label, Wx::VERTICAL)
+
+        @memo_box = Wx::TextCtrl.new(panel2, -1, @cat.memo, 
+                                     Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, 
+                                     Wx::TE_MULTILINE|Wx::TE_NOHIDESEL)
+
+        @memo_box.evt_enter_window do | e | 
+          set_cursor Wx::Cursor.new(Wx::CURSOR_IBEAM)
+        end
+
+        @memo_box.evt_leave_window do | e | 
+          set_cursor Wx::Cursor.new(Wx::CURSOR_ARROW)
+        end
+        memo_sizer.add(@memo_box, 10, Wx::GROW|Wx::ALL|Wx::ADJUST_MINSIZE, 4)
+        sizer2.add(memo_sizer, 1, Wx::GROW|Wx::ADJUST_MINSIZE, 4)
+
+        
+        button = Wx::Button.new(panel2, -1, 'Apply')
+		button.evt_button(button.get_id) { | e | on_save_memo(e) }
+        sizer2.add(button, 0, Wx::ALL|Wx::ALIGN_RIGHT|Wx::ADJUST_MINSIZE, 4)
+        panel2.set_sizer( sizer2 )
+
+
+        @notebook.add_page(panel2, 'details')
+      end
+      
+      # cf construct_details_panel
+      def construct_explore_panel()
+        panel = Wx::Panel.new(@notebook, -1)
+        # panel.set_font(GLOBAL_FONT)
+        sizer = Wx::BoxSizer.new(Wx::VERTICAL)
+        # create a local locked copy
+		@tree_list = CategoryTree.new(@app, panel, true)
+		@tree_list.populate([@cat])
+        sizer.add(@tree_list, 10, Wx::GROW|Wx::ALL, 4)
+        panel.set_sizer( sizer )
+        @notebook.add_page(panel, 'explore')
+      end
+
+      def on_save_memo(e)
+        @cat.memo = @memo_box.value
+        @cat.name = @name_field.value
+        Wx::BusyCursor.busy { @app.app.save_category( @cat ) }
+        $wxapp.broadcast(:category_changed, @cat)
+      end
+
+      def on_change_page(e)
+        # relying on the fact we've only got two tabs - so if the
+        # previously selected is 0 (The first page) we should update
+        # the stats as we're going to that page
+        if e.get_selection == 0
+          update_stats()
+        end
+        e.allow()
+      end
+      
+      def update_stats()
+        @num_docs_label.set_label( @cat.num_of_docs.to_s )
+        @num_codes_label.set_label( @cat.num_of_codes.to_s )
+        @num_chars_label.set_label( @cat.num_of_chars.to_s )
+      end
+
+      # updates the display from teh currently stored value for @cat,
+      # and refetches the displayed text from the database
+      def refresh()
+        set_title( @cat.name )
+        @text_box.value = ''
+        @text_box.populate( @app.app.get_text_at_category(@cat) )
+        @name_field.value = @cat.name
+        if curr_category = @drop_down.current_category()
+          @text_box.highlight_codingtable(curr_category.codes)
+        end
+        update_stats()
+      end
+
+      def receive_category_changed(category)
+        if category.dbid == @cat.dbid
+          @cat = category
+          refresh()
+        end
+      end
+
+      def receive_category_deleted(category)
+        close() if category.dbid == @cat.dbid
+      end
+
+      def receive_document_deleted(doc)
+        refresh if @cat.codes.codes?(doc)
+      end
+	end
+  end
+end

data/lib/weft/wxgui/inspectors/codereview.rb

@@ -0,0 +1,275 @@
+module QDA::GUI
+  class CodeReviewWindow < WorkAreaWindow
+    include Subscriber
+
+    W_WINDOW_DEF_SIZE = [ 0.8, 0.6 ]
+    BASE_COLOUR = Wx::Colour.new(255, 255, 255)
+    HIGHLIGHT_COLOUR = Wx::Colour.new(255, 0, 0)
+    GRID_COLOUR = Wx::Colour.new(223, 223, 233)
+
+    def initialize(obj, app, workarea, layout)
+      super(workarea, "Code Review #{obj.dbid}", nil)
+      @cols, @rows, @contents = [], [], []
+      @count_method = :num_of_docs
+
+      main_sizer = Wx::BoxSizer.new(Wx::VERTICAL)
+      panel = Wx::Panel.new(self)
+      @grid = Wx::Grid.new(panel, -1, Wx::DEFAULT_POSITION, 
+                            Wx::DEFAULT_SIZE, Wx::SIMPLE_BORDER)
+      @grid.create_grid( 12, 6 )
+      @grid.set_row_label_size(160)
+      @grid.set_grid_line_colour(GRID_COLOUR)
+      @grid.enable_editing(false)
+      0.upto(5) { | i |  @grid.set_col_label_value(i, '') }
+      0.upto(11) { | i | @grid.set_row_label_value(i, '') }
+
+      evt_grid_label_left_click() { | evt | on_label_clicked(evt) }
+      
+      # the controls panel
+      main_sizer.add(@grid, 1, Wx::GROW|Wx::ALL, 4)
+      # butt_panel = Wx::Panel.new(panel, -1)
+      butt_box_label = Wx::StaticBox.new(panel, -1, 'Select categories')
+      bott_sizer = Wx::StaticBoxSizer.new(butt_box_label,
+                                           Wx::HORIZONTAL)
+      
+      @drop_down = CategoryDropDown.new(app, panel)
+      bott_sizer.add(@drop_down, 3, Wx::ALL, 4)
+
+      button = Wx::Button.new(panel, -1, 'Add as row')
+      button.evt_button(button.get_id) { | e | on_add_row(e) }
+      bott_sizer.add(button, 1, Wx::ALL, 4)
+
+      button = Wx::Button.new(panel, -1, 'Add as column')
+      button.evt_button(button.get_id) { | e | on_add_col(e) }
+      bott_sizer.add(button, 1, Wx::ALL, 4)
+
+      button = Wx::Button.new(panel, -1, 'Remove')
+      button.evt_button(button.get_id) { | e | on_remove(e) }
+      bott_sizer.add(button, 1, Wx::ALL, 4)
+
+#       button = Wx::Button.new(butt_panel, -1, 'Remove column')
+#       button.evt_button(button.get_id) { | e | on_remove_col(e) }
+#       bott_sizer.add(button, 1, Wx::ALL, 4)
+
+      # butt_panel.set_sizer(bott_sizer)
+      main_sizer.add(bott_sizer, 0,
+                      Wx::GROW|Wx::ADJUST_MINSIZE|Wx::ALL, 4) 
+
+      # the numbers row      
+      num_box_label = Wx::StaticBox.new(panel, -1, 
+                                         Lang::DISPLAY_OPTIONS_LABEL)
+      num_sizer = Wx::StaticBoxSizer.new(num_box_label,
+                                           Wx::HORIZONTAL)
+      
+      # num_cbox = Wx::CheckBox.new(num_panel, -1, 'Show numbers')
+      num_sizer.add( Wx::StaticText.new(panel, -1, 'Count what?'), 
+                     0, Wx::ALL|Wx::ALIGN_RIGHT, 4)
+      @num_list = Wx::Choice.new(panel, -1)
+      @num_list.append('Number of documents')
+      @num_list.append('Number of passages')
+      @num_list.append('Number of characters')
+      @num_list.selection = 0
+      evt_choice( @num_list.get_id() ) { | e | on_change_method(e) }
+      num_sizer.add(@num_list, 0, Wx::ALL, 4)
+
+      main_sizer.add( num_sizer, 0,
+                      Wx::GROW|Wx::ADJUST_MINSIZE|Wx::ALL, 
+                      4)
+      
+      panel.set_sizer(main_sizer)
+      main_sizer.set_size_hints(panel)
+
+      subscribe(:category_deleted, :category_changed)
+    end
+
+    def associated_subscribers()
+      [ @drop_down ]
+    end
+
+    # set the currently highlighted row or column as the current item
+    # in the dropdown
+    def on_label_clicked(e)
+      if row = e.row and row >= 0 and @rows[row]
+        @drop_down.receive_focus_category( @rows[row] )
+      end
+      if col = e.col and col >= 0 and @cols[col]
+        @drop_down.receive_focus_category( @cols[col] )
+      end
+    end
+
+    METHOD_MAPPING = {
+      'Number of documents' => :num_of_docs,
+      'Number of passages'  => :num_of_codes,
+      'Number of characters' => :num_of_chars }
+    
+    def on_change_method(e)
+      sel = @num_list.get_string_selection()
+      method = METHOD_MAPPING[ sel ]
+      unless method
+        raise RuntimeError.new("Unexpected selection #{sel}")
+      end
+      self.count_method = method
+    end
+
+    def count_method=(method)
+      if method != @count_method
+        @count_method = method
+        0.upto(@rows.length - 1) { | i | calculate_row(i) }
+        recolour_table()
+      end
+    end
+
+    def on_add_col(e)
+      category = @drop_down.current_category
+      return false unless category
+      return false if @cols.include?(category)
+
+      @cols.push(category)
+      @grid.append_cols(1) if @cols.length > @grid.number_cols
+      col = @cols.length - 1
+
+      @grid.set_col_label_value( col, category.name )
+      # @grid.set_col_format_number( col )
+      calculate_col(col)
+      recolour_table()
+    end
+
+    def calculate_col(i)
+      col = @cols[i]
+      @rows.each_with_index do | row_cat, j |
+        @contents[j][i] = row_cat.codes.dup.join(col.codes)
+        update_cell(j, i)
+      end
+    end
+
+    def on_add_row(e)
+      category = @drop_down.current_category
+      return false unless category
+      # don't add twice
+      return false if @rows.include?(category)
+
+      @rows.push(category)
+      @grid.append_rows(1) if @rows.length > @grid.number_rows
+      row = @rows.length - 1
+
+      @grid.set_row_label_value( row, category.name )
+      @contents[row] = []
+      # @grid.set_row_format_number( row )
+      calculate_row(row)
+      recolour_table()
+    end
+
+    def calculate_row(i)
+      row = @rows[i]
+      @cols.each_with_index do | col_cat, j |
+        @contents[i][j] = col_cat.codes.dup.join(row.codes)
+        update_cell(i, j)
+      end
+    end
+
+    # removes the selected category from both rows and colums
+    def on_remove(e)
+      on_remove_col(e)
+      on_remove_row(e)
+    end
+
+    def on_remove_col(e)
+      category = @drop_down.current_category
+      return false unless category
+      return false unless idx = @cols.index(category)
+      remove_col(idx)
+      recolour_table()
+    end
+
+    def remove_col(idx)
+      @cols.delete_at(idx)
+      @contents.each { | row | row.delete_at(idx) }
+      @grid.delete_cols(idx, 1)
+      @grid.append_cols(1)
+      update_col_labels()
+    end
+
+    def on_remove_row(e)
+      category = @drop_down.current_category
+      return false unless category
+      return false unless idx = @rows.index(category)
+      remove_row(idx)
+      recolour_table()
+    end
+
+    def remove_row(idx)
+      @rows.delete_at(idx)
+      @contents.delete_at(idx)
+      @grid.delete_rows(idx, 1)
+      @grid.append_rows(1)
+      update_row_labels()
+    end
+
+    def update_cell(x, y)
+      content = @contents[x][y].send(@count_method)
+      @grid.set_cell_value( x, y, content.to_s )
+    end
+
+    def update_col_labels()
+      @cols.each_with_index do | c, i | 
+        @grid.set_col_label_value(i, c.name)
+      end
+      # check if we need to clean up deleted and now empty row labels
+      # at the end - Wx 2.4.2 doesn't seem to do this automatically
+      @grid.set_col_label_value(@cols.length, '')
+      return if @cols.length == @grid.number_cols()
+      for empty in ( @cols.length ... @grid.number_cols() )
+        @grid.set_col_label_value(empty, '')
+      end
+    end
+
+    def update_row_labels()
+      @rows.each_with_index do | c, i | 
+        @grid.set_row_label_value(i, c.name)
+      end
+      # check if we need to clean up deleted and now empty row labels
+      # at the end - Wx 2.4.2 doesn't seem to do this automatically
+      return if @rows.length == @grid.number_rows()
+      for empty in ( @rows.length ... @grid.number_rows() )
+        @grid.set_row_label_value(empty, '')
+      end
+    end
+
+    def recolour_table()
+      max = @contents.flatten.collect { | x | x.send(@count_method) }.max
+      @contents.each_with_index do | row_items, row |
+        row_items.each_with_index do | code_table, col |
+          clr = BASE_COLOUR.mix( HIGHLIGHT_COLOUR, 
+                                 max, code_table.send(@count_method))
+          @grid.set_cell_background_colour(row, col, clr)
+        end
+      end
+    end
+
+    def receive_category_changed(cat)
+      if idx = @cols.index(cat)
+        @cols[idx] = cat
+        calculate_col(idx)
+      end
+
+      if idx = @rows.index(cat)
+        @rows[idx] = cat
+        calculate_row(idx)
+      end
+
+      recolour_table()
+    end
+
+    def receive_category_deleted(cat)
+      if idx = @cols.index(cat)
+        remove_col(idx)
+      end
+
+      if idx = @rows.index(cat)
+        remove_row(idx)
+      end
+
+      recolour_table()
+    end
+  end
+end

data/lib/weft/wxgui/inspectors/document.rb

@@ -0,0 +1,139 @@
+
+module QDA
+  module GUI
+	class DocumentWindow < InspectorWindow
+      include Subscriber
+
+      def initialize(doc, app, workarea, layout)
+		@doc = doc
+		@app = app
+
+        super(workarea, doc.title, layout) do | txt_parent | 
+          text_box = DocTextViewer.new(txt_parent, @doc.dbid)
+          text_box.set_font(@app.display_font)
+          text_box.append_text( @doc.text )
+          text_box.evt_enter_window do | e | 
+            set_cursor Wx::Cursor.new(Wx::CURSOR_IBEAM)
+          end
+          text_box.evt_leave_window do | e | 
+            set_cursor Wx::Cursor.new(Wx::CURSOR_ARROW)
+          end
+          text_box.show_position(0)
+          text_box
+        end
+
+        construct_details_panel()
+        set_icon( app.fetch_icon("document.xpm") )
+        subscribe(:document_changed, :document_deleted)
+      end
+
+      def receive_document_deleted(doc)
+        close() if doc.dbid == @doc.dbid
+      end
+
+      def receive_document_changed(new_doc)
+        if new_doc.dbid == @doc.dbid
+          @doc = new_doc
+          refresh() 
+        end
+      end
+
+      def on_set_text_font(font)
+        @text_box.font = font
+      end
+
+      # update the display from the currently stored +@doc+
+      # TODO - currently doesn't update text as this shouldn't ever change
+      def refresh()
+        set_title(@doc.title)
+        label = Time.now.strftime("%a %d/%m/%Y %H:%M:%S")
+        @mod_date_label.set_label( label )
+      end
+
+      def on_save_details(e)
+        @doc.memo = @memo_box.value
+        @doc.title = @title_box.value
+        Wx::BusyCursor.busy { @app.app.save_document( @doc ) }
+        $wxapp.broadcast(:document_changed, @doc)
+      end
+
+      # scroll the window's text box to the line containing the
+      # character at +pos+ 
+      def jump_to(pos)
+        # p "----"
+        # p pos
+        true_pos = @text_box.true_index_to_pos(pos) 
+        # p true_pos
+        # there's something weird going on here. For some reason, if
+        # jump_to is called just after the window has been constructed, 
+        # the lines haven't yet been wrapped, and so it jumps to the
+        # wrong position .. weird
+        point =  @text_box.position_to_xy(true_pos)
+        # p point.x
+        # p point.y
+        @text_box.show_position( true_pos )
+      end
+
+      def construct_details_panel()
+        main_panel = Wx::Panel.new(@notebook, -1)
+        sizer = Wx::BoxSizer.new(Wx::VERTICAL)
+        title_box_label = Wx::StaticBox.new(main_panel, -1, 'Title')
+        title_box_sizer = Wx::StaticBoxSizer.new(title_box_label,
+                                                Wx::VERTICAL)
+        @title_box = Wx::TextCtrl.new(main_panel, -1, @doc.title ) 
+        title_box_sizer.add(@title_box, 0, 
+                            Wx::ADJUST_MINSIZE|Wx::ALL|Wx::GROW, 4)
+        sizer.add(title_box_sizer,0, Wx::ADJUST_MINSIZE|Wx::ALL|Wx::GROW, 4)
+
+        info_panel = Wx::Panel.new(main_panel, -1)
+        info_box_label = Wx::StaticBox.new(info_panel, -1, 'Information')
+        info_box_sizer = Wx::StaticBoxSizer.new(info_box_label,
+                                                Wx::VERTICAL)
+
+        info_sizer = Wx::FlexGridSizer.new(2, 2, 5, 6)
+
+        # Create date label
+        info_sizer.add( Wx::StaticText.new(info_panel, -1, 'Created:') )
+        date_text = @doc.create_date.strftime("%a %d/%m/%Y %H:%M:%S")
+        @create_date_label = Wx::StaticText.new(info_panel, -1, date_text )
+        info_sizer.add( @create_date_label )
+
+        # Modified date label
+        info_sizer.add( Wx::StaticText.new(info_panel, -1, 'Modified:') )
+        date_text = @doc.mod_date.strftime("%a %d/%m/%Y %H:%M:%S")
+        @mod_date_label =  Wx::StaticText.new(info_panel, -1, date_text)
+        info_sizer.add(@mod_date_label)
+        info_box_sizer.add(info_sizer, 0, 
+                           Wx::GROW|Wx::ADJUST_MINSIZE|Wx::ALL, 4)
+        info_panel.set_sizer( info_box_sizer )
+        sizer.add(info_panel, 0, Wx::GROW|Wx::ALL|Wx::ADJUST_MINSIZE, 4)
+
+        # The memo box
+        memo_label = Wx::StaticBox.new(main_panel, -1, 'Memo')
+        memo_sizer = Wx::StaticBoxSizer.new(memo_label, Wx::VERTICAL)
+
+        @memo_box = Wx::TextCtrl.new(main_panel, -1, @doc.memo, 
+                                     Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, 
+                                     Wx::TE_MULTILINE|Wx::TE_NOHIDESEL)
+        @memo_box.evt_enter_window do | e | 
+          set_cursor Wx::Cursor.new(Wx::CURSOR_IBEAM)
+        end
+
+        @memo_box.evt_leave_window do | e | 
+          set_cursor Wx::Cursor.new(Wx::CURSOR_ARROW)
+        end
+        memo_sizer.add(@memo_box, 10, Wx::GROW|Wx::ALL|Wx::ADJUST_MINSIZE, 4)
+        sizer.add(memo_sizer, 1, Wx::GROW|Wx::ADJUST_MINSIZE, 4)
+
+        
+        button = Wx::Button.new(main_panel, -1, 'Apply')
+		button.evt_button(button.get_id) { | e | on_save_details(e) }
+        sizer.add(button, 0, Wx::ALL|Wx::ALIGN_RIGHT|Wx::ADJUST_MINSIZE, 4)
+        main_panel.set_sizer( sizer )
+
+        @notebook.add_page(main_panel, 'details')
+      end
+
+	end
+  end
+end