ncumbra 0.1.0

data/examples/ex4.rb

@@ -0,0 +1,142 @@
+#!/usr/bin/env ruby
+# example showing listbox
+# 2018-03-19 -
+require 'umbra'
+require 'umbra/label'
+require 'umbra/listbox'
+require 'umbra/box'
+require 'umbra/togglebutton'
+
+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 = Time.now.to_s
+    $log.info "listbox demo #{$0} started on #{today}"
+    FFI::NCurses.init_pair(10,  FFI::NCurses::BLACK,   FFI::NCurses::GREEN) # statusline
+end
+def statusline win, str, column = 1
+  # LINES-2 prints on second last line so that box can be seen
+  win.printstring( FFI::NCurses.LINES-2, column, str, 6, REVERSE)
+end
+begin
+  include Umbra
+  init_curses
+  startup
+  #win = Window.new
+  win = Window.new #20,100, 0, 20
+  statusline(win, " "*(win.width-0), 0)
+  win.box
+  statusline(win, "Press C-q to quit #{win.height}:#{win.width}", 20)
+  str = " Demo of listbox "
+  win.title str
+  alist = ["one item"*4, "another item"*10, "yet another item"*15]
+  #alist = []
+  (1..50).each do |i|
+    alist << "#{i} entry"
+  end
+
+  # check with only a few rows - DONE
+  # check with exactly 20 rows
+  # check with long lines
+  catch(:close) do
+    form = Form.new win
+    win.printstring(3,1,"Just testing that listbox is correctly positioned")
+    box = Box.new row: 4, col: 2, width: 80, height: 20
+    lb = Listbox.new list: alist
+    box.fill lb
+    win.printstring(box.row+1,0,"XX")
+    win.printstring(box.row+1,box.col+box.width,"XX")
+    win.printstring(box.row+box.height,1,"This prints below the listbox")
+    brow = box.row+box.height+3
+    tb = ToggleButton.new onvalue: "Toggle", offvalue: "No Toggle", row: brow, col: 10, value: true
+    ab = Button.new text: "Processes" , row: brow, col: 30
+    logb = Button.new text: "LogFile" , row: brow, col: 50
+
+    tb.command do
+      if tb.value
+        # we no longer have border in listboxes or textboxes
+        #lb.border true
+        box.title = "Toggled"
+      else
+        #lb.border false
+        box.title = "Untoggled"
+      end
+      box.repaint_required = true
+    end
+    # bind the most common event for a listbox which is ENTER_ROW
+    lb.command do |ix|
+      statusline(win, "Sitting on offset #{lb.current_index}, #{ix.first} ")
+    end
+    ab.command do 
+      lb.color_pair = create_color_pair(COLOR_BLACK, COLOR_CYAN)
+      #lb.attr = REVERSE
+      lb.list = %x{ ps aux }.split("\n")
+      box.title = "Processes"
+      box.repaint_required = true
+    end
+    logb.command do
+      lb.list=[]
+      lb.repaint_required=true
+      box.title = "Log File"
+      box.repaint_required = true
+      # We require a timeout in getch for this to update
+      # without thread process hangs and no update happens
+      t = Thread.new do
+        IO.popen("tail -f v.log") do |output|
+          ctr = 0
+          while line = output.gets do
+            lb.list << line.chomp
+            lb.goto_end
+            lb.repaint_required=true
+            form.repaint
+            ctr += 1
+            if ctr > 100
+              sleep(1)
+              ctr = 0
+            end
+          end
+        end
+      end
+    end
+    # bind to another event of listbox
+    lb.bind_event(:LEAVE_ROW) { |ix| statusline(win, "LEFT ROW #{ix.first}", 50) }
+    lb.bind_event(:LIST_SELECTION_EVENT) { |w| alert("You selected row #{w.selected_index || "none"} ") }
+    form.add_widget box, lb
+    form.add_widget tb
+    form.add_widget ab
+    form.add_widget logb
+    form.pack
+    form.select_first_field
+    win.wrefresh
+
+    y = x = 1
+    while (ch = win.getkey) != FFI::NCurses::KEY_CTRL_Q
+      begin
+        form.handle_key ch
+      rescue => e
+        puts e
+        puts e.backtrace.join("\n")
+      end
+      win.wrefresh
+    end
+  end # close
+
+rescue => e
+  win.destroy if win
+  win = nil
+  FFI::NCurses.endwin
+  puts e
+  puts e.backtrace.join("\n")
+ensure
+  win.destroy if win
+  FFI::NCurses.endwin
+  if e
+    puts e 
+    puts e.backtrace.join("\n")
+  end
+end

data/examples/ex5.rb

