rbhex-core 1.0.0

data/examples/dirtree.rb

@@ -0,0 +1,94 @@
+require 'rbhex/core/util/app'
+require 'fileutils'
+require 'rbhex/core/widgets/tree/treemodel'
+begin
+  require './common/file' # Allow for Ruby < 1.9.2
+rescue LoadError
+  require_relative 'common/file'
+end
+
+def _directories wd
+  $log.debug " directories got XXX: #{wd} "
+  d = Dir.new(wd)
+  ent = d.entries.reject{|e| !File.directory? File.join(wd,e)}
+  $log.debug " directories got XXX: #{ent} "
+  ent.delete(".");ent.delete("..")
+  return ent
+end
+App.new do
+  def help_text
+    ["Press <Enter> to expand/collapse directories. Press <space> to list a directory",
+      "Press <space> on filename to page it, or <ENTER> to view it in vi",
+      "At present the PWD may not be updated, so you'll just have to be in the correct",
+      "dir to actually view the file"]
+  end
+  header = app_header "rbhex #{Rbhex::Core::VERSION}", :text_center => "Yet Another Dir Lister", :text_right =>"Directory Lister" , :color => :white, :bgcolor => :black #, :attr =>  Ncurses::A_BLINK
+  message "Press Enter to expand/collapse, <space> to view in lister. <F1> Help"
+  @form.help_manager.help_text = help_text()
+
+  pwd = Dir.getwd
+  entries = _directories pwd
+  patharray = pwd.split("/")
+  # we have an array of path, to add recursively, one below the other
+  nodes = []
+  nodes <<  TreeNode.new(patharray.shift)
+  patharray.each do |e|
+    nodes <<  nodes.last.add(e)
+  end
+  last = nodes.last
+  nodes.last.add entries
+  model = DefaultTreeModel.new nodes.first
+
+
+
+  ht = FFI::NCurses.LINES - 2
+  borderattrib = :normal
+  flow :margin_top => 1, :margin_left => 0, :width => :expand, :height => ht do
+    @t = tree :data => model, :width_pc => 30, :border_attrib => borderattrib
+    @t.bind :TREE_WILL_EXPAND_EVENT do |node|
+      path = File.join(*node.user_object_path)
+      dirs = _directories path
+      ch = node.children
+      ch.each do |e|
+        o = e.user_object
+        if dirs.include? o
+          dirs.delete o
+        else
+          # delete this child since its no longer present TODO
+        end
+      end
+      #message " #{node} will expand: #{path}, #{dirs} "
+      node.add dirs
+    end
+    @t.bind :TREE_SELECTION_EVENT do |ev|
+      if ev.state == :SELECTED
+        node = ev.node
+        path = File.join(*node.user_object_path)
+        if File.exists? path
+          files = Dir.new(path).entries
+          files.delete(".")
+          @l.list files
+          #TODO show all details in filelist
+          @current_path = path
+        end
+      end
+    end # select
+    @t.expand_node last #
+    @t.mark_parents_expanded last # make parents visible
+    @l = listbox :width_pc => 70, :border_attrib => borderattrib
+
+    @l.bind :LIST_SELECTION_EVENT  do |ev|
+      message ev.source.text #selected_value
+      _f = File.join(@current_path, ev.source.text)
+      file_page   _f if ev.type == :INSERT
+      #TODO when selects drill down
+      #TODO when selecting, sync tree with this
+    end
+    # on pressing enter, we edit the file using vi or EDITOR
+    @l.bind :PRESS  do |ev|
+      _f = File.join(@current_path, ev.source.text)
+      file_edit _f if File.exists? _f
+    end
+  end
+  status_line :row => FFI::NCurses.LINES - 1
+end # app

data/examples/newtabbedwindow.rb

