rbhex-core 1.0.0

data/examples/testprogress.rb

@@ -0,0 +1,116 @@
+# ----------------------------------------------------------------------------- #
+#         File: testprogress.rb
+#  Description: a test program for progress bar widget
+#     creates two progress bars, one old style and one new
+#     Keeps running till 'q' pressed.
+#       Author: rkumar http://github.com/rkumar/rbhex-core/
+#         Date: 2014-03-27 - 23:31
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: 2014-03-27 23:44
+# ----------------------------------------------------------------------------- #
+#  testprogress.rb  Copyright (C) 2012-2014 rahul kumar
+require 'logger'
+require 'rbhex'
+require 'rbhex/core/widgets/rprogress'
+if $0 == __FILE__
+
+  #include RubyCurses
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    path = File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT)
+    $log = Logger.new(path)
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      @form = Form.new @window
+      title = (" "*30) + "Demo of Progress Bar (q quits, s - slow down) " + Rbhex::Core::VERSION
+      Label.new @form, {:text => title, :row => 1, :col => 0, :color => :green, :bgcolor => :black}
+      Label.new @form, {:text => "Press q to quit, s/f make slow or fast", :row => 10, :col => 10}
+      Label.new @form, {:text => "Old style and modern style progress bars", :row => 12, :col => 10}
+      r = 14; fc = 12;
+
+      pbar1 = Progress.new @form, {:width => 20, :row => r, :col => fc,
+        :name => "pbar1", :style => :old}
+        #:bgcolor => :white, :color => 'red', :name => "pbar1", :style => :old}
+      pbar = Progress.new @form, {:width => 20, :row => r+2, :col => fc,
+        :bgcolor => :white, :color => :red, :name => "pbar"}
+
+      pbar.visible false
+      pb =  @form.by_name["pbar"]
+      pb.visible true
+      len = 1
+      ct = (100) * 1.00
+      pb.fraction(len/ct)
+      pbar1.fraction(len/ct)
+      i = ((len/ct)*100).to_i
+      i = 100 if i > 100
+      pb.text = "completed:#{i}"
+
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+
+      # the main loop
+
+      # this is so there's no wait for a key, i want demo to proceed without key press, but
+      # respond if there is one
+      Ncurses::nodelay(@window.get_window, bf = true)
+
+      # sleep seconds between refresh of progress
+      slp = 0.1
+      ##while((ch = @window.getchar()) != FFI::NCurses::KEY_F10 )
+        #break if ch == ?\C-q.getbyte(0)
+      while((ch = @window.getch()) != 27)
+        break if ch == "q".ord
+        ## slow down
+        if ch == "s".ord
+          slp *= 2
+        elsif ch == "f".ord
+          ## make faster
+          slp /= 2.0
+        end
+        begin
+
+          sleep(slp)
+          len += 1
+          if len > 100
+            len = 1
+            sleep(1.0)
+          end
+          ct = (100) * 1.00
+          pb.fraction(len/ct)
+          pbar1.fraction(len/ct)
+          i = ((len/ct)*100).to_i
+          i = 100 if i > 100
+          pb.text = "completed:#{i}"
+
+          #@form.handle_key(ch)
+          @form.repaint
+          @window.wrefresh
+          Ncurses::Panel.update_panels
+          #end
+
+        rescue => err
+          break
+        end
+
+        @window.wrefresh
+      end # while loop
+    end # catch
+  rescue => ex
+  ensure
+    $log.debug " -==== EXCEPTION =====-"
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+    @window.destroy if !@window.nil?
+    VER::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+  end
+end

data/examples/testree.rb

