rbcurse 1.1.5 → 1.2.0.pre

data/examples/atree.rb

@@ -0,0 +1,56 @@
+require 'rbcurse/app'
+
+App.new do 
+  header = app_header "rbcurse 1.2.0", :text_center => "Tree Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press Enter to expand/collapse"
+
+  stack :margin_top => 2, :margin => 5, :width => 30 do
+      tree :height => 10, :title => "ruby way"  do
+        root "root" do
+          branch "hello" do
+            leaf "ruby"
+          end
+          branch "goodbye" do
+            leaf "java"
+            leaf "verbosity"
+          end
+        end
+      end
+
+
+      # using a Hash
+      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 :data => model, :title => "Hash"
+
+  end # stack
+  stack :margin_top => 2, :margin => 40, :width => 30 do
+    
+      # using an Array
+      tree :data => %W[ ruby cobol jruby smalltalk fortran piethon purrl lithp ], :title=> "Array"
+
+      # long way ISO 9001 certifed, SEI CMM 5 compliant
+      #
+      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)  # BLEAH JAVA !!
+
+      # slightly better, since we return self in ruby
+      root << subroot
+      subroot << leaf1 << leaf2
+      leaf1 << "leaf11"
+      leaf1 << "leaf12"
+
+      # more rubyish way
+      root.add "blocky", true do 
+        add "block2"
+        add "block3" do
+          add "block31"
+        end
+      end
+
+      tree :data => model, :title => "legacy way"
+  end
+end # app

data/examples/dirtree.rb

@@ -0,0 +1,78 @@
+require 'rbcurse/app'
+require 'fileutils'
+require 'rbcurse/tree/treemodel'
+
+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 
+  header = app_header "rbcurse 1.2.0", :text_center => "Yet Another File Manager", :text_right =>"Directory Lister", :color => :black, :bgcolor => :white#, :attr =>  Ncurses::A_BLINK
+  message "Press Enter to expand/collapse"
+
+  pwd = Dir.getwd
+  #d = Dir.new(pwd)
+  #entries = d.entries.reject{|e| !File.directory? e}
+  #entries.delete(".");entries.delete("..")
+  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 = 24
+  borderattrib = :reverse
+  stack :margin_top => 1, :margin => 0, :width => 30 do
+    @t = tree :data => model, :height => ht, :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)
+        files = Dir.new(path).entries
+        files.delete(".")
+        @l.list files 
+        #TODO show all details in filelist
+        @current_path = path
+        $log.debug " XXX selected afterseeting lb: #{@l} "
+      end
+    end # select
+    @t.expand_node last # 
+    @t.mark_parents_expanded last # make parents visible
+  end
+  stack :margin_top => 1, :margin => 30, :width => 50 do
+    @l = list_box :height => ht, :border_attrib => borderattrib
+    @l.bind :LIST_SELECTION_EVENT  do |ev|
+      $log.debug " XXX GOT A LIST EVENT #{ev} "
+      message ev.source.selected_value
+      #TODO when selects drill down
+      #TODO when selecting, sync tree with this
+    end
+  end
+end # app

data/examples/focusmanager.rb

@@ -0,0 +1,31 @@
+# Allow some objects to take focus when a certain key is pressed.
+# This is for objects like scrollbars and dividers. We don't want these always
+# getting focus, only sometimes when we want to resize panes.
+# This will not only be included by Form but by containers such as Vimsplit
+# or MasterDetail.
+# Usage: the idea is that when you create dividers, you would add them to the FocusManager
+# Thus they would remain non-focusable on creation. When hte user presses (say F3) then
+# make_focusable is called, or toggle_focusable. Now user can press TAB and access
+# these bars. When he is done he can toggle again.
+# TODO: we might add a Circular class here so user can traverse only these objects
+module RubyCurses
+  module FocusManager
+    extend self
+    attr_reader :focusables
+    # add a component to this list so it can be made focusable later
+    def add component
+      @focusables ||= []
+      @focusables << component
+      self
+    end
+    def make_focusable bool=true
+      @focusing = bool
+      @focusables.each { |e| e.focusable(bool) }
+    end
+    def toggle_focusable
+      return unless @focusables
+      alert "FocusManager Making #{@focusable.length} objects #{!@focusing} "
+      make_focusable !@focusing
+    end
+  end
+end

data/examples/imap.rb

