canis 0.0.4

data/examples/testmessagebox.rb

@@ -0,0 +1,144 @@
+# To test out the new messagebox
+#  The old messagebox provided a lot of convenience methods that were complicated
+#  and confusing. This one is simpler.
+#  The examples here are based on the old test1.rb that will not work now
+#  since the interface has been changed and simplified
+#
+require 'logger'
+require 'canis'
+require 'canis/core/widgets/rmessagebox'
+#require 'canis/deprecated/widgets/rmessagebox'
+
+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
+
+#    @window = Canis::Window.root_window
+
+
+    catch(:close) do
+      choice = ARGV[0] && ARGV[0].to_i || 3
+      $log.debug "START  MESSAGE BOX TEST #{ARGV[0]}. choice==#{choice} ---------"
+      # need to pass a form, not window.
+      case choice
+      when 1
+        require 'canis/core/widgets/listbox'
+        nn = "mylist"
+        l = Listbox.new  nil, :row => 2, :col => 5, :list => %w[john tim lee wong kepler edward why chad andy], 
+          :selection_mode => :multiple, :height => 10, :width => 20 , :selected_color => :green, :selected_bgcolor => :white, :selected_indices => [2,6], :name => nn
+       #default_values %w[ lee why ]
+
+        l.unbind_key(KEY_ENTER)
+      @mb = MessageBox.new :width => 30, :height => 18 do
+        title "Select a name"
+        button_type :ok_cancel
+        item Label.new :row => 1, :col => 1, :text => "Enter your name:"
+        item l
+      end
+      @mb.run
+      $log.debug "XXX:  #{l.selected_indices}  "
+      n = @mb.widget(nn)
+      $log.debug "XXXX:  #{n.selected_indices}, #{n.name}  "
+      when 2
+      @mb = Canis::MessageBox.new do
+        title "Color selector"
+        message "Select a color"
+        #item Label.new :text => "Select a color", :row => 1 , :col => 2
+
+        r = 3
+        c = 2
+        %w[&red &green &blue &yellow].each_with_index { |b, i|
+          bu =  Button.new :name => b, :text => b, :row => r, :col => c
+          bu.command { throw(:close, i) }
+          item bu
+          #bu.default_button(true) if i == 0
+          #r += 1
+          c += b.length + 5
+        }
+      end
+      index = @mb.run
+      $log.debug "XXX:  messagebox 2 ret #{index} "
+      when 3
+      @mb = Canis::MessageBox.new do
+        title "Enter your name"
+        #message "Enter your first name. You are not permitted to enter x z or q and must enter a capital first"
+        message "Enter your first name. Initcaps "
+        add Field.new :chars_allowed => /[^0-9]/, :valid_regex => /^[A-Z][a-z]*/, :default => "Matz", :bgcolor => :cyan
+        button_type :ok_cancel
+      end
+      @mb.run
+      $log.debug "XXX:  got #{@mb.widget(1).text} "
+      when 4
+      mb = MessageBox.new :title => "HTTP Configuration" , :width => 50 do
+        add LabeledField.new :label => 'User', :name => "user", :width => 30, :bgcolor => :cyan
+        add CheckBox.new :text => "No &frames", :onvalue => "Selected", :offvalue => "UNselected"
+        add CheckBox.new :text => "Use &HTTP/1.0", :value => true
+        add CheckBox.new :text => "Use &passive FTP"
+        add Label.new    :text => " Language ", :attr => REVERSE
+        $radio = Canis::Variable.new
+        add RadioButton.new :text => "py&thon", :value => "python", :color => :blue, :variable => $radio
+        add RadioButton.new :text => "rub&y", :color => :red, :variable => $radio
+        button_type :ok
+      end
+      field = mb.widget("user")
+      field.bind(:ENTER) do |f|   
+        listconfig = {:bgcolor => :blue, :color => :white,
+                      :relative_to => field, :col => field.col + 6, :width => field.width}
+        users= %w[john tim lee wong kepler edward _why chad andy]
+        #index = popuplist(users, :relative_to => field, :col => field.col + 6, :width => field.width)
+        index = popuplist(users, listconfig)
+        field.text users[index] if index
+      end
+      mb.run
+
+      when 5
+        require 'canis/core/widgets/listbox'
+        label = Label.new 'text' => 'File', 'mnemonic'=>'F', :row => 3, :col => 5
+        field = Field.new :name => "file", :row => 3 , :col => 10, :width => 40, :set_label => label
+        #flist = Dir.glob(File.join( File.expand_path("~/"), "*"))
+        flist = Dir.glob("*")
+        listb = Listbox.new :name => "mylist", :row => 4, :col => 3, :width => 50, :height => 10,
+          :list => flist, :title => "File List", :selected_bgcolor => :white, :selected_color => :blue,
+          :selection_mode => :single, :border_attrib => REVERSE
+        #listb.bind(:ENTER_ROW) { field.text listb.selected_item }
+        # if you find that cursor goes into listbox while typing, then
+        # i've put set_form_row in listbox list_data_changed
+        field.bind(:CHANGE) do |f|   
+          flist = Dir.glob("*"+f.getvalue+"*")
+          #l.insert( 0, *flist) if flist
+          listb.list flist
+        end
+        listb.unbind_key(KEY_ENTER)
+        mb = Canis::MessageBox.new :height => 20, :width => 60 do
+          title "Sample File Selector"
+          add label
+          add field
+          add listb
+          #height 20
+          #width 60
+          #top 5
+          #left 20
+          #default_button 0
+          button_type :ok_cancel
+
+        end
+        mb.run
+        $log.debug "MBOX :1selected #{listb}"
+        $log.debug "MBOX :selected #{listb.selected_value}"
+      end 
+      
+    end
+  rescue => ex
+  ensure
+    @window.destroy unless @window.nil?
+    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/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: jkepler http://github.com/mare-imbrium/canis/
+#         Date: 2014-03-27 - 23:31
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: 2014-04-05 12:39
+# ----------------------------------------------------------------------------- #
+#  testprogress.rb  Copyright (C) 2012-2014 kepler kumar
+require 'logger'
+require 'canis'
+require 'canis/core/widgets/rprogress'
+if $0 == __FILE__
+
+  #include Canis
+
+  begin
+  # Initialize curses
+    Canis::start_ncurses  # this is initializing colors via ColorMap.setup
+    path = File.join(ENV["LOGDIR"] || "./" ,"canis14.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT) 
+    $log = Logger.new(path)
+    $log.level = Logger::DEBUG
+
+    @window = Canis::Window.root_window
+
+    catch(:close) do
+      @form = Form.new @window
+      title = (" "*30) + "Demo of Progress Bar (q quits, s - slow down) " + Canis::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?
+    Canis::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+  end
+end

data/examples/testree.rb

@@ -0,0 +1,107 @@
+require 'canis'
+require 'canis/core/widgets/tree'
+
+if $0 == __FILE__
+  $choice = ARGV[0].to_i || 1
+class Tester
+  def initialize
+    acolor = $reversecolor
+  end
+  def run
+    @window = Canis::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"
+            leaf "agrc"
+          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} "
+    Canis::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 Canis
+include Canis::Utils
+# 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 = Tester.new
+  n.run
+rescue => ex
+ensure
+  Canis::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/testsplitlayout.rb