@@ -0,0 +1,106 @@
+require 'rbhex'
+require 'rbhex/core/widgets/rtree'
+
+if $0 == __FILE__
+  $choice = ARGV[0].to_i || 1
+class Tester
+  def initialize
+    acolor = $reversecolor
+  end
+  def run
+    @window = VER::Window.root_window
+    @form = Form.new @window
+
+    h = 20; w = 75; t = 3; l = 4
+   #$choice = 1
+    case $choice
+    when 1
+    root    =  TreeNode.new "ROOT"
+    subroot =  TreeNode.new "subroot"
+    leaf1   =  TreeNode.new "leaf 1"
+    leaf2   =  TreeNode.new "leaf 2"
+
+    model = DefaultTreeModel.new root
+    #model.insert_node_into(subroot, root,  0)
+    #model.insert_node_into(leaf1, subroot, 0)
+    #model.insert_node_into(leaf2, subroot, 1)
+    root << subroot
+    subroot << leaf1 << leaf2
+    leaf1 << "leaf11"
+    leaf1 << "leaf12"
+
+    root.add "blocky", true do
+      add "block2"
+      add "block3" do
+        add "block31"
+      end
+    end
+    Tree.new @form, :data => model, :row =>2, :col=>2, :height => 20, :width => 30
+
+    when 2
+
+      # use an array to populate
+      # we need to do root_visible = false so you get just a list
+    model  = %W[ ruby lua jruby smalltalk haskell scheme perl lisp ]
+    Tree.new @form, :data => model, :row =>2, :col=>2, :height => 20, :width => 30
+
+    when 3
+
+      # use an Has to populate
+      #model = { :ruby => %W[ "jruby", "mri", "yarv", "rubinius", "macruby" ], :python => %W[ cpython jython laden-swallow ] }
+      model = { :ruby => [ "jruby", {:mri => %W[ 1.8.6 1.8.7]}, {:yarv => %W[1.9.1 1.9.2]}, "rubinius", "macruby" ], :python => %W[ cpython jython pypy ] }
+
+    Tree.new @form, :data => model, :row =>2, :col=>2, :height => 20, :width => 30
+    #when 4
+    else
+      Tree.new @form, :row =>2, :col=>2, :height => 20, :width => 30 do
+        root "root" do
+          branch "vim" do
+            leaf "vimrc"
+          end
+          branch "ack" do
+            leaf "ackrc"
+          end
+        end
+      end
+
+    end
+
+    #
+    help = "C-q to quit. <ENTER> to expand nodes. j/k to navigate. Pass command-line argument 1,2,3,4  #{$0} "
+    RubyCurses::Label.new @form, {:text => help, :row => 1, :col => 2, :color => :cyan}
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    while((ch = @window.getchar()) != ?\C-q.getbyte(0))
+      ret = @form.handle_key(ch)
+      @window.wrefresh
+      if ret == :UNHANDLED
+        str = keycode_tos ch
+        $log.debug " UNHANDLED #{str} by Vim #{ret} "
+      end
+    end
+
+    @window.destroy
+
+  end
+end
+include RubyCurses
+include RubyCurses::Utils
+# Initialize curses
+begin
+  # XXX update with new color and kb
+  VER::start_ncurses  # this is initializing colors via ColorMap.setup
+  $log = Logger.new("rbc13.log")
+  $log.level = Logger::DEBUG
+  n = Tester.new
+  n.run
+rescue => ex
+ensure
+  VER::stop_ncurses
+  p ex if ex
+  puts(ex.backtrace.join("\n")) if ex
+  $log.debug( ex) if ex
+  $log.debug(ex.backtrace.join("\n")) if ex
+end
+end

data/examples/testwsshortcuts.rb

@@ -0,0 +1,66 @@
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+require 'rbhex'
+require 'rbhex/core/util/widgetshortcuts'
+
+include RubyCurses
+
+class SetupMessagebox
+  include RubyCurses::WidgetShortcuts
+  def initialize config={}, &block
+    @window = VER::Window.root_window
+    @form = Form.new @window
+  end
+  def run
+    _create_form
+    @form.repaint
+    @window.wrefresh
+    while ((ch = @window.getchar()) != 999)
+      break if ch == ?\C-q.getbyte(0)
+      @form.handle_key ch
+      @window.wrefresh
+    end
+  end
+  def _create_form
+    widget_shortcuts_init
+    stack :margin_top => 2, :margin_left => 3, :width => 50 , :color => :cyan, :bgcolor => :black do
+      label :text => " Details ", :color => :blue, :attr => :reverse, :width => :expand, :justify => :center
+      blank
+      field :text => "john", :attr => :reverse, :label => "%15s" % ["Name: "]
+      field :label => "%15s" % ["Address: "], :width => 15, :attr => :reverse
+      check :text => "Using version control", :value => true, :onvalue => "yes", :offvalue => "no"
+      check :text => "Upgraded to Lion", :value => false, :onvalue => "yes", :offvalue => "no"
+      blank
+      radio :text => "Linux", :value => "LIN", :group => :os
+      radio :text => "OSX", :value => "OSX", :group => :os
+      radio :text => "Window", :value => "Win", :group => :os
+      flow :margin_top => 2, :margin_left => 4, :item_width => 15  do
+        button :text => "Ok" do throw :close; end
+        button :text => "Cancel"
+        button :text => "Apply"
+      end
+    end
+  end
+
+end
+if $0 == __FILE__
+  # Initialize curses
+  begin
+    # XXX update with new color and kb
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
+    $log.level = Logger::DEBUG
+    catch(:close) do
+    tp = SetupMessagebox.new()
+    buttonindex = tp.run
+    $log.debug "XXX:  MESSAGEBOX retirned #{buttonindex} "
+    end
+  rescue => ex
+  ensure
+    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/examples/testwsshortcuts2.rb