@@ -0,0 +1,48 @@
+require 'net/imap'
+require 'net/http'
+
+    def labels conn
+      (conn.list("", "%")+conn.list("[Gmail]/", "%")).inject([]) do |labels,label|
+        label[:name].each_line {|l| labels << l }
+        labels 
+      end
+    end
+    def label_counts _labels
+      _labels.each { |e| 
+        puts e
+        next if e == "[Gmail]"
+        imap.select e rescue next
+        u = imap.search('UNSEEN').count
+        s = imap.search('SEEN').count
+        puts " #{e} : #{u} #{s} "
+      }
+    end
+@config={}
+@config['server'] = 'imap.gmail.com'
+@config['port'] = 993
+@config['username'] = "rahul2012@gmail.com"
+@config['password'] = "rahulku234"
+imap = Net::IMAP.new(@config['server'],@config['port'],true)
+imap.login(@config['username'], @config['password'])
+puts "connceted -------"
+_labels =  labels(imap)
+puts _labels
+puts "-------"
+imap.select('INBOX')
+ctr = 0
+imap.search(["SEEN"]).each do |message_id|
+  ctr += 1
+  puts message_id
+  x = imap.fetch(message_id, "RFC822")[0].attr["RFC822"]
+  puts x.class
+  msg = x.split("\n")
+  puts msg.grep /^Subject:/
+  puts msg.grep /^From:/
+  puts msg.grep /^Date:/
+
+  #break if ctr >= 5
+  #MailFetcher.receive(imap.fetch(message_id, "RFC822")[0].attr["RFC822"])
+  #imap.store(message_id, "+FLAGS", [:Deleted])
+end
+imap.logout()
+imap.disconnect() 

data/examples/menu1.rb

@@ -0,0 +1,79 @@
+require 'rbcurse/app'
+
+#if $0 == __FILE__
+  App.new do 
+    #title "Demo of Menu - rbcurse"
+    #subtitle "Hit F1 to quit, F2 for menubar toggle"
+    header = app_header "rbcurse 1.2.0", :text_center => "Menubar Demo", :text_right =>"enabled"
+
+    # TODO accelerators and 
+    # getting a handle for later use
+    mb = menubar do
+      #@toggle_key=KEY_F2
+      menu "File" do
+        item "Open", "O" do
+          command do
+            alert "HA!! you wanted to open a file?"
+          end
+        end
+        item "New", "N" 
+        separator
+        item "Close", "C" 
+        
+      end # menu
+      menu "Window" do
+        item "Tile", "T"
+        menu "Find" do
+          item "More", "M"
+          $x = item "Less", "L" do
+            #accelerator "Ctrl-X"
+            command do
+              alert "You clickses on Less"
+            end
+          end
+        end
+      end
+    end # menubar
+    mb.toggle_key = KEY_F2
+    @form.set_menu_bar mb
+    stack :margin_top => 10, :margin => 5 do
+      field "a field", :attr => 'reverse', :block_event => :CHANGE do |e|
+        message e.to_s
+
+        case e.text
+        when "d"
+          #alert("Me gots #{e.text} disabling menu item Window:Find: ")
+          #$x.enabled = false
+        when "e"
+          # TODO this alert shows data wrapped but overlaps border
+          #alert("Me gots #{e.text} enabling menu item Window:Find: Adding accel ")
+          #$x.enabled = true
+          $x.accelerator = "Ctrl-X"
+        end
+      end
+      @adock = nil
+    keyarray = [
+      ["F1" , "Exit"], nil,
+      ["F2", "Menu"], nil,
+      ["M-e", "Disable"], ["M-x", "XXXX"],
+      ["C-?", "Help"], nil
+    ]
+    @adock = dock keyarray
+      lbltext = "Click this to enable or disable menu option Window:Find:Less"
+      blank 1
+      hline :width => lbltext.length
+      label :text => lbltext
+      toggle :offvalue => " Enable  ", :onvalue => " Disable ", :mnemonic => 'E', :value => true do |e|
+        $x.enabled = e.item.value
+        header.text_right = e.item.value ? "enabled" : "disabled"
+        if e.item.value 
+          @adock.update_application_key_label "M-e", "M-e", "Disable"
+        else
+          @adock.update_application_key_label "M-e", "M-e", "Enable"
+        end
+        #@form.handle_key mb.toggle_key
+      end
+      link "a linkie"
+    end # stack
+  end # app
+#end

data/examples/multispl.rb

