rbcurse-core 0.0.0

data/examples/testree.rb

@@ -0,0 +1,106 @@
+require 'rbcurse'
+require 'rbcurse/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 'rbcurse'
+require 'rbcurse/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,127 @@
+# this is a test program, tests out widget shortcuts. type C-q to exit
+#
+require 'rbcurse'
+require 'rbcurse/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'
+        text = File.open("data/color.2","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/rbcurse.rb

@@ -0,0 +1,8 @@
+require 'ffi-ncurses' 
+require 'rbcurse/core/system/ncurses'
+require 'rbcurse/core/system/window'
+require 'rbcurse/core/widgets/rwidget'
+require 'rbcurse/core/util/rdialogs'
+class Rbcurse
+  VERSION = '0.0.0'
+end

data/lib/rbcurse/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.

data/lib/rbcurse/core/include/action.rb

@@ -0,0 +1,40 @@
+require 'rbcurse/core/widgets/rwidget'
+#include Ncurses # FFI 2011-09-8 
+include RubyCurses
+module RubyCurses
+  ## encapsulates behaviour allowing centralization
+  # == Example
+  #    a = Action.new("&New Row") { commands }
+  #    a.accelerator "Alt N"
+  #    menu.add(a)
+  #    b = Button.new form do
+  #      action a
+  #      ...
+  #    end
+  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) }
+      @_events = [:FIRE]
+    end
+    def call
+      return unless @enabled
+      fire_handler :FIRE, self
+      super
+    end
+  end # class
+end # module
+

data/lib/rbcurse/core/include/appmethods.rb

@@ -0,0 +1,112 @@
+module RubyCurses
+  module Utils
+    private
+    def _suspend clear=true
+      return unless block_given?
+      Ncurses.def_prog_mode
+      if clear
+        Ncurses.endwin 
+        # NOTE: avoid false since screen remains half off
+        # too many issues
+      else
+        system "/bin/stty sane"
+      end
+      yield if block_given?
+      Ncurses.reset_prog_mode
+      if !clear
+        # Hope we don't screw your terminal up with this constantly.
+        VER::stop_ncurses
+        VER::start_ncurses  
+        #@form.reset_all # not required
+      end
+      @form.repaint if @form
+      @window.wrefresh if @window
+      Ncurses::Panel.update_panels
+    end
+    #
+    # Suspends to shell so user can execute commands.
+    # Maybe not be able to get your prompt correctly.
+    # 
+    public
+    def suspend
+      _suspend(false) do
+        system("tput cup 26 0")
+        system("tput ed")
+        system("echo Enter C-d to return to application")
+        system (ENV['PS1']='\s-\v\$ ') if ENV['SHELL']== '/bin/bash'
+        system(ENV['SHELL']);
+      end
+    end
+
+    #
+    # Displays application help using either array provided
+    # or checking for :help_text method
+    # @param [Array] help text
+    def display_app_help help_array= nil
+      if help_array
+        arr = help_array
+      elsif respond_to? :help_text
+        arr = help_text
+      else
+        arr = []
+        arr << "    NO HELP SPECIFIED FOR APP #{self}  "
+        arr << "    "
+        arr << "     --- General help ---          "
+        arr << "    F10         -  exit application "
+        arr << "    Alt-x       -  select commands  "
+        arr << "    :           -  select commands  "
+        arr << "    "
+      end
+      case arr
+      when String
+        arr = arr.split("\n")
+      when Array
+      end
+      w = arr.max_by(&:length).length
+
+      require 'rbcurse/core/util/viewer'
+      RubyCurses::Viewer.view(arr, :layout => [2, 10, [4+arr.size, 24].min, w+2],:close_key => KEY_ENTER, :title => "<Enter> to close", :print_footer => true) do |t|
+      # you may configure textview further here.
+      #t.suppress_borders true
+      #t.color = :black
+      #t.bgcolor = :white
+      # or
+      t.attr = :reverse
+      end
+    end
+    #
+    # prompts user for unix command and displays output in viewer
+    # 
+    def shell_output
+      cmd = get_string("Enter shell command:", 50)
+      if cmd && !cmd.empty?
+        run_command cmd
+      end
+    end
+
+    #
+    # executes given command and displays in viewer
+    # @param [String] unix command, e.g., git -st
+    def run_command cmd
+      # http://whynotwiki.com/Ruby_/_Process_management#What_happens_to_standard_error_.28stderr.29.3F
+      require 'rbcurse/core/util/viewer'
+      begin
+        res = `#{cmd} 2>&1`
+      rescue => ex
+        res = ex.to_s
+        res << ex.backtrace.join("\n") 
+      end
+      res.gsub!("\t","   ")
+      RubyCurses::Viewer.view(res.split("\n"), :close_key => KEY_ENTER, :title => "<Enter> to close, M-l M-h to scroll")
+    end
+    def shell_out command
+      @window.hide
+      Ncurses.endwin
+      system command
+      Ncurses.refresh
+      #Ncurses.curs_set 0  # why ?
+      @window.show
+    end
+  end # utils
+end # module RubyC
+include RubyCurses::Utils