@@ -0,0 +1,128 @@
+# this is a test program, tests out widget shortcuts. type C-q to exit
+#
+require 'rbhex'
+require 'rbhex/core/util/widgetshortcuts'
+
+include RubyCurses
+include RubyCurses::Utils
+
+class SetupMessagebox
+  include RubyCurses::WidgetShortcuts
+  def initialize config={}, &block
+    @window = VER::Window.root_window
+    @form = Form.new @window
+  end
+  def run
+    _create_form
+    @form.repaint
+    @window.wrefresh
+    catch(:close) do
+    while ((ch = @window.getchar()) != 999)
+      break if ch == ?\C-q.getbyte(0)
+      @form.handle_key ch
+      @window.wrefresh
+    end
+    end # catch
+  end
+  def _create_form
+    widget_shortcuts_init
+    stack :margin_top => 1, :width => :expand do
+      label :text => " Details ", :color => :cyan, :attr => :reverse, :width => :expand, :justify => :center
+      flow :margin_top => 1, :margin_left => 4, :item_width => 50   do
+        stack :margin_top => 0, :margin_left => 3, :width => 50 , :color => :cyan, :bgcolor => :black do
+          box do
+            field :text => "steve", :attr => :reverse, :label => "%15s" % ["Name: "]
+            field :label => "%15s" % ["Address: "], :width => 15, :attr => :reverse
+            blank
+            check :text => "Using version control", :value => true, :onvalue => "yes", :offvalue => "no" do |eve|
+              unless eve.item.value
+                alert "NO VC! We need to talk"
+              end
+            end
+            check :text => "Upgraded to Lion", :value => false, :onvalue => "yes", :offvalue => "no" do |eve|
+              unless eve.item.value
+                alert "You goin back to Snow Leopard?"
+              end
+            end
+          end # box
+        end
+        stack :margin_top => 0, :margin_left => 3, :width => 50 , :color => :cyan, :bgcolor => :black do
+          box :title => "OS Maintenance", :margin_left => 2 do
+            radio :text => "Linux", :value => "LIN", :group => :os
+            radio :text => "OSX", :value => "OSX", :group => :os
+            radio :text => "Window", :value => "Win", :group => :os
+            blank
+          flow  :item_width => 15 do
+            button :text => "Install" do
+              # you can avoid this by giving the radio buttons your own Variable (see test2.rb)
+              choice = @variables[:os].value
+              case choice
+              when ""
+                alert "Select an OS"
+              when "OSX", "LIN"
+                alert "Good choice"
+              else
+                alert "Pfft !"
+              end
+            end
+            button :text => "Uninstall"
+            button :text => "Delete"
+          end
+          end # box
+        end
+      end # flow
+      #button :text => "Execute"
+      text = ["      #[reverse]Unix Philosophy #[end]  ",
+        "#[fg=green, underline]Eric Raymond#[end] in his book, #[fg=green, underline]The Art of Unix Programming#[end] summarized the Unix philosophy.",
+      "  ",
+        "Rule of #[fg=yellow]Modularity#[end]: Write simple parts connected by clean interfaces.",
+        "Rule of #[fg=blue]Clarity#[end]: #[bold]Clarity#[end] is better than cleverness.",
+        "Rule of #[fg=red]Separation#[end]: Separate #[bold]policy#[end] from mechanism; separate interfaces from engines.",
+          "Rule of #[fg=green]Simplicity#[end]: Design for #[bold]simplicity;#[end] add complexity only where you must.",
+        "Rule of #[fg=magenta]Parsimony#[end]: Write a big program only when it is clear by demonstration that nothing else will do.",
+        "Rule of #[fg=cyan]Representation#[end]: Fold knowledge into #[bold]data#[end] so program logic can be stupid and robust"]
+        text << "For more check: #[underline]http://en.wikipedia.org/wiki/Unix_philosophy#Eric_Raymond#[end]"
+        formatted = []
+        #text.each { |line| formatted << @window.convert_to_chunk(line) }
+
+      #textview :text => formatted
+        #textview do |t| t.formatted_text(text, :tmux) end
+        t = textview :title => 'tmux format'
+        t.formatted_text(text, :tmux)
+        t1 = textview :title => 'ansi formatted document'
+        file = File.expand_path("../data/color.2", __FILE__)
+        text = File.open(file,"r").readlines
+        #text = `ri -f bs String`.split("\n")
+        t1.formatted_text(text, :ansi)
+
+      flow do
+        #box do
+          button :text => "  Ok  " do  alert "Pressed okay"  end
+          button :text => "Cancel" do  confirm "Do you wish to Quit?" ; throw :close;  end
+          button :text => "Apply "
+        #end
+      end
+
+    end
+
+  end
+end
+if $0 == __FILE__
+  # Initialize curses
+  begin
+    # XXX update with new color and kb
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
+    $log.level = Logger::DEBUG
+    tp = SetupMessagebox.new()
+    buttonindex = tp.run
+    $log.debug "XXX:  MESSAGEBOX retirned #{buttonindex} "
+  rescue => ex
+  ensure
+    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/rbhex.rb