@@ -0,0 +1,103 @@
+#!/usr/bin/env ruby
+# example showing Textbox
+# 2018-03-19 -
+require 'umbra'
+require 'umbra/label'
+require 'umbra/box'
+require 'umbra/textbox'
+require 'umbra/togglebutton'
+
+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 = Time.now.to_s
+    $log.info "Textbox demo #{$0} started on #{today}"
+    FFI::NCurses.init_pair(10,  FFI::NCurses::BLACK,   FFI::NCurses::GREEN) # statusline
+end
+def statusline win, str, column = 1
+  # LINES-2 prints on second last line so that box can be seen
+  win.printstring( FFI::NCurses.LINES-2, column, str, 6, REVERSE)
+end
+begin
+  include Umbra
+  init_curses
+  startup
+  #win = Window.new
+  win = Window.new #20,100, 0, 20
+  statusline(win, " "*(win.width-0), 0)
+  win.box
+  statusline(win, "Press C-q to quit #{win.height}:#{win.width}", 20)
+  str = " Demo of Textbox "
+  win.title str
+=begin
+  alist = ["one item"*4, "another item"*10, "yet another item"*15]
+  #alist = []
+  (1..50).each do |i|
+    alist << "#{i} entry"
+  end
+=end
+  filename = "./notes"
+
+  catch(:close) do
+    form = Form.new win
+    win.printstring(3,1,"Just testing that Textbox is correctly positioned")
+    box = Box.new row: 4, col: 2, width: 50, height: 20
+    lb = Textbox.new file_name: filename
+    box.fill lb
+    box.title = filename
+    win.printstring(box.row+1,0,"XX")
+    win.printstring(box.row+1,box.col+box.width,"XX")
+    win.printstring(box.row+box.height,1,"This prints below the Textbox")
+    brow = box.row+box.height+3
+    tb = ToggleButton.new onvalue: "Left", offvalue: "Center", row: brow, col: 10, value: true
+
+    tb.command do
+      if tb.value
+        box.justify = :center
+      else
+        box.justify = :left
+      end
+      box.repaint_required  = true
+    end
+    lb.bind_event(:CURSOR_MOVE) {|arr|
+      col_offset , current_index, curpos,  pcol = arr
+      blen = lb.current_row().size
+      statusline(win, "offset: #{col_offset} , curpos: #{curpos} , currind: #{current_index} , pcol #{pcol}, len:#{blen}.....", 20)
+    }
+    form.add_widget box, lb
+    form.add_widget tb
+    form.pack
+    form.select_first_field
+    win.wrefresh
+
+    y = x = 1
+    while (ch = win.getkey) != FFI::NCurses::KEY_CTRL_Q
+      begin
+        form.handle_key ch
+      rescue => e
+        puts e
+        puts e.backtrace.join("\n")
+      end
+      win.wrefresh
+    end
+  end # close
+
+rescue => e
+  win.destroy if win
+  win = nil
+  FFI::NCurses.endwin
+  puts e
+  puts e.backtrace.join("\n")
+ensure
+  win.destroy if win
+  FFI::NCurses.endwin
+  if e
+    puts e 
+    puts e.backtrace.join("\n")
+  end
+end

data/examples/exbox.rb

