rbcurse 1.5.0 → 1.5.2

data/examples/deprecated/testtpane2.rb

@@ -0,0 +1,145 @@
+#*******************************************************#
+#                      testtpane2.rb                    #
+#                 written by Rahul Kumar                #
+#                    February 1, 2010                   #
+#                                                       #
+#     testing tabbedpane with textarea, view, listbox   #
+#     Differs from testtpane added scrollpanes outside view #
+#                                                       #
+#            Released under ruby license. See           #
+#         http://www.ruby-lang.org/en/LICENSE.txt       #
+#               Copyright 2010, Rahul Kumar             #
+#*******************************************************#
+
+# this is a test program, tests out tabbed panes. type F1 to exit
+#
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'rubygems'
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rtabbedpane'
+require 'rbcurse/core/widgets/rtextview'
+require 'rbcurse/core/widgets/rtextarea'
+require 'rbcurse/rscrollpane'
+
+class TestTabbedPane
+  def initialize
+    acolor = $reversecolor
+  end
+  def run
+    $config_hash ||= Variable.new Hash.new
+    @window = VER::Window.root_window
+    @form = Form.new @window
+    @form.name = "MAINFORM"
+    $log.debug " MAIN FORM #{@form}  , #{@window} "
+    r = 3; c = 5;
+    h = 20; w = 70
+      @tp = RubyCurses::TabbedPane.new @form  do
+        height h
+        width  w
+        row r #5
+        col c #8
+        #button_type :ok
+      end
+      sr = 4 
+      sc = 2
+        @scroll = ScrollPane.new nil do
+          name   "myScroller" 
+         # row 4 #+ht+1
+         # col 0
+         # width w-1
+         # height h-4
+        end
+        textview = TextView.new do
+          name   "myView" 
+          row 0 #sr+1 # 4
+          col 0 #sc+1 # 2 
+          width w-0
+         # height h+10
+          title "README.mrku"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        content = File.open("../README.markdown","r").readlines
+        textview.set_content content #, :WRAP_WORD
+        #textview.show_caret = true
+      $log.debug "  before adding tab to TP "
+      @tab1 = @tp.add_tab "&TextView", @scroll
+      @scroll.child(textview)
+
+
+      @tab2 = @tp.add_tab "&Settings"
+
+      #f2 = @tab2.form
+      #$log.debug " textarea tp form #{f2} "
+      r = 4
+        texta = TextArea.new do
+          name   "myText" 
+          #row r
+          #col 1 
+          #width w-5
+          #height h-5
+          title "EditMe.txt"
+          title_attrib 'bold'
+          print_footer true
+          footer_attrib 'bold'
+        end
+        @tab2.component = texta
+        texta << "I expect to pass through this world but once." << "Any good therefore that I can do, or any kindness or abilities that I can show to any fellow creature, let me do it now."
+        texta << "Let me not defer it or neglect it, for I shall not pass this way again."
+        texta << " "
+        texta << "q to exit."
+        texta << "Some more text going below scrollpane.. "
+        texta << "Love all creatures for they are none but yourself."
+        #texta.show_caret = true # since the cursor is not showing correctly, show internal one.
+
+        # This uses the old style, we get a padded form and then add objects to it.
+      @tab3 = @tp.add_tab "&Editors"
+      #f3 = @tab3.form
+      f3 = @tp.form @tab3 # this replaces previous line, since we don't create form by default
+      butts = %w[ &Vim E&macs &Jed E&lvis ]
+      bcodes = %w[ VIM EMACS JED ELVIS]
+      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 = "F1 to quit. M- T/S/E for tabs. M-n p h l scrollpane  #{$0} Check logger too"
+            RubyCurses::Label.new @form, {'text' => @help, "row" => r+h+2, "col" => 2, "color" => "yellow"}
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+       # @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((File.join(ENV["LOGDIR"] || "./" ,"rbc13.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

data/examples/deprecated/testtpanetable.rb

