rbcurse 1.4.1 → 1.5.0.pre1

data/lib/rbcurse/extras/resultsetbrowser.rb

@@ -1,281 +0,0 @@
-require 'rbcurse/rscrollform'
-require 'fileutils'
-
-# See tabbed pane, and add_cols nad add_rows, on_entr and set_form_row to see cursor issue
-# remove main form 
-# don't make a widget just an object
-# let it create own form.
-
-# NOTE: experimental, not yet firmed up
-# If you use in application, please copy to some application folder in case i change this.
-# Can be used for print_help_page
-# SUGGESTIONS WELCOME.
-# @since 1.4.1
-module RubyCurses
-
-  class ResultsetBrowser #< Widget
-    #include EventHandler
-    include ConfigSetup
-    include RubyCurses::Utils
-    #dsl_property :xxx
-    # I don't think width is actually used, windows width matters. What of height ?
-    # THATS WRONG , i cannot eat up window. I should use object dimentsion for pad,
-    #  not window dimensions
-    dsl_accessor :row, :col, :height, :width
-    dsl_accessor :should_print_border
-
-    def initialize win, config={}, &block
-      @should_print_border = true
-      @v_window = win #form.window
-      @window = @v_window
-      @focusable = true
-      @editable  = true
-      @old_index = @current_index = 0
-      @fields = nil
-      config_setup config 
-      instance_eval &block if block_given?
-      init_vars
-    end
-    def map_keys
-      @v_form.bind_key(?\C-n) { @current_index += 1 if @current_index < @rows.count-1 }
-      @v_form.bind_key(?\C-p) {  @current_index -= 1  if @current_index > 0 }
-      @mapped = true
-    end
-    def init_vars
-      @row ||= 0
-      @col ||= 0
-      @height ||= 15
-      @width ||= 50
-      @field_offset = 14   # where actual Field should start (leaving space for label)
-      @row_offset ||= 0
-      @col_offset ||= 1
-      @border_offset = 0
-      if @should_print_border
-        @border_offset = 1
-      end
-      @v_form = RubyCurses::ScrollForm.new @v_window
-      @v_form.display_h(@height-1-@border_offset*2) if @height
-      @v_form.display_w(@width-1-@border_offset*2)  if @width
-    end
-    def data=(rows)
-      @rows = rows
-    end
-    def columns=(columns)
-      @columns = columns
-      h = @columns.count + 2
-      w = 150 
-      #row = 1
-      #col = 1
-      row = @row + @border_offset
-      col = @col + @border_offset
-      @v_form.set_pad_dimensions(row, col, h, w)
-      @v_form.should_print_border(false) # this should use dimensions of object not window. # 2011-10-12 15:48:14
-      # currently I don't have space for any buttons or anything.  The form takes all space of the window
-      # not of the object defined.
-      # I should be able to tell Scrollform to use only thismuch of window.
-    end
-    def set_form_row
-      f = @v_form.get_current_field
-      f.set_form_row
-    end
-    def handle_key ch
-      map_keys unless @mapped
-      $log.debug "XXX: RB HK got ch "
-      ret =  @v_form.handle_key ch
-      #set_form_row
-      if ret == :UNHANDLED
-        @v_form.process_key ch, self
-      end
-      repaint
-      @v_window.wrefresh
-    end
-    def repaint
-      @fields ||= _create_fields
-      #alert "old #{@old_index} , #{@current_index} "
-      if @old_index != @current_index
-        #alert "index change"
-        row = @rows[@current_index]
-        @columns.each_with_index { |e, i|  
-          value = row[i]
-          len = value.to_s.length
-          type=@rows[0].types[i]
-          if type == "TEXT"
-            value = value.gsub(/\n/," ") if value
-          end
-          f = @fields[i]
-          @fields[i].set_buffer(value)
-          if f.display_length < len && len < (@width - @field_offset)
-            @fields[i].display_length len
-          end
-        }
-        @v_form.repaint
-        @window.wrefresh
-        Ncurses::Panel.update_panels
-        @old_index = @current_index
-      end
-    end
-    # maybe not required since we don't have 2 forms now
-    def unused_on_enter
-      if $current_key == KEY_BTAB
-        c = @v_form.widgets.count-1
-        @v_form.select_field c
-      else
-        @v_form.select_field 0
-      end
-    end
-    private
-    def _create_fields
-      color = $datacolor
-      if @should_print_border
-        @v_window.print_border @row, @col, @height-1, @width, color #, Ncurses::A_REVERSE
-        @row_offset += 1
-        @col_offset += 1
-      end
-      $log.debug "XXX: ROWS#{@rows}"
-      $log.debug "XXX: COLS#{@columns}"
-      $log.debug "XXX: row#{@rows[@current_index]}"
-      fields = []
-      r = @row + @row_offset   # row was for where to print the total object, not this
-      c = @col + @col_offset + @field_offset # 14 is to leave space for labels
-      v_form = @v_form
-      @columns.each_with_index { |e, index| 
-        #break if index >= @height-1 # create only as much space we have, SUCKS but just trying till be scroll
-        #$log.debug "XXX: #{r} #{c} EACH #{e}, #{index}, #{@rows[@current_index][index]}"
-        value=@rows[@current_index][index]
-        type=@rows[0].types[index]
-        if type == "TEXT"
-          value = value.gsub(/\n/," ") if value
-        end
-        len = [value.to_s.length, (@width - @field_offset)].min
-        f = Field.new v_form do 
-          name  e
-          row  r
-          col c 
-          bgcolor 'blue'
-          highlight_background 'cyan'
-          set_buffer value
-          display_length len
-          set_label Label.new v_form, {'text' => e, 'color'=>'cyan'}
-        end
-        fields << f
-        r += 1
-      }
-      @v_form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      #$log.debug "XXX: created fields "
-      return fields
-    end
-    
-    # ADD HERE
-    
-  end # class
-end # module
-module RubyCurses
-  # a data viewer for viewing some text or filecontents
-  # view filename, :close_key => KEY_RETURN
-  # send data in an array
-  # view Array, :close_key => KEY_RETURN, :layout => [0,0,23,80]
-  # when passing layout reserve 4 rows for window and border. So for 2 lines of text
-  # give 6 rows.
-  class Browser
-    def self.browse_sql dbname, tablename, sql, config={} #:yield: ???
-      raise "file not found" unless File.exist? dbname
-      require 'sqlite3'
-      db = SQLite3::Database.new(dbname)
-      columns, *rows = db.execute2(sql)
-      #$log.debug "XXX COLUMNS #{sql}  "
-      content = rows
-      return nil if content.nil? or content[0].nil?
-      datatypes = content[0].types 
-      self.browse db, tablename, columns, rows, config
-    end
-    # @param filename as string or content as array
-    # @yield textview object for further configuration before display
-    # NOTE: i am experimentally yielding textview object so i could supress borders
-    # just for kicks, but on can also bind_keys or events if one wanted.
-    #def self.view what, config={} #:yield: textview
-    def self.browse dbconn, tablename, columns, rows, config={} #:yield: ???
-      wt = 0 # top margin
-      wl = 0 # left margin
-      wh = Ncurses.LINES-wt-3 # height, goes to bottom of screen
-      ww = Ncurses.COLS-wl-3  # width, goes to right end
-      wt, wl, wh, ww = config[:layout] if config.has_key? :layout
-
-      fp = config[:title] || ""
-      pf = config.fetch(:print_footer, true)
-      ta = config.fetch(:title_attrib, 'bold')
-      fa = config.fetch(:footer_attrib, 'bold')
-
-      wh = Ncurses.LINES-0
-      ww = Ncurses.COLS-0
-      layout = { :height => wh, :width => ww, :top => wt, :left => wl } 
-      #v_window = config[:window] # using previous window cause crash seg fault
-      #v_window ||= VER::Window.new(layout) # copywin gives -1 and prints nothing
-      v_window = VER::Window.root_window
-      v_window.printstring 0, 30, "Database Browser Demo", $datacolor
-      @form = RubyCurses::Form.new v_window # only for some widgets that are not editable
-      header = app_header "rbcurse ", :text_center => "ResultsetBrowser Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-      sl = status_line :row => v_window.height == 0 ? Ncurses.LINES-1 : v.window.height-1
-      sl.command { "Record Navigation: C-n C-p. Scrolling M-n, M-p, M-l, M-h" }
-      
-      @form.repaint
-
-      #rb = ResultsetBrowser.new v_form, :row => 2, :col => 2
-      rb = ResultsetBrowser.new v_window, :row => 2, :col => 2, :height => 20, :width => 95
-      rb.columns = columns
-      rb.data = rows
-      rb.repaint
-
-
-      # yielding textview so you may further configure or bind keys or events
-      begin
-      #v_form.repaint
-      v_window.wrefresh
-      Ncurses::Panel.update_panels
-      # allow closing using q and Ctrl-q in addition to any key specified
-      #  user should not need to specify key, since that becomes inconsistent across usages
-        while((ch = v_window.getchar()) != ?\C-q.getbyte(0) )
-          break if ch == config[:close_key] 
-          rb.handle_key ch
-          #v_form.handle_key ch
-        end
-      rescue => err
-        $log.error err.to_s
-        $log.error err.backtrace.join("\n")
-        alert err.to_s
-
-      ensure
-        v_window.destroy if !v_window.nil?
-      end
-    end
-  end  # class
-end # module
-if __FILE__ == $PROGRAM_NAME
-require 'rbcurse/app'
-
-App.new do 
-  header = app_header "rbcurse ", :text_center => "ResultsetBrowser Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-  message "Press F10 to exit from here"
-  columns = ["Name","Age","City", "Country"]
-  data    = [
-             [ "Rahul",31, "Delhi","India"], 
-             [ "Dev",35, "Mumbai","India"], 
-             [ "Jobs",56, "L.A","U.S.A"], 
-             [ "Matz",40, "Tokyo","Nippon"] 
-  ]
-
-    #RubyCurses::Browser.browse("dummy", "atable", columns, data,  :close_key => FFI::NCurses::KEY_F10, :title => "Enter to close") do |t|
-  sql = "select id, type, priority, title from bugs"
-  sql = "select * from bugs"
-    RubyCurses::Browser.browse_sql("../../../bugzy.sqlite", "bugs", sql, :close_key => FFI::NCurses::KEY_F10, :title => "Enter to close", :window => @window) do |t|
-      # you may configure textview further here.
-      #t.suppress_borders true
-      #t.color = :black
-      #t.bgcolor = :white
-      # or
-      #t.attr = :reverse
-    end
-
-end # app
-end