@@ -0,0 +1,100 @@
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+require 'logger'
+require 'rbhex'
+require 'rbhex/core/widgets/rtabbedpane'
+require 'rbhex/core/widgets/rcontainer'
+require 'rbhex/core/widgets/rcombo'
+require 'rbhex/core/widgets/rtabbedwindow'
+
+include RubyCurses
+class SetupTabbedPane
+  def run
+    $config_hash ||= Variable.new Hash.new
+    #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
+
+    r = Container.new nil, :suppress_borders => true
+    l1 = Label.new nil, :name => "profile", :attr => 'bold', :text => "Profile"
+    f1 = Field.new nil,  :name => "name", :maxlen => 20, :display_length => 20, :bgcolor => :white,
+      :color => :black, :text => "abc", :label => ' Name: '
+    f2 = Field.new nil, :name => "email", :display_length => 20, :bgcolor => :white,
+      :color => :blue, :text => "me@google.com", :label => 'Email: '
+    f3 = RadioButton.new nil, :variable => $config_hash, :text => "red", :value => "RED", :color => :red
+    f4 = RadioButton.new nil, :variable => $config_hash, :text => "blue", :value => "BLUE", :color => :blue
+    f5 = RadioButton.new nil, :variable => $config_hash, :text => "green", :value => "GREEN", :color => :green
+    r.add(l1,f1)
+    r.add(f2)
+    r.add(f3,f4,f5)
+
+    tp = TabbedWindow.new :row => 3, :col => 7, :width => 60, :height => 20 do
+      title "User Setup"
+      button_type :ok_apply_cancel
+      tab "&Profile" do
+        item Field.new nil, :row => 2, :col => 2, :text => "enter your name", :label => ' Name: '
+        item Field.new nil, :row => 3, :col => 2, :text => "enter your email", :label => 'Email: '
+      end
+      tab "&Settings" do
+        item Label.new nil, :text => "Text", :row => 1, :col => 2, :attr => 'bold'
+        item CheckBox.new nil, :row => 2, :col => 2, :text => "Antialias text"
+        item CheckBox.new nil, :row => 3, :col => 2, :text => "Use bold fonts"
+        item CheckBox.new nil, :row => 4, :col => 2, :text => "Allow blinking text"
+        item CheckBox.new nil, :row => 5, :col => 2, :text => "Display ANSI Colors"
+        item Label.new nil, :text => "Cursor", :row => 7, :col => 2, :attr => 'bold'
+        $config_hash.set_value Variable.new, :cursor
+        item RadioButton.new nil, :row => 8, :col => 2, :text => "Block", :value => "block", :variable => $config_hash[:cursor]
+        item RadioButton.new nil, :row => 9, :col => 2, :text => "Blink", :value => "blink", :variable => $config_hash[:cursor]
+        item RadioButton.new nil, :row => 10, :col => 2, :text => "Underline", :value => "underline", :variable => $config_hash[:cursor]
+      end
+      tab "&Term" do
+
+        item Label.new nil, :text => "Arrow Key in Combos", :row => 2, :col => 2, :attr => 'bold'
+        x = Variable.new
+        $config_hash.set_value x, :term
+        item RadioButton.new nil, :row => 3, :col => 2, :text => "ignore", :value => "ignore", :variable => $config_hash[:term]
+        item RadioButton.new nil, :row => 4, :col => 2, :text => "popup", :value => "popup", :variable => $config_hash[:term]
+        item RadioButton.new nil, :row => 5, :col => 2, :text => "next", :value => "next", :variable => $config_hash[:term]
+        cb = ComboBox.new nil, :row => 7, :col => 2, :display_length => 20,
+          :list => %w[xterm xterm-color xterm-256color screen vt100 vt102],
+          :label => "Declare terminal as: "
+        #radio.update_command() {|rb| ENV['TERM']=rb.value }
+        item cb
+        x.update_command do |rb|
+          cb.arrow_key_policy=rb.value.to_sym
+        end
+
+      end
+      tab "Conta&iner" do
+        item r
+      end
+      # tell tabbedpane what to do if a button is pressed (ok/apply/cancel)
+      command do |eve|
+        alert "user pressed button index:#{eve.event} , Name: #{eve.action_command}, Tab: #{eve.source.current_tab} "
+        case eve.event
+        when 0,2                   # ok cancel
+          throw :close, eve.event
+        when 1                     # apply
+        end
+      end
+    end
+    tp.run
+  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 = SetupTabbedPane.new()
+    buttonindex = tp.run
+  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/newtesttabp.rb

