rbcurse 1.1.5 → 1.2.0.pre

data/examples/testcombo.rb

@@ -33,12 +33,12 @@ if $0 == __FILE__
         name "combo"
         row r
         col c
-        bgcolor 'magenta'
+        bgcolor :magenta
         display_length 10
         editable false
         list mylist
         set_label Label.new @form, {'text' => "Non-edit Combo"}
-        list_config 'color' => 'yellow', 'bgcolor'=>'magenta', 'max_visible_items' => 6
+        list_config 'color' => 'black', 'bgcolor'=>'magenta', 'max_visible_items' => 6
       end
       r+=1
       $results = Variable.new

data/examples/testgmail.rb

@@ -0,0 +1,46 @@
+require 'gmail'
+$b = Time.now
+def p
+  s= $b
+  $b = Time.now
+  "  ----------> " + ($b - s).to_s
+end
+username = ENV['GMAIL_USER']+"@gmail.com"
+pass = ENV['GMAIL_PASS']
+puts "b4 connect " #+ p()
+gmail = Gmail.connect!(username, pass)
+puts "connected " + p()
+puts gmail.labels.all
+$b = Time.now
+gmail.label('INBOX') do |mailbox|
+  urc = mailbox.count(:unread)
+  puts "unread: #{urc} " + p()
+  all = mailbox.count(:all)
+  puts "all: #{all} " + p()
+  x = mailbox.emails(:all)
+  puts "got x " + p()
+    imap = gmail.connection
+    puts "imap #{imap.class} #{imap} "
+    uids = []
+  #mailbox.emails(:all) do |email|
+    #uid = email.uid
+    #envelope = gmail.connection.uid_fetch(uid, "ENVELOPE")[0].attr["ENVELOPE"] 
+    #puts envelope.subject
+    ##print " #{email['From']} "
+    ##print " #{email.header} "
+  #end
+  mailbox.emails(:all) do |email|
+    uid = email.uid
+    uids << uid
+    #puts envelope.subject
+    #print " #{email['From']} "
+    #print " #{email.header} "
+  end
+    envelopes = gmail.connection.uid_fetch(uids, "ENVELOPE")
+    envelopes.each { |ee| 
+      e = ee.attr["ENVELOPE"]
+      puts e.subject
+    }
+  puts
+  puts "finished loop  " + p()
+end

data/examples/testlistbox.rb

@@ -1,4 +1,3 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
 # this program tests out various widgets.
 require 'ncurses'
 require 'logger'

data/examples/testmultispl.rb

