canis 0.0.4

data/examples/dirtree.rb

@@ -0,0 +1,177 @@
+require 'canis/core/util/app'
+require 'fileutils'
+require 'canis/core/widgets/tree/treemodel'
+#require 'canis/common/file'
+require './common/file'
+require './common/devel'
+
+def _directories wd
+  $log.debug " directories got :#{wd}: "
+  wd ||= ""
+  return [] if 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
+$log = create_logger "canis14.log"
+App.new do 
+  def help_text
+    <<-eos
+
+=========================================================================
+## Basic Usage
+
+### Left Window
+
+   <ENTER>    expand/collapse directories
+   v          select and list a directory in other window
+
+  See also [tree]
+
+### Right Window
+
+  <ENTER>    enter a directory
+  <ENTER>    open a file in 'EDITOR'
+  v          page a file using 'PAGER'
+
+  See also [list]
+
+[index]
+      eos
+  end
+  # print the dir list on the right listbox upon pressing ENTER or row_selector (v)
+  # separated here so it can be called from two places.
+  def lister node
+    path = File.join(*node.user_object_path)
+    populate path
+  end
+
+  def populate path
+    ll = @form.by_name["ll"]
+    return unless ll
+    if File.exists? path
+      files = Dir.new(path).entries
+      files.delete(".")
+      #files = file_listing path, :mode => :LONG
+      ll.clear_selection
+      ll.list files 
+      ll.title path
+      #TODO show all details in filelist
+      @current_path = path
+      return path
+    end
+  end
+  header = app_header "canis #{Canis::VERSION}", :text_center => "Dorado", :text_right =>"Directory Lister" , :color => :white, :bgcolor => 242 #, :attr =>  Ncurses::A_BLINK
+  message "Press Enter to expand/collapse, v 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
+  model.root_visible = false
+     
+
+
+  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
+    rend = @t.renderer # just test method out.
+    rend.row_selected_attr = BOLD
+    @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
+      lister node
+    end
+    @t.bind :TREE_WILL_COLLAPSE_EVENT do |node|
+      # FIXME do if ony not already showing on other side
+      lister node
+    end
+    @t.bind :TREE_SELECTION_EVENT do |ev|
+      if ev.state == :SELECTED
+        node = ev.node
+        lister node
+      end
+    end # select
+    #$def_bg_color = :blue
+    @form.bgcolor = :blue
+    @t.expand_node last # 
+    @t.mark_parents_expanded last # make parents visible
+    @l = listbox :width_pc => 70, :border_attrib => borderattrib, :selection_mode => :single, :name => 'll',
+      :left_margin => 1
+    @l.renderer directory_renderer(@l)
+    @l.renderer().row_focussed_attr = REVERSE
+
+    @l.bind :LIST_SELECTION_EVENT  do |ev|
+      message ev.source.current_value #selected_value
+      # FIXME if ".." then remove basename
+      e = ev.source.current_value
+      if e == ".."
+        _f = File.dirname(@current_path)
+      else
+        _f = File.join(@current_path, e)
+      end
+      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|
+      # FIXME if ".." then remove basename
+      e = ev.source.current_value
+      if e == ".."
+        _f = File.dirname(@current_path)
+      else
+        _f = File.join(@current_path, e)
+      end
+      #_f = File.join(@current_path, ev.source.current_value)
+      if File.directory? _f
+        populate _f
+      else
+        file_edit _f if File.exists? _f
+      end
+    end
+    @form.bind_key([?\\, ?l, ?1]){ 
+      ll = @form.by_name["ll"]
+      ll.renderer.formatter = proc do | fname, stat, prefix|
+        "%s%-40s | %10d | %s " % [prefix, fname, stat.size, stat.mtime.strftime("%Y-%m-%d")]
+      end
+      # why is repaint all not enough ? is repaint not being called ?
+      ll.repaint_all
+      #ll.render_all
+      ll.repaint
+      #ll.fire_dimension_changed
+    }
+    @form.bind_key([?\\, ?l, ?2]){ 
+      ll = @form.by_name["ll"]
+      ll.renderer.formatter = nil
+      #ll.fire_dimension_changed
+      ll.repaint_all
+      #ll.render_all
+      ll.repaint
+    }
+  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 'canis'
+require 'canis/core/widgets/rtabbedpane'
+require 'canis/core/widgets/rcontainer'
+require 'canis/core/widgets/rcombo'
+require 'canis/core/widgets/rtabbedwindow'
+
+include Canis
+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 = LabeledField.new nil,  :name => "name", :maxlen => 20, :width => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => ' Name: '
+    f2 = LabeledField.new nil, :name => "email", :width => 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 LabeledField.new nil, :row => 2, :col => 2, :text => "enter your name", :label => ' Name: '
+        item LabeledField.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, :width => 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
+    Canis::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"canis14.log")))
+    $log.level = Logger::DEBUG
+    tp = SetupTabbedPane.new()
+    buttonindex = tp.run
+  rescue => ex
+  ensure
+    Canis::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 'canis'
+#require 'canis/core/widgets/newtabbedpane'
+require 'canis/core/widgets/rtabbedpane'
+require 'canis/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 = Canis::Window.root_window
+    @form = Form.new @window
+    r = 1; c = 30;
+      tp = Canis::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 Canis::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 Canis::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."
+      Canis::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
+    Canis::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new("canis14.log")
+    $log.level = Logger::DEBUG
+    n = TestTabbedPane.new
+    n.run
+  rescue => ex
+  ensure
+    Canis::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,212 @@
+require 'canis/core/util/app'
+require 'canis/core/widgets/listfooter'
+require 'canis/core/util/promptmenu'
+
+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_row
+        item :u, :undo_delete
+        #item :y, :yank
+        #item :p, :paste
+        item :/, :search
+        item :w, :write
+      end
+      menu.display_new :title => "Menu"
+  end
+  # to execute when app_menu is invoked
+  # very tricky , this depends on the keys that have been mapped
+  # Here we are pushing the mapped key to trigger a method.
+  # FIXME NOTE these have stopped working since I think i now clear keys 
+  #  after a key is processed, so unget will not work.
+  #  Use +handle_key+ instead of +ungetch+, although that won't work if multiple
+  #   keys involved.
+  def execute_this *cmd
+    cmd = cmd[0][0] # extract first letter of command
+    cmdi = cmd.getbyte(0)
+    tw = @form.by_name["tab"]
+    case cmd
+    when 'e','o','p'
+      #@window.ungetch cmdi
+      tw.handle_key cmdi
+    when 'd'
+      tw.delete_row
+    when 'y','d'
+      # won't work FIXME
+      tw.handle_key cmdi
+      #tw.handle_key cmdi
+      @window.ungetch cmdi
+      #@window.ungetch cmdi
+    when 'u'
+      tw.undo_delete
+      #tw.handle_key cmd.upcase.getbyte(0)
+      #@window.ungetch cmd.upcase.getbyte(0)
+    when 's'
+      tw.handle_key ?\/.getbyte(0)
+      #@window.ungetch ?\/.getbyte(0)
+    when 'w'
+      # this depends too much on mappings which can change
+      #@window.ungetch ?\C-s.getbyte(0)
+      tw = @form.by_name["tab"]
+      tw.save_as(nil)
+    end
+  end
+def help_text
+    <<-eos
+         Help for Tables
+         ---------------
+
+         Keys that can be used on header
+
+    <ENTER>     - sort given field (press on header)
+
+         Keys that can be used on data rows
+
+    <v>         - select a row
+    <V>         - 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 [[list]] and [[textpad]] such as :
+    j, k, h, l
+    w and b for (next/prev) column
+    C-d and C-b
+    gg and G
+
+    [[table]]  |   [[index]]
+    eos
+end
+def edit_row tw
+  row = tw.current_value
+  h   = tw.columns
+  ret = _edit h, row, " Edit "
+  if ret
+    tw[tw.current_index] = row
+  end
+end
+def insert_row tw
+  h   = tw.columns
+  row = []
+  h.each { |e| row << "" }
+  ret = _edit h, row, "Insert"
+  loc = tw.current_index
+  # don't insert above header
+  loc = 1 if loc == 0
+  if ret
+    tw.insert loc, row
+  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 LabeledField.new :label => "%*s:" % [_w, f], :text => row[i].chomp, :name => i.to_s, 
+        :bgcolor => :cyan,
+        :width => 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
+# delete current row
+# ideally one should include listeditable to get events also
+def delete_row tw=nil
+  tw ||= @form.by_name["tab"]
+  @undo_buffer = tw.current_value
+  tw.delete_at tw.current_index
+end
+# very minimal undo, just for a demo
+# Keeps pasting undo buffer back. @see listeditable.rb
+def undo_delete tw=nil
+  return unless @undo_buffer
+  tw ||= @form.by_name["tab"]
+  tw.insert tw.current_index, @undo_buffer
+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
+
+=begin
+
+lf = Canis::ListFooter.new :attrib => BOLD
+lf.command(lf){ |comp, lf|
+  f = lf[0]
+  if comp.current_index == 0
+    f.attrib = REVERSE
+    " Header "
+  else
+    f.attrib = BOLD
+  "#{comp.current_index} of #{comp.size} "
+  end
+}
+lf.command_right(){ |comp|
+  " [#{comp.size} tasks]"
+}
+=end
+  header = app_header "canis #{Canis::VERSION}", :text_center => "Table Demo", :text_right =>": menu", 
+      :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 = "data/table.txt"
+
+  flow :margin_top => 1, :height => FFI::NCurses.LINES-2 do
+    tw = table :print_footer => true, :name => "tab"
+    tw.filename(file, :delimiter => '|', :columns => h)
+    #tw.columns h
+    #tw.text arr
+    tw.column_align 0, :right
+    tw.model_row 1
+    #tw.list_footer lf
+    tw.estimate_column_widths
+    #tw.selection_mode :single
+    # set_content goes to textpads text which overwrites @list
+    #tw.set_content arr
+    tw.bind_key([?d,?d], 'delete row') { delete_row tw }
+    tw.bind_key(?U, 'undo delete') { undo_delete tw }
+    tw.bind_key(?e, 'edit row') {  edit_row tw }
+    tw.bind_key(?o, 'insert row') {  insert_row tw }
+    tw.create_default_sorter
+  
+  end # stack
+  status_line :row => FFI::NCurses.LINES-1
+  @form.bind_key(?:, 'menu') {  app_menu }
+  @form.bind(:RESIZE) {  resize }
+end # app