@@ -0,0 +1,92 @@
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+require 'logger'
+require 'rbhex'
+#require 'rbhex/core/widgets/newtabbedpane'
+require 'rbhex/core/widgets/rtabbedpane'
+require 'rbhex/core/widgets/rcontainer' # tempo FIXME remove this since we arent using afterfixing rtabbedp
+
+class TestTabbedPane
+  def initialize
+    acolor = $reversecolor
+    #$config_hash ||= {}
+  end
+  def run
+    $config_hash ||= Variable.new Hash.new
+    #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
+    @window = VER::Window.root_window
+    @form = Form.new @window
+    r = 1; c = 30;
+      tp = RubyCurses::TabbedPane.new @form, :height => 12, :width  => 50,
+        :row => 13, :col => 10 do
+        button_type :ok
+      end
+      tp.add_tab "&Language" do
+        _r = 2
+        colors = [:red, :green, :cyan]
+        %w[ ruby jruby macruby].each_with_index { |e, i|
+          item RadioButton.new nil,
+            :variable => $config_hash,
+            :name => "radio1",
+            :text => e,
+            :value => e,
+            :color => colors[i],
+            :row => _r+i,
+            :col => 5
+        }
+      end
+      tp.add_tab "&Settings" do
+        r = 2
+        butts = [ "Use &HTTP/1.0", "Use &frames", "&Use SSL" ]
+        bcodes = %w[ HTTP, FRAMES, SSL ]
+        butts.each_with_index do |t, i|
+          item RubyCurses::CheckBox.new nil,
+            :text => butts[i],
+            :variable => $config_hash,
+            :name => bcodes[i],
+            :row => r+i,
+            :col => 5
+        end
+      end
+      tp.add_tab "&Editors" do
+        butts = %w[ &Vim E&macs &Jed &Other ]
+        bcodes = %w[ VIM EMACS JED OTHER]
+        row = 2
+        butts.each_with_index do |name, i|
+          item RubyCurses::CheckBox.new nil ,
+            :text => name,
+            :variable => $config_hash,
+            :name => bcodes[i],
+            :row => row+i,
+            :col => 5
+        end
+      end
+      help = "q to quit. <TAB> through tabs, Space or Enter to select Tab."
+      RubyCurses::Label.new @form, {:text => help, :row => 1, :col => 2, :color => :yellow}
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != ?q.getbyte(0) )
+        @form.handle_key(ch)
+        @window.wrefresh
+      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("rbc13.log")
+    $log.level = Logger::DEBUG
+    n = TestTabbedPane.new
+    n.run
+  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/tabular.rb

