rbcurse 1.2.0.pre → 1.2.0

data/README.markdown

@@ -2,6 +2,13 @@
 
 * Version that works with ruby 1.9 (backward compatible with 1.8.7)
 
+* Status:
+  1.2.x is the last version that uses ncurses gem. Henceforth, rbcurse is moving to
+  version 1.3.x using ffi-ncurses. This is due to difficulty in installing ncurses gem.
+  Only bug-fixes will be done on 1.2.x.
+  This version has been tested till ruby 1.9.2 and will not be tested with 1.9.3 onwards.
+  (You may want to check the ffi branch for the moment)
+
 * 1.2.0: many additions (See CHANGELOG for details)
   - App class that wraps the environment and makes application development very easy
   - New controls such as:
@@ -42,18 +49,22 @@ test2.rb works - i always give it a quick run after making changes. All the test
     widgets. F2 for menubar toggling
 
    * rfe.rb is a ruby file explorer demo.
+    Also see, appdirtree.rb for tree based file explorer.
 
    * sqlc.rb is a ruby sql client _demo_ (using testd.db at
      <http://www.benegal.org/files/screen/testd.db>)
     (requires gem sqlite3-ruby)
-    sqlc.rb: uses tabbedpanes - each query opens a new tab
     sqlm.rb: uses a multi-container - each query opens a new table in the multicontainer
+    sqlc.rb: uses tabbedpanes - each query opens a new tab (quite a pain)
 
    * testtodo.rb is a test TODO application (now using fastercsv)
-    (needs retesting - is working)
 
    * viewtodo.rb is a test TODO viewing application (now using sqlite3). The table is readonly, some vim keys are available.
 
+   For a multiple program application, try alpmenu.rb. This gives a list of application to call (mimicks
+   alpine's menu. It links to viewtodo.rb and testtodo.rb. It shows how a program can be independent, 
+   and be called from a menu.
+
 * Screenshots on 
   <http://www.benegal.org/files/screen/?M=D>   (new)
   and on blog, <http://totalrecall.wordpress.com>   

data/VERSION

@@ -1 +1 @@
-1.2.0.pre
+1.2.0

data/examples/app.rb

@@ -10,7 +10,7 @@ Todo:
 
 =end
 #require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 

data/examples/appemail.rb

@@ -14,15 +14,17 @@ def testnumberedmenu
   list1 =  %w{ ruby perl python erlang rake java lisp scheme chicken }
   list1[0] = %w{ ruby ruby1.9 ruby1.8.x jruby rubinius ROR }
   str = numbered_menu list1, { :title => "Languages: ", :prompt => "Select :" }
+  $log.debug "17 We got #{str.class} "
   say "We got #{str} "
 end
 def testdisplay_list
   # scrollable list
   str = display_list Dir.glob("t*.rb"), :title => "Select a file"
-  message "We got #{str} "
+  $log.debug "23 We got #{str} :  #{str.class} , #{str.list[str.current_index]}  "
+  message "We got #{str.list[str.current_index]} "
 end
 def testdisplay_text
-  str = display_text_interactive File.read($0), :title => "Select a file"
+  str = display_text_interactive File.read($0), :title => "#{$0}"
 end
 def testdir
   # this behaves like vim's file selector, it fills in values
@@ -40,7 +42,7 @@ def test
   Ncurses.attron(Ncurses.COLOR_PAIR($promptcolor))
   Ncurses.mvprintw 27,0,"helllllo theeeerE                  "
   Ncurses.attroff(Ncurses.COLOR_PAIR($promptcolor))
-  scr.refresh()
+  #scr.refresh() # refresh FFI NW
 end
 def saveas1
   @tv.saveas 

data/examples/appgcompose.rb

@@ -1,6 +1,8 @@
 require 'rbcurse/app'
 require 'gmail'
 
+# requires gmail gem
+
 def insert_file
   str = ask("File?  ", Pathname)  do |q| 
     q.completion_proc = Proc.new {|str| Dir.glob(str +"*").collect { |f| File.directory?(f) ? f+"/" : f  } }
@@ -215,7 +217,7 @@ module AppgCompose
             contacts = YAML::load( File.open(file))
             contacts.each { |e| to_list << "\"#{e[0]}\" <#{e[1]}>" }
           else
-            to_list = %w{ oneness@gmail.com rahul@gmail.com rajiv@gmail.com amba@me.com andy@me.com }
+            to_list = ['"Matz " <matz@ruby.com>', '"James E Gray" <james@gmail.com>', '"Steve Jobs" <jobs@apple.com>', '"Bram Moolenar", <bmool@vim.com>', '"Mental Guy", <mentalguy@me.com>' ]
           end
           @to = app.field "to", :maxlen => 100, :bgcolor => :white, :color => :black
           GmailField.new @to, to_list
@@ -258,7 +260,8 @@ module AppgCompose
         return false
       end
       unless @username
-        ww = ENV['GMAIL_USER'] + "@gmail.com"
+        ww = ENV['GMAIL_USER'] 
+        ww << "@gmail.com" if ww
         @username = ask("Username: ") { |q| q.default = ww }
       end
       unless @password

data/examples/appgmail.rb

@@ -3,6 +3,7 @@ require 'fileutils'
 require 'yaml'
 require 'gmail'
 # You need gmail gem. (one of them depends on i18n gem).
+# # stopped working since gmail does not accept UIDS XXX FIXME
 # TODO start putting commands in a popup or menu bar
 # TODO what if i want to hide sidebar and bring it back on later
 # TODO switch mailbox or label on command line, with prompt letter indexing

data/examples/sqlc.rb

@@ -6,10 +6,11 @@
 # Please see bind_key statements in this app for some key bindings in table.
 # There are also key bindings in tabbedpanes and textarea's that will help alot.
 # This demo uses a tabbedpane so we can have the results of many sql statements and not
-# need to keep reissuing.
+# need to keep reissuing. The tabbed pane SUCKS, if you get in when not populated
+# you GET STUCK so press Alt-C to get out.
 #
 require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 require 'sqlite3'
 require 'rbcurse'
@@ -56,6 +57,7 @@ class Datasource
   # get columns and datatypes, prefetch
   def get_data command
     @columns, *rows = @db.execute2(command)
+    $log.debug "XXX COLUMNS #{command} :  #{@columns.count}: #{@columns} "
     @content = rows
     return nil if @content.nil? or @content[0].nil?
     @datatypes = @content[0].types #if @datatypes.nil?
@@ -277,7 +279,7 @@ class Sqlc
           height tablist_ht
 #         list mylist
           list_variable $listdata
-          #selection_mode :SINGLE
+          #selection_mode :multiple
           #show_selector true
           title "Tables"
           title_attrib 'reverse'
@@ -296,28 +298,32 @@ class Sqlc
     height 15
     #         list mylist
     list_variable $coldata
-    #selection_mode :SINGLE
+    selection_mode :multiple
     #show_selector true
     title "Columns"
     title_attrib 'reverse'
     help_text "Press ENTER to append columns to sqlarea, Space to select"
   end
   ## pressing SPACE on a table populates column list with its columns so they can be selected
-  tablelist.bind_key(32) {  
-    @status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}" 
+  #tablelist.bind_key(32) {  
+  # Now space trapped at listbox level, need to use event
+  tablelist.list_selection_model().bind(:LIST_SELECTION_EVENT,tablelist) { |lsm, alist| @status_row.text = "Selected #{alist.current_index}" 
+    #@status_row.text = "Selected table #{tablelist.get_content()[tablelist.current_index]}" 
     table = "#{tablelist.get_content()[tablelist.current_index]}" 
     ##table = table[0] if table.class==Array ## 1.9 ???
     columnlist.list_data_model.remove_all
     columnlist.list_data_model.insert 0, *@db.get_metadata(table)
   }
   ## pressing ENTER on a table runs a query on it, no need to type and SQL
-  tablelist.bind_key(13) {  
+  #tablelist.bind_key(13) {  
+  tablelist.bind(:PRESS) {  
     @status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}" 
     table = "#{tablelist.get_content()[tablelist.current_index]}" 
     ##table = table[0] if table.class==Array ## 1.9 ???
     run_query "select * from #{table}"
   }
-  columnlist.bind_key(13) {  
+  #columnlist.bind_key(13) {  
+  columnlist.bind(:PRESS) {  
     ## append column name to sqlarea if ENTER pressed
     column = "#{columnlist.get_content()[columnlist.current_index]}" 
     sqlarea << "#{column},"
@@ -329,7 +335,8 @@ class Sqlc
   }
   ## construct an SQL after selecting some columns in the column list
     b_construct.command { 
-    table = "#{tablelist.get_content()[tablelist.current_index]}" 
+      # current_index is wrong, we need selected_index
+    table = "#{tablelist.get_content()[tablelist.selected_index]}" 
     #table = table[0] if table.class==Array ## 1.9 ???
     indexes = columnlist.selected_rows()
     columns=[]
@@ -346,6 +353,7 @@ class Sqlc
     Ncurses::Panel.update_panels
     begin
     while((ch = @window.getchar()) != ?\C-q.getbyte(0) )
+      break if ch == KEY_F1
       s = keycode_tos ch
       status_row.text = "Pressed #{ch} , #{s}.  Press C-q to quit, Alt-Tab for exiting table "
       @form.handle_key(ch)

data/examples/sqlm.rb

@@ -8,7 +8,7 @@
 # instead of a tabbed panes. 
 #
 require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 require 'sqlite3'
 require 'rbcurse'
@@ -297,27 +297,31 @@ class Sqlc
     #         list mylist
     list_variable $coldata
     #selection_mode :SINGLE
+    selection_mode :multiple
     #show_selector true
     title "Columns"
     title_attrib 'reverse'
     help_text "Press ENTER to append columns to sqlarea, Space to select"
   end
   ## pressing SPACE on a table populates column list with its columns so they can be selected
-  tablelist.bind_key(32) {  
-    @status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}" 
+  #tablelist.bind_key(32) {  
+  tablelist.list_selection_model().bind(:LIST_SELECTION_EVENT,tablelist) { |lsm, alist| @status_row.text = "Selected #{alist.current_index}" 
+    #@status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}" 
     table = "#{tablelist.get_content()[tablelist.current_index]}" 
     ##table = table[0] if table.class==Array ## 1.9 ???
     columnlist.list_data_model.remove_all
     columnlist.list_data_model.insert 0, *@db.get_metadata(table)
   }
   ## pressing ENTER on a table runs a query on it, no need to type and SQL
-  tablelist.bind_key(13) {  
+  #tablelist.bind_key(13) {  
+  tablelist.bind(:PRESS) {  
     @status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}" 
     table = "#{tablelist.get_content()[tablelist.current_index]}" 
     ##table = table[0] if table.class==Array ## 1.9 ???
     run_query "select * from #{table}"
   }
-  columnlist.bind_key(13) {  
+  #columnlist.bind_key(13) {  
+  columnlist.bind(:PRESS) {  
     ## append column name to sqlarea if ENTER pressed
     column = "#{columnlist.get_content()[columnlist.current_index]}" 
     sqlarea << "#{column},"
@@ -329,7 +333,7 @@ class Sqlc
   }
   ## construct an SQL after selecting some columns in the column list
     b_construct.command { 
-    table = "#{tablelist.get_content()[tablelist.current_index]}" 
+    table = "#{tablelist.get_content()[tablelist.selected_index]}" 
     #table = table[0] if table.class==Array ## 1.9 ???
     indexes = columnlist.selected_rows()
     columns=[]
@@ -346,8 +350,9 @@ class Sqlc
     Ncurses::Panel.update_panels
     begin
     while((ch = @window.getchar()) != ?\C-q.getbyte(0) )
+      break if ch == KEY_F1
       s = keycode_tos ch
-      status_row.text = "Pressed #{ch} , #{s}.  Press C-q to quit, Alt-Tab for exiting table "
+      status_row.text = "Pressed #{ch}, #{s}. C-q to quit, Alt-Tab to exit table, Alt-: for buffers "
       @form.handle_key(ch)
 
       @form.repaint

data/examples/test2.rb

@@ -1,7 +1,7 @@
 #$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
 # this program tests out various widgets.
 require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 require 'rbcurse/rwidget'
@@ -254,7 +254,7 @@ if $0 == __FILE__
       $radio.update_command() {|tv|  message_label.color tv.value; align.bgcolor tv.value; combo1.bgcolor tv.value}
 
       # whenever updated set colorlabel and messagelabel to bold
-      $results.update_command(colorlabel,checkbutton) {|tv, label, cb| attrs =  cb.value ? 'bold' : nil; label.attr(attrs); message_label.attr(attrs)}
+      $results.update_command(colorlabel,checkbutton) {|tv, label, cb| attrs =  cb.value ? 'bold' : 'normal'; label.attr(attrs); message_label.attr(attrs)}
 
       align.bind(:ENTER_ROW) {|fld| message_label.justify fld.getvalue}
       align.bind(:ENTER_ROW) {|fld| 
@@ -268,7 +268,9 @@ if $0 == __FILE__
       }
 
       # whenever updated set colorlabel and messagelabel to reverse
-      @cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb| attrs =  cb.value ? 'reverse' : nil; label.attr(attrs); message_label.attr(attrs)}
+      #@cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb| attrs =  cb.value ? 'reverse' : nil; label.attr(attrs); message_label.attr(attrs)}
+      # changing nil to normal since PROP CHAN handler will not fire if nil being set.
+      @cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb| attrs =  cb.value ? 'reverse' : 'normal'; label.attr(attrs); message_label.attr(attrs)}
       row += 1
       radio1 = RadioButton.new @form do
         variable $radio
@@ -392,7 +394,7 @@ if $0 == __FILE__
      #item.checkbox.text "Labelcb"
      #item.text="Labelcb"
       # in next line, an explicit repaint is required since label is on another form.
-      item.command(colorlabel){|it, label| att = it.getvalue ? 'reverse' : nil; label.attr(att); label.repaint}
+      item.command(colorlabel){|it, label| att = it.getvalue ? 'reverse' : 'normal'; label.attr(att); label.repaint}
     
       row += 2
       ok_button = Button.new @form do
@@ -443,7 +445,7 @@ if $0 == __FILE__
       #item=RubyCurses::MenuItem.new "Save","S"
       item = RubyCurses::MenuItem.new "Options"
       item.command() do |it|  
-        require 'testtabp'
+        require './testtabp'
         tp = TestTabbedPane.new
         tp.run
         $message.value=$config_hash.inspect

data/examples/testmenu.rb

@@ -1,7 +1,7 @@
 #$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
 # this program tests out various widgets.
 require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 #require 'lib/rbcurse/rform'
@@ -32,19 +32,19 @@ if $0 == __FILE__
       #@mb = RubyCurses::MenuBar.new
       #filemenu = RubyCurses::Menu.new "File"
       filemenu = RubyCurses::PopupMenu.new "File"
-      filemenu.add(item = RubyCurses::MenuItem.new("Open",'O'))
+      filemenu.add(item = RubyCurses::PMenuItem.new("Open",'O'))
 
       filemenu.insert_separator 1
-      filemenu.add(RubyCurses::MenuItem.new "New",'N')
-      filemenu.add(item = RubyCurses::MenuItem.new("Save",'S'))
-      filemenu.add(item = RubyCurses::MenuItem.new("Test",'T'))
-      filemenu.add(item = RubyCurses::MenuItem.new("Wrap Text",'W'))
-      filemenu.add(item = RubyCurses::MenuItem.new("Exit",'X'))
+      filemenu.add(RubyCurses::PMenuItem.new "New",'N')
+      filemenu.add(item = RubyCurses::PMenuItem.new("Save",'S'))
+      filemenu.add(item = RubyCurses::PMenuItem.new("Test",'T'))
+      filemenu.add(item = RubyCurses::PMenuItem.new("Wrap Text",'W'))
+      filemenu.add(item = RubyCurses::PMenuItem.new("Exit",'X'))
       item.command() {
         #throw(:menubarclose);
         throw(:close)
       }
-      item = RubyCurses::CheckBoxMenuItem.new "Reverse"
+      item = RubyCurses::PCheckBoxMenuItem.new "Reverse"
       #filemenu.create_window
 #     item.onvalue="On"
 #     item.offvalue="Off"
@@ -56,31 +56,31 @@ if $0 == __FILE__
 
       filemenu.add(item)
       #@mb.add(filemenu)
-      editmenu = RubyCurses::Menu.new "Edit"
-      item = RubyCurses::MenuItem.new "Cut"
+      editmenu = RubyCurses::PMenu.new "Edit"
+      item = RubyCurses::PMenuItem.new "Cut"
       editmenu.add(item)
       item.accelerator = "Ctrl-X"
-      item=RubyCurses::MenuItem.new "Copy"
+      item=RubyCurses::PMenuItem.new "Copy"
       editmenu.add(item)
       item.accelerator = "Ctrl-C"
-      item=RubyCurses::MenuItem.new "Paste"
+      item=RubyCurses::PMenuItem.new "Paste"
       editmenu.add(item)
       item.accelerator = "Ctrl-V"
       #@mb.add(editmenu)
       #@mb.add(
-      menu=RubyCurses::Menu.new("Others")
+      menu=RubyCurses::PMenu.new("Others")
       filemenu.add(menu)
-      #item=RubyCurses::MenuItem.new "Save","S"
-      item = RubyCurses::MenuItem.new "Config"
+      #item=RubyCurses::PMenuItem.new "Save","S"
+      item = RubyCurses::PMenuItem.new "Config"
       menu.add(item)
-      item = RubyCurses::MenuItem.new "Tables"
+      item = RubyCurses::PMenuItem.new "Tables"
       menu.add(item)
-      savemenu = RubyCurses::Menu.new "EditM"
-      item = RubyCurses::MenuItem.new "CutM"
+      savemenu = RubyCurses::PMenu.new "EditM"
+      item = RubyCurses::PMenuItem.new "CutM"
       savemenu.add(item)
-      item = RubyCurses::MenuItem.new "DeleteM"
+      item = RubyCurses::PMenuItem.new "DeleteM"
       savemenu.add(item)
-      item = RubyCurses::MenuItem.new "PasteM"
+      item = RubyCurses::PMenuItem.new "PasteM"
       savemenu.add(item)
       menu.add(savemenu)
       # 2008-12-20 13:06 no longer hardcoding toggle key of menu_bar.

data/examples/testmulticomp.rb

@@ -1,6 +1,6 @@
 #$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
 require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 require 'rbcurse'
 require 'rbcurse/rmulticontainer'

data/examples/testree.rb

@@ -45,14 +45,14 @@ class Tester
     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
+    #when 4
+    else
       Tree.new @form, :row =>2, :col=>2, :height => 20, :width => 30 do
         root "root" do
           branch "hello" do
@@ -88,7 +88,7 @@ class Tester
     k_button.command { |form| @vim.decrease_weight }
 
     #
-    @help = "F1 to quit. #{$0} "
+    @help = "F1 to quit. Pass command-line argument 1,2,3,4  #{$0} "
     RubyCurses::Label.new @form, {'text' => @help, "row" => 1, "col" => 2, "color" => "yellow"}
     @form.repaint
     @window.wrefresh

data/examples/testtodo.rb

@@ -1,6 +1,6 @@
 #$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
 require 'rubygems'
-require 'ncurses'
+#require 'ncurses' # FFI
 require 'logger'
 #require 'ver/keyboard'
 require 'rbcurse'
@@ -13,6 +13,9 @@ require 'rbcurse/keylabelprinter'
 require 'rbcurse/applicationheader'
 require 'rbcurse/action'
 
+include RubyCurses
+include RubyCurses::Utils # this was resulting in get_color crashing
+# in rpopupmenu when called from CL, when it was inside _FILE_ block.
 # TODO move the csv to a database so you can update. this sucketh.
 #
 module TestTodo
@@ -155,75 +158,75 @@ module TestTodo
     def make_popup table
       require 'rbcurse/rpopupmenu'
       tablemenu = RubyCurses::PopupMenu.new "Table"
-      #tablemenu.add(item = RubyCurses::MenuItem.new("Open",'O'))
-      tablemenu.add(item = RubyCurses::MenuItem.new("&Open"))
+      #tablemenu.add(item = RubyCurses::PMenuItem.new("Open",'O'))
+      tablemenu.add(item = RubyCurses::PMenuItem.new("&Open"))
 
       tablemenu.insert_separator 1
-      #tablemenu.add(RubyCurses::MenuItem.new "New",'N')
+      #tablemenu.add(RubyCurses::PMenuItem.new "New",'N')
       tablemenu.add(@new_act)
-      tablemenu.add(item = RubyCurses::MenuItem.new("&Save"))
+      tablemenu.add(item = RubyCurses::PMenuItem.new("&Save"))
       item.command() { @save_cmd.call }
 
-      item=RubyCurses::MenuItem.new "Select"
+      item=RubyCurses::PMenuItem.new "Select"
       item.accelerator = "Ctrl-X"
       item.command() { table.toggle_row_selection() }
       #item.enabled = false
       tablemenu.add(item)
 
-      item=RubyCurses::MenuItem.new "Clr Selection"
+      item=RubyCurses::PMenuItem.new "Clr Selection"
       item.accelerator = "Alt-e"
       item.command() { table.clear_selection() }
       item.enabled = table.selected_row_count > 0 ? true : false
       tablemenu.add(item)
 
-      item=RubyCurses::MenuItem.new "Delete"
+      item=RubyCurses::PMenuItem.new "Delete"
       item.accelerator = "Alt-D"
       item.command() { @del_cmd.call }
       tablemenu.add(item)
 
-      gotomenu = RubyCurses::Menu.new "&Goto"
+      gotomenu = RubyCurses::PMenu.new "&Goto"
 
-      item = RubyCurses::MenuItem.new "Top"
+      item = RubyCurses::PMenuItem.new "Top"
       item.accelerator = "Alt-0"
       item.command() { table.goto_top }
       gotomenu.add(item)
 
-      item = RubyCurses::MenuItem.new "Bottom"
+      item = RubyCurses::PMenuItem.new "Bottom"
       item.accelerator = "Alt-9"
       item.command() { table.goto_bottom }
       gotomenu.add(item)
 
-      item = RubyCurses::MenuItem.new "Next Page"
+      item = RubyCurses::PMenuItem.new "Next Page"
       item.accelerator = "Ctrl-n"
       item.command() { table.scroll_forward }
       gotomenu.add(item)
 
-      item = RubyCurses::MenuItem.new "Prev Page"
+      item = RubyCurses::PMenuItem.new "Prev Page"
       item.accelerator = "Ctrl-p"
       item.command() { table.scroll_backward }
       gotomenu.add(item)
 
       tablemenu.add(gotomenu)
 
-      searchmenu = RubyCurses::Menu.new "&Search"
+      searchmenu = RubyCurses::PMenu.new "&Search"
 
-      item = RubyCurses::MenuItem.new "Find forward"
+      item = RubyCurses::PMenuItem.new "Find forward"
       item.accelerator = "Alt-f"
       item.command() { table.ask_search_forward }
       searchmenu.add(item)
 
-      item = RubyCurses::MenuItem.new "Find backward"
+      item = RubyCurses::PMenuItem.new "Find backward"
       item.accelerator = "Alt-F"
       item.command() { table.ask_search_backward }
       searchmenu.add(item)
 
-      item = RubyCurses::MenuItem.new "Find Next"
+      item = RubyCurses::PMenuItem.new "Find Next"
       item.accelerator = "Alt-g"
       item.enabled = false if table.table_model.last_regex.nil?
       item.command() { table.find_next }
       searchmenu.add(item)
 
-      item = RubyCurses::MenuItem.new "Find Prev"
+      item = RubyCurses::PMenuItem.new "Find Prev"
       item.accelerator = "Alt-G"
       item.enabled = false if table.table_model.last_regex.nil?
       item.command() { table.find_prev }
@@ -506,7 +509,7 @@ module TestTodo
       begin
         while((ch = @window.getchar()) != ?\C-q.getbyte(0) )
           colcount = tcm.column_count-1
-          s = keycode_tos ch
+          #s = keycode_tos ch
           #status_row.text = "Pressed #{ch} , #{s}"
           @form.handle_key(ch)
 
@@ -559,8 +562,6 @@ module TestTodo
     end
   end
   if $0 == __FILE__
-    include RubyCurses
-    include RubyCurses::Utils
 
     begin
       # Initialize curses