rbcurse 1.4.1 → 1.5.0.pre1

data/lib/rbcurse/extras/statusline.rb

@@ -1,94 +0,0 @@
-require 'rbcurse'
-
-module RubyCurses
-
-  #
-  # A vim-like application status bar that can display time and various other statuses
-  #  at the bottom, typically above the dock (3rd line from last).
-  #
-  class StatusLine < Widget
-
-    def initialize form, config={}, &block
-      if form.window.height == 0
-        @row = Ncurses.LINES-3 # fix, what about smaller windows, use window dimensions and watch out for 0,0
-      else
-        @row = form.window.height-3 # fix, what about smaller windows, use window dimensions and watch out for 0,0
-      end
-       # in root windows FIXME
-      @col = 0
-      super
-      @focusable = false
-      @editable  = false
-      @command = nil
-      @repaint_required = true
-      bind(:PROPERTY_CHANGE) {  |e| @color_pair = nil ; }
-    end
-    #
-    # command that returns a string that populates the status line (left aligned)
-    # @see :right
-    # See dbdemo.rb
-    # e.g. 
-    #   @l.command { "%-20s [DB: %-s | %-s ]" % [ Time.now, $current_db || "None", $current_table || "----"] }  
-    #
-    def command *args, &blk
-      @command = blk
-      @args = args
-    end
-    alias :left :command
-
-    # 
-    # Procudure for text to be right aligned in statusline
-    def right *args, &blk
-      @right_text = blk
-      @right_args = args
-    end
-
-    # NOTE: I have not put a check of repaint_required, so this will print on each key-stroke OR
-    #   rather whenever form.repaint is called.
-    def repaint
-      @color_pair ||= get_color($datacolor, @color, @bgcolor) 
-      len = @form.window.width
-      len = Ncurses.COLS if len == 0
-
-      # first print dashes through
-      @form.window.printstring @row, @col, "%s" % "-" * len, @color_pair, Ncurses::A_REVERSE
-
-      # now call the block to get current values
-      if @command
-        ftext = @command.call(self, @args) 
-      else
-        status = $status_message ? $status_message.value : ""
-        #ftext = " %-20s | %s" % [Time.now, status] # should we print a default value just in case user doesn't
-        ftext = status # should we print a default value just in case user doesn't
-      end
-      if ftext =~ /#\[/
-        @form.window.printstring_formatted @row, @col, ftext, $datacolor, Ncurses::A_REVERSE
-      else
-        @form.window.printstring @row, @col, ftext, $datacolor, Ncurses::A_REVERSE
-      end
-      # move this to formatted FIXME
-      #@form.window.printstring_or_chunks @row, @col, ftext, $datacolor, Ncurses::A_REVERSE
-
-      if @right_text
-        ftext = @right_text.call(self, @right_args) 
-        if ftext =~ /#\[/
-          @form.window.printstring_formatted_right @row, nil, ftext, $datacolor, Ncurses::A_REVERSE
-        else
-          c = len - ftext.length
-          @form.window.printstring @row, c, ftext, $datacolor, Ncurses::A_REVERSE
-        end
-      else
-        t = Time.now
-        tt = t.strftime "%F %H:%M:%S"
-        ftext = "#[fg=green,bg=blue] %-20s" % [tt] # print a default
-        @form.window.printstring_formatted_right @row, nil, ftext, $datacolor, Ncurses::A_REVERSE
-      end
-
-      @repaint_required = false
-    end
-    def handle_keys ch
-      return :UNHANDLED
-    end
-    
-  end # class
-end # module

data/lib/rbcurse/extras/stdscrwindow.rb