@@ -0,0 +1,6 @@
+require 'ffi-ncurses'
+require 'rbhex/core/system/ncurses'
+require 'rbhex/core/system/window'
+require 'rbhex/core/widgets/rwidget'
+require 'rbhex/core/util/rdialogs'
+require 'rbhex/core/version'

data/lib/rbhex/core/docs/index.txt

@@ -0,0 +1,73 @@
+                       G E N E R A L   H E L P
+              <q> to quit this window. <Space> to scroll. 
+
+==============================================================================
+1. General Help 
+
+          F10         - exit application. Also, <C-q>
+          F1          - Help
+
+          In some applications, the following may have been provided:
+
+          Alt-x       - additional commands
+          :           - additional commands
+          :!          - system command
+          <C-x>c      - system command
+
+==============================================================================
+2. Form
+
+  <Tab> and <backtab> navigate between widgets.
+
+==============================================================================
+3. Multiline widgets
+
+In most widgets such as _list_, _textview_, _table_, and _tree_ the
+following vim-bindings are applicable.
+
+          j,k,l,h, gg, G, C-d, C-b
+
+          <space> scrolls in _textview_.
+
+Some multiline widgets such as _list_ and _tree_ may move to first item
+starting with j or k or <char> on pressing char. To get vim-bindings use
+<Alt-v>. Now to go to first row with <char>, type f<char>. This behavior
+is modified using the flag one_key_selection.
+
+
+==============================================================================
+4. Editable Widgets
+
+In _field_ and editable _textarea_, some emacs/Pine keys such as C-e,
+C-a, C-k (delete till end) are available.
+
+        <C-a>   -  start of line
+        <C-e>   -  end of line
+        <C-k>   -  delete till end of line
+        <M-i>   -  toggle overwrite mode
+
+==============================================================================
+5. Buttons
+
+_Button_ can be fired using <space> or <ENTER>. The default button, if
+declared, is shown with as > Ok < as against other buttons, shown as [
+Cancel ]. This can be fired by hitting <ENTER> anywhere on the form
+(unless the current widget traps <ENTER>).
+
+Hotkeys are available using Alt-<key>.
+
+==============================================================================
+6. Selection in lists
+
+          <space>   -   toggle selection
+          <C-Space> -   range select
+          <a>       -   select all
+          <u>       -   unselect all (should be changed, as conflicts with
+                        vim undo)
+          <*>       -   invert selection
+
+          <->       -   ask unselect
+          <+>       -   ask select
+
+-----------------------------------------------------------------------------
+q to quit, gg to goto top.