@@ -0,0 +1,146 @@
+require 'rbhex/core/util/app'
+
+App.new do
+  # TODO: combine this with widget menu
+  def app_menu
+      menu = PromptMenu.new self do
+        item :e, :edit
+        item :o, :open_new
+        item :d, :delete
+        item :u, :undo_delete
+        #item :y, :yank
+        #item :p, :paste
+        item :/, :search
+      end
+      menu.display_new :title => "Menu"
+  end
+  # to execute when app_menu is invoked
+  def execute_this *cmd
+    cmd = cmd[0][0] # extract first letter of command
+    cmdi = cmd.getbyte(0)
+    case cmd
+    when 'e','o','p'
+      @window.ungetch cmdi
+    when 'y','d'
+      @window.ungetch cmdi
+      @window.ungetch cmdi
+    when 'u'
+      @window.ungetch cmd.upcase.getbyte(0)
+    when 's'
+      @window.ungetch ?\/.getbyte(0)
+    end
+  end
+def help_text
+    <<-eos
+         Help for tabular widgets
+         ------------------------
+
+         Keys that can be used on header
+
+    <ENTER>     - sort given field (press on header)
+    <->         - press <minus> to reduce column width
+    <+>         - press <plus> to increase column width
+
+         Keys that can be used on data rows
+
+    <space>     -  select a row
+    <Ctr-space> - range select
+    <u>         - unselect all (conflicts with vim keys!!)
+    <a>         - select all
+    <*>         - invert selection
+
+    </>         - <slash> for searching,
+                  <n> to continue searching
+
+    Keys specific to this example
+
+    <e>         - edit current row
+    <dd>        - delete current row or <num> rows
+    <o>         - insert a row after current one
+    <U>         - undo delete
+
+         Motion keys
+
+    Usual for lists and textview such as :
+    j, k, h, l
+    w and b for (next/prev) column
+    C-d and C-b
+    gg and G
+
+    eos
+end
+def edit_row tw
+  row = tw.current_value
+  h   = tw.columns
+  _edit h, row, " Edit "
+  tw.repaint_required true
+end
+def insert_row tw
+  h   = tw.columns
+  row = []
+  h.each { |e| row << "" }
+  ret = _edit h, row, "Insert"
+  if ret
+    tw.insert tw.real_index(), row
+    tw.repaint_required true
+  end
+end
+
+# making a generic edit messagebox - quick dirty
+def _edit h, row, title
+  _l = longest_in_list h
+  _w = _l.size
+  config = { :width => 70, :title => title }
+  bw = get_color $datacolor, :black, :white
+  mb = MessageBox.new config do
+    h.each_with_index { |f, i|
+      add Field.new :label => "%*s:" % [_w, f], :text => row[i].chomp, :name => i.to_s,
+        :bgcolor => :cyan,
+        :display_length => 50,
+        :label_color_pair => bw
+    }
+    button_type :ok_cancel
+  end
+  index = mb.run
+  return nil if index != 0
+  h.each_with_index { |e, i|
+    f = mb.widget(i.to_s)
+    row[i] = f.text
+  }
+  row
+end
+def resize
+  tab = @form.by_name["tab"]
+  cols = Ncurses.COLS
+  rows = Ncurses.LINES
+  tab.width_pc ||= (1.0*tab.width / $orig_cols)
+  tab.height_pc ||= (1.0*tab.height / $orig_rows)
+  tab.height = (tab.height_pc * rows).floor
+  tab.width = (tab.width_pc * cols).floor
+end
+  header = app_header "rbhex #{Rbhex::Core::VERSION}", :text_center => "Tabular Demo", :text_right =>"Fat-free !",
+      :color => :black, :bgcolor => :green #, :attr => :bold
+  message "Press F10 to exit, F1 for help, : for menu"
+  @form.help_manager.help_text = help_text()
+  $orig_cols = Ncurses.COLS
+  $orig_rows = Ncurses.LINES
+
+  h = %w[ Id Title Priority Status]
+  file = File.expand_path("../data/table.txt", __FILE__)
+  lines = File.open(file,'r').readlines
+  arr = []
+  lines.each { |l| arr << l.split("|") }
+  flow :margin_top => 1, :height => FFI::NCurses.LINES-2 do
+    tw = tabular_widget :print_footer => true, :name => "tab"
+    tw.columns = h
+    tw.column_align 0, :right
+    tw.set_content arr
+    tw.bind_key([?d,?d], 'delete row') { tw.delete_line }
+    tw.bind_key(?U, 'undo delete') { tw.undo_delete }
+    tw.bind_key(?e, 'edit row') {  edit_row tw }
+    tw.bind_key(?o, 'insert row') {  insert_row tw }
+  end # stack
+  status_line :row => FFI::NCurses.LINES-1
+  @form.bind_key(?:, 'menu') {  app_menu }
+  @form.bind(:RESIZE) {  resize }
+end # app

