rbcurse 1.4.1 → 1.5.0.pre1

data/lib/rbcurse/applicationheader.rb

@@ -1,102 +0,0 @@
-# ----------------------------------------------------------------------------- #
-#         File: applicationheader.rb
-#  Description: Prints a header on first row, with right, left and centered text
-#               NOTE: on some terminal such as xterm-256color spaces do not print
-#               so you will see black or empty spaces between text.
-#               This does not happen on screen and xterm-color.
-#       Author: rkumar http://github.com/rkumar/rbcurse/
-#         Date: 
-#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-#  Last update: 2011-11-16 - 00:07
-#
-#  CHANGES:
-#              For some terminals, like xterm-256color which were not printing spaces
-#              I've changed to code so only text is printed where it has to with no
-#              padding. These terminals remove the padding color.
-# ----------------------------------------------------------------------------- #
-#
-require 'rbcurse/rwidget'
-include RubyCurses
-module RubyCurses
-  class ApplicationHeader < Widget
-    dsl_property :text1
-    dsl_property :text2
-    dsl_property :text_center
-    dsl_property :text_right
-
-
-    def initialize form, text1, config={}, &block
-
-      @text1 = text1
-      # setting default first or else Widget will place its BW default
-      @color, @bgcolor = ColorMap.get_colors_for_pair $bottomcolor
-      super form, config, &block
-      @color_pair = get_color $bottomcolor, @color, @bgcolor
-      @window = form.window
-      @editable = false
-      @focusable = false
-      @cols ||= Ncurses.COLS-1
-      @row ||= 0
-      @col ||= 0
-      @repaint_required = true
-      #@color_pair ||= $bottomcolor  # XXX this was forcing the color
-      #pair
-      @text2 ||= ""
-      @text_center ||= ""
-      @text_right ||= ""
-    end
-    def getvalue
-      @text1
-    end
-
-    ##
-    # XXX need to move wrapping etc up and done once. 
-    def repaint
-      return unless @repaint_required
- 
-      #print_header(htext, posy = 0, posx = 0)
-      att = get_attrib @attr
-      len = @window.width
-      len = Ncurses.COLS-0 if len == 0
-      # print a bar across the screen 
-      @window.attron(Ncurses.COLOR_PAIR(@color_pair) | att)
-      @window.mvhline(@row, @col, 1, len)
-      @window.attroff(Ncurses.COLOR_PAIR(@color_pair) | att)
-      #print_header(@text1 + " %15s " % @text2 + " %20s" % @text_center , posy=0, posx=0)
-
-      # Now print the text in the correct positions with no padding, else some terminal
-      # will blacken the text out.
-      print_header("#{@text1}  #{@text2}") # + " %20s" % @text_center , posy=0, posx=0)
-      print_center("#{@text_center}") # + " %20s" % @text_center , posy=0, posx=0)
-      print_top_right(@text_right)
-      @repaint_required = false
-    end
-    def print_header(htext, r = 0, c = 0)
-      #win = @window
-      #len = @window.width
-      #len = Ncurses.COLS-0 if len == 0
-      #
-      #@form.window.printstring r, c, "%-*s" % [len, htext], @color_pair, @attr
-      @form.window.printstring r, c, htext, @color_pair, @attr
-    end
-    def print_center(htext, r = 0, c = 0)
-      win = @window
-      len = win.width
-      len = Ncurses.COLS-0 if len == 0
-      #
-      #@form.window.printstring r, c, "%-*s" % [len, htext], @color_pair, @attr
-      win.printstring r, ((len-htext.length)/2).floor, htext, @color_pair, @attr
-    end
-    def print_top_right(htext)
-    $log.debug " def print_top_right(#{htext})"
-      hlen = htext.length
-      len = Ncurses.COLS-0
-      len = @window.width
-      len = Ncurses.COLS-0 if len == 0
-      @form.window.printstring 0, len-hlen, htext, @color_pair, @attr
-    end
-    ##
-    ##
-    # ADD HERE 
-  end
-end

data/lib/rbcurse/celleditor.rb

