rkumar-rbcurse 0.1.0

data/lib/rbcurse.rb

@@ -0,0 +1,7 @@
+require 'ver/ncurses'
+require 'ver/window'
+require 'rbcurse/rwidget'
+require 'rbcurse/rdialogs'
+class Rbcurse
+  VERSION = '0.1.0'
+end

data/lib/rbcurse/action.rb

@@ -0,0 +1,31 @@
+require 'rbcurse/rwidget'
+include Ncurses
+include RubyCurses
+module RubyCurses
+  ## encapsulates behaviour allowing centralization
+  class Action < Proc
+    include EventHandler
+    include ConfigSetup
+    # name used on button or menu
+    dsl_property :name
+    dsl_property :enabled
+    dsl_accessor :tooltip_text
+    dsl_accessor :help_text
+    dsl_accessor :mnemonic
+    dsl_accessor :accelerator
+
+    def initialize name, config={}, &block
+      super &block
+      @name = name
+      @name.freeze
+      @enabled = true
+      config_setup config # @config.each_pair { |k,v| variable_set(k,v) }
+    end
+    def call
+      return unless @enabled
+      fire_handler :FIRE, self
+      super
+    end
+  end # class
+end # module
+

data/lib/rbcurse/applicationheader.rb

@@ -0,0 +1,57 @@
+require 'rbcurse/rwidget'
+include Ncurses
+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
+      super form, config, &block
+      @window = form.window
+      @editable = false
+      @focusable = false
+      @cols ||= Ncurses.COLS-1
+      @row ||= 0
+      @col ||= 0
+      @repaint_required = true
+      @color_pair ||= $bottomcolor
+      @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)
+      print_header(@text1 + " %15s " % @text2 + " %20s" % @text_center , posy=0, posx=0)
+      print_top_right(@text_right)
+      @repaint_required = false
+    end
+    def print_header(htext, r = 0, c = 0)
+    $log.debug " def print_header(#{htext}, posy = 0, posx = 0)"
+      win = @window
+      len = Ncurses.COLS-1
+      @form.window.printstring r, c, "%-*s" % [len, htext], @color_pair, @attr
+    end
+    def print_top_right(htext)
+    $log.debug " def print_top_right(#{htext})"
+      hlen = htext.length
+      len = Ncurses.COLS-1
+      @form.window.printstring 0, len-hlen, htext, @color_pair, @attr
+    end
+    ##
+    ##
+    # ADD HERE 
+  end
+end

data/lib/rbcurse/celleditor.rb

@@ -0,0 +1,120 @@
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+#require 'lib/rbcurse/rwidget'
+
+
+##
+# 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
+# TODO test and integrate with 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
+      #$log.debug " CELL EIDOTR got #{@_class}"
+      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?
+        $log.debug " Table about to fire CHANGED for #{f} "
+        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}"
+      #widget.display_length = widget.display_length -1
+      widget.bgcolor = 'yellow'
+      widget.color = 'black'
+      widget.on_enter
+      #widget.attr = Ncurses::A_REVERSE | Ncurses::A_BOLD
+      #$log.debug " prepare editor value #{value} : fr:#{row}, fc:#{col}"
+    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

@@ -0,0 +1,69 @@
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+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
+    include ConfigSetup
+    include RubyCurses::Utils
+    dsl_accessor :justify     # :right, :left, :center  # added 2008-12-22 19:02 
+    dsl_accessor :display_length     #  please give this to ensure the we only print this much
+    dsl_accessor :height    # if you want a multiline label.
+    dsl_accessor :text    # text of label
+    dsl_accessor :value    # text of label
+    dsl_accessor :color, :bgcolor
+    dsl_accessor :row, :col
+    dsl_accessor :parent    #usuall the table to get colors and other default info
+    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

@@ -0,0 +1,133 @@
+require 'rubygems'
+require 'ver/ncurses'
+module ColorMap
+  ## private
+  # returns a color constant for a human color string
+  def ColorMap.get_color_const colorstring
+    Ncurses.const_get "COLOR_#{colorstring.upcase}"
+  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
+    Ncurses.init_pair(@color_id, fg, bg);
+    $color_map[[fgc, bgc]] = @color_id
+    return @color_id
+  end
+  ## public
+  # returns a color_pair for a given foreground and background color
+  def ColorMap.get_color fgc, bgc=$def_bg_color
+    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
+
+  ## public
+  # setup color map at start of application
+  def ColorMap.setup
+    @color_id = 0
+    $color_map = {}
+    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 = %w[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')
+    $normalcolor = $datacolor = ColorMap.get_color('white', 'black')
+    $bottomcolor = $topcolor = ColorMap.get_color('white', 'blue')
+
+#    $log.debug " colormap SETUP: #{$datacolor} #{$reversecolor} "
+  end
+
+end # modul
+if $0 == __FILE__
+require 'logger'
+require 'lib/ver/window'
+include Ncurses
+include ColorMap
+  # Initialize curses
+  begin
+    VER::start_ncurses
+    @window = VER::Window.root_window
+    $log = Logger.new("view.log")
+    $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()) != KEY_F1 )
+        next if ch == -1
+        break if ch == ?q
+        case ch
+        when ?r
+          attr |= Ncurses::A_REVERSE
+        when ?b
+          attr |= Ncurses::A_BOLD
+        when ?n
+          attr = Ncurses::A_NORMAL
+        when ?u
+          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

@@ -0,0 +1,45 @@
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+#require 'lib/rbcurse/rwidget'
+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
+    dsl_accessor :justify     # :right, :left, :center  # added 2008-12-22 19:02 
+    dsl_accessor :display_length     #  please give this to ensure the we only print this much
+    dsl_accessor :height    # if you want a multiline label.
+    dsl_accessor :text    # text of label
+    dsl_accessor :color, :bgcolor
+    dsl_accessor :row, :col
+    dsl_accessor :parent    #usuall the table to get colors and other default info
+
+    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
+    def init_vars
+      @justify ||= :left
+      @display_length ||= 10
+    end
+    ## me thinks this is unused
+    def getvalue
+      raise "I think this is unused. comboboxcellrenderer line 36"
+      @text
+    end
+
+    ##
+    # 
+  # ADD HERE 
+  end
+end