rbcurse 1.2.0.pre → 1.2.0

data/examples/appcombo.rb

@@ -1,17 +0,0 @@
-require 'rbcurse/app'
-
-App.new do 
-  header = app_header "rbcurse 1.2.0", :text_center => "Combo Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-  message "Press F1 to exit from here"
-
-  stack :margin_top => 2, :margin => 10, :width => 80 do
-    list = %w[ highline ncurses thor tzinfo rack mail]
-    flow do
-      label "a label"
-      a = combo :list => list, :color_pair => $reversecolor #:bgcolor => :white, :color => :black
-    end
-    blank
-    b = combo :list => list, :color_pair => $reversecolor # , :label => 'a bbael'
-    b.set_label "a label" # this is unaware of stack margin
-  end # stack
-end # app

data/examples/cdir/testmultispl.rb

@@ -1,150 +0,0 @@
-$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/lib"
-require 'rubygems'
-require 'ncurses'
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rmultisplit'
-require 'rbcurse/rlistbox'
-#
-## this sample creates a multisplitpane with n objects
-##+ and move divider around using - + and =.
-#
-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
-      colors = Ncurses.COLORS
-      @form = Form.new @window
-      r = 3; c = 7; ht = 18
-      # filler just to see that we are covering correct space and not wasting lines or cols
-      filler = "*" * 88
-      (ht+2).times(){|i| @form.window.printstring(i,r, filler, $datacolor) }
-
-
-      @help = "q to quit. v h - + =        : #{$0}                              . Check logger too"
-      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r, "col" => 2, "color" => "yellow"}
-
-      $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" => 60,  "height" => 2, 'color' => 'cyan'}
-      $message.update_command() { message_label.repaint } # why ?
-
-      splitp = MultiSplit.new @form do
-          name   "mypane" 
-          row  r 
-          col  c
-          width 70
-          height ht
-          split_count 3
-          unlimited true
-  #        focusable false
-          orientation :VERTICAL_SPLIT
-        end
-      splitp.bind(:PROPERTY_CHANGE){|e| $message.value = e.to_s }
-
-      lists = []
-      mylist = Dir.glob('*')
-      listb = Listbox.new @form do
-        name   "mylist" 
-        list mylist
-        title "A short list"
-        title_attrib 'reverse'
-      end
-      listb.one_key_selection = false
-      splitp.add listb
-  listb.bind_key(13) {     
-    #@status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}"
-    table = "#{listb.get_content()[listb.current_index]}"
-    ##table = table[0] if table.class==Array ## 1.9 ???
-    mylist = nil
-    if File.directory? table
-      d = Dir.new(table)
-      mylist = d.entries
-    end
-    if lists.empty?
-      listb = Listbox.new @form do
-        name   "mylist" 
-        list mylist
-        title table
-        title_attrib 'reverse'
-      end
-      splitp.add listb
-      lists << listb
-    else
-        l = lists.first
-        l.list_data_model.remove_all
-        l.list_data_model.insert 0, mylist
-    end
-  } 
-
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      counter = 0
-      while((ch = @window.getchar()) != ?q.getbyte(0) )
-        str = keycode_tos ch
-        case ch
-        when ?a.getbyte(0)
-          return
-          r = 0
-        mylist = []
-        counter.upto(counter+100) { |v| mylist << "#{v} scrollable data" }
-        counter+=100;
-        $listdata = Variable.new mylist
-        listb = Listbox.new @form do
-          name   "mylist" 
-#         list mylist
-          list_variable $listdata
-          selection_mode :SINGLE
-          #show_selector true
-          #row_selected_symbol "[X] "
-          #row_unselected_symbol "[ ] "
-          title "A short list"
-          title_attrib 'reverse'
-          #cell_editing_allowed true
-        end
-        #listb.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
-        #$listdata.value.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
-        #listb.list_data_model.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net", "hi lisp", "hi clojure"
-        splitp.add listb
-        when ?V.getbyte(0)
-          splitp.orientation(:VERTICAL_SPLIT)
-          #splitp.reset_to_preferred_sizes
-        when ?H.getbyte(0)
-          splitp.orientation(:HORIZONTAL_SPLIT)
-          #splitp.reset_to_preferred_sizes
-        when ?-.getbyte(0)
-          #splitp.set_divider_location(splitp.divider_location-1)
-        when ?+.getbyte(0)
-          #splitp.set_divider_location(splitp.divider_location+1)
-        when ?=.getbyte(0)
-          #splitp.set_resize_weight(0.50)
-        end
-        #splitp.get_buffer().wclear
-        #splitp << "#{ch} got (#{str})"
-        splitp.repaint # since the above keys are not being handled inside
-        @form.handle_key(ch)
-        @window.wrefresh
-      end
-    end
-  rescue => ex
-  ensure
-    @window.destroy if !@window.nil?
-    VER::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/focusmanager.rb

@@ -1,31 +0,0 @@
-# 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

@@ -1,48 +0,0 @@
-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/s.rb

@@ -1,10 +0,0 @@
-require 'rbcurse/app'
-
-App.new do
-  keypress do |ch|
-    case ch
-    when :down
-    when :up
-    end
-  end
-end

data/examples/scrollbar.rb