@@ -1,112 +0,0 @@
-
-##
-# This file gives us a mean of using a component as an editor in a list or later table.
-# The component is created once and used with each row.
-# It does not really have a form associated with it, although we do set a form
-# so it can display itself. Otherwise it is not added to the forms widget list, so the 
-# form has no idea tha this widget exists.
-#
-# Tested with Field, combo and checkbox, tables.
-#
-module RubyCurses
-  class CellEditor
-    include ConfigSetup
-    include RubyCurses::Utils
-
-    def initialize component, config={}, &block
-      @component = component
-      s = @component.class.to_s.downcase()
-      s.slice!("rubycurses::")
-      @_class = s.to_sym
-      config_setup config # @config.each_pair { |k,v| variable_set(k,v) }
-      instance_eval &block if block_given?
-    end
-    def getvalue
-      case @_class
-      when :field
-        return field_getvalue
-      when :checkbox
-        return checkbox_getvalue
-      when :combobox
-        return combobox_getvalue
-      else
-        raise "Unknown class #{@_class} in CellEditor getv"
-      end
-    end
-    # maybe this should check valid (on_leave) and throw exception
-    def field_getvalue
-      #@component.on_leave # throws exception! Added 2009-01-17 00:47 
-      @component.init_vars # 2009-01-18 01:13 should not carry over to next row curpos and pcol
-      return @component.getvalue
-    end
-    def checkbox_getvalue
-      @component.getvalue
-    end
-    def combobox_getvalue
-      #@component.on_leave # added 2009-01-19 12:12 
-      @component.getvalue
-      #@component.selected_item
-    end
-    def setvalue value
-      case @_class
-      when :field
-        @component.set_buffer value
-      when :checkbox
-        @component.checked value
-      when :combobox
-        @component.set_buffer value
-        #index = @component.list.index value
-        #@component.current_index = index
-      else
-        raise "Unknown class #{@_class} in CellEditor setv"
-      end
-    end
-    def component
-      @component
-    end
-    # should be called from on_leave_cell of table, but is beng called from editing_stopped FIXME
-    def on_leave row, col
-      f = @component
-      f.on_leave
-      if f.respond_to? :editable and f.modified?
-        f.fire_handler(:CHANGED, f) 
-      end
-    end
-    def prepare_editor parent, row, col,  value
-      #value = value.dup if value.respond_to? :dup
-      value = value.dup rescue value
-      setvalue value #.dup
-      widget = component()
-      widget.row = row
-      widget.col = col
-      # unfortunately 2009-01-11 19:47 combo boxes editable allows changing value
-      # FIXME so combo's can be editable, but no new value added
-      if @_class == :combobox
-        widget.editable = false if widget.respond_to? :editable  # chb's don't ???
-      else
-        widget.editable = true if widget.respond_to? :editable  # chb's don't ???
-      end
-      widget.focusable = true
-      widget.visible = true
-      widget.form = parent.form
-      #$log.debug " prepare editor value #{widget.display_length} displlen #{widget.maxlen}"
-      #$log.debug " prepare editor form: #{widget.form} " # 2011-11-15 12:54:41
-      #widget.display_length = widget.display_length -1
-      widget.bgcolor = 'yellow'
-      widget.color = 'black'
-      widget.on_enter
-      #widget.attr = Ncurses::A_REVERSE | Ncurses::A_BOLD
-    end
-    #This may not really be necessary since we paint the cell editor only if editing is on
-    def cancel_editor
-      widget = component()
-      # NOOO THIS IS CALLED BY CANCEL AND STOP
-      # somehow we need to ensure that if on_leave fails you can't get out. Here its a bit late
-      # i think FIXME TODO
-      #widget.on_leave # call so any triggers or validations can fire
-      widget.focusable = false
-      widget.visible = false
-      widget.attr = Ncurses::A_REVERSE 
-    end
-  end # class
-end # module

data/lib/rbcurse/checkboxcellrenderer.rb

@@ -1,57 +0,0 @@
-require 'rbcurse/listcellrenderer'
-module RubyCurses
-
-  ## 
-  # This is a basic list cell renderer that will render the to_s value of anything.
-  # Using alignment one can use for numbers too.
-  # However, for booleans it will print true and false. If editing, you may want checkboxes
-  class CheckBoxCellRenderer < ListCellRenderer
-    dsl_accessor :value    # text of label
-    dsl_accessor :surround_chars
-
-    def initialize boolean=nil, config={}, &block
-      @value = boolean
-      @text = "" # what if someone wants to show a label later. ??? XXX
-      @editable = false
-      @focusable = false
-      config_setup config # @config.each_pair { |k,v| variable_set(k,v) }
-      instance_eval &block if block_given?
-      init_vars
-    end
-    def init_vars
-      @justify ||= :left
-      @display_length ||= 5
-      @surround_chars = ['[',']']
-    end
-    def getvalue
-      @value
-    end
-
-    ##
-    # 
-    def repaint graphic, r=@row,c=@col, row_index=-1,value=@value, focussed=false, selected=false
-        #$log.debug "label :#{@text}, #{value}, #{r}, #{c} col= #{@color}, #{@bgcolor} acolor= #{acolor} j:#{@justify} dlL: #{@display_length} "
-
-      prepare_default_colors focussed, selected
-
-      buttontext = value ? "X" : " "
-      # HOW TO DO THE TEXT ??? XXX
-      # the space in dtext next line is a cheat, to clear off the space that the
-      # editor is leaving.
-      dtext = " " #@display_length.nil? ? @text : "%-*s" % [@display_length, @text]
-      if @align_right
-        #@text_offset = 0
-        #@col_offset = dtext.length + @surround_chars[0].length + 1
-        str = "#{dtext} " + @surround_chars[0] + buttontext + @surround_chars[1] 
-      else
-        pretext = @surround_chars[0] + buttontext + @surround_chars[1] 
-        #@text_offset = pretext.length + 1
-        #@col_offset = @surround_chars[0].length
-        #@surround_chars[0] + buttontext + @surround_chars[1] + " #{@text}"
-        str = pretext + " #{dtext}"
-      end
-      graphic.printstring r, c, str, @color_pair,@attr
-    end
-  # ADD HERE 
-  end
-end

