canis 0.0.8 → 0.0.10

data/examples/dirtree.rb

@@ -1,9 +1,8 @@
 require 'canis/core/util/app'
 require 'fileutils'
 require 'canis/core/widgets/tree/treemodel'
-#require 'canis/common/file'
-require './common/file'
-require './common/devel'
+require_relative './common/file'
+require_relative './common/devel'
 
 def _directories wd
   $log.debug " directories got :#{wd}: "
@@ -16,7 +15,7 @@ def _directories wd
   return ent
 end
 $log = create_logger "canis14.log"
-App.new do 
+App.new do
   def help_text
     <<-eos
 
@@ -41,6 +40,7 @@ App.new do
 [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
@@ -56,15 +56,20 @@ App.new do
       files.delete(".")
       #files = file_listing path, :mode => :LONG
       ll.clear_selection
-      ll.list files 
+      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
+
+  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
@@ -73,27 +78,25 @@ App.new do
   # we have an array of path, to add recursively, one below the other
   nodes = []
   nodes <<  TreeNode.new(patharray.shift)
-  patharray.each do |e| 
+  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.
+    @tree = tree :data => model, :width_pc => 30, :border_attrib => borderattrib
+    rend = @tree.renderer # just test method out.
     rend.row_selected_attr = BOLD
-    @t.bind :TREE_WILL_EXPAND_EVENT do |node|
+    @tree.bind :TREE_WILL_EXPAND_EVENT do |node|
       path = File.join(*node.user_object_path)
       dirs = _directories path
       ch = node.children
-      ch.each do |e| 
+      ch.each do |e|
         o = e.user_object
         if dirs.include? o
           dirs.delete o
@@ -105,11 +108,11 @@ App.new do
       node.add dirs
       lister node
     end
-    @t.bind :TREE_WILL_COLLAPSE_EVENT do |node|
+    @tree.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|
+    @tree.bind :TREE_SELECTION_EVENT do |ev|
       if ev.state == :SELECTED
         node = ev.node
         lister node
@@ -117,8 +120,8 @@ App.new do
     end # select
     #$def_bg_color = :blue
     @form.bgcolor = :blue
-    @t.expand_node last # 
-    @t.mark_parents_expanded last # make parents visible
+    @tree.expand_node last #
+    @tree.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)
@@ -153,7 +156,7 @@ App.new do
         file_edit _f if File.exists? _f
       end
     end
-    @form.bind_key([?\\, ?l, ?1]){ 
+    @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")]
@@ -164,7 +167,7 @@ App.new do
       ll.repaint
       #ll.fire_dimension_changed
     }