@@ -0,0 +1,199 @@
+$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/lib"
+require 'rbcurse'
+require 'rbcurse/rmultisplit'
+require 'rbcurse/rlistbox'
+require 'fileutils'
+
+#
+## this sample creates a multisplitpane with n objects
+##+ and move divider around using - + and =.
+# TODO:
+# x Status bar below to reflect full path.
+# - enter to gotonext component too, or at least make visible if not
+#    but now cursor is showing around everywhere
+#
+$counter = 0
+
+# when displaying a filename, if directory prepend a slash.
+def format list, fullname=nil
+  list.collect! {|e|
+    if fullname
+      f = File.join(fullname, e)
+    else
+      f = e
+    end
+    if File.directory? f
+      "/" + e
+    else
+      e
+    end
+  }
+  list
+end
+# @param [Listbox] new list to bind
+# @param [Array] array of lists
+# @param [MultiSplit] msp object to add a new list to
+def bind_list(listb, lists, splitp)
+  #listb.bind(:ENTER_ROW, mylist) {|lb,list| row_cmd.call(lb,list) }
+  listb.bind(:PRESS) {     
+    #@status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}"
+    item = "#{listb.get_content()[listb.current_index]}"
+    fullname = File.join(listb.config[:path], item)
+    mylist = nil
+    if File.directory? fullname
+      $log.debug " DIRector is a item #{item} "
+      d = Dir.new(fullname)
+      mylist = d.entries
+      mylist.delete "."
+      mylist.delete ".."
+      format(mylist, fullname)
+      # NOTE that we create component with nil form as container will manage it
+      if lists.empty? || lists.last == listb
+        $counter += 1
+        listc = Listbox.new nil do
+          name  "LIST#{$counter}" 
+          list mylist
+          title item
+          title_attrib 'reverse'
+        end
+        listc.one_key_selection = false
+        listc.bind(:ENTER) {|l| l.title_attrib 'reverse';  }
+        listc.bind(:LEAVE) {|l| l.title_attrib 'normal';  }
+        # FIXME crashes if file nil
+        row_cmd = lambda {|lb, oldlist| list = lb.list(); file = list[lb.current_index]; file ||= "?";  $message.value = File.join(lb.config[:path], file); }
+        listc.bind(:ENTER_ROW, mylist) {|lb,list| row_cmd.call(lb,list) }
+        splitp.add listc
+        lists << listc
+        listb.config[:child] = listc
+        listc.config[:path] = File.join(listb.config[:path], item)
+        bind_list(listc, lists, splitp)
+      else
+        #l = lists.first
+        l = listb.config[:child]
+        l.list_data_model.remove_all
+        # if empty maybe we should remove it, but its just a demo
+        # what happens is, this comes up again when going through another
+        # directory. First go down rbcurse/lib/rbcurse/extras
+        # then go to examples which has a shallow structure.
+        l.list_data_model.insert 0, *mylist unless mylist.empty?
+        l.config[:path] = fullname
+        l.title = item
+        while true
+          n = l.config[:child]
+          break if n.nil?
+          n.list_data_model.remove_all
+          # TODO should be removed, so focus does not go to it
+          n.title = ""
+          l = n
+        end
+        $log.debug " MYLIST #{mylist} dir #{item} "
+      end
+      splitp.goto_next_component
+    end
+  } 
+end
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    $log = Logger.new((File.join(ENV['LOGDIR'] || "./" ,"view.log")))
+
+    $log.level = Logger::DEBUG
+
+    @window = VER::Window.root_window
+
+    catch(:close) do
+      @form = Form.new @window
+      r = 3; c = 7; ht = 18
+      #lastrow = ht+r+5 # 26
+      lastrow = Ncurses.LINES-1
+
+
+      help = "F1 to quit. #{$0}  Press Enter on directory, TAB/BTAB to navigate. C-w+-= "
+      RubyCurses::Label.new @form, {:text => help, :row => lastrow, "col" => 2, "color" => "yellow" }
+      title = "Demo of Multi-SplitPane (Column Browse pattern)"
+      RubyCurses::Label.new @form, {:text => title, :row => 1, :col => c, :color => "white" }
+
+
+      splitp = MultiSplit.new @form do
+          name   "mypane" 
+          row  r 
+          col  c
+          width 70
+          height ht
+          split_count 3
+          unlimited true
+          orientation :VERTICAL_SPLIT
+          max_visible 3
+        end
+      splitp.bind(:PROPERTY_CHANGE){|e| $message.value = e.to_s }
+
+      $message = Variable.new
+      $message.value = "Message Comes Here"
+      message_label = RubyCurses::Label.new @form, {'text_variable' => $message, "name"=>"message_label","row" => ht+r+2, "col" => 1, "display_length" => 80,  "height" => 2, 'color' => 'cyan'}
+      $message.update_command() { message_label.repaint } # why ?
+      #message_label.row = splitp.row + splitp.height 
+      #message_label.col = splitp.col
+      @form.place_below(message_label)
+
+
+      lists = []
+      FileUtils.cd("..")
+      mylist = Dir.glob('*')
+      mylist.delete_if {|x| x =~ /^\./ || x =~ /^_/ || x =~ /bak$/}
+      format(mylist)
+      # NOTE that we create component with nil form as container will manage it
+      listb = Listbox.new nil do
+        name   "mainlist" 
+        list mylist
+        title "A short list"
+        title_attrib 'reverse'
+      end
+      listb.config[:path] = Dir.getwd
+      listb.one_key_selection = false
+      splitp.add listb
+      row_cmd = lambda {|lb, list| file = list[lb.current_index]; $message.value = file; # File.stat("#{cur_dir()}/#{file}").inspect 
+      }
+      listb.bind(:ENTER_ROW, mylist) {|lb,list| row_cmd.call(lb,list) }
+      listb.bind(:ENTER) {|l| l.title_attrib 'reverse';  }
+      listb.bind(:LEAVE) {|l| l.title_attrib 'normal';  }
+      bind_list(listb, lists, splitp)
+
+      # Dummy field just to see navigation from and to container
+      fname = "Search"
+      r, c = @form.next_position
+      c += fname.length + 1
+        field = Field.new @form do
+          name   fname
+          row  r
+          col  c
+          display_length  30
+          bgcolor 'cyan'
+          #set_buffer "abcd " 
+          set_label Label.new @form, {:text => fname, :color=>'white',:bgcolor=>'red', :mnemonic=> 's'}
+        end
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      counter = 0
+      while((ch = @window.getchar()) != KEY_F1 )
+        str = keycode_tos ch
+        @form.handle_key(ch)
+        @window.wrefresh
+      end
+    end
+  rescue => ex
+  ensure
+    @window.destroy if !@window.nil?
+    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/testree.rb