@@ -1,309 +0,0 @@
-require 'ver/ncurses'
-module RubyCurses
-  #
-  # an attempt to make a window based on stdscr for bottom line printing so the entire 
-  # application can have one pointer, regardless of whether through App
-  # or otherwise. This still provides the full getchar operation, copied from
-  # Window class which is the main purpose of this. So as to provide ask, agree and say.
-  #
-  # We should be able to pass this window to bottomline and have one global bottomline
-  # created once (by window class ?)
-  #
-  # FFI: 2011-09-9 The change to FFI has affected this a lot since I do not get window
-  # methods in rbcurse for stdscr whereas suprisingly if i run the samples, i get them
-  # all.
-  #
-  #   NOTE:
-  #   WARNING: Pls do not use this class. This was just experimentation. Using stdscr
-  #   mucks up the display and overwrites objects on the screen. I will remove this class
-  #   at some time.
-  #
-  class StdscrWindow 
-    attr_reader :width, :height, :top, :left
-
-    def initialize
-
-      #@window_pointer = FFI::NCurses.initscr
-      @window_pointer = Ncurses.initscr # FFIWINDOW
-      $log.debug "STDSCR window pointer is #{@window_pointer.class}"
-      #$log.debug "STDSCR window pointer mehtods #{@window_pointer.public_methods}"
-      $error_message_row ||= Ncurses.LINES-1
-      $error_message_col ||= 1
-      init_vars
-
-
-    end
-    def init_vars
-      #Ncurses::keypad(@window_pointer, true)
-      Ncurses.keypad(@window_pointer.pointer, true)
-      @stack = []
-    end
-    ##
-
-    # Ncurses
-
-
-    # taken from Window
-    def method_missing(name, *args)
-      name = name.to_s
-      if (name[0,2] == "mv")
-        test_name = name.dup
-        test_name[2,0] = "w" # insert "w" after"mv"
-        if (@window_pointer.respond_to?(test_name)) # FFIPOINTER
-          return @window_pointer.send(test_name,*args)
-        end
-
-        if (FFI::NCurses.respond_to?(test_name))
-          return FFI::NCurses.send(test_name, @window_pointer, *args)
-        end
-      end
-      test_name = "w" + name
-      # FFI responds but the pointer does not !!! bottomline 1045
-      if (@window_pointer.respond_to?(test_name)) # FFIPOINTER
-        return @window_pointer.send(test_name,*args)
-      end
-      if (FFI::NCurses.respond_to?(test_name))
-        return FFI::NCurses.send(test_name, @window_pointer, *args)
-      end
-      # what if it does not respond, can go into loop and give stack overflow
-      FFI::NCurses.send(name, @window_pointer, *args)
-    end
-    def respond_to?(name)
-      name = name.to_s
-      if (name[0,2] == "mv" && FFI::NCurses.respond_to?("mvw" + name[2..-1]))
-        return true
-      end
-      FFI::NCurses.respond_to?("w" + name) || FFI::NCurses.respond_to?(name)
-    end
-      #@window.send(meth, *args)
-
-    # FFI WARNING XXX I think these methods one window_pointer will fail
-    # since somehow stdscr is not getting these methods here.
-    def print(string, width = width)
-      return unless visible?
-      @window_pointer.waddnstr(string.to_s, width)
-    end
-
-    def print_yx(string, y = 0, x = 0)
-      @window_pointer.mvwaddnstr(y, x, string, width)
-    end
-
-    def print_empty_line
-      return unless visible?
-      @window_pointer.printw(' ' * width)
-    end
-
-    def print_line(string)
-      print(string.ljust(width))
-    end
-
-    def puts(*strings)
-      print(strings.join("\n") << "\n")
-    end
-
-    # FFI 2011-09-9 commented off so it goes to method missing
-    def XXXrefresh
-      @window_pointer.refresh
-    end
-
-
-    def color=(color)
-      @color = color
-      @window_pointer.color_set(color, nil)
-    end
-
-    def highlight_line(color, y, x, max)
-      @window_pointer.mvchgat(y, x, max, FFI::NCurses::A_NORMAL, color, nil)
-    end
-
-    def ungetch(ch)
-      FFI::NCurses.ungetch(ch)
-    end
-
-    # this used to work fine in ncursesruby
-    # but somehow in ffi, stdscr does not have most methods, i am unable to figure
-    # this out. C-c will crash this.
-    def getch
-      c = @window_pointer.getch # FFI NW stdscr must get key not some window
-      #raise "Ncurses.stdscr does not have getch" if !Ncurses.stdscr.respond_to? :getch
-      #$log.debug " XXXX before calling getch"
-      #c = Ncurses.stdscr.getch # FFIW if you use the FFIWINDOW
-      #c = FFI::NCurses.getch # FFI 2011-09-9  # without FFIWINDOW
-      #$log.debug " XXXX after calling getch #{c}"
-      #if c == FFI::NCurses::KEY_RESIZE
-      return c
-    rescue Interrupt => ex
-      3 # is C-c
-    end
-
-    # returns control, alt, alt+ctrl, alt+control+shift, F1 .. etc
-    # ALT combinations also send a 27 before the actual key
-    # Please test with above combinations before using on your terminal
-    # added by rkumar 2008-12-12 23:07 
-    def getchar 
-      FFI::NCurses.raw # FFI required so that getch does not crash on C-c
-      while 1 
-        ch = getch 
-        #$log.debug "window getchar() GOT: #{ch}" if ch != -1
-        if ch == -1
-          # the returns escape 27 if no key followed it, so its SLOW if you want only esc
-          if @stack.first == 27
-            #$log.debug " -1 stack sizze #{@stack.size}: #{@stack.inspect}, ch #{ch}"
-            case @stack.size
-            when 1
-              @stack.clear
-              return 27
-            when 2 # basically a ALT-O, this will be really slow since it waits for -1
-              ch = 128 + @stack.last
-              @stack.clear
-              return ch
-            when 3
-              $log.debug " SHOULD NOT COME HERE getchar()"
-            end
-          end
-          @stack.clear
-          next
-        end
-        # this is the ALT combination
-        if @stack.first == 27
-          # experimental. 2 escapes in quick succession to make exit faster
-          if ch == 27
-            @stack.clear
-            return ch
-          end
-          # possible F1..F3 on xterm-color
-          if ch == 79 or ch == 91
-            #$log.debug " got 27, #{ch}, waiting for one more"
-            @stack << ch
-            next
-          end
-          #$log.debug "stack SIZE  #{@stack.size}, #{@stack.inspect}, ch: #{ch}"
-          if @stack == [27,79]
-            # xterm-color
-            case ch
-            when 80
-              ch = KEY_F1
-            when 81
-              ch = KEY_F2
-            when 82
-              ch = KEY_F3
-            when 83
-              ch = KEY_F4
-            end
-            @stack.clear
-            return ch
-          elsif @stack == [27, 91]
-            if ch == 90
-              @stack.clear
-              return KEY_BTAB # backtab
-            end
-          end
-          # the usual Meta combos. (alt)
-          ch = 128 + ch
-          @stack.clear
-          return ch
-        end
-        # append a 27 to stack, actually one can use a flag too
-        if ch == 27
-          @stack << 27
-          next
-        end
-        return ch
-      end
-    end
-
-    def clear
-      # return unless visible?
-      move 0, 0
-      puts *Array.new(height){ ' ' * (width - 1) }
-    end
-
-
-    def visible?
-      @visible
-    end
-    ## 
-    # added by rk 2008-11-29 19:01 
-    # I usually use this, not the others ones here
-    # @param  r - row
-    # @param  c - col
-    # @param string - text to print
-    # @param color - color pair
-    # @ param att - ncurses attribute: normal, bold, reverse, blink,
-    # underline
-    def printstring(r,c,string, color, att = FFI::NCurses::A_NORMAL)
-        prv_printstring(r,c,string, color, att )
-    end
-
-    ## name changed from printstring to prv_prinstring
-    def prv_printstring(r,c,string, color, att = FFI::NCurses::A_NORMAL)
-
-      #$log.debug " #{@name} inside window printstring r #{r} c #{c} #{string} "
-      att = FFI::NCurses::A_NORMAL if att.nil? 
-      case att.to_s.downcase
-      when 'normal'
-        att = FFI::NCurses::A_NORMAL
-      when 'underline'
-        att = FFI::NCurses::A_UNDERLINE
-      when 'bold'
-        att = FFI::NCurses::A_BOLD
-      when 'blink'
-        att = FFI::NCurses::A_BLINK    # unlikely to work
-      when 'reverse'
-        att = FFI::NCurses::A_REVERSE    
-      end
-
-      attron(Ncurses.COLOR_PAIR(color) | att)
-      # we should not print beyond window coordinates
-      # trying out on 2009-01-03 19:29 
-      width = Ncurses.COLS
-      # the next line won't ensure we don't write outside some bounds like table
-      #string = string[0..(width-c)] if c + string.length > width
-      #$log.debug "PRINT len:#{string.length}, #{Ncurses.COLS}, #{r}, #{c} w: #{@window} "
-      mvprintw(r, c, "%s", string);
-      attroff(Ncurses.COLOR_PAIR(color) | att)
-    end
-    # added by rk 2008-11-29 19:01 
-    # Since these methods write directly to window they are not advised
-    # since clearing previous message we don't know how much to clear.
-    # Best to map error_message to a label.
-    #  2010-09-13 00:22 WE should not use these any longer.
-    #  Application should create a label and map a Variable named
-    #  $errormessage to it. We should only update the Variable
-    # CLEANUP DEPRECATED
-    def print_error_message text=$error_message
-      raise "DEPRECATED CLEANUP use global method of same name"
-      r = $error_message_row || Ncurses.LINES-1
-      c = $error_message_col || (Ncurses.COLS-text.length)/2 
-
-      $log.debug "got ERROR MESSAGE #{text} row #{r} "
-      clear_error r, $datacolor
-      printstring r, c, text, color = $promptcolor
-      $error_message_clear_pending = true
-    end
-    # added by rk 2008-11-29 19:01 
-    # CLEANUP DEPRECATED
-    def print_status_message text=$status_message
-      raise "DEPRECATED CLEANUP use global method of same name"
-      r = $status_message_row || Ncurses.LINES-1
-      clear_error r, $datacolor
-      # print it in centre
-      printstring r, (Ncurses.COLS-text.length)/2, text, color = $promptcolor
-    end
-    # Clear error message printed
-    # I am not only clearing if something was printed. This is since
-    # certain small forms like TabbedForm top form throw an error on printstring.
-    # 
-      #raise "DEPRECATED CLEANUP use global method of same name"
-    def clear_error r = $error_message_row, color = $datacolor
-      return unless $error_message_clear_pending
-      c = $error_message_col || (Ncurses.COLS-text.length)/2 
-      sz = $error_message_size || Ncurses.COLS
-      printstring(r, c, "%-*s" % [sz, " "], color)
-      $error_message_clear_pending = false
-    end
-    ##
-    def get_window; @window_pointer; end
-    def to_s; @name || self; end
-  end
-end