@@ -0,0 +1,86 @@
+require 'rbcurse/app'
+
+App.new do 
+  header = app_header "rbcurse 1.2.0", :text_center => "MultiSplit Demo", :text_right =>"ColumnBrowse pattern"
+  message_row(27)
+  message "<TAB> and <BTAB> "
+  oo = :HORIZONTAL_SPLIT
+  oo = :VERTICAL_SPLIT
+
+  stack :margin_top => 5, :margin => 15, :width => 79 do
+    splp = multisplit "outer", :height => 16, :split_count => 2, :orientation => oo  do |s|
+      #s.suppress_borders = false
+        lb = list_box "Classes",:list => `ri -f bs`.split("\n")
+        s.add lb
+
+        lb2 = list_box "Methods", :list => ["highline", "sqlite3-ruby", "thor", "ncurses"], :choose => ["thor"]
+        #lb2.suppress_borders true
+        s.add lb2
+      #sc = textarea "Edit"
+      #s.add sc
+    end # splp
+    c1 = splp[0]
+    c2 = splp[1]
+    #c1.bind_key(KEY_RETURN){ 
+    # listbox now traps key ENTER and fires PRESS event
+    c1.bind(:PRESS){ 
+      #m = Object::const_get(c1.text).public_instance_methods
+      lines = `ri -f bs #{c1.text} | tr -d ''`.split("\n")
+      i = lines.index "= CCllaassss  mmeetthhooddss::"
+       m = nil
+      if i
+        lines[i] = "Class Methods:" 
+        m = lines.slice(i..-1)
+        i = m.index "= IInnssttaannccee  mmeetthhooddss::"
+        m[i] = "Instance Methods:" if i
+      else
+        i = lines.index "= IInnssttaannccee  mmeetthhooddss::"
+        if i
+          lines[i] = "Instance Methods:" 
+          m = lines.slice(i..-1)
+        end
+      end
+      if m
+        c2.remove_all
+        c2.insert 0, *m
+        c2.clear_selection # since we had put default value using choose
+      end
+    }
+
+
+    blank
+    flow do
+      #toggle :onvalue => "Vertical", :offvalue => "Horizontal", :value => true do |e|
+        #message "pressed #{e.state}"
+        #case e.state
+        #when :DESELECTED
+          #$log.debug " about to call orientation with V"
+          #splp.orientation :VERTICAL_SPLIT
+          ##ret = splp.reset_to_preferred_sizes
+        #else
+          #$log.debug " about to call orientation with H"
+          #splp.orientation :HORIZONTAL_SPLIT
+          ##ret = splp.reset_to_preferred_sizes
+        #end
+      #end
+      fc = splp
+      # increase split size
+      button "+" do
+        #splp.set_divider_location(splp.divider_location+1)
+        #fc.set_divider_location(splp.divider_location+1)
+        fc.increase
+      end
+      # decrease split size
+      button "-" do
+        #fc.set_divider_location(splp.divider_location-1)
+        fc.decrease
+      end
+      # equalize  split size
+      button "=" do
+        #splp.set_resize_weight(0.50)
+        fc.same
+      end
+    end
+       
+  end # stack
+end # app

data/examples/rfe.rb

@@ -7,14 +7,13 @@
 # Copyright rkumar 2009, 2010 under Ruby License.
 #
 ####################################################
-require 'rubygems'
-require 'ncurses'
-require 'logger'
+#require 'rubygems'
+#require 'ncurses'
+#require 'logger'
 require 'rbcurse'
 require 'rbcurse/rcombo'
 require 'rbcurse/rlistbox'
 require './rfe_renderer'
-#require 'lib/rbcurse/table/tablecellrenderer'
 require 'rbcurse/keylabelprinter'
 require 'rbcurse/applicationheader'
 require 'rbcurse/action'

data/examples/rmail.rb