data/lib/rbcurse/extras/rlink.rb

@@ -1,27 +0,0 @@
-require 'rbcurse'
-##
-module RubyCurses
-  class Link < Button
-    dsl_property :description
-
-
-    def initialize form, config={}, &block
-      super
-      @text_offset = 0
-      # haha we've never done this, pin the cursor up on 0,0
-      @col_offset = -1 
-      if @mnemonic
-        form.bind_key(@mnemonic.downcase, self){ self.fire }
-      end
-      @display_length = config[:width]
-    end
-    def fire
-      super
-      self.focus
-    end
-    def getvalue_for_paint
-      getvalue()
-    end
-    ##
-  end # class
-end # module

data/lib/rbcurse/extras/rmenulink.rb

@@ -1,21 +0,0 @@
-require 'rbcurse/extras/rlink'
-##
-module RubyCurses
-  class MenuLink < Link
-    dsl_property :description
-
-    def initialize form, config={}, &block
-      super
-      @col_offset = -1 * @col
-      @row_offset = -1 * @row
-    end
-    # added for some standardization 2010-09-07 20:28 
-    # alias :text :getvalue # NEXT VERSION
-    # change existing text to label
-
-    def getvalue_for_paint
-      "%s      %-12s   -    %-s" % [ @mnemonic , getvalue(), @description ]
-    end
-    ##
-  end # class
-end # module