@@ -1,104 +0,0 @@
-require 'rbcurse/app'
-include Ncurses
-include RubyCurses
-
-# This paints a vertical white bar given row and col, and length. It also calculates and prints
-# a small bar over this based on relaetd objects list.length and current_index.
-# Typically, after setup one would keep updating only current_index from the repaint method
-# of caller or in the traversal event. This would look best if the listbox also has a reverse video border, or none.
-# @example
-#     lb = list_box ....
-#     sb = Scrollbar.new @form, :row => lb.row, :col => lb.col, :length => lb.height, :list_length => lb.list.length, :current_index => 0
-#      .... later as user traverses
-#      sb.current_index = lb.current_index
-#
-# At a later stage, we will integrate this with lists and tables, so it will happen automatically.
-#
-# @since 1.2.0    UNTESTED
-module RubyCurses
-  class Scrollbar < Widget
-    # row to start, same as listbox, required.
-    dsl_property :row
-    # column to start, same as listbox, required.
-    dsl_property :col
-    # how many rows is this (should be same as listboxes height, required.
-    dsl_property :length
-    # vertical or horizontal currently only VERTICAL
-    dsl_property :orientation
-    # to take changes or data, unused as of now
-    dsl_property :parent
-    # which row is focussed, current_index of listbox, required.
-    dsl_property :current_index
-    # how many total rows of data does the list have, same as @list.length, required.
-    dsl_property :list_length
-
-
-    def initialize form, config={}, &block
-
-      # setting default first or else Widget will place its BW default
-      #@color, @bgcolor = ColorMap.get_colors_for_pair $bottomcolor
-      super
-      @color_pair = get_color $datacolor, @color, @bgcolor
-      @scroll_pair = get_color $bottomcolor, :green, :white
-      @window = form.window
-      @editable = false
-      @focusable = false
-      @row ||= 0
-      @col ||= 0
-      @repaint_required = true
-      @orientation = :V
-    end
-
-    ##
-    # XXX need to move wrapping etc up and done once. 
-    def repaint
-      raise ArgumentError, "current_index must be provided" unless @current_index
-      raise ArgumentError, "list_length must be provided" unless @list_length
-      my_win = @form ? @form.window : @target_window
-      @graphic = my_win unless @graphic
-      return unless @repaint_required
-
-      # first print a right side vertical line
-      bordercolor = @border_color || $datacolor
-      borderatt = @border_attrib || Ncurses::A_REVERSE
-
-
-      @graphic.attron(Ncurses.COLOR_PAIR(bordercolor) | borderatt)
-      @graphic.mvvline(@row+0, @col, 1, @length-0)
-      @graphic.attroff(Ncurses.COLOR_PAIR(bordercolor) | borderatt)
-
-      # now calculate and paint the scrollbar
-      pht = @length
-      listlen = @list_length * 1.0
-      @current_index = 0 if @current_index < 0
-      @current_index = listlen-1 if @current_index >= listlen
-      sclen = (pht/listlen)* @length
-      scloc = (@current_index/listlen)* @length
-      scloc = (@length - sclen) if scloc > @length - sclen # don't exceed end
-      @graphic.attron(Ncurses.COLOR_PAIR(@scroll_pair) | borderatt)
-      r = @row + scloc
-      c = @col + 0
-      @graphic.mvvline(r, c, 1, sclen)
-      @graphic.attroff(Ncurses.COLOR_PAIR(@scroll_pair) | borderatt)
-      @repaint_required = false
-    end
-    ##
-    ##
-    # ADD HERE 
-  end
-end
-App.new do
-  r = 5
-  len = 20
-  hline :width => 20, :row => r, :attrib => Ncurses::A_REVERSE
-  sb = Scrollbar.new @form, :row => r, :col => 20, :length => len, :list_length => 50, :current_index => 0
-  hline :width => 20, :row => len+r
-  keypress do |ch|
-    case ch
-    when :down
-      sb.current_index += 1
-    when :up
-      sb.current_index -= 1
-    end
-  end
-end

data/examples/term.rb

@@ -1,48 +0,0 @@
-require 'rbcurse/app'
-require 'terminal-table/import'
-
-App.new do 
-  header = app_header "rbcurse 1.2.0", :text_center => "**** Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-  message "Press F1 to escape from here"
-
-  stack :margin_top => 2, :margin => 5, :width => 30 do
-    t = Terminal::Table.table(['a', 'b'], [1, 2], [3, 4])
-    $log.debug "YYY table #{t.class} "
-    list_box :list => t.render2
-    t = Terminal::Table.table ['a', 'b']
-    t << [1, 2]
-    t << [3, 4]
-    t << :separator
-    t << [4, 6]
-    #list_box :list => t.to_s.split("\n")
-    list_box :list => t.render2
-  end # stack
-  t = Terminal::Table.table do |t|
-    t.headings = 'First Name', 'Last Name', 'Email'
-    t << %w( TJ Holowaychuk tj@vision-media.ca )
-    t << %w( Bob Someone bob@vision-media.ca )
-    t << %w( Joe Whatever bob@vision-media.ca )
-  end
-  #t = t.to_s.split(/[|+]\n/)
-  t = t.render2
-  wid = t[0].length + 2
-  stack :margin_top => 2, :margin => 35, :width => wid do
-    list_box :list => t
-    t = Terminal::Table.table do
-      self.headings = 'First Name', 'Last Name', 'Email'
-      add_row ['TJ',  'Holowaychuk', 'tj@vision-media.ca']
-      add_row ['Bob', 'Someone',     'bob@vision-media.ca']
-      add_row ['Joe', 'Whatever',    'joe@vision-media.ca']
-      add_separator
-      add_row ['Total', { :value => '3', :colspan => 2, :alignment => :right }]
-      align_column 1, :center
-    end
-    #lb =  list_box :list => t.render2
-    lb =  textview :set_content => t.render2, :height => 10
-    lb.bind(:PRESS){|tae|
-      alert "Pressed list on #{tae.word_under_cursor(nil, nil, "|")}  "
-    }
-    # make a textview that is vienabled by default.
-end
-
-end # app

data/examples/testgmail.rb

@@ -1,46 +0,0 @@
-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