@@ -0,0 +1,188 @@
+#!/usr/bin/env ruby -w
+#
+# this will only work in 1.8.7, since mailread.rb is not present after that
+# supply the path of any mbox file such as ~/mbox or ~/mail/read-mail
+# and see a listing of mails, then give a msg number and see body
+# You may run this with -EASCII-8BIT if it crashes with a UTF8 error.
+require 'mailread'
+require 'date'
+
+#BOLD       = "\e[1m"
+#CLEAR      = "\e[0m"
+# a sample mail formatter class
+# Does formatting just like alpine
+# Each message is passed in the format method, thus this is reused
+class MailFormatter 
+  attr_reader :message
+  attr_reader :header
+  def initialize #message
+    #@message  = message
+    #@header   = message.header
+  end
+
+  def date
+    raise StandardError, "pass message first using format()" unless @header
+    m = @header
+    date = Date.parse(m['Date'])
+    date = date.strftime("%b %d")
+  end
+
+  def from
+    raise StandardError, "pass message first using format()" unless @header
+    m = @header
+    match = m['From'].to_s.match(/\((.*)\)/)
+    from  = m['From']
+    if match
+      from = match[1]
+    else
+      match = m['From'].to_s.match(/(.*)</)
+      from = match[1] if match
+    end
+    from
+  end
+  def body
+    raise StandardError, "pass message first using format()" unless @message
+    @message.body
+  end
+
+  def subject
+    raise StandardError, "pass message first using format()" unless @header
+    m = @header
+    m['Subject']
+  end
+  def status
+    raise StandardError, "pass message first using format()" unless @header
+    m = @header
+    m['Status']
+  end
+
+  def format message, count
+    @header = message.header
+    #@message  = message
+    m = message.header
+    "%2s %2d %s %-25s %-s\n" % [ status, count, date, from, subject ]
+  end
+
+  def create_array message, count
+    @header = message.header
+    #@message  = message
+    m = message.header
+    #printf("#{attr}%2s %2d  %s |%-25s| %-s#{attre}\n", m['Status'], count, date, from, msg.header['Subject'])
+    row = [ status, count, date, from, m['Subject'] ]
+  end
+end # class
+# opens and maintains an mbox mailbox
+class Mbox
+  include Enumerable
+  attr_reader :folder
+  attr_reader :mails
+  attr_reader :unread_count
+  attr_reader :read_count
+
+  # takes a mailbox name, e,g., mbox
+  # Does not update, since this is just a demo
+  def initialize folder
+    raise ArgumentError, "#{folder} not a valid file" if !File.exists? folder
+    @folder  = folder
+    @unread_count = 0
+    @read_count = 0
+    @mboxh = {}
+    @mbox_counts = {}
+    @mails = nil
+    parse
+  end
+  def parse &block # :yields: Mail
+    mbox = File.open(@folder)
+    count = lines = 0
+    unread_count = 0
+    read_count = 0
+    # array of mails
+    mails = []
+
+    # read up the warning message, we don't want it in our array
+    msg = Mail.new(mbox)
+
+    while !mbox.eof?
+      msg = Mail.new(mbox)
+      count += 1
+      s = msg.header['Status']
+      if s == "O"
+        unread_count += 1
+      else
+        read_count += 1
+      end
+      mails << msg
+      yield msg if block_given?
+    end
+    @mails = mails
+    #@mbox_counts[@folder] = [unread_count, read_count]
+    @unread_count, @read_count = unread_count, read_count
+    mbox.close
+  end
+  def each # :yields: message
+    parse unless @mails
+    @mails.each { |e| yield e }
+  end
+  def formatted_each &block
+    fmt = @formatter || MailFormatter.new
+    each_with_index do |msg, index|
+      yield fmt.format msg, index + 1
+    end
+  end
+  # returns an array for each entry which can be used with tabularwidget
+  def array_each &block
+    fmt = @formatter || MailFormatter.new
+    each_with_index do |msg, index|
+      yield fmt.create_array msg, index + 1
+    end
+  end
+  # set a formatter object, if you wish to override default one
+  def formatter fmt
+    @formatter = fmt
+  end
+end
+# opens and maintains a hash of mboxes
+# does not see to add any value other than being just a hash !
+class MboxManager
+  def initialize
+    @boxes = {}
+    @current_name = nil
+  end
+  def use folder
+    if !@boxes.has_key? folder
+      @mails = Mbox.new folder
+      @boxes[folder] = @mails
+    else
+      @mails = @boxes[folder]
+    end
+    @current_name = folder
+    @mails
+  end
+  def mails folder=@current_name
+    use folder
+    @mails
+  end
+end
+#puts mails.size
+if __FILE__ == $PROGRAM_NAME
+  MAILBOX = ARGV[0] ||  "mbox"
+  mx = Mbox.new "mbox"
+  mx.formatted_each do |str|
+    puts str
+  end
+  mails = mx.mails
+
+  # ask user for a number and print body for that
+  while true
+    print "Enter a mail number [1 to #{mails.size}]:"
+    n = STDIN.gets.chomp
+    break if n.nil? || n.empty? 
+    msg = mails[n.to_i-1]
+    body = msg.body
+    puts
+    string= "#{msg.header['Subject']}"
+    puts "#{BOLD}#{string}#{CLEAR}"
+    puts "-" * string.length
+    puts body
+  end
+end