@@ -0,0 +1,141 @@
+#!/usr/bin/env ruby
+# example showing box
+# 2018-03-19 -
+require 'umbra'
+require 'umbra/label'
+require 'umbra/listbox'
+require 'umbra/textbox'
+require 'umbra/togglebutton'
+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 = Time.now.to_s
+    $log.info "Box demo #{$0} started on #{today}"
+    FFI::NCurses.init_pair(10,  FFI::NCurses::BLACK,   FFI::NCurses::GREEN) # statusline
+end
+def statusline win, str, column = 1
+  # LINES-2 prints on second last line so that box can be seen
+  win.printstring( FFI::NCurses.LINES-2, column, str, 6, REVERSE)
+end
+begin
+  include Umbra
+  init_curses
+  startup
+  win = Window.new #20,100, 0, 20
+  statusline(win, " "*(win.width-0), 0)
+  win.box
+  statusline(win, "Press C-q to quit #{win.height}:#{win.width}", 20)
+  str = " Demo of Box "
+  win.title str
+  alist = ["one item"*4, "another item"*10, "yet another item"*15]
+  #alist = []
+  (1..50).each do |i|
+    alist << "#{i} entry"
+  end
+
+  # check with only a few rows - DONE
+  # check with exactly 20 rows
+  # check with long lines
+  catch(:close) do
+    form = Form.new win
+    box = Box.new row: 2,col: 2, height: 24, width: 80, title: "A box", justify: :left
+    win.printstring(3,1,"Just testing that listbox is correctly positioned")
+    #lb = Listbox.new list: alist, row: 4, col: 2, width: 70, height: 18
+    lb = Listbox.new list: alist
+    lb2 = Textbox.new list: %x{ ps aux }.split("\n")
+    #box.fill lb
+    box.add lb, lb2
+    win.printstring(box.row+1,0,"XX")
+    win.printstring(box.row+1,lb.col+lb.width,"XX")
+    win.printstring(box.row+box.height,1,"This prints below the listbox")
+    brow = box.row+box.height+3
+    tb = ToggleButton.new onvalue: "Border", offvalue: "No Border", row: brow, col: 10, value: true
+    ab = Button.new text: "Processes" , row: brow, col: 30
+    logb = Button.new text: "LogFile" , row: brow, col: 50
+    bbox = Box.new row: brow-2, col: 8, height: 3, width: 65, visible: false
+    bbox.flow tb,ab,logb
+
+    tb.command do
+      if tb.value
+        #lb.border true
+      else
+        #lb.border false
+      end
+      lb.repaint_required=true
+    end
+    # bind the most common event for a listbox which is ENTER_ROW
+    lb.command do |ix|
+      statusline(win, "Sitting on offset #{lb.current_index}, #{ix.first} ")
+    end
+    ab.command do 
+      lb.color_pair = create_color_pair(COLOR_BLACK, COLOR_CYAN)
+      #lb.attr = REVERSE
+      lb.list = %x{ ps aux }.split("\n")
+    end
+    logb.command do
+      lb.list=[]
+      lb.repaint_required=true
+      # We require a timeout in getch for this to update
+      # without thread process hangs and no update happens
+      t = Thread.new do
+        IO.popen("tail -f v.log") do |output|
+          ctr = 0
+          while line = output.gets do
+            lb.list << line.chomp
+            lb.goto_end
+            lb.repaint_required=true
+            form.repaint
+            ctr += 1
+            if ctr > 100
+              sleep(1)
+              ctr = 0
+            end
+          end
+        end
+      end
+    end
+    # bind to another event of listbox
+    lb.bind_event(:LEAVE_ROW) { |ix| statusline(win, "LEFT ROW #{ix.first}", 50) }
+    lb.bind_event(:LIST_SELECTION_EVENT) { |w| alert("You selected row #{w.selected_index || "none"} ") }
+    form.add_widget lb, lb2
+    form.add_widget tb
+    form.add_widget ab
+    form.add_widget logb, box, bbox
+    form.pack
+    form.select_first_field
+    win.wrefresh
+
+    y = x = 1
+    while (ch = win.getkey) != FFI::NCurses::KEY_CTRL_Q
+      begin
+        form.handle_key ch
+      rescue => e
+        puts e
+        puts e.backtrace.join("\n")
+        alert e.to_s
+      end
+      win.wrefresh
+    end
+  end # close
+
+rescue => e
+  win.destroy if win
+  win = nil
+  FFI::NCurses.endwin
+  puts e
+  puts e.backtrace.join("\n")
+ensure
+  win.destroy if win
+  FFI::NCurses.endwin
+  if e
+    puts e 
+    puts e.backtrace.join("\n")
+  end
+end

data/examples/exm1.rb