data/examples/tasks.rb

@@ -0,0 +1,178 @@
+require 'rbhex/core/util/app'
+require 'rbhex/core/widgets/rlist'
+
+# a simple example of how to get colored row rendering.
+# also see rfe.rb for a more complete example
+class CellRenderer
+  attr_accessor :display_length
+  def repaint g, r, c, crow, content, focus_type, selected
+    color = $datacolor
+    att = NORMAL
+    att = REVERSE if selected
+    color = get_color($datacolor, :yellow, :red) if content =~ /^.1/
+    color = get_color($datacolor, :red, :blue) if content =~ /^.2/
+    color = get_color($datacolor, :white, :black) if content =~ /^.3/
+    color = get_color($datacolor, :green, :black) if content =~ /^.4/
+    color = get_color($datacolor, :red, :black) if content =~ /^.5/
+    color = get_color($datacolor, :cyan, :black) if content =~ /^.6/
+    color = get_color($datacolor, :magenta, :black) if content =~ /^.[7-9]/
+    color = get_color($datacolor, :blue, :black) if content =~ /^x/
+    g.wattron(Ncurses.COLOR_PAIR(color) | att)
+    g.mvwprintw(r, c, "%s", :string, content);
+    g.wattroff(Ncurses.COLOR_PAIR(color) | att)
+  end
+end
+App.new do
+def resize
+  tab = @form.by_name["tasklist"]
+  cols = Ncurses.COLS
+  rows = Ncurses.LINES
+  tab.width_pc ||= (1.0*tab.width / $orig_cols)
+  tab.height_pc ||= (1.0*tab.height / $orig_rows)
+  tab.height = (tab.height_pc * rows).floor
+  tab.width = (tab.width_pc * cols).floor
+  #$log.debug "XXX:  RESIZE h w #{tab.height} , #{tab.width} "
+end
+  @default_prefix = " "
+  header = app_header "rbhex #{Rbhex::Core::VERSION}", :text_center => "Task List", :text_right =>"New Improved!"
+
+  message "Press F10 or qq to quit "
+
+  file = File.expand_path("../data/todo.txt", __FILE__)
+  alist = File.open(file,'r').readlines
+  #flow :margin_top => 1, :item_width => 50 , :height => FFI::NCurses.LINES-2 do
+  #stack :margin_top => 1, :width => :expand, :height => FFI::NCurses.LINES-4 do
+
+    #task = field :label => "    Task:", :display_length => 50, :maxlen => 80, :bgcolor => :cyan, :color => :black
+    #pri = field :label => "Priority:", :display_length => 1, :maxlen => 1, :type => :integer,
+      #:valid_range => 1..9, :bgcolor => :cyan, :color => :black , :default => "5"
+    #pri.overwrite_mode = true
+    # u,se voerwrite mode for this TODO and catch exception
+
+    lb = listbox :list => alist.sort, :title => "[ todos ]", :name => "tasklist", :row => 1, :height => Ncurses.LINES-4, :width => Ncurses.COLS-1
+    lb.should_show_focus = false
+    lb.cell_renderer CellRenderer.new
+    lb.bind_key(?d, "Delete Row"){
+      if confirm("Delete #{lb.current_value} ?")
+        lb.delete_at lb.current_index
+        # TODO reposition cursor at 0. use list_data_changed ?
+      end
+    }
+    lb.bind_key(?e, "Edit Row"){
+      if ((value = get_string("Edit Task:", :width => 80, :default => lb.current_value, :maxlen => 80, :display_length => 70)) != nil)
+
+        lb[lb.current_index]=value
+      end
+    }
+    lb.bind_key(?a, "Add Record"){
+
+      # ADD
+    task = Field.new :label => "    Task:", :display_length => 60, :maxlen => 80, :bgcolor => :cyan, :color => :black,
+    :name => 'task'
+    pri = Field.new :label => "Priority:", :display_length => 1, :maxlen => 1, :type => :integer,
+      :valid_range => 1..9, :bgcolor => :cyan, :color => :black , :default => "5", :name => 'pri'
+    pri.overwrite_mode = true
+    config = {}
+    config[:width] = 80
+    config[:title] =  "New Task"
+    tp = MessageBox.new config do
+      item task
+      item pri
+      button_type :ok_cancel
+      default_button 0
+    end
+    index = tp.run
+    if index == 0 # OK
+      # when does this memory get released ??? XXX
+      _t = tp.form.by_name['pri'].text
+      if _t != ""
+        val =  @default_prefix + tp.form.by_name['pri'].text + ". " + tp.form.by_name['task'].text
+        w = @form.by_name["tasklist"]
+        _l = w.list
+        _l << val
+        w.list(_l.sort)
+      end
+    else # CANCEL
+      #return nil
+    end
+    }
+    # decrease priority
+    lb.bind_key(?-, 'decrease priority'){
+      line = lb.current_value
+      p = line[1,1].to_i
+      if p < 9
+        p += 1
+        line[1,1] = p.to_s
+        lb[lb.current_index]=line
+        lb.list(lb.list.sort)
+      end
+    }
+    # increase priority
+    lb.bind_key(?+, 'increase priority'){
+      line = lb.current_value
+      p = line[1,1].to_i
+      if p > 1
+        p -= 1
+        line[1,1] = p.to_s
+        lb[lb.current_index]=line
+        lb.list(lb.list.sort)
+        # how to get the new row of that item and position it there. so one
+        # can do consecutive increases or decreases
+        # cursor on old row, but current has become zero. FIXME
+        # Maybe setform_row needs to be called
+      end
+    }
+    # mark as done
+    lb.bind_key(?x, 'mark done'){
+      line = lb.current_value
+      line[0,1] = "x"
+      lb[lb.current_index]=line
+      lb.list(lb.list.sort)
+    }
+    # flag task with a single character
+    lb.bind_key(?!, 'flag'){
+      line = lb.current_value.chomp
+      value = get_string("Flag for #{line}. Enter one character.", :maxlen => 1, :display_length => 1)
+      #if ((value = get_string("Edit Task:", :width => 80, :default => lb.current_value)) != nil)
+        #lb[lb.current_index]=value
+      #end
+      if value ##&& value[0,1] != " "
+        line[0,1] = value[0,1]
+        lb[lb.current_index]=line
+        lb.list(lb.list.sort)
+      end
+    }
+  #end # stack
+  s = status_line
+  @form.bind(:RESIZE) {  resize }
+
+    keyarray = [
+      ["F1" , "Help"], ["F10" , "Exit"],
+      ["F2", "Menu"], ["F4", "View"],
+      ["d", "delete item"], ["e", "edit item"],
+      ["a", "add item"], ["x", "close item"],
+      ["+", "inc priority"], ["-", "dec priority"],
+
+      ["M-x", "Command"], nil
+    ]
+
+    gw = get_color($reversecolor, 'green', 'black')
+    @adock = dock keyarray, { :row => Ncurses.LINES-2, :footer_color_pair => $datacolor,
+      :footer_mnemonic_color_pair => gw }
+
+  @window.confirm_close_command do
+    confirm "Sure you wanna quit?", :default_button => 1
+  end
+  @window.close_command do
+    w = @form.by_name["tasklist"]
+    if confirm("Save tasks?", :default_button => 0)
+      system("cp #{file} #{file}.bak")
+      File.open(file, 'w') {|f|
+        w.list.each { |e|
+          f.puts(e)
+        }
+      }
+    end
+  end
+
+end # app