-    @form.bind_key([?\\, ?l, ?2]){ 
+    @form.bind_key([?\\, ?l, ?2]){
       ll = @form.by_name["ll"]
       ll.renderer.formatter = nil
       #ll.fire_dimension_changed

data/examples/newtabbedwindow.rb

@@ -15,9 +15,9 @@ class SetupTabbedPane
 
     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, 
+    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, 
+    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
@@ -46,14 +46,14 @@ class SetupTabbedPane
         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, 
+        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 }
@@ -61,7 +61,7 @@ class SetupTabbedPane
         x.update_command do |rb|
           cb.arrow_key_policy=rb.value.to_sym
         end
-        
+
       end
       tab "Conta&iner" do
         item r

data/examples/newtesttabp.rb

@@ -24,8 +24,8 @@ class TestTabbedPane
       tp.add_tab "&Language" do
         _r = 2
         colors = [:red, :green, :cyan]
-        %w[ ruby jruby macruby].each_with_index { |e, i| 
-          item RadioButton.new nil, 
+        %w[ ruby jruby macruby].each_with_index { |e, i|
+          item RadioButton.new nil,
             :variable => $config_hash,
             :name => "radio1",
             :text => e,
@@ -40,7 +40,7 @@ class TestTabbedPane
         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, 
+          item Canis::CheckBox.new nil,
             :text => butts[i],
             :variable => $config_hash,
             :name => bcodes[i],

data/examples/tabular.rb

@@ -2,7 +2,7 @@ require 'canis/core/util/app'
 require 'canis/core/widgets/listfooter'
 require 'canis/core/util/promptmenu'
 
-App.new do 
+App.new do
   # TODO: combine this with widget menu
   def app_menu
       menu = PromptMenu.new self do
@@ -20,7 +20,7 @@ App.new do
   # 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 
+  # 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.
@@ -71,7 +71,7 @@ def help_text
     <a>         - select all
     <*>         - invert selection
 
-    </>         - <slash> for searching, 
+    </>         - <slash> for searching,
                   <n> to continue searching
 
     Keys specific to this example
@@ -81,7 +81,7 @@ def help_text
     <o>         - insert a row after current one
     <U>         - undo delete
 
-         Motion keys 
+         Motion keys
 
     Usual for [[list]] and [[textpad]] such as :
     j, k, h, l
@@ -120,8 +120,8 @@ def _edit h, row, title
   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, 
+    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
@@ -130,7 +130,7 @@ def _edit h, row, title
   end
   index = mb.run
   return nil if index != 0
-  h.each_with_index { |e, i| 
+  h.each_with_index { |e, i|
     f = mb.widget(i.to_s)
     row[i] = f.text
   }
@@ -177,15 +177,15 @@ 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 
+  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"
+  file = File.expand_path("../data/table.txt", __FILE__)
 
   flow :margin_top => 1, :height => FFI::NCurses.LINES-2 do
     tw = table :print_footer => true, :name => "tab"
@@ -204,7 +204,7 @@ lf.command_right(){ |comp|
     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 }

data/examples/tasks.rb

@@ -2,7 +2,7 @@ require 'canis/core/util/app'
 require 'canis/core/include/defaultfilerenderer'
 #require 'canis/core/widgets/rlist'
 
-App.new do 
+App.new do
 def resize
   tab = @form.by_name["tasklist"]
   cols = Ncurses.COLS
@@ -18,13 +18,13 @@ end
 
   message "Press F10 or qq to quit "
 
-  file = "data/todo.txt"
+  file = File.expand_path("../data/todo.txt", __FILE__)
   alist = File.open(file,'r').read.split("\n") if File.exists? file
   #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:", :width => 50, :maxlen => 80, :bgcolor => :cyan, :color => :black
-    #pri = field :label => "Priority:", :width => 1, :maxlen => 1, :type => :integer, 
+    #pri = field :label => "Priority:", :width => 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
@@ -44,26 +44,26 @@ end
     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.renderer dr
-    lb.bind_key(?d, "Delete Row"){ 
+    lb.bind_key(?d, "Delete Row"){
       if confirm("Delete #{lb.current_value} ?")
-        lb.delete_at lb.current_index 
+        lb.delete_at lb.current_index
         $data_modified = true
         # TODO reposition cursor at 0. use list_data_changed ?
       end
     }
-    lb.bind_key(?e, "Edit Row"){ 
+    lb.bind_key(?e, "Edit Row"){
       if ((value = get_string("Edit Task:", :width => 80, :default => lb.current_value, :maxlen => 80, :width => 70)) != nil)
 
         lb[lb.current_index]=value
         $data_modified = true
       end
     }
-    lb.bind_key(?a, "Add Record"){ 
+    lb.bind_key(?a, "Add Record"){
 
       # ADD
     task = LabeledField.new :label => "    Task:", :width => 60, :maxlen => 80, :bgcolor => :cyan, :color => :black,
     :name => 'task'
-    pri = LabeledField.new :label => "Priority:", :width => 1, :maxlen => 1, :type => :integer, 
+    pri = LabeledField.new :label => "Priority:", :width => 1, :maxlen => 1, :type => :integer,
       :valid_range => 1..9, :bgcolor => :cyan, :color => :black , :default => "5", :name => 'pri'
     pri.overwrite_mode = true
     config = {}
@@ -77,10 +77,10 @@ end
     end
     index = tp.run
     if index == 0 # OK
-      # when does this memory get released ??? XXX 
-      _t = tp.form.by_name['pri'].text 
+      # 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 
+        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
@@ -92,11 +92,11 @@ end
     end
     }
     # decrease priority
-    lb.bind_key(?-, 'decrease priority'){ 
+    lb.bind_key(?-, 'decrease priority'){
       line = lb.current_value
       p = line[1,1].to_i
       if p < 9
-        p += 1 
+        p += 1
         line[1,1] = p.to_s
         lb[lb.current_index]=line
         lb.list(lb.list.sort)
@@ -104,11 +104,11 @@ end
       end
     }
     # increase priority
-    lb.bind_key(?+, 'increase priority'){ 
+    lb.bind_key(?+, 'increase priority'){
       line = lb.current_value
       p = line[1,1].to_i
       if p > 1
-        p -= 1 
+        p -= 1
         line[1,1] = p.to_s
         lb[lb.current_index]=line
         lb.list(lb.list.sort)
@@ -120,7 +120,7 @@ end
       end
     }
     # mark as done
-    lb.bind_key(?x, 'mark done'){ 
+    lb.bind_key(?x, 'mark done'){
       line = lb.current_value
       line[0,1] = "x"
       lb[lb.current_index]=line
@@ -128,7 +128,7 @@ end
       $data_modified = true
     }
     # flag task with a single character
-    lb.bind_key(?!, 'flag'){ 
+    lb.bind_key(?!, 'flag'){
       line = lb.current_value.chomp
       value = get_string("Flag for #{line}. Enter one character.", :maxlen => 1, :width => 1)
       #if ((value = get_string("Edit Task:", :width => 80, :default => lb.current_value)) != nil)
@@ -146,7 +146,7 @@ end
   @form.bind(:RESIZE) {  resize }
 
     keyarray = [
-      ["F1" , "Help"], ["F10" , "Exit"], 
+      ["F1" , "Help"], ["F10" , "Exit"],
       ["F2", "Menu"], ["F4", "View"],
       ["d", "delete item"], ["e", "edit item"],
       ["a", "add item"], ["x", "close item"],
@@ -156,7 +156,7 @@ end
     ]
 
     gw = get_color($reversecolor, 'green', 'black')
-    @adock = dock keyarray, { :row => Ncurses.LINES-2, :footer_color_pair => $datacolor, 
+    @adock = dock keyarray, { :row => Ncurses.LINES-2, :footer_color_pair => $datacolor,
       :footer_mnemonic_color_pair => gw }
 
   @window.confirm_close_command do
@@ -167,13 +167,13 @@ end
     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) 
-        } 
-      } 
+      File.open(file, 'w') {|f|
+        w.list.each { |e|
+          f.puts(e)
+        }
+      }
     end
     end # if modif
   end
-  
+
 end # app

data/examples/term2.rb

@@ -12,8 +12,8 @@ require 'canis/core/widgets/scrollbar'
 
     The 2 tables on the right differ in behaviour. The first puts tabular data
     into a listbox so you get single/multiple selection. The second puts tabular
-    data into a textview, so there's no selection. <space> scrolls instead of 
-    selects <ENTER> allows us to use the word under cursor for further actions. 
+    data into a textview, so there's no selection. <space> scrolls instead of
+    selects <ENTER> allows us to use the word under cursor for further actions.
 
     To see an example of placing tabular data in a tabular widget, see tabular.rb.
     The advantage of tabular_widget is column resizing, hiding, aligning and sorting.
@@ -23,8 +23,8 @@ require 'canis/core/widgets/scrollbar'
 
     eos
   end
-App.new do 
-  header = app_header "canis #{Canis::VERSION}", :text_center => "Tabular Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+App.new do
+  header = app_header "canis #{Canis::VERSION}", :text_center => "Tabular Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold
   message "F10 quit, F1 Help, ? Bindings"
   #install_help_text my_help_text
   @form.help_manager.help_text = my_help_text
@@ -45,8 +45,8 @@ App.new do
     end # stack
 
 
-    file = "data/tasks.csv"
-    lines = File.open(file,'r').readlines 
+    file = File.expand_path("../data/tasks.csv", __FILE__)
+    lines = File.open(file,'r').readlines
     heads = %w[ id sta type prio title ]
     t = Tabular.new do |t|
       t.headings = heads
@@ -63,9 +63,9 @@ App.new do
       res = r.split("\n")
 
       t = Tabular.new do
-        #      self.headings = 'Perm', 'Gr', 'User', 'U',  'Size', 'Mon', 'Date', 'Time', 'File' # changed 2011 dts  
+        #      self.headings = 'Perm', 'Gr', 'User', 'U',  'Size', 'Mon', 'Date', 'Time', 'File' # changed 2011 dts
         self.headings = 'User',  'Size', 'Mon', 'Date', 'Time', 'File'
-        res.each { |e| 
+        res.each { |e|
           cols = e.split
           next if cols.count < 6
           cols = cols[3..-1]