data/lib/rbcurse/extras/tableextended.rb

@@ -1,40 +0,0 @@
-# Provides extended abilities to a table
-# so user does not need to code it into his app.
-# At the same time, i don't want to weigh down Table with too much functionality/
-# I am putting in some stuff, so that table columns can be resized, using multipliers.
-# That allows us to redistribute the space taken or released across rows.
-# Other options: dd, C, . (repeat) and how about range operations
-#
-module TableExtended
-
-  ##
-  # increase the focused column
-  # If no size passed, then use numeric multiplier, else 1
-  # Typically, one would bind a key such as + to this method
-  # e.g. atable.bind_key(?+) { atable.increase_column ; }
-  # See examples/viewtodo.rb for usage
-  def increase_column num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
-
-    acolumn = column focussed_col()
-    #num = $multiplier || 1
-    $multiplier = 0
-    w = acolumn.width + num
-    acolumn.width w
-    #atable.table_structure_changed
-  end
-  # decrease the focused column
-  # If no size passed, then use numeric multiplier, else 1
-  # Typically, one would bind a key such as - to this method
-  def decrease_column num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
-    acolumn = column focussed_col()
-    w = acolumn.width - num
-    $multiplier = 0
-    if w > 3
-      acolumn.width w
-      #atable.table_structure_changed
-    end
-  end
-
-
-
-end