data/lib/rbcurse/colormap.rb

@@ -1,159 +0,0 @@
-require 'ver/ncurses'
-module ColorMap
-  # 2010-09-20 12:22 changed colors from string to symbol
-  ## private
-  # returns a color constant for a human color string
-  def ColorMap.get_color_const colorstring
-    ret = FFI::NCurses.const_get "COLOR_#{colorstring.upcase}"
-    #raise  "color const nil ColorMap 8 " if !ret
-  end
-  ## private
-  # creates a new color pair, puts in color map and returns color_pair
-  # number
-  def ColorMap.install_color fgc, bgc
-      #$log.debug " install_color found #{fgc} #{@bgc} "
-      @color_id += 1
-    fg = ColorMap.get_color_const fgc
-    bg = ColorMap.get_color_const bgc
-    FFI::NCurses.init_pair(@color_id, fg, bg);
-    $color_map[[fgc, bgc]] = @color_id
-    return @color_id
-  end
-  #
-  # returns the colors that make up the given pair
-  # you may want to find what makes up $bottomcolor and set color and bgcolor with it.
-  # @param [Fixnum] color_pair
-  # @return [Symbol, Symbol]  foreground and backgrounf color
-  # @example 
-  #     color, bgcolor = get_colors_for_pair $datacolor
-  #
-  def ColorMap.get_colors_for_pair pair
-    $color_map.invert[pair]
-  end
-  ## public
-  # returns a color_pair for a given foreground and background color
-  def ColorMap.get_color fgc, bgc=$def_bg_color
-    fgc = fgc.to_sym if fgc.is_a? String
-    bgc = bgc.to_sym if bgc.is_a? String
-    if $color_map.include? [fgc, bgc]
-      #$log.debug " get_color found #{fgc} #{@bgc} "
-      return $color_map[[fgc, bgc]]
-    else
-      #$log.debug " get_color NOT found #{fgc} #{@bgc} "
-      return ColorMap.install_color fgc, bgc
-    end
-  end
-  def ColorMap.colors
-    @@colors
-  end
-  # returns true if color is a valid one, else false
-  # @param [Symbol] color such as :black :cyan :yellow
-  # @return [Boolean] true if valid, else false
-  def ColorMap.is_color? color
-    @@colors.include? color.to_sym
-  end
-
-  ## public
-  # setup color map at start of application
-  def ColorMap.setup
-    @color_id = 0
-    $color_map = {}
-    FFI::NCurses.start_color();
-    # Initialize few color pairs 
-    $def_fg_color = :white   # pls set these 2 for your application
-    $def_bg_color = :black
-    #COLORS = [COLOR_BLACK, COLOR_RED, COLOR_GREEN, COLOR_YELLOW, COLOR_BLUE, 
-    #     COLOR_MAGENTA, COLOR_CYAN, COLOR_WHITE]
-    @@colors = [:black, :red, :green, :yellow, :blue, :magenta, :cyan, :white]
-
-    # make foreground colors
-    bg = ColorMap.get_color_const $def_bg_color
-    @@colors[0...@@colors.size].each_with_index do |color, i|
-      next if color == $def_bg_color
-      ColorMap.install_color color, $def_bg_color
-    end
-    $reversecolor = ColorMap.get_color $def_bg_color, $def_fg_color
-    $popupcolor = ColorMap.get_color :cyan, $def_fg_color
-
-    $errorcolor = ColorMap.get_color :white, :red
-    #$promptcolor = $selectedcolor = ColorMap.get_color(:yellow, :red)
-    $promptcolor = ColorMap.get_color(:yellow, :red)
-    $normalcolor = $datacolor = ColorMap.get_color(:white, :black)
-    $bottomcolor = $topcolor = ColorMap.get_color(:white, :blue)
-    $selectedcolor = $datacolor # since we now use reverse attr in list
-
-    $row_selected_attr = Ncurses::A_REVERSE
-    $row_focussed_attr = Ncurses::A_BOLD
-    $row_attr          = Ncurses::A_NORMAL
-
-#    $log.debug " colormap SETUP: #{$datacolor} #{$reversecolor} "
-  end
-
-end # modul
-if $0 == __FILE__
-require 'logger'
-require 'ver/window'
-#include Ncurses # FFI 2011-09-8 
-include ColorMap
-  # Initialize curses
-  begin
-    $log = Logger.new("rbc13.log")
-    VER::start_ncurses
-    @window = VER::Window.root_window
-    $log.level = Logger::DEBUG
-    ColorMap.setup
-
-    # Create the window to be associated with the form 
-    # Un post form and free the memory
-
-    catch(:close) do
-#      $log.debug "START  ---------"
-      # need to pass a form, not window.
-      r = 1; c = 2; i=0
-      attr = Ncurses::A_NORMAL
-      @window.printstring  20, c, "press 0-9 to change BG color,  F1/q to quit. r-everse, n-ormal,b-old ", ColorMap.get_color('white')
-
-      
-
-      while((ch = @window.getchar()) != FFI::NCurses::KEY_F1 )
-        next if ch == -1
-        break if ch == ?q.getbyte(0)
-        case ch
-        when ?r.getbyte(0)
-          attr |= Ncurses::A_REVERSE
-        when ?b.getbyte(0)
-          attr |= Ncurses::A_BOLD
-        when ?n.getbyte(0)
-          attr = Ncurses::A_NORMAL
-        when ?u.getbyte(0)
-          attr |= Ncurses::A_UNDERLINE
-        else
-        i = ch.chr.to_i
-        i = 1 if i > ColorMap::colors.length-1
-        end
-        bg = ColorMap::colors[i]
-    @@colors = %w[black red green yellow blue magenta cyan white]
-      @window.printstring  r, c, "%-40s" % "red #{bg}      ", ColorMap.get_color('red',bg) , attr
-      @window.printstring  2, c, "%-40s" % "blue #{bg}      ", ColorMap.get_color('blue',bg) , attr
-      @window.printstring  3, c, "%-40s" % "white #{bg}      ", ColorMap.get_color('white',bg) , attr
-      @window.printstring  4, c, "%-40s" % "green #{bg}      ", ColorMap.get_color('green',bg) , attr
-      @window.printstring  5, c, "%-40s" % "cyan #{bg}      ", ColorMap.get_color('cyan',bg) , attr
-      @window.printstring  6, c, "%-40s" % "magenta #{bg}      ", ColorMap.get_color('magenta',bg) , attr
-      @window.printstring  7, c, "black #{bg}      ", ColorMap.get_color('black',bg) , attr
-        @window.wrefresh
-      end
-      #     VER::Keyboard.focus = tp
-    end
-  rescue => ex
-  ensure
-   #  @panel = @window.panel if @window
-   #  Ncurses::Panel.del_panel(@panel) if !@panel.nil?   
-   #  @window.delwin if !@window.nil?
-    @window.destroy unless @window.nil?
-      VER::stop_ncurses
-    p ex if ex
-    p(ex.backtrace.join("\n")) if ex
-#    $log.debug( ex) if ex
-#    $log.debug(ex.backtrace.join("\n")) if ex
-  end
-end

data/lib/rbcurse/comboboxcellrenderer.rb

@@ -1,30 +0,0 @@
-module RubyCurses
-
-  ## 
-  # This is a list cell renderer that will render combo boxes.
-  # Since a combo box extends a field therefore the repaint of field is used.
-  # In other words there is nothing much to do here.
-  # 
-  class ComboBoxCellRenderer < ListCellRenderer
-    include ConfigSetup
-    include RubyCurses::Utils
-
-    def initialize text="", config={}, &block
-      @text = text
-      @editable = false
-      @focusable = false
-      config_setup config # @config.each_pair { |k,v| variable_set(k,v) }
-      instance_eval &block if block_given?
-      init_vars
-    end
-    ## me thinks this is unused
-    def getvalue
-      raise "I think this is unused. comboboxcellrenderer line 36"
-      @text
-    end
-
-    ##
-    # 
-  # ADD HERE 
-  end
-end