rbcurse 0.1.3 → 1.1.1

data/Rakefile

@@ -2,13 +2,15 @@
 
 
 #
-require 'rubygems'
+#require 'rubygems'
 require 'hoe'
 $:.unshift(File.dirname(__FILE__) + "/lib")
 require 'rbcurse'
 #require './lib/rbcurse.rb'
 
 Hoe.new('rbcurse', Rbcurse::VERSION) do |p|
+#Hoe.spec('rbcurse', Rbcurse::VERSION) do |p|
+#Hoe.spec('rbcurse') do 
   p.name = "rbcurse"
   p.author = "Rahul Kumar"
   p.description = "Ruby curses widgets for easy application development"

data/examples/keytest.rb

@@ -0,0 +1,177 @@
+$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+#require 'lib/ver/ncurses'
+#require 'lib/ver/window'
+require 'lib/rbcurse/rwidget'
+require 'lib/ver/keyboard2'
+#require 'lib/rbcurse/mapper'
+
+# Using mapper with keyboard2 which gives numeric keys
+# The error messages are not so pretty, otherwise its okay... error messages need a little work
+# Use C-q or q to quit
+## C-s starts a new mode :cx, 'i' gets back to normal 
+#include Ncurses
+
+
+def printstr(pad, r,c,string, color, att = Ncurses::A_NORMAL)
+
+  #att = bold ? Ncurses::A_BLINK|Ncurses::A_BOLD : Ncurses::A_NORMAL
+  #     att = bold ? Ncurses::A_BOLD : Ncurses::A_NORMAL
+  pad.attrset(Ncurses.COLOR_PAIR(color) | att)
+  #pad.mvprintw(r, c, "%s", string);
+  pad.mvaddstr(r, c, "%s" % string);
+  pad.attroff(Ncurses.COLOR_PAIR(color) | att)
+end
+class KeyTest
+  attr_reader :window    # needed by keyboard to do getch
+  attr_accessor :mode    # needed by handler
+  def initialize win
+    @window = win
+    @color = $datacolor
+    @mode = :normal
+    map_keys
+    VER::Keyboard2.focus = self
+  end
+  def down
+    printstr(@window, 12,1,"GOT Down       ", @color, att = Ncurses::A_NORMAL)
+  end
+  def up
+    printstr(@window, 12,1,"GOT Up        ", @color, att = Ncurses::A_REVERSE)
+  end
+  def do_select
+    printstr(@window, 12,1,"GOT do_select", @color, att = Ncurses::A_BOLD)
+  end
+
+  def map_keys
+    @mapper = Mapper.new(self)
+    @keyhandler = @mapper     # i don't want a separate handler, this will do
+
+    # view refers to the object passed to constrcutor of Mapper, here it is self
+    @mapper.let :normal do
+      map(?\C-x, ?\C-d){ view.down }
+      map(?\C-x, ?\C-u){ view.up }
+      map(?\C-x, ?q){ view.stop }
+      map(?\C-x, ?\C-s){ view.do_search_ask }
+      map(?\C-x, ?\C-x){ view.do_select }
+      map(?q){ view.stop }
+      map(?q){ view.stop }
+      map(32){ view.space }
+      map(?n){ view.space }
+      map(?j){ :down }
+      map(?k){ view.up }
+      map(?p){ view.minus }
+      map(?[) { view.goto_start }
+      map(?]) { view.goto_end }
+      map(?-) { view.minus }
+
+      map('right') { view.right}
+      map(?l) { view.right}
+      map('left') {view.left}
+      map(?h) {view.left}
+      map(KEY_DOWN) { view.down }
+      map(?j) { view.down }
+      map(KEY_UP) { view.up }
+      map(KEY_ENTER) { view.enter  }
+      map(?g) { view.handle_goto_ask }
+      map(?/) { view.do_search_ask }
+      map(?\C-n) { view.do_search_next }
+      map(?\C-p) { view.do_search_prev }
+      map(?x) { view.do_select }
+      map(?\') { view.do_next_selection }
+      map(?") { view.do_prev_selection }
+      map(?\C-e) { view.do_clear_selection }
+      ## C-s starts a new mode, i gets back to normal 
+      map(?\C-s){ view.mode = :cx }
+      # all printable chars not trapped above are caught here
+      map(/^([[:print:]])$/){ view.show("Got printable: #{@arg}              ") }
+
+
+      map(?\C-q){ view.stop }
+    end
+
+    ## a mode, started by C-s, use i to go back, q to quit
+    @mapper.let :cx do
+      map(?c.getbyte(0)){ view.show(:c) }
+      map(?a.getbyte(0)){ view.show(:a) }
+      map(?r.getbyte(0)){ view.show(:r) }
+      map(?q.getbyte(0)){ view.stop }
+      map(?i.getbyte(0)){ view.mode = :normal }
+    end
+  end
+  def press(key)
+    # I can intercept printable keys here
+    $log.debug("press key: %s" % key)
+    begin
+      @keyhandler.press(key)
+      #break if stopping?
+      return if stopping?
+      if !@message.nil?
+        printstr(@window, 18,1,"%40s" % @message, $promptcolor, att = Ncurses::A_NORMAL)
+        @message = nil
+      end
+
+    rescue ::Exception => ex
+      $log.debug ex
+      show(ex.message)
+    end
+  end # press
+
+  # from VER
+  def stopping?
+    @stop
+  end
+  def show string
+    @message = string
+  end
+
+  # without this system hangs if unknown key presed
+  def info(message)
+    @message = message
+  end
+
+  def stop
+    @stop = true
+    throw(:close)
+  end
+end
+if $0 == __FILE__
+  include RubyCurses
+  include RubyCurses::Utils
+  begin
+  # Initialize curses
+    VER::start_ncurses
+    $reversecolor = 2
+    $errorcolor = 7
+    $promptcolor = $selectedcolor = 4
+    $normalcolor = $datacolor = 5
+    $bottomcolor = $topcolor = 6
+
+    # Create the window to be associated with the form 
+    # Un post form and free the memory
+    $log = Logger.new("view.log")
+    $log.level = Logger::DEBUG
+
+    catch(:close) do
+      @layout = { :height => 0, :width => 0, :top => 0, :left => 0 } 
+      @window = VER::Window.new(@layout)
+      @window.bkgd(Ncurses.COLOR_PAIR(5));
+      @panel = @window.panel
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      $log.debug "START   ---------"
+      kt = KeyTest.new @window
+    end
+  rescue => ex
+  ensure
+    Ncurses::Panel.del_panel(@panel) if !@panel.nil?   
+    @window.delwin 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/mpad2.rb

@@ -0,0 +1,156 @@
+#!/usr/bin/env ruby
+
+# REQUIRES A FILE NAMED "TODO" in current folder, to display and page
+# a basic file pager to check out ncurses ruby pad
+# working in 1.8.7 but not showing anything when i hit a key in 1.9.1
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+
+include Ncurses
+include Ncurses::Form
+
+class Fixnum
+   def ord
+     self
+   end
+## mostly for control and meta characters
+   def getbyte(n)
+     self
+   end
+end unless "a"[0] == "a"
+
+
+# Initialize curses
+begin
+  stdscr = Ncurses.initscr();
+  Ncurses.start_color();
+  Ncurses.cbreak();
+  Ncurses.noecho();
+  Ncurses.keypad(stdscr, true);
+
+  # Initialize few color pairs 
+  Ncurses.init_pair(1, COLOR_RED, COLOR_BLACK);
+  Ncurses.init_pair(2, COLOR_BLACK, COLOR_WHITE);
+  Ncurses.init_pair(3, COLOR_BLACK, COLOR_BLUE);
+  Ncurses.init_pair(4, COLOR_YELLOW, COLOR_RED); # for selected item
+  Ncurses.init_pair(5, COLOR_WHITE, COLOR_BLACK); # for unselected menu items
+  Ncurses.init_pair(6, COLOR_WHITE, COLOR_BLUE); # for bottom/top bar
+  Ncurses.init_pair(7, COLOR_WHITE, COLOR_RED); # for error messages
+  #stdscr.bkgd(Ncurses.COLOR_PAIR(6)); ## DO NOT TOUCH stdscr please
+
+  $log = Logger.new("view.log")
+  $log.level = Logger::DEBUG
+  # Create the window to be associated with the form 
+  @screenrows = Ncurses.LINES-3
+  screencols = 80
+  @startrow = 1
+  my_form_win = WINDOW.new(0,0,0,0)
+  x = Array.new
+  y = Array.new
+  Ncurses.getmaxyx(my_form_win, y, x)
+  $log.debug " x = #{x[0]}, y = #{y[0]}"
+  screencols = 99; x[0]-15
+  my_panel = my_form_win.new_panel
+  textary = File.open("../TODO","r").readlines
+  my_pad = Ncurses.newpad(textary.count,100)
+  pad = my_pad.new_panel
+  Ncurses::Panel.update_panels
+
+  my_form_win.bkgd(Ncurses.COLOR_PAIR(5));
+  my_pad.keypad(TRUE);
+
+  # Set main window and sub window
+
+  # Print a border around the main window and print a title */
+  #my_form_win.box(0, 0);
+  #print_in_middle(my_form_win, 1, 0, cols[0] + 14, "Main Menu", Ncurses.COLOR_PAIR(6));
+  Ncurses.refresh();
+
+  textary.each_index { |ix|
+    my_pad.mvaddstr(ix, 0, textary[ix])
+  }
+
+  # Print field types
+  
+  #my_pad.prefresh(0,0, 0,0, Ncurses.LINES,Ncurses.COLS-1);
+  #my_form_win.wrefresh();
+  @prow = 0; @pcol = 0;
+  #my_pad.prefresh(0,0, @startrow ,0, @screenrows,Ncurses.COLS-1);
+  # trying out overwrite since copywin retuns ERR -1
+  #ret = Ncurses.copywin(my_pad, my_form_win, 0,0,@startrow,0, @screenrows, Ncurses.COLS-1, 0)
+  ### ret = Ncurses.overwrite(my_pad, my_form_win) # worked
+  ### $log.debug("overwrite #{ret}")
+#  ret = Ncurses.overwrite(my_form_win, my_pad)
+  #my_form_win.wrefresh(); << this line clears what pad has put, but needed by copywin etc i think
+
+
+  # Loop through to get user requests
+  # # XXX Need to clear pad so earlier data in last line does not still remain
+  while((ch = my_pad.getch()) != KEY_F1 )
+    case ch
+    when ?j.getbyte(0)
+     @prow += 1 
+      #next
+      # disallow
+      if @prow > textary.count
+        @prow = textary.count
+        Ncurses.beep
+        next
+      end
+    #when KEY_UP
+    when ?k.getbyte(0)
+     @prow -= 1 
+      #next
+      # disallow
+      if @prow <= 0
+        Ncurses.beep
+        @prow = 0
+        next
+      end
+    when 32
+      @prow += @screenrows
+      if @prow > textary.count
+        @prow = textary.count
+        Ncurses.beep
+        next
+      end
+    when ?-.getbyte(0)
+      if @prow <= 0
+        Ncurses.beep
+        @prow = 0
+        next
+      end
+     @prow -= @screenrows
+    when ?t.getbyte(0)
+        @pcol = @prow = 0
+    when ?h.getbyte(0)
+      @pcol += 1
+    when ?l.getbyte(0)
+      @pcol -= 1
+    when ?r.getbyte(0)
+      my_form_win.wclear # 2009-10-10 17:46 
+    when KEY_ENTER, 10
+      # selection
+    when ?q.getbyte(0), ?\,
+      break
+    end
+    @pcol = 0 if @pcol < 0
+    # clear is required but in 1.9.1 there is no prefresh after a clear. screen blanks out totally
+    #my_form_win.wclear # 2009-10-10 17:46 
+    #my_form_win.werase # 2009-10-10 17:46 
+  #  my_pad.prefresh(@prow,@pcol, @startrow,0, @screenrows,Ncurses.COLS-1);
+  #ret = Ncurses.copywin(my_pad, my_form_win, @prow,@pcol,@startrow,0, @screenrows, Ncurses.COLS-1, 0)
+  #ret = my_pad.copywin( my_form_win, @prow,@pcol,@startrow,0, @screenrows, Ncurses.COLS-1, 0)
+  ret = my_pad.copywin( my_form_win, @prow,@pcol,0,0, @screenrows, screencols, 0)
+  $log.debug("copywin #{ret} : cols:#{screencols}")
+   my_form_win.wrefresh # if i don't put this then upon return the other screen is still shown
+                         # till i press a key
+  Ncurses::Panel.update_panels
+  end
+  # Un post form and free the memory
+
+
+ensure
+  Ncurses.endwin();
+end

data/examples/newtesttabp.rb

@@ -0,0 +1,121 @@
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+require 'ncurses'
+require 'logger'
+require 'rbcurse'
+#require 'rbcurse/newtabbedpane'
+require 'rbcurse/rtabbedpane'
+
+class TestTabbedPane
+  def initialize
+    acolor = $reversecolor
+    #$config_hash ||= {}
+  end
+  def run
+    $config_hash ||= Variable.new Hash.new
+    #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
+    @window = VER::Window.root_window
+    @form = Form.new @window
+    r = 1; c = 30;
+      @tp = RubyCurses::TabbedPane.new @form  do
+        height 12
+        width  50
+        row 13
+        col 10
+        button_type :ok
+      end
+      @tab1 = @tp.add_tab "&Language" 
+      f1 = @tab1.form
+      #$radio = Variable.new
+      radio1 = RadioButton.new f1 do
+        #variable $radio
+        variable $config_hash
+        name "radio1"
+        text "ruby"
+        value "ruby"
+        color "red"
+        row 4
+        col 5
+      end
+      radio2 = RadioButton.new f1 do
+        #variable $radio
+        variable $config_hash
+        name "radio1"
+        text  "jruby"
+        value  "jruby"
+        color "green"
+        row 5
+        col 5
+      end
+      radio3 = RadioButton.new f1 do
+        #variable $radio
+        variable $config_hash
+        name "radio1"
+        text  "macruby"
+        value  "macruby"
+        color "cyan"
+        row 6
+        col 5
+      end
+      @tab2 = @tp.add_tab "&Settings"
+      f2 = @tab2.form
+      r = 4
+      butts = [ "Use &HTTP/1.0", "Use &frames", "&Use SSL" ]
+      bcodes = %w[ HTTP, FRAMES, SSL ]
+      butts.each_with_index do |t, i|
+        RubyCurses::CheckBox.new f2 do
+          text butts[i]
+          variable $config_hash
+          name bcodes[i]
+          row r+i
+          col 5
+        end
+      end
+      @tab3 = @tp.add_tab "&Editors"
+      f3 = @tab3.form
+      butts = %w[ &Vim E&macs &Jed &Other ]
+      bcodes = %w[ VIM EMACS JED OTHER]
+      row = 4
+      butts.each_with_index do |name, i|
+        RubyCurses::CheckBox.new f3 do
+          text name
+          variable $config_hash
+          name bcodes[i]
+          row row+i
+          col 5
+        end
+      end
+      @help = "q to quit. Use any key of key combination to see what's caught. Check logger too"
+            RubyCurses::Label.new @form, {'text' => @help, "row" => 11, "col" => 2, "color" => "yellow"}
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != ?q.getbyte(0) )
+       # @tp.repaint
+        @form.handle_key(ch)
+        @window.wrefresh
+      end
+      #@tp.show
+      #@tp.handle_keys
+  end
+end
+if $0 == __FILE__
+  # 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 = TestTabbedPane.new
+    n.run
+  rescue => ex
+  ensure
+    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