@@ -0,0 +1,53 @@
+# ----------------------------------------------------------------------------- #
+#         File: testsplitlayout.rb 
+#  Description: 
+#       Author: j kepler  http://github.com/mare-imbrium/canis/
+#         Date: 2014-05-09 - 20:24
+#      License: MIT
+#  Last update: 2014-05-10 19:15
+# ----------------------------------------------------------------------------- #
+# testsplitlayout.rb   Copyright (C) 2012-2014 j kepler
+
+if __FILE__ == $PROGRAM_NAME
+  require 'canis/core/util/app'
+  require 'canis/core/widgets/listbox'
+  require 'canis/core/include/layouts/splitlayout'
+  App.new do
+
+    # if i add form here, it will repaint them first, and have no dimensions
+    lb = Listbox.new @form, :list => ["borodin","berlioz","bernstein","balakirev", "elgar"] , :name => "mylist"
+    lb1 = Listbox.new @form, :list => ["bach","beethoven","mozart","gorecki", "chopin","wagner","grieg","holst"] , :name => "mylist1"
+
+
+    alist = %w[ ruby perl python java jruby macruby rubinius rails rack sinatra pylons django cakephp grails] 
+    str = "Hello, people of Earth.\nI am HAL, a textbox.\nUse arrow keys, j/k/h/l/gg/G/C-a/C-e/C-n/C-p\n"
+    str << alist.join("\n")
+    tv = TextPad.new @form, :name => "text", :text => str.split("\n")
+    lb3 = Listbox.new @form, :list => alist , :name => "mylist3"
+    lb2 = Listbox.new @form, :list => `gem list --local`.split("\n") , :name => "mylist2"
+
+    w = Ncurses.COLS-1
+    h = Ncurses.LINES-3
+    #layout = StackLayout.new :height => -1, :top_margin => 1, :bottom_margin => 1, :left_margin => 1
+
+       layout = SplitLayout.new :height => -1, :top_margin => 1, :bottom_margin => 1, :left_margin => 1
+       @form.layout_manager = layout
+       x,y = layout.vsplit( 0.30, 0.70)
+       raise "X" unless x
+       raise "Y" unless y
+       ##x = arr.first
+       #y = arr[1]
+       $log.debug "XY:  #{x} , #{y}  "
+       x.component = lb
+       y1, y2 = y.split( 0.40, 0.60 )
+       #y1.component = lb1
+       y2.component = lb2
+       y11,y12,y13 = y1.vsplit( 0.3, 0.3, 0.4)
+       #y11,y12 = y1.vsplit( 0.4, 0.6)
+       y11.component = lb1
+       y12.component = tv
+       y13.component = lb3
+
+    st = status_line :row => -1
+  end # app
+end # if 