@@ -0,0 +1,137 @@
+#!/usr/bin/env ruby
+# example showing only labels and fields a window
+# 2018-03-10 
+require 'umbra'
+require 'umbra/label'
+require 'umbra/button'
+require 'umbra/labeledfield'
+require 'umbra/messagebox'
+
+def create_footer_window h = 2 , w = FFI::NCurses.COLS, t = FFI::NCurses.LINES-2, l = 0
+  ewin = Window.new(h, w , t, l)
+end
+def old_alert str 
+  win = create_footer_window
+  #FFI::NCurses.init_pair(12,  COLOR_WHITE, FFI::NCurses::RED)
+  cp = create_color_pair(COLOR_RED, COLOR_WHITE)
+  win.wbkgd(FFI::NCurses.COLOR_PAIR(cp)) # white on red, defined here
+  win.printstring(0,1, str)
+  win.wrefresh
+  win.getkey
+  win.destroy
+end
+def _alert array, title="Alert"
+  mb = MessageBox.new title: title, buttons: "Ok"  do
+    text array
+  end
+  mb.run
+end
+def _alert_message str, title="Alert" 
+  mb = MessageBox.new title: title, buttons: "Okay" do
+    message str
+  end
+  mb.run
+end
+def _alert_fields str 
+  #mb = MessageBox.new height: 20, width: 60, row: 5, col: 5, title: "Enter yor name" do
+  mb = MessageBox.new title: "Testing Messageboxes", width: 80 do
+    add Label.new text: "Name"
+    add Field.new name:"name", default: "Rahul", width: 25, color_pair: CP_CYAN, attr: REVERSE
+    add LabeledField.new label:"Age:", name:"age", text:"25", col: 15, color_pair: CP_CYAN, attr: REVERSE
+    # unfortunately this exceeds since width only takes field into account not label
+    add LabeledField.new label:"Address:", name:"address", width:50 , col: 15, color_pair: CP_CYAN, attr: REVERSE
+  end
+  mb.run
+end
+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 "MessageBox demo #{$0} started 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
+  #FFI::NCurses.init_pair(12,  COLOR_WHITE, FFI::NCurses::RED)
+  win = Window.new
+  statusline(win, " "*(win.width-0), 0)
+  statusline(win, "Press C-q to quit #{win.height}:#{win.width}", 20)
+  title = Label.new( :text => "Demo of MessageBox", :row => 0, :col => 0 , :width => FFI::NCurses.COLS-1, 
+                    :justify => :center, :color_pair => CP_BLACK)
+
+  form = Form.new win
+  form.add_widget title
+
+  b1 = Button.new text: "String", row: 10, col: 10
+  b2 = Button.new text: "Array", row: 10, col: 30
+  b3 = Button.new text: "Fields", row: 10, col: 50
+  b4 = Button.new text: "Confirm", row: 10, col: 70
+  message_label = Label.new({text: "Message comes here C-q to quit",
+                             :name=>"message_label",:row => win.height-2, :col => 2, :width => 60,
+                             :height => 2, :color_pair => CP_MAGENTA})
+  b1.command do
+    _alert_message "This is an alert with a string"
+  end
+  b2.command do
+    array = File.read($0).split("\n")
+    _alert(array, $0)
+  end
+  b3.command do
+    _alert_fields "dummy"
+  end
+  b4.command do
+    ret = confirm "Do you wish to go?"
+    message_label.text = "You selected #{ret}"
+    #message_label.touch
+  end
+  form.add_widget message_label, b1, b2, b3, b4
+  form.pack
+  form.select_first_field
+  win.wrefresh
+
+  y = x = 1
+  while (ch = win.getkey) != FFI::NCurses::KEY_CTRL_Q
+    begin
+      form.handle_key ch
+    rescue => e
+      #_alert(e.to_s.strip + ".")
+
+      _alert(["Error in Messagebox: #{e} ", *e.backtrace], "Exception")
+      #_alert(e.backtrace)
+      $log.error e
+      $log.error e.backtrace.join("\n")
+      e = nil
+    end
+    win.wrefresh
+  end
+
+rescue => e
+  win.destroy if win
+  FFI::NCurses.endwin
+      $log.error e
+      $log.error e.backtrace.join("\n")
+  puts "printing inside rescue"
+  puts e
+  puts e.backtrace.join("\n")
+  e = nil
+ensure
+  win.destroy if win
+  FFI::NCurses.endwin
+  if e
+      $log.error e
+      $log.error e.backtrace.join("\n")
+    puts "printing inside ensure"
+    puts e 
+    puts e.backtrace.join("\n")
+  end
+end

data/examples/keys.rb

@@ -0,0 +1,67 @@
+#!/usr/bin/env ruby
+#
+require 'umbra'
+require 'umbra/form'
+
+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 up on #{today}"
+    FFI::NCurses.init_pair(10,  FFI::NCurses::BLACK,   FFI::NCurses::GREEN) # statusline
+end
+begin
+  include Umbra
+  init_curses
+  startup
+  txt = "Demo of keys. Press various keys to see what value comes"
+  win = Window.new
+  win.printstr txt
+  win.printstr("Press Ctrl-Q to quit", 1, 50)
+
+  win.wrefresh
+
+  form = Form.new win
+
+  ch = 0
+  y = x = 1
+  while (ch = win.getch) != FFI::NCurses::KEY_CTRL_Q
+    next if ch == -1
+    if ch == 2727 #or ch == -1
+      $log.debug "t.rb got #{ch}"
+      break
+    end
+    rv = nil
+    #rv = win.mvwin(y, x)
+  
+    case ch
+    when Integer
+      win.printstring y, x, "#{ch.to_s}:#{FFI::NCurses::keyname(ch)}"
+    when String
+      win.printstring y, x, "#{ch.to_s}"
+    end
+    y += 1
+    # start a new column if we exceed last line
+    if y >= FFI::NCurses.LINES-1
+      y = 1
+      x += 10
+    end
+
+    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