data/lib/rbcurse/extras/tabular.rb

@@ -1,264 +0,0 @@
-#!/usr/bin/env ruby -w
-=begin
-  * Name          : A Quick take on tabular data. Readonly.
-  * Description   : To show tabular data inside a control, rather than going by the huge
-                    Table object, I want to create a simple, minimal table data generator.
-                    This will be thrown into a TextView for the user to navigate, select
-                    etc.
-                    I would use this applications where the tabular data is fairly fixed
-                    not where i want the user to select columns, move them, expand etc.
-  *               :
-  * Author        : rkumar
-  * Date          : 
-  * License       :
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
-
-#
-# A simple tabular data generator. Given table data in arrays and a column heading row in arrays, it 
-# quickely generates tabular data. It only takes left and right alignment of columns into account.
-#   You may specify individual column widths. Else it will take the widths of the column names you supply 
-# in the startup array. You are encouraged to supply column widths.
-#   If no columns are specified, and no widths are given, it take the widths of the first row 
-# as a model to determine column widths. 
-#
-module RubyCurses
-
-  class Tabular
-    GUESSCOLUMNS = 20
-
-  def yield_or_eval &block
-    return unless block
-    if block.arity > 0
-      yield self
-    else
-      self.instance_eval(&block)
-    end
-  end
-    # stores column info internally
-    class ColumnInfo < Struct.new(:name, :w, :align)
-    end
-    # an array of column titles
-    attr_reader :columns
-    # boolean, does user want lines numbered
-    attr_accessor :numbering
-    # x is the + character used a field delim in separators
-    # y is the field delim used in data rows, default is pipe or bar
-    attr_accessor :x, :y
-
-    # takes first optional argument as array of column names
-    # second optional argument as array of data arrays
-    # @yield self
-    #
-    def initialize cols=nil, *args, &block
-      @chash = {}
-      @cw = {}
-      @calign = {}
-      @separ = @columns = @numbering =  nil
-      @y = '|'
-      @x = '+'
-      self.columns = cols if cols
-      if !args.empty?
-        puts "ARGS after shift #{args} "
-        if !args.empty?
-          self.data = args
-        end
-      end
-      yield_or_eval(&block) if block_given?
-    end
-    #
-    # set columns names 
-    # @param [Array<String>] column names, preferably padded out to width for column
-    def columns=(array)
-      $log.debug "tabular got columns #{array.count} #{array.inspect} " if $log
-      @columns = array
-      @columns.each_with_index { |c,i| 
-        @chash[i] = ColumnInfo.new(c, c.to_s.length) 
-        @cw[i] ||= c.to_s.length
-        #@calign[i] ||= :left # 2011-09-27 prevent setting later on
-      }
-    end
-    alias :headings= :columns=
-    #
-    # set data as an array of arrays
-    # @param [Array<Array>] data as array of arrays
-    def data=(list)
-      puts "got data: #{list.size} " if !$log
-      puts list if !$log
-      @list = list
-    end
-
-    # add a row of data 
-    # @param [Array] an array containing entries for each column
-    def add array
-      $log.debug "tabular got add  #{array.count} #{array.inspect} " if $log
-      @list ||= []
-      @list << array
-    end
-    alias :<< :add
-    alias :add_row :add
-
-    # set width of a given column
-    # @param [Number] column offset, starting 0
-    # @param [Number] width
-    def column_width colindex, width
-      @cw[colindex] ||= width
-      if @chash[colindex].nil?
-        @chash[colindex] = ColumnInfo.new("", width) 
-      else
-        @chash[colindex].w = width
-      end
-      @chash
-    end
-
-    # set alignment of given column offset
-    # @param [Number] column offset, starting 0
-    # @param [Symbol] :left, :right
-    def align_column colindex, lrc
-      raise ArgumentError, "wrong alignment value sent" if ![:right, :left, :center].include? lrc
-      @calign[colindex] ||= lrc
-      if @chash[colindex].nil?
-        @chash[colindex] = ColumnInfo.new("", nil, lrc)
-      else
-        @chash[colindex].align = lrc
-      end
-      @chash
-    end
-
-    # 
-    # Now returns an array with formatted data
-    # @return [Array<String>] array of formatted data
-    def render
-      buffer = []
-      _guess_col_widths
-      rows = @list.size.to_s.length
-      @rows = rows
-      _prepare_format
-      
-      str = ""
-      if @numbering
-        str = " "*(rows+1)+@y
-      end
-      str <<  @fmstr % @columns
-      buffer << str
-      #puts "-" * str.length
-      buffer << separator
-      if @list
-        if @numbering
-          @fmstr = "%#{rows}d "+ @y + @fmstr
-        end
-        #@list.each { |e| puts e.join(@y) }
-        count = 0
-        @list.each_with_index { |r,i|  
-          value = convert_value_to_text r, count
-          buffer << value
-          count += 1
-        }
-      end
-      buffer
-    end
-    def convert_value_to_text r, count
-      if r == :separator
-        return separator
-      end
-      if @numbering
-        r.insert 0, count+1
-      end
-      return @fmstr % r;  
-    end
-    # use this for printing out on terminal
-    # @example
-    #     puts t.to_s
-    def to_s
-      render().join "\n"
-    end
-    def add_separator
-      @list << :separator
-    end
-    def separator
-      return @separ if @separ
-      str = ""
-      if @numbering
-        str = "-"*(@rows+1)+@x
-      end
-      @cw.each_pair { |k,v| str << "-" * (v+1) + @x }
-      @separ = str.chop
-    end
-    private
-    def _guess_col_widths  #:nodoc:
-      @list.each_with_index { |r, i| 
-        break if i > GUESSCOLUMNS
-        next if r == :separator
-        r.each_with_index { |c, j|
-          x = c.to_s.length
-          if @cw[j].nil?
-            @cw[j] = x
-          else
-            @cw[j] = x if x > @cw[j]
-          end
-        }
-      }
-    end
-    def _prepare_format  #:nodoc:
-      @fmtstr = nil
-      fmt = []
-      @cw.each_with_index { |c, i| 
-        w = @cw[i]
-        case @calign[i]
-        when :right
-          fmt << "%#{w}s "
-        else
-          fmt << "%-#{w}s "
-        end
-      }
-      @fmstr = fmt.join(@y)
-      puts "format: #{@fmstr} "
-    end
-  end
-end
-
-if __FILE__ == $PROGRAM_NAME
-  include RubyCurses
-  $log = nil
-  t = Tabular.new(['a', 'b'], [1, 2], [3, 4])
-  puts t.to_s
-  puts 
-  t = Tabular.new([" Name ", " Number ", "  Email    "])
-  t.add %w{ rahul 32 r@ruby.org }
-  t << %w{ _why 133 j@gnu.org }
-  t << %w{ Jane 1331 jane@gnu.org }
-  t.column_width 1, 10
-  t.align_column 1, :right
-  puts t.to_s
-  puts
-
-  s = Tabular.new do |b|
-    b.columns = %w{ country continent text }
-    b << ["india","asia","a warm country" ] 
-    b << ["japan","asia","a cool country" ] 
-    b << ["russia","europe","a hot country" ] 
-    b.column_width 2, 30
-  end
-  puts s.to_s
-  puts
-  puts "::::"
-  puts
-  s = Tabular.new do |b|
-    b.columns = %w{ place continent text }
-    b << ["india","asia","a warm country" ] 
-    b << ["japan","asia","a cool country" ] 
-    b << ["russia","europe","a hot country" ] 
-    b << ["sydney","australia","a dry country" ] 
-    b << ["canberra","australia","a dry country" ] 
-    b << ["ross island","antarctica","a dry country" ] 
-    b << ["mount terror","antarctica","a windy country" ] 
-    b << ["mt erebus","antarctica","a cold place" ] 
-    b << ["siberia","russia","an icy city" ] 
-    b << ["new york","USA","a fun place" ] 
-    b.column_width 0, 12
-    b.column_width 1, 12
-    b.numbering = true
-  end
-  puts s.to_s
-end