data/examples/testsplitlayout1.rb

@@ -0,0 +1,49 @@
+# ----------------------------------------------------------------------------- #
+#         File: testsplitlayout.rb 
+#  Description: 
+#       Author: j kepler  http://github.com/mare-imbrium/canis/
+#         Date: 2014-05-09 - 20:24
+#      License: MIT
+#  Last update: 2014-05-10 20:16
+# ----------------------------------------------------------------------------- #
+# testsplitlayout.rb   Copyright (C) 2012-2014 j kepler
+
+if __FILE__ == $PROGRAM_NAME
+  require 'canis/core/util/app'
+  require 'canis/core/widgets/listbox'
+  require 'canis/core/include/layouts/splitlayout'
+  App.new do
+
+    # if i add form here, it will repaint them first, and have no dimensions
+    lb = Listbox.new @form, :list => ["borodin","berlioz","bernstein","balakirev", "elgar"] , :name => "mylist"
+    lb1 = Listbox.new @form, :list => ["bach","beethoven","mozart","gorecki", "chopin","wagner","grieg","holst"] , :name => "mylist1"
+
+
+    alist = %w[ ruby perl python java jruby macruby rubinius rails rack sinatra pylons django cakephp grails] 
+    str = "Hello, people of Earth.\nI am HAL, a textbox.\nUse arrow keys, j/k/h/l/gg/G/C-a/C-e/C-n/C-p\n"
+    str << alist.join("\n")
+    tv = TextPad.new @form, :name => "text", :text => str.split("\n")
+    lb3 = Listbox.new @form, :list => alist , :name => "mylist3"
+    lb2 = Listbox.new @form, :list => `gem list --local`.split("\n") , :name => "mylist2"
+
+    w = Ncurses.COLS-1
+    h = Ncurses.LINES-3
+    #layout = StackLayout.new :height => -1, :top_margin => 1, :bottom_margin => 1, :left_margin => 1
+
+       layout = SplitLayout.new :height => -1, :top_margin => 1, :bottom_margin => 1, :left_margin => 1
+       @form.layout_manager = layout
+       layout.vsplit(0.2, 0.8) do |x,y|
+         x.component = lb
+         y.split(0.4, 0.6) do |a,b|
+           b.component = lb2
+           a.vsplit( 0.3, 0.3, 0.4) do | p,q,r |
+             p << lb1
+             q << tv
+             r << lb3
+           end
+         end
+      end
+
+    st = status_line :row => -1
+  end # app
+end # if