ncumbra 0.1.0 → 0.1.1

data/examples/extabular.rb

@@ -0,0 +1,123 @@
+#!/usr/bin/env ruby
+# ----------------------------------------------------------------------------- #
+#         File: ,,F
+#  Description: This file does the following:
+#       Author:  r kumar
+#         Date: ,,D
+#  Last update: 2018-05-15 12:53
+#      License: MIT License
+# ----------------------------------------------------------------------------- #
+require 'umbra'
+require 'umbra/label'
+require 'umbra/tabular'
+require 'umbra/listbox'
+require 'umbra/textbox'
+require 'umbra/box'
+
+def startup
+  require 'logger'
+  require 'date'
+
+    path = File.join(ENV["LOGDIR"] || "./" ,"v.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT) 
+    $log = Logger.new(path)
+    $log.level = Logger::DEBUG
+    today = Date.today
+    $log.info "Started demo tabular on #{today}"
+    FFI::NCurses.init_pair(10,  FFI::NCurses::BLACK,   FFI::NCurses::GREEN) # statusline
+end
+def statusline win, str, col = 0
+  win.printstring( FFI::NCurses.LINES-1, col, str, 10)
+end
+begin
+  include Umbra
+  init_curses
+  startup
+  win = Window.new
+  statusline(win, " "*(win.width-0), 0)
+  statusline(win, "Press Ctrl-q to quit #{win.height}:#{win.width}", 20)
+  title = Label.new( :text => "Demo of Tabular", :row => 0, :col => 0 , :width => FFI::NCurses.COLS-1, 
+                    :justify => :center, :color_pair => 0)
+
+  form = Form.new win
+  form.add_widget title
+
+  box = Box.new row: 2, col: 0, width: 10, height: 7
+  t = Tabular.new(['a', 'b'], [1, 2], [3, 4], [5,6])
+  lb = Listbox.new list: t.render
+  box.fill lb
+  box1 = Box.new row: box.row + box.height + 0, col: box.col, width: 10, height: 7
+  t = Tabular.new ['a', 'b']
+  t << [1, 2]
+  t << [3, 4]
+  t << [4, 6]
+  t << [8, 6]
+  t << [2, 6]
+  t.y = '| '
+  t.x = '+-'
+  lb1 = Listbox.new list: t.render
+  box1.fill lb1
+
+  #file = File.expand_path("examples/tasks.csv", __FILE__)
+  file = File.expand_path("examples/tasks.csv")
+    lines = File.open(file,'r').readlines
+    heads = %w[ id sta type prio title ]
+    t = Tabular.new do |t|
+      t.headings = heads
+      t.y = ' '
+      lines.each { |e| t.add_row e.chomp.split '|'   }
+    end
+
+    t = t.render
+    wid = t[0].length + 2
+    wid = 30
+    box2 = Box.new title: "tasks.csv", row: box.row , col: box.col + box.width+1, width: FFI::NCurses.COLS-box.width-1, height: FFI::NCurses.LINES-1-box.row
+  lb2 = Listbox.new list: t
+
+  r = `ls -l`
+  res = r.split("\n")
+
+  t = Tabular.new do
+    self.headings = 'User',  'Size', 'Mon', 'Date', 'Time', 'File'
+    res.each { |e|
+      cols = e.split
+      next if cols.count < 6
+      cols = cols[3..-1]
+      cols = cols[0..5] if cols.count > 6
+      add_row cols
+    }
+    column_width 1, 6
+    column_align 1, :right
+  end
+  #t.y = '| '
+  #t.x = '+-'
+  tb = Textbox.new list: t.render
+  box2.add lb2, tb
+
+  form.add_widget box, lb
+  form.add_widget box1, lb1
+  form.add_widget box2, lb2, tb
+
+
+  form.pack
+  form.repaint
+  win.wrefresh
+
+  y = x = 1
+  while (ch = win.getkey) != FFI::NCurses::KEY_CTRL_Q
+    next if ch == -1
+    form.handle_key ch
+    #statusline(win, "Pressed #{ch} on     ", 70)
+    win.wrefresh
+  end
+
+rescue Object => e
+  @window.destroy if @window
+  FFI::NCurses.endwin
+  puts e
+  puts e.backtrace.join("\n")
+ensure
+  @window.destroy if @window
+  FFI::NCurses.endwin
+  puts 
+end

data/examples/tasks.csv

@@ -0,0 +1,88 @@
+1|clo|bug|X3|messagebox label print overlaps left border
+2|clo|enh|P4|Field: methods not chainable
+3|clo|bug|P3|button crash if mnemo not in text
+4|clo|enh|P3|link mnemo should not have Alt
+8|ope|bug|P5|container keep repainting all
+9|clo|enh|P3|menu bar keys
+10|ope|enh|P4|combo keys
+11|clo|bug|X3|hand written DSL defs dont fire prop handler
+12|clo|bug|X4|textview on_enter
+13|clo|enh|P3|traversal of listboxes
+14|clo|enh|P3|check keys Alt-Sh-O, Alt-[. Add some missing
+15|clo|bug|P3|2 keys simulaneously with Alt-O or Alt-[
+16|clo|enh|P3|put key combins in arrays and match
+17|ope|bug|P4|selected_item of list broken
+18|clo|enh|P3|valid_range for Field
+19|clo|bug|X2|tree can print beyond right margin
+20|ope|bug|P4|cannot bind_key using Alt key and another. 
+21|sta|enh|P2|make code from App common so reusable in other examples
+22|ope|bug|P3|widget hide (visible false) does not hide
+23|clo|bug|P3|listbox color changes not reflecting in cell_renderer
+24|clo|bug|P3|Table: delete row should reflect focussed_index.
+25|clo|enh|X3|#cleanup add_cols rows_panned #urgent
+26|ope|fea|P5|App to have a layout abject 
+27|ope|bug|P4|#fix testvimsplit not sizing STACK correctly
+28|clo|enh|P1|FieldValidationException should rollback change,
+29|clo|enh|X1|return self from dsl_prop and dsl_accessor,
+30|can|bug|P3|on_leave has validations that should be separated,
+31|clo|enh|X1|#listbox data more accessible from LB class,
+32|ope|enh|P4| #tree many empty methods in #treemodel
+33|clo|enh|X3|display_menu shd furhter glob on tab
+34|clo|enh|X3|display_menu large list need scrolling
+35|clo|bug|X3|alert message getting truncated after 2 lines
+36|clo|fea|X3|use j k h l for navigation if unused by a button of widget
+37|ope|enh|P4|simplify #vimsplit calculation
+38|clo|bug|X3|#tabbedpane when fire, state of old tab discrep
+39|ope|bug|P5|tabularwidget truncate needed left_margin
+40|clo|bug|X3|%textarea C-e goes to last char, not one after that
+41|clo|bug|X3|M-2 did not work in textarea 
+42|ope|bug|P5|append_to_kill, yank not working in %listbox
+43|clo|bug|X1|rt arrow and backspace issue ask(), dbdemo save #urgent
+44|clo|bug|P1|need to hide window after ask(), dbdemo save
+45|clo|bug|X3|directory list, after pressing Enter on ../ focus on header
+46|clo|enh|X3|textview repaints all even when no scrolling
+47|ope|enh|P4|vieditable and io.rb need to create statuswindow and take input
+48|clo|bug|X3|say not working after ask hides window
+49|ope|enh|P5|resultsetview needs way to specify key fields
+50|ope|bug|P5|sort on tabularwidget with resultset error sometimes
+51|clo|bug|X2|TabbedPane's TabbedButtons rely on window being 0,0
+52|ope|bug|P4|%label set_label may have to calculate at repaint esp in app
+53|clo|bug|X3|%App. if shortcut used outside stack or flow, dont attach form or set
+54|clo|bug|X3|inside newtabbedpane button mnemonic and underline not happening #fix
+55|ope|enh|P4|Have a module Expandable for those that are multiline
+56|ope|enh|P4|DRY up titles and borders
+57|clo|enh|X2|dont put default for color and bg in init of Wid or field
+58|clo|enh|X2|Fields display_length should be width or made alias
+60|ope|enh|P4|fields width, display_len is for input area, not label plus input
+61|ope|bug|P4|test2.rb color change not affecting text objects
+62|clo|bug|X2|when using chunks, movement crashes C-e etc
+63|clo|bug|X2|chunks in textview, when scrolling earlier lines shown
+64|clo|enh|X2|abstract chunk and parse into Format class
+65|ope|enh|P3|clean up window.rb prv_printstring etc
+66|clo|bug|X2|colorparser needs to carryover, and :reset
+67|clo|enh|X3|several places doing attrib conversion in window, use get_attrib
+68|clo|bug|X4|move chunk parsing from window.rb to chunk as in textview
+69|ope|bug|P2|C-u not available for textpad and view. how to
+70|ope|enh|P4|confusion between renderer and color_parser
+71|clo|enh|X1|redo combo with basiclist or new popup
+72|clo|enh|X2|redo label simplify, one line only
+73|clo|bug|X2|rbasiclist needs to reduce selected symbol 
+74|ope|enh|P3|list and others should just calculate longest in list
+75|ope|enh|P4|textpad to allow append << at some stage
+76|clo|enh|X3|appmethods.rb may need to go into lib/common or somewhere else
+77|clo|enh|X2|switch messagebox old and new and change rdialog
+78|clo|enh|X1|switch tabbedpane classes and update examples
+79|ope|enh|P3|cleanup button getpaint etc
+80|ope|enh|P3|use @focusable in form to simplify
+81|clo|bug|X2|field label mnemonic not being set
+82|ope|bug|P2|new messagebox need default_button option
+83|clo|enh|X2|check statusline usage, should use formatted only
+84|clo|bug|X2|dbdemo M-z not doing anything
+85|ope|bug|P2|combo symbol when label, see newmessagebox
+86|ope|bug|P2|combo let caller suggest width and use if longer than longest item
+87|ope|enh|P3|praps global setting lists etc use SPC for scroll or selection
+88|ope|enh|P2|keep working on wsshortcuts as in testws..2.rb
+89|ope|bug|P2|messagebox, see about background for zterm-256 as in header
+90|clo|bug|X2|messagebox: message sets width, even if user has specified
+91|clo|enh|X2|messagebox: default row col cannot be 0,0
+92|ope|enh|P3|messagebox: if text longer than display then can we split

data/lib/umbra/box.rb

@@ -4,36 +4,40 @@
 #       Author: j kepler  http://github.com/mare-imbrium/canis/
 #         Date: 2018-04-07
 #      License: MIT
-#  Last update: 2018-04-08 09:12
+#  Last update: 2018-05-22 14:44
 # ----------------------------------------------------------------------------- #
 #  box.rb  Copyright (C) 2018 j kepler
 module Umbra
   ##
   # A box is a container around one, maybe more, widgets.
+  ## FIXME box needs to resize components if it's dimensions are changed.
+  ##     Or should components have a link to parent, so they can resize themselves ?
   #
   class Box < Widget 
-    attr_accessor :title
-    attr_accessor :width
-    attr_accessor :height
+    attr_property :title
+    #attr_property :width
+    #attr_property :height
     attr_accessor :row_offset     # not used yet
     attr_accessor :col_offset     # not used yet
-    attr_accessor :visible
+    attr_property :visible
     attr_reader   :widgets
     attr_reader   :widget
-    attr_accessor :justify       # right, left or center TODO
+    attr_property :justify       # right, left or center TODO
 
     def initialize config={}, &block
       @focusable  = false
       @visible    = true
       super
-      @int_height = @height - 2
-      @int_width  = @width  - 2
+      #@int_height = @height - 2
+      @int_height = self.height - 2
+      #@int_width  = @width  - 2
+      @int_width  = self.width  - 2
       @hlines = []
       @vlines = []
     end
     def repaint
       return unless @visible
-      print_border @row, @col, @height, @width, @color_pair || CP_BLACK, @attr || NORMAL
+      print_border self.row, self.col, self.height, self.width, @color_pair || CP_BLACK, @attr || NORMAL
       print_title @title
       if !@hlines.empty?
         @hlines.each {|e| hline(e.first, e[1]) }
@@ -68,10 +72,10 @@ module Umbra
     def flow *w
       @widgets = w
       num = w.size
-      wid = (@int_width / num).floor
+      wid = (@int_width / num).floor    ## FIXME how to recalc this if RESIZE
       ht  = @int_height 
-      srow = @row + 1
-      scol = @col + 1
+      srow = self.row + 1
+      scol = self.col + 1
       w.each_with_index do |e, ix|
         # unfortunately this is messing with button width calculation
         # maybe field and button should have resizable or expandable ?
@@ -89,16 +93,28 @@ module Umbra
     # use if only one widget will expand into this box
     def fill w
       # should have been nice if I could add widget to form, but then order might get wrong
-      w.row = @row + 1
-      w.col = @col + 1
-      w.width = @width - 2 if w.respond_to? :width
-      w.height = @height - 2 if w.respond_to? :height
+      w.row = self.row + 1
+      w.col = self.col + 1
+      if w.respond_to? :width
+        if @width < 0
+          w.width = @width - 1   ## relative to bottom
+        else
+          w.width = @width - 2   ## absolute
+        end
+      end
+      if w.respond_to? :height
+        if @height < 0
+          w.height = @height - 1   ## relative to bottom
+        else
+          w.height = @height - 2   ## absolute
+        end
+      end
       @widget = w
     end
     def hline row, col
-      return if row >= @row + @height
+      return if row >= self.row + self.height
       $log.debug "  hline: #{row} ... #{@row}   #{@height}  "
-      FFI::NCurses.mvwhline( @graphic.pointer, row, col, FFI::NCurses::ACS_HLINE, @width-2)
+      FFI::NCurses.mvwhline( @graphic.pointer, row, col, FFI::NCurses::ACS_HLINE, self.width()-2)
     end
 
     # print a title over the box on zeroth row
@@ -111,15 +127,16 @@ module Umbra
       when :left
         4
       when :right
-        @width -stitle.size - 3
+        self.width -stitle.size - 3
       else
-        (@width-stitle.size)/2
+        (self.width-stitle.size)/2
       end
       #FFI::NCurses.mvwaddstr(@pointer, 0, col, stitle) 
-      @graphic.printstring(@row, col, stitle)
+      @graphic.printstring(self.row, col, stitle)
     end
 
     private def print_border row, col, height, width, color, att=FFI::NCurses::A_NORMAL
+      $log.debug "  PRINTING border with #{row} #{col} #{height} #{width} INSIDE BOX"
       pointer = @graphic.pointer
       FFI::NCurses.wattron(pointer, FFI::NCurses.COLOR_PAIR(color) | att)
       FFI::NCurses.mvwaddch pointer, row, col, FFI::NCurses::ACS_ULCORNER

data/lib/umbra/checkbox.rb

@@ -4,7 +4,7 @@
 #       Author: j kepler  http://github.com/mare-imbrium/canis/
 #         Date: 2018-04-01 - 16:08
 #      License: MIT
-#  Last update: 2018-04-01 16:21
+#  Last update: 2018-05-14 14:34
 # ----------------------------------------------------------------------------- #
 #  checkbox.rb  Copyright (C) 2012-2018 j kepler
 module Umbra
@@ -12,7 +12,7 @@ module Umbra
   # A checkbox, may be selected or unselected
   #
   class Checkbox < ToggleButton 
-    attr_accessor :align_right    # the button will be on the right 2008-12-09 23:41 
+    attr_property :align_right    # the button will be on the right 2008-12-09 23:41 
     # if a variable has been defined, off and on value will be set in it (default 0,1)
     def initialize config={}, &block
       @surround_chars = ['[', ']']    # 2008-12-23 23:16 added space in Button so overriding

data/lib/umbra/dialog.rb

@@ -9,7 +9,7 @@
 #       Author: j kepler  http://github.com/mare-imbrium/canis/
 #         Date: 2018-03-27 - 12:09
 #      License: MIT
-#  Last update: 2018-04-20 11:05
+#  Last update: 2018-04-22 23:11
 # ----------------------------------------------------------------------------- #
 #  dialog.rb  Copyright (C) 2012-2018 j kepler
 #
@@ -166,7 +166,6 @@ end # module
 
   # create a centered window. # {{{
   # NOTE: this should probably go into window class, or some util class.
-  # TODO: it hardcodes background color. fix this.
   def create_centered_window height, width, color_pair=0, attrib=REVERSE
     row = ((FFI::NCurses.LINES-height)/2).floor
     col = ((FFI::NCurses.COLS-width)/2).floor

data/lib/umbra/eventhandler.rb

@@ -59,18 +59,18 @@ module Umbra
           aeve = @event_args[event]
           ablk.each_with_index do |blk, ix|
             #$log.debug "#{self} called EventHandler firehander #{@name}, #{event}, obj: #{object},args: #{aeve[ix]}"
-            $log.debug "#{self} called EventHandler firehander #{@name}, #{event}"
+            # self prints the entire content of list or table!
+            $log.debug "EVENTHANDLER: #{self} called EventHandler firehander #{@name}, #{event}"
             begin
               blk.call object,  *aeve[ix]
             rescue FieldValidationException => fve
               # added 2011-09-26 1.3.0 so a user raised exception on LEAVE
               # keeps cursor in same field.
               raise fve
-              #rescue PropertyVetoException => pve
-              # 2018-03-18 - commented off
+            rescue PropertyVetoException => pve
               # added 2011-09-26 1.3.0 so a user raised exception on LEAVE
               # keeps cursor in same field.
-              #raise pve
+              raise pve
             rescue => ex
               ## some don't have name
               # FIXME this should be displayed somewhere. It just goes into log file quietly.
@@ -102,11 +102,59 @@ module Umbra
       end # if
     end # }}}
 
+      def fire_property_change text, oldvalue, newvalue
+        # canis returns if oldvalue is nil, but if object created with nil and later
+        # prop is set then we need a handler fired.
+        return if @_object_created.nil? 
+        $log.debug " FPC #{self}: #{text} "
+        if @pce.nil?
+          @pce = PropertyChangeEvent.new(self, text, oldvalue, newvalue)
+        else
+          @pce.set( self, text, oldvalue, newvalue)
+        end
+        fire_handler :PROPERTY_CHANGE, @pce
+        @repaint_required = true 
+      end
+
+  ## Created and sent to all listeners whenever a property is changed
+  # @see fire_property_change
+  # @see fire_handler 
+  # @since 1.0.5 added 2010-02-25 23:06 
+  class PropertyChangeEvent # {{{
+    attr_accessor :source, :property_name, :oldvalue, :newvalue
+    def initialize source, property_name, oldvalue, newvalue
+      set source, property_name, oldvalue, newvalue
+    end
+    def set source, property_name, oldvalue, newvalue
+        @source, @property_name, @oldvalue, @newvalue =
+        source, property_name, oldvalue, newvalue
+    end
+    def to_s
+      "PROPERTY_CHANGE name: #{property_name}, oldval: #{@oldvalue}, newvalue: #{@newvalue}, source: #{@source}"
+    end
+    def inspect
+      to_s
+    end
+  end # }}}
+
     # event? : returns boolean depending on whether this widget has registered the given event {{{
     def event? eve
       @_events.include? eve
     end # }}}
 
+    # The property change is not acceptable, undo it. e.g. test2.rb
+    # @param [String] text message
+    # @param [Event] PropertyChangeEvent object
+    # @since 1.4.0
+    class PropertyVetoException < RuntimeError
+      def initialize(string, event)
+        @string = string
+        @event = event
+        super(string)
+      end
+      attr_reader :string, :event
+    end
+
 # ActionEvent # {{{
     # source - as always is the object whose event has been fired
     # id     - event identifier (seems redundant since we bind events often separately.

data/lib/umbra/field.rb

@@ -4,7 +4,7 @@
 #       Author: j kepler  http://github.com/mare-imbrium/canis/
 #         Date: 2018-03
 #      License: MIT
-#  Last update: 2018-04-14 08:55
+#  Last update: 2018-05-17 12:20
 # ----------------------------------------------------------------------------- #
 #  field.rb  Copyright (C) 2012-2018 j kepler
 #
@@ -38,7 +38,6 @@ class InputDataEvent # {{{
 end # }}}
   # Text edit field
 #  TODO :
-#  ? remove datatype, just use strings.
   # NOTE: +width+ is the length of the display whereas +maxlen+ is the maximum size that the value 
   # can take. Thus, +maxlen+ can exceed +width+. Currently, +maxlen+ defaults to +width+ which 
   # defaults to 20.
@@ -207,6 +206,9 @@ end # }}}
     # silently restores earlier value without firing handlers, use if exception and you want old value
     # Called when pressing <ESC> or <c-g>.
     def restore_original_value
+      $log.debug "  FIELD: buffer:#{@buffer}. orig:#{@original_value}: "
+      $log.debug "  original value is null " unless @original_value
+      $log.debug "  buffer value is null " unless @buffer
       @buffer = @original_value.dup
       # earlier commented but trying again, since i am getting IndexError in insert 2188
       # Added next 3 lines to fix issue, now it comes back to beginning.
@@ -266,7 +268,7 @@ end # }}}
 
   def repaint
     return unless @repaint_required  # 2010-11-20 13:13 its writing over a window i think TESTING
-    $log.debug("repaint FIELD: #{name}, r:#{row} c:#{col},wid:#{width},pcol:#{@pcol},  #{focusable} st: #{@state} ")
+    $log.debug("repaint FIELD: #{name}, r:#{row} c:#{col},wid:#{width},maxlen: #{@maxlen},pcol:#{@pcol},  #{focusable} st: #{@state} ")
     @width = 1 if width == 0
     printval = getvalue_for_paint().to_s # added 2009-01-06 23:27 
     printval = mask()*printval.length unless @mask.nil?
@@ -480,6 +482,8 @@ end # }}}
     def on_enter
       #@original_value = getvalue.dup rescue getvalue
       @original_value = @buffer.dup # getvalue.dup rescue getvalue
+      $log.debug "  FIELD ORIGINAL VALUE is null in on_enter" unless @original_value
+      $log.debug "  on_enter: setting original_value to #{@original_value}"
       super
     end
     ##