@@ -0,0 +1,203 @@
+#*******************************************************#
+#                   testtpanetable.rb                   #
+#                 written by Rahul Kumar                #
+#                    January 29, 2010                   #
+#                                                       #
+#     testing tabbedpane with table                     #
+#                                                       #
+#            Released under ruby license. See           #
+#         http://www.ruby-lang.org/en/LICENSE.txt       #
+#               Copyright 2010, Rahul Kumar             #
+#*******************************************************#
+
+# this is a test program, tests out tabbed panes. type F1 to exit
+# Avoid using ScrollPane at present, I intend rewriting it some day
+# It sucks. Even the TabbedPane code will be rewritten completely.
+# Don't use this demo.
+require 'rubygems'
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/rtabbedpane'
+require 'rbcurse/extras/widgets/rtable'
+require 'rbcurse/rscrollpane'
+
+class TestTabbedPane
+  def initialize
+    acolor = $reversecolor
+  end
+  def run
+    $config_hash ||= Variable.new Hash.new
+    @window = VER::Window.root_window
+    @form = Form.new @window
+    $log.debug " MAIN FORM #{@form} "
+    r = 1; c = 1;
+    h = 20; w = 70
+      @tp = RubyCurses::TabbedPane.new @form  do
+        height h
+        width  w
+        row 2
+        col 8
+        #button_type :ok
+      end
+      @tab1 = @tp.add_tab "&Table" 
+      #f1 = @tab1.form
+      f1 = @tp.form @tab1
+      raise "form f1 nil" unless f1
+      $log.debug " TABLE FORM #{f1} "
+
+      data = [["Pathetique",3,"Tchaikovsky",3.21, true, "WIP"],
+        ["Ali Maula Ali Maula",3,"NFAK",3.47, true, "WIP"],
+        ["Tera Hijr Mera Nasib",92,"Razia Sultan",412, true, "Fin"],
+        ["Piano Concerto 4&5",4,"Beethoven",110.0, false, "Cancel"],
+        ["Toccata and Fugue",4,"J S Bach",102.72, false, "Postp"],
+        ["Symphony No. 3",4,"Henryk Gorecki",102.72, true, "Postp"],
+        ["The Great Gig in the Sky",8,"Pink Floyd",12.72, false, "Todo"],
+        ["Steppes of Central Asia",9,"Borodin",12.2, false, "WIP"],
+        ["Wish You Were Here",8,"Pink Floyd",2.7, false, "Todo"],
+        ["Habanera",nil,"Maria Callas",112.7, true, "Cancel"],
+        ["Mack the Knife",9,"Loius Armstrong",12.2, false, "Todo"],
+        ["Prince Igor",9,"Borodin",16.3, false, "WIP"],
+        ["Shahbaaz Qalandar",9,"Nusrat Fateh Ali Khan",12.2, false, "Todo"],
+        ["Raag Darbari",9,"Ustad Fateh Ali Khan",12.2, false, "Todo"],
+        ["Yaad-e-Mustafa Aisi",9,"Santoo Khan",12.2, true, "Todo"],
+        ["Chaconne",4,"Johann S Bach",12.42, true, "Postp"],
+        ["Raag Jaunpuri",9,"Ustad Fateh Ali Khan",12.2, false, "Todo"],
+        ["Dalaleragita",9,"Vaishnava",12.2, false, "Todo"],
+        ["Prasada sevaya",9,"Vaishnava",12.2, false, "Todo"],
+        ["Sri Rupamanjiri",9,"Vaishnava",12.2, false, "Todo"],
+        ["M Vlast ",9,"Smetana",12.2, false, "Todo"],
+        ["Jai Radha Madhava",163,"Jagjit Singh",5.4, false, "WIP"]]
+
+      colnames = %w[ Song Cat Artist Ratio Flag Status]
+      statuses = ["Todo", "WIP", "Fin", "Cancel", "Postp"]
+
+        atable = Table.new f1 do
+          name   "mytable" 
+          row  4 
+          col  0
+          width 78
+          height 15
+          #title "A Table"
+          #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+          cell_editing_allowed true
+          editing_policy :EDITING_AUTO
+          set_data data, colnames
+        end
+        sel_col = Variable.new 0
+        sel_col.value = 0
+        tcm = atable.get_table_column_model
+        selcolname = atable.get_column_name sel_col.value
+        #
+        ## key bindings fo atable
+        # column widths 
+          tcm.column(0).width 24
+          tcm.column(1).width 5
+          tcm.column(2).width 18
+          #tcm.column(2).editable false
+          tcm.column(3).width 7
+          tcm.column(4).width 5
+          tcm.column(5).width 8
+        atable.configure() do
+          bind_key(330) { atable.remove_column(tcm.column(atable.focussed_col)) rescue ""  }
+          bind_key(?+) {
+            acolumn = atable.get_column selcolname
+            w = acolumn.width + 1
+            acolumn.width w
+            #atable.table_structure_changed
+          }
+          bind_key(?-) {
+            acolumn = atable.get_column selcolname
+            w = acolumn.width - 1
+            if w > 3
+            acolumn.width w
+            #atable.table_structure_changed
+            end
+          }
+          bind_key(?>) {
+            colcount = tcm.column_count-1
+            #atable.move_column sel_col.value, sel_col.value+1 unless sel_col.value == colcount
+            col = atable.focussed_col
+            atable.move_column col, col+1 unless col == colcount
+          }
+          bind_key(?<) {
+            col = atable.focussed_col
+            atable.move_column col, col-1 unless col == 0
+            #atable.move_column sel_col.value, sel_col.value-1 unless sel_col.value == 0
+          }
+          #bind_key(KEY_RIGHT) { sel_col.value = sel_col.value+1; current_column sel_col.value}
+          #bind_key(KEY_LEFT) { sel_col.value = sel_col.value-1;current_column sel_col.value}
+        end
+
+      @tab2 = @tp.add_tab "&ScrollTable" 
+      #f2 = @tab2.form
+      f2 = @tp.form @tab2
+        scroll = ScrollPane.new f2 do
+          name   "myScroller" 
+          row 4
+          col  0 
+          width w-2
+          height h-2
+        end
+
+      $log.debug " TABLE FORM 2  #{f2} "
+        btable = Table.new nil do
+          name   "mytab2" 
+          row  0 
+          col  0
+          width 78
+          height 15
+          #title "A Table"
+          #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+          cell_editing_allowed true
+          editing_policy :EDITING_AUTO
+          set_data data, colnames
+        end
+        sel_col = Variable.new 0
+        sel_col.value = 0
+        tcm = btable.get_table_column_model
+        selcolname = btable.get_column_name sel_col.value
+        #
+        ## key bindings fo atable
+        # column widths 
+          tcm.column(0).width 24
+          tcm.column(1).width 5
+          tcm.column(2).width 18
+          #tcm.column(2).editable false
+          tcm.column(3).width 7
+          tcm.column(4).width 5
+          tcm.column(5).width 8
+        scroll.child(btable)
+ 
+      @help = "F1 to quit. Use any key of key combination to see what's caught. #{$0} Check logger too"
+            RubyCurses::Label.new @form, {'text' => @help, "row" => r+h+2, "col" => 2, "color" => "yellow"}
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F1 )
+       # @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((File.join(ENV["LOGDIR"] || "./" ,"rbc13.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