data/lib/rbcurse/extras/scrollbar.rb

@@ -1,143 +0,0 @@
-require 'rbcurse/app'
-#include Ncurses # FFI 2011-09-8 
-include RubyCurses
-
-# This paints a vertical white bar given row and col, and length. It also calculates and prints
-# a small bar over this based on relaetd objects list.length and current_index.
-# Typically, after setup one would keep updating only current_index from the repaint method
-# of caller or in the traversal event. This would look best if the listbox also has a reverse video border, or none.
-# @example
-#     lb = list_box ....
-#     sb = Scrollbar.new @form, :row => lb.row, :col => lb.col, :length => lb.height, :list_length => lb.row_count, :current_index => 0
-#      .... later as user traverses
-#      sb.current_index = lb.current_index
-#     sb = Scrollbar.new @form, :parent => list
-#
-# At a later stage, we will integrate this with lists and tables, so it will happen automatically.
-#
-# @since 1.2.0    UNTESTED
-module RubyCurses
-  class Scrollbar < Widget
-    # row to start, same as listbox, required.
-    dsl_property :row
-    # column to start, same as listbox, required.
-    dsl_property :col
-    # how many rows is this (should be same as listboxes height, required.
-    dsl_property :length
-    # vertical or horizontal currently only VERTICAL
-    dsl_property :orientation
-    # initialize based on parent's values
-    dsl_property :parent
-    # which row is focussed, current_index of listbox, required.
-    dsl_property :current_index
-    # how many total rows of data does the list have, same as @list.length, required.
-    dsl_property :list_length
-
-    # TODO: if parent passed, we shold bind to ON_ENTER and get current_index, so no extra work is required.
-
-    def initialize form, config={}, &block
-
-      # setting default first or else Widget will place its BW default
-      #@color, @bgcolor = ColorMap.get_colors_for_pair $bottomcolor
-      super
-      @color_pair = get_color $datacolor, @color, @bgcolor
-      @scroll_pair = get_color $bottomcolor, :green, :white
-      #$log.debug "SCROLLBAR COLOR cp #{@color_pair} sp #{@scroll_pair} " if $log.debug? 
-      @window = form.window
-      @editable = false
-      @focusable = false
-      @repaint_required = true
-      @orientation = :V
-      if @parent
-        @parent.bind :ENTER_ROW do |p|
-          # parent must implement row_count, and have a @current_index
-          raise StandardError, "Parent must implement row_count" unless p.respond_to? :row_count
-          self.current_index = p.current_index
-          @repaint_required = true  #requred otherwise at end when same value sent, prop handler
-          # will not be fired (due to optimization).
-        end
-        # in some cases, on leaving a listbox or other component redraws itself to reduce
-        # selected or highlighted object, so the scrollbar gets overwritten. We need to repaint it.
-        @parent.bind :LEAVE do |p|
-          @repaint_required = true  
-        end
-      end
-    end
-
-    ##
-    # repaint the scrollbar
-    # Taking the data from parent as late as possible in case parent resized, or 
-    # moved around by a container.
-    def repaint
-      if @parent
-        @row = @parent.row+1
-        @col = @parent.col + @parent.width - 1
-        @length = @parent.height - 2
-        @list_length = @parent.row_count 
-        @current_index ||= @parent.current_index
-        @border_attrib ||= @parent.border_attrib
-      end
-      raise ArgumentError, "current_index must be provided" unless @current_index
-      raise ArgumentError, "list_length must be provided" unless @list_length
-      my_win = @form ? @form.window : @target_window
-      @graphic = my_win unless @graphic
-      return unless @repaint_required
-
-      # first print a right side vertical line
-      #bc = $bottomcolor  # dark blue
-      bc = $datacolor
-      bordercolor = @border_color || bc
-      borderatt = @border_attrib || Ncurses::A_REVERSE
-      #$log.debug "SCROLL bordercolor #{bordercolor} , #{borderatt} " if $log.debug? 
-
-
-      @graphic.attron(Ncurses.COLOR_PAIR(bordercolor) | borderatt)
-      #$log.debug " XXX SCROLL #{@row} #{@col} #{@length} "
-      @graphic.mvvline(@row+0, @col, 1, @length-0)
-      @graphic.attroff(Ncurses.COLOR_PAIR(bordercolor) | borderatt)
-
-      # now calculate and paint the scrollbar
-      pht = @length
-      listlen = @list_length * 1.0
-      @current_index = 0 if @current_index < 0
-      @current_index = listlen-1 if @current_index >= listlen
-      sclen = (pht/listlen)* @length
-      sclen = 1 if sclen < 1 # sometimes 0.7 for large lists 100 items 2011-10-1 
-      scloc = (@current_index/listlen)* @length
-      scloc = (@length - sclen) if scloc > @length - sclen # don't exceed end
-      if @current_index == @list_length - 1
-        scloc = @length - sclen + 0 # earlier 1, but removed since sclen min 1 2011-10-1 
-      end
-      @graphic.attron(Ncurses.COLOR_PAIR(@scroll_pair) | borderatt)
-      r = @row + scloc
-      c = @col + 0
-      #$log.debug " XXX SCROLLBAR #{r} #{c} #{sclen} "
-      @graphic.mvvline(r, c, 1, sclen)
-      @graphic.attroff(Ncurses.COLOR_PAIR(@scroll_pair) | borderatt)
-      @repaint_required = false
-    end
-    ##
-    ##
-    # ADD HERE 
-  end
-end
-if __FILE__ == $PROGRAM_NAME
-  App.new do
-    r = 5
-    len = 20
-    list = []
-    0.upto(100) { |v| list << "#{v} scrollable data" }
-    lb = list_box "A list", :list => list
-    #sb = Scrollbar.new @form, :row => r, :col => 20, :length => len, :list_length => 50, :current_index => 0
-    rb = Scrollbar.new @form, :parent => lb
-    #hline :width => 20, :row => len+r
-    #keypress do |ch|
-      #case ch
-      #when :down
-        #sb.current_index += 1
-      #when :up
-        #sb.current_index -= 1
-      #end
-    #end
-  end
-end