@@ -0,0 +1,127 @@
+require 'rbcurse'
+require 'rbcurse/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 cobol jruby smalltalk fortran piethon purrl lithp ]
+    Tree.new @form, :data => model, :row =>2, :col=>2, :height => 20, :width => 30
+
+    when 3
+    #else
+
+      # 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 laden-swallow ] }
+
+    Tree.new @form, :data => model, :row =>2, :col=>2, :height => 20, :width => 30
+    when 4
+      Tree.new @form, :row =>2, :col=>2, :height => 20, :width => 30 do
+        root "root" do
+          branch "hello" do
+            leaf "world"
+          end
+          branch "goodbyee" do
+            leaf "java"
+          end
+        end
+      end
+
+    end
+
+
+
+    ok_button = Button.new @form do
+      text "+"
+      name "+"
+      row 27
+      col 10
+    end
+    #ok_button.command { |form| @vim.weight(@vim.weight + 0.1)  }
+    ok_button.command {  @vim.increase_weight }
+
+
+    k_button = Button.new @form do
+      text "-"
+      name "-"
+      row 27
+      col 17
+    end
+    #k_button.command { |form| @vim.weight( @vim.weight - 0.1) }
+    k_button.command { |form| @vim.decrease_weight }
+
+    #
+    @help = "F1 to quit. #{$0} "
+    RubyCurses::Label.new @form, {'text' => @help, "row" => 1, "col" => 2, "color" => "yellow"}
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    while((ch = @window.getchar()) != KEY_F1 )
+      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("view.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/testscroller.rb

@@ -23,7 +23,6 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    #$log = Logger.new("v#{$0}.log")
     $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 

data/examples/testscrolllb.rb

@@ -13,7 +13,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("v#{$0}.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testscrollp.rb

@@ -15,9 +15,10 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("v#{$0}.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
+
     @window = VER::Window.root_window
 
     catch(:close) do

data/examples/testscrollta.rb

@@ -13,7 +13,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new("v#{$0}.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window

data/examples/testscrolltable.rb

@@ -38,8 +38,7 @@ if $0 == __FILE__
   begin
   # Initialize curses
     VER::start_ncurses  # this is initializing colors via ColorMap.setup
-#    file = File.open("v#{$0}.log", File::WRONLY | File::APPEND | File::CREAT)
-    $log = Logger.new("v#{$0}.log")
+    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"view.log")))
     $log.level = Logger::DEBUG
 
     @window = VER::Window.root_window