data/examples/dirtree.rb

@@ -0,0 +1,88 @@
+require 'rbcurse/core/util/app'
+require 'fileutils'
+require 'rbcurse/tree/treemodel'
+#require 'rbcurse/common/file'
+require './common/file'
+
+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 #{Rbcurse::VERSION}", :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 = FFI::NCurses.LINES - 2
+  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)
+        if File.exists? 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
+    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 = listbox :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
+      file_page   ev.source.selected_value if ev.type == :INSERT
+      #TODO when selects drill down
+      #TODO when selecting, sync tree with this
+    end
+    # on pressing enter, we edit the file using vi or EDITOR
+    @l.bind :PRESS  do |ev|
+      file_edit ev.text if File.exists? ev.text
+    end
+  end
+  status_line :row => FFI::NCurses.LINES - 1
+end # app

data/examples/experimental/resultsetdemo.rb

@@ -0,0 +1,280 @@
+require 'rbcurse/experimental/widgets/resultsettextview.rb'
+require 'fileutils'
+
+=begin
+# See tabbed pane, and add_cols nad add_rows, on_entr and set_form_row to see cursor issue
+# remove main form 
+# don't make a widget just an object
+# let it create own form.
+
+# NOTE: experimental, not yet firmed up
+# If you use in application, please copy to some application folder in case i change this.
+# Can be used for print_help_page
+# SUGGESTIONS WELCOME.
+# @since 1.4.1
+module RubyCurses
+
+  class ResultsetBrowser #< Widget
+    #include EventHandler
+    include ConfigSetup
+    include RubyCurses::Utils
+    #dsl_property :xxx
+    # I don't think width is actually used, windows width matters. What of height ?
+    # THATS WRONG , i cannot eat up window. I should use object dimentsion for pad,
+    #  not window dimensions
+    dsl_accessor :row, :col, :height, :width
+    dsl_accessor :should_print_border
+
+    def initialize win, config={}, &block
+      @should_print_border = true
+      @v_window = win #form.window
+      @window = @v_window
+      @focusable = true
+      @editable  = true
+      @old_index = @current_index = 0
+      @fields = nil
+      config_setup config 
+      instance_eval &block if block_given?
+      init_vars
+    end
+    def map_keys
+      @v_form.bind_key(?\C-n) { @current_index += 1 if @current_index < @rows.count-1 }
+      @v_form.bind_key(?\C-p) {  @current_index -= 1  if @current_index > 0 }
+      @mapped = true
+    end
+    def init_vars
+      @row ||= 0
+      @col ||= 0
+      @height ||= 15
+      @width ||= 50
+      @field_offset = 14   # where actual Field should start (leaving space for label)
+      @row_offset ||= 0
+      @col_offset ||= 1
+      @border_offset = 0
+      if @should_print_border
+        @border_offset = 1
+      end
+      @v_form = RubyCurses::ScrollForm.new @v_window
+      @v_form.display_h(@height-1-@border_offset*2) if @height
+      @v_form.display_w(@width-1-@border_offset*2)  if @width
+    end
+    def data=(rows)
+      @rows = rows
+    end
+    def columns=(columns)
+      @columns = columns
+      h = @columns.count + 2
+      w = 150 
+      #row = 1
+      #col = 1
+      row = @row + @border_offset
+      col = @col + @border_offset
+      @v_form.set_pad_dimensions(row, col, h, w)
+      @v_form.should_print_border(false) # this should use dimensions of object not window. # 2011-10-12 15:48:14
+      # currently I don't have space for any buttons or anything.  The form takes all space of the window
+      # not of the object defined.
+      # I should be able to tell Scrollform to use only thismuch of window.
+    end
+    def set_form_row
+      f = @v_form.get_current_field
+      f.set_form_row
+    end
+    def handle_key ch
+      map_keys unless @mapped
+      $log.debug "XXX: RB HK got ch "
+      ret =  @v_form.handle_key ch
+      #set_form_row
+      if ret == :UNHANDLED
+        @v_form.process_key ch, self
+      end
+      repaint
+      @v_window.wrefresh
+    end
+    def repaint
+      @fields ||= _create_fields
+      #alert "old #{@old_index} , #{@current_index} "
+      if @old_index != @current_index
+        #alert "index change"
+        row = @rows[@current_index]
+        @columns.each_with_index { |e, i|  
+          value = row[i]
+          len = value.to_s.length
+          type=@rows[0].types[i]
+          if type == "TEXT"
+            value = value.gsub(/\n/," ") if value
+          end
+          f = @fields[i]
+          @fields[i].set_buffer(value)
+          if f.display_length < len && len < (@width - @field_offset)
+            @fields[i].display_length len
+          end
+        }
+        @v_form.repaint
+        @window.wrefresh
+        Ncurses::Panel.update_panels
+        @old_index = @current_index
+      end
+    end
+    # maybe not required since we don't have 2 forms now
+    def unused_on_enter
+      if $current_key == KEY_BTAB
+        c = @v_form.widgets.count-1
+        @v_form.select_field c
+      else
+        @v_form.select_field 0
+      end
+    end
+    private
+    def _create_fields
+      color = $datacolor
+      if @should_print_border
+        @v_window.print_border @row, @col, @height-1, @width, color #, Ncurses::A_REVERSE
+        @row_offset += 1
+        @col_offset += 1
+      end
+      $log.debug "XXX: ROWS#{@rows}"
+      $log.debug "XXX: COLS#{@columns}"
+      $log.debug "XXX: row#{@rows[@current_index]}"
+      fields = []
+      r = @row + @row_offset   # row was for where to print the total object, not this
+      c = @col + @col_offset + @field_offset # 14 is to leave space for labels
+      v_form = @v_form
+      @columns.each_with_index { |e, index| 
+        #break if index >= @height-1 # create only as much space we have, SUCKS but just trying till be scroll
+        #$log.debug "XXX: #{r} #{c} EACH #{e}, #{index}, #{@rows[@current_index][index]}"
+        value=@rows[@current_index][index]
+        type=@rows[0].types[index]
+        if type == "TEXT"
+          value = value.gsub(/\n/," ") if value
+        end
+        len = [value.to_s.length, (@width - @field_offset)].min
+        f = Field.new v_form do 
+          name  e
+          row  r
+          col c 
+          bgcolor 'blue'
+          highlight_background 'cyan'
+          set_buffer value
+          display_length len
+          set_label Label.new v_form, {'text' => e, 'color'=>'cyan'}
+        end
+        fields << f
+        r += 1
+      }
+      @v_form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      #$log.debug "XXX: created fields "
+      return fields
+    end
+    
+    # ADD HERE
+    
+  end # class
+end # module
+module RubyCurses
+  # a data viewer for viewing some text or filecontents
+  # view filename, :close_key => KEY_RETURN
+  # send data in an array
+  # view Array, :close_key => KEY_RETURN, :layout => [0,0,23,80]
+  # when passing layout reserve 4 rows for window and border. So for 2 lines of text
+  # give 6 rows.
+  class Browser
+    def self.browse_sql dbname, tablename, sql, config={} #:yield: ???
+      raise "file not found" unless File.exist? dbname
+      require 'sqlite3'
+      db = SQLite3::Database.new(dbname)
+      columns, *rows = db.execute2(sql)
+      #$log.debug "XXX COLUMNS #{sql}  "
+      content = rows
+      return nil if content.nil? or content[0].nil?
+      datatypes = content[0].types 
+      self.browse db, tablename, columns, rows, config
+    end
+    # @param filename as string or content as array
+    # @yield textview object for further configuration before display
+    # NOTE: i am experimentally yielding textview object so i could supress borders
+    # just for kicks, but on can also bind_keys or events if one wanted.
+    #def self.view what, config={} #:yield: textview
+    def self.browse dbconn, tablename, columns, rows, config={} #:yield: ???
+      wt = 0 # top margin
+      wl = 0 # left margin
+      wh = Ncurses.LINES-wt-3 # height, goes to bottom of screen
+      ww = Ncurses.COLS-wl-3  # width, goes to right end
+      wt, wl, wh, ww = config[:layout] if config.has_key? :layout
+
+      fp = config[:title] || ""
+      pf = config.fetch(:print_footer, true)
+      ta = config.fetch(:title_attrib, 'bold')
+      fa = config.fetch(:footer_attrib, 'bold')
+
+      wh = Ncurses.LINES-0
+      ww = Ncurses.COLS-0
+      layout = { :height => wh, :width => ww, :top => wt, :left => wl } 
+      #v_window = config[:window] # using previous window cause crash seg fault
+      #v_window ||= VER::Window.new(layout) # copywin gives -1 and prints nothing
+      v_window = VER::Window.root_window
+      v_window.printstring 0, 30, "Database Browser Demo", $datacolor
+      @form = RubyCurses::Form.new v_window # only for some widgets that are not editable
+      header = app_header "rbcurse ", :text_center => "ResultsetBrowser Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+      sl = status_line :row => v_window.height == 0 ? Ncurses.LINES-1 : v.window.height-1
+      sl.command { "Record Navigation: C-n C-p. Scrolling M-n, M-p, M-l, M-h" }
+      
+      @form.repaint
+
+      #rb = ResultsetBrowser.new v_form, :row => 2, :col => 2
+      rb = ResultsetBrowser.new v_window, :row => 2, :col => 2, :height => 20, :width => 95
+      rb.columns = columns
+      rb.data = rows
+      rb.repaint
+
+
+      # yielding textview so you may further configure or bind keys or events
+      begin
+      #v_form.repaint
+      v_window.wrefresh
+      Ncurses::Panel.update_panels
+      # allow closing using q and Ctrl-q in addition to any key specified
+      #  user should not need to specify key, since that becomes inconsistent across usages
+        while((ch = v_window.getchar()) != ?\C-q.getbyte(0) )
+          break if ch == config[:close_key] 
+          rb.handle_key ch
+          #v_form.handle_key ch
+        end
+      rescue => err
+        $log.error err.to_s
+        $log.error err.backtrace.join("\n")
+        alert err.to_s
+
+      ensure
+        v_window.destroy if !v_window.nil?
+      end
+    end
+  end  # class
+end # module
+=end
+if __FILE__ == $PROGRAM_NAME
+require 'rbcurse/core/util/app'
+
+App.new do 
+  header = app_header "rbcurse ", :text_center => "ResultsetBrowser Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press F10 to exit from here"
+  columns = ["Name","Age","City", "Country"]
+  data    = [
+             [ "Rahul",31, "Delhi","India"], 
+             [ "Dev",35, "Mumbai","India"], 
+             [ "Jobs",56, "L.A","U.S.A"], 
+             [ "Matz",40, "Tokyo","Nippon"] 
+  ]
+
+    #RubyCurses::Browser.browse("dummy", "atable", columns, data,  :close_key => FFI::NCurses::KEY_F10, :title => "Enter to close") do |t|
+  sql = "select id, type, priority, title from bugs"
+  sql = "select * from bugs"
+  file = "bugzy.sqlite"
+  tv = RubyCurses::ResultsetTextView.new @form, :row => 1,  :col => 1, :width => 50, :height => 16
+  tv.sqlite file, "bugs", sql
+    #RubyCurses::Browser.browse_sql("bugzy.sqlite", "bugs", sql, :close_key => FFI::NCurses::KEY_F10, :title => "Enter to close", :window => @window) do |t|
+    #end
+
+end # app
+end