canis 0.0.4

data/lib/canis/core/include/vieditable.rb

@@ -0,0 +1,175 @@
+#**************************************************************
+# Author: jkepler (ABCD)
+# Date: 2010-03-11 22:18 
+# Provides the caller ability to do some edit operations
+# on list widgets using either keys (vim largely)
+# or a menu. made originally for textview and multitextview
+#
+#**************************************************************
+
+
+require 'canis/core/include/listeditable'
+module Canis
+  module ViEditable
+    include ListEditable
+
+    def vieditable_init
+      $log.debug " inside vieditable_init "
+      @editable = true
+      bind_key( ?C, :edit_line)
+      #bind_key( ?o, :insert_line)
+      #bind_key( ?O) { insert_line(@current_index-1) } 
+      bind_key( ?o) { insert_line(@current_index+1) } 
+      bind_key( ?O) { insert_line(@current_index) } 
+      bind_key( ?D, :delete_eol)
+      bind_key( [?d, ?$], :delete_eol)
+      bind_key( [?d, ?d] , :delete_line ) 
+      bind_key( [?d, ?w], :delete_word )
+      bind_key( [?d, ?t], :delete_till )
+      bind_key( [?d, ?f], :delete_forward )
+      bind_key( ?\C-_ ) { @undo_handler.undo if @undo_handler }
+      bind_key( ?u ) { @undo_handler.undo if @undo_handler }
+      bind_key( ?\C-r ) { @undo_handler.redo if @undo_handler }
+      bind_key( ?x, :delete_curr_char )
+      bind_key( ?X, :delete_prev_char )
+      bind_key( [?y, ?y] , :kill_ring_save ) 
+      bind_key( ?p, :yank ) # paste after this line
+      bind_key( ?P ) { yank(@current_index - 1) } # should be before this line
+      bind_key(?w, :forward_word)
+      bind_key(?f, :forward_char)
+      bind_key(?\M-y, :yank_pop)
+      bind_key(?\M-w, :kill_ring_save)
+      @_events.push :CHANGE # thru vieditable
+
+    end
+    ##
+    # Separate mappings for listboxes.
+    # Some methods don;'t make sense for listboxes and are crashing
+    # since not present for them. f was being overwritten, too.
+    # Sorry for duplication, need to clean this somehow.
+    def vieditable_init_listbox
+      $log.debug " inside vieditable_init_listbox "
+      @editable = true
+      bind_key( ?C, :edit_line)
+      bind_key( ?o) { insert_line(@current_index+1) } 
+      bind_key( ?O) { insert_line(@current_index) } 
+      bind_key( [?d, ?d] , :delete_line ) 
+      bind_key( ?\C-_ ) { @undo_handler.undo if @undo_handler }
+      bind_key( ?u ) { @undo_handler.undo if @undo_handler }
+      bind_key( ?\C-r ) { @undo_handler.redo if @undo_handler }
+      bind_key( [?y, ?y] , :kill_ring_save ) 
+      bind_key( ?p, :yank ) # paste after this line
+      #bind_key( ?P ) { yank(@current_index - 1) } # should be before this line
+      # seems -1 was pasting 2 lines before
+      bind_key( ?P ) { yank(@current_index - 0) } # should be before this line
+      bind_key(?w, :forward_word)
+      bind_key(?\M-y, :yank_pop)
+      bind_key(?\C-y, :yank)
+      bind_key(?\M-w, :kill_ring_save)
+      @_events.push :CHANGE # thru vieditable
+      #bind_key( ?D, :delete_eol)
+      #bind_key( [?d, ?$], :delete_eol)
+      #bind_key(?f, :forward_char)
+      #bind_key( ?x, :delete_curr_char )
+      #bind_key( ?X, :delete_prev_char )
+      #bind_key( [?d, ?w], :delete_word )
+      #bind_key( [?d, ?t], :delete_till )
+      #bind_key( [?d, ?f], :delete_forward )
+
+    end
+
+    # currently only adding delete_line and some yank pop functions
+    # These will all give wrong results in table due to _header_offset
+    def vieditable_init_tabular
+      $log.debug " inside vieditable_init tabular"
+      @editable = true
+      #bind_key( ?C, :edit_line)
+      #bind_key( ?o, :insert_line)
+      #bind_key( ?O) { insert_line(@current_index-1) } 
+      #bind_key( ?o) { insert_line(@current_index+1) } 
+      #bind_key( ?O) { insert_line(@current_index) } 
+      bind_key( [?d, ?d] , :delete_line ) 
+      #bind_key( ?\C-_ ) { @undo_handler.undo if @undo_handler }
+      #bind_key( ?u ) { @undo_handler.undo if @undo_handler }
+      #bind_key( ?\C-r ) { @undo_handler.redo if @undo_handler }
+      bind_key( [?y, ?y] , :kill_ring_save ) 
+      bind_key( ?p, :yank ) # paste after this line
+      bind_key( ?P ) { yank(@current_index - 1) } # should be before this line
+      bind_key(?\M-y, :yank_pop)
+      bind_key(?\M-w, :kill_ring_save)
+      @_events.push :CHANGE # thru vieditable
+    end
+
+    ##
+    # edit current or given line
+    def edit_line lineno=@current_index
+      line = self[lineno]
+      prompt = "Edit: "
+      maxlen = 80
+      config={}; 
+      oldline = line.dup
+      config[:default] = line
+      ret, str = rb_getstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
+      $log.debug " rb_getstr returned #{ret} , #{str} "
+      return if ret != 0
+      # we possibly cou;d have done []= but maybe in textpad or something that would replace a row pointer ??
+      self[lineno].replace(str)
+      fire_handler :CHANGE, InputDataEvent.new(0,oldline.length, self, :DELETE_LINE, lineno, oldline)     #  2008-12-24 18:34 
+      fire_handler :CHANGE, InputDataEvent.new(0,str.length, self, :INSERT_LINE, lineno, str)
+      fire_row_changed lineno
+    end
+    ##
+    # insert a line 
+    # FIXME needs to fire handler 2010-05-23 11:40 
+    def insert_line lineno=@current_index
+      prompt = "Insert: "
+      maxlen = 80
+      #config={}; 
+      #config[:default] = line
+      #ret, str = rb_getstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
+      ret, str = input_string prompt
+      #ret, str = rb_getstr(@form.window, @row+@height-1, @col+1, prompt, maxlen, config)
+      $log.debug " rb_getstr returned #{ret} , #{str} "
+      return if ret != 0
+
+      # pad based expect @content not list
+      # remove list after a while FIXME
+      @list ||= @content
+      @list.insert lineno, str
+      ## added handler on 2010-05-23 11:46 - undo works - tested in testlistbox.rb
+      fire_handler :CHANGE, InputDataEvent.new(0,str.length, self, :INSERT_LINE, lineno, str)
+      fire_dimension_changed
+    end
+    ##
+    # common method to edit given string
+    # @param [String] string to edit/modify
+    # @param [String] prompt to display before string
+    # @param [int] max length of input
+    # @return [0, -1] return value 0 if okay, -1 if error
+    #
+    def edit_string string, prompt="Edit: ", maxlen=80
+      config={}; 
+      config[:default] = string
+      ret, str = rb_getstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
+      #return str if ret == 0
+      #return ""
+    end
+    ##
+    # common method to input a blank string
+    # @param [String] prompt to display before string
+    # @param [int] max length of input
+    # @return [0, -1] return value 0 if okay, -1 if error
+    def input_string prompt="Insert: ", maxlen=80
+      #ret, str = rb_getstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
+      ret, str = rb_getstr(@form.window, $error_message_row, $error_message_col,  prompt, maxlen, config)
+      #return str if ret == 0
+      #return ""
+    end
+    def edit_chars
+
+    end
+    def edit_word
+
+    end
+  end # module
+end # module

data/lib/canis/core/include/widgetmenu.rb

@@ -0,0 +1,66 @@
+# ----------------------------------------------------------------------------- #
+#         File: widgetmenu.rb
+#  Description: a module that displays a menu for customization of a field
+#               e.g.,
+#               field.extend(WidgetMenu)
+#
+#       Author: jkepler http://github.com/mare-imbrium/canis/
+#         Date: 2011-12-2x
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: 2011-12-26 - 20:25
+# ----------------------------------------------------------------------------- #
+#
+# Provide a system for us to define a menu for customizing a widget, such that
+# applicatin can also add more menuitems
+module Canis
+  extend self
+  module WidgetMenu
+    include Io # added 2011-12-26 
+    # add a menu item which can any one of 
+    # @param key, label, desc, action | symbol
+    #        key, symbol
+    #        Action
+    #        Action[] (maybe)
+    def self.extended(obj)
+      # don't want this executed each time
+      @objects ||= []
+      return if @objects.include? obj
+      @objects << obj
+
+      obj.instance_exec {
+        @_menuitems ||= []
+        # callign this method means that no other programs can use those actions else
+        # that method will be called more than once, so it must either be called in the constructor
+        # or else have a check that it is only called once.
+        obj.init_menu if obj.respond_to? :init_menu
+      }
+
+    end
+    def add_menu_item *val
+      #@_menuitems ||= []
+      @_menuitems << val
+    end
+    #
+    # insert an item at given position (index)
+    def insert_menu_item pos, *val
+      #@_menuitems ||= []
+      @_menuitems[pos] = val
+    end
+    def create_menuitem *args
+      PromptMenu.create_menuitem *args
+    end
+
+    # popup the hist 
+    # 
+    def _show_menu
+      return if @_menuitems.nil? || @_menuitems.empty?
+      list = @_menuitems
+      menu = PromptMenu.new self do |m|
+      list.each { |e| 
+        m.add *e
+      }
+      end
+      menu.display_new :title => 'Widget Menu (Press letter)'
+    end
+  end # mod History
+end # mod RubyC

data/lib/canis/core/system/colormap.rb

@@ -0,0 +1,165 @@
+require 'canis/core/system/ncurses'
+
+module Canis
+  module ColorMap
+    # 2010-09-20 12:22 changed colors from string to symbol
+    ## private
+    # returns a color constant for a human color string
+    def ColorMap.get_color_const colorstring
+      # added check for fixnum if we go beyond these constants 2011-11-28 
+      # e.g. to use full 256 colors
+      return colorstring if colorstring.is_a? Fixnum 
+      ret = FFI::NCurses.const_get "COLOR_#{colorstring.to_s.upcase}"
+    end
+    ## private
+    # creates a new color pair, puts in color map and returns color_pair
+    # number
+    def ColorMap.install_color fgc, bgc
+      #$log.debug " install_color found #{fgc} #{@bgc} "
+      @color_id += 1
+      fg = ColorMap.get_color_const fgc
+      bg = ColorMap.get_color_const bgc
+      FFI::NCurses.init_pair(@color_id, fg, bg);
+      $color_map[[fgc, bgc]] = @color_id
+      return @color_id
+    end
+    #
+    # returns the colors that make up the given pair
+    # you may want to find what makes up $bottomcolor and set color and bgcolor with it.
+    # @param [Fixnum] color_pair
+    # @return [Symbol, Symbol]  foreground and backgrounf color
+    # @example 
+    #     color, bgcolor = get_colors_for_pair $datacolor
+    #
+    def ColorMap.get_colors_for_pair pair
+      $color_map.invert[pair]
+    end
+    ## public
+    # returns a color_pair for a given foreground and background color
+    def ColorMap.get_color fgc, bgc=$def_bg_color
+      fgc = fgc.to_sym if fgc.is_a? String
+      bgc = bgc.to_sym if bgc.is_a? String
+      if $color_map.include? [fgc, bgc]
+        #$log.debug " get_color found #{fgc} #{@bgc} "
+        return $color_map[[fgc, bgc]]
+      else
+        #$log.debug " get_color NOT found #{fgc} #{@bgc} "
+        return ColorMap.install_color fgc, bgc
+      end
+    end
+    def ColorMap.colors
+      @@colors
+    end
+    # returns true if color is a valid one, else false
+    # @param [Symbol] color such as :black :cyan :yellow
+    # @return [Boolean] true if valid, else false
+    def ColorMap.is_color? color
+      return true if color.is_a? Fixnum # so we can use 256 colors
+      @@colors.include? color.to_sym
+    end
+
+    ## public
+    # setup color map at start of application
+    def ColorMap.setup
+      @color_id = 0
+      $color_map = {}
+      FFI::NCurses.start_color();
+      # Initialize few color pairs 
+      $def_fg_color = :white   # pls set these 2 for your application
+      $def_bg_color = :black
+      #COLORS = [COLOR_BLACK, COLOR_RED, COLOR_GREEN, COLOR_YELLOW, COLOR_BLUE, 
+      #     COLOR_MAGENTA, COLOR_CYAN, COLOR_WHITE]
+      @@colors = [:black, :red, :green, :yellow, :blue, :magenta, :cyan, :white]
+
+      # make foreground colors
+      bg = ColorMap.get_color_const $def_bg_color
+      @@colors[0...@@colors.size].each_with_index do |color, i|
+        next if color == $def_bg_color # NOTE hope this doesn't do something if you change def_bg
+        ColorMap.install_color color, $def_bg_color
+      end
+      $reversecolor = ColorMap.get_color $def_bg_color, $def_fg_color
+      $popupcolor = ColorMap.get_color :cyan, $def_fg_color
+
+      $errorcolor = ColorMap.get_color :white, :red
+      #$promptcolor = $selectedcolor = ColorMap.get_color(:yellow, :red)
+      $promptcolor = ColorMap.get_color(:yellow, :red)
+      $normalcolor = $datacolor = ColorMap.get_color(:white, :black)
+      $bottomcolor = $topcolor = ColorMap.get_color(:white, :blue)
+      $selectedcolor = $datacolor # since we now use reverse attr in list
+
+      $row_selected_attr = Ncurses::A_REVERSE
+      $row_focussed_attr = Ncurses::A_BOLD
+      $row_attr          = Ncurses::A_NORMAL
+
+      #    $log.debug " colormap SETUP: #{$datacolor} #{$reversecolor} "
+    end
+
+  end # modul
+  if $0 == __FILE__
+    require 'logger'
+    require 'ver/window'
+    #include Ncurses # FFI 2011-09-8 
+    include ColorMap
+    # Initialize curses
+    begin
+      $log = Logger.new("canis.log")
+      Canis::start_ncurses
+      @window = Canis::Window.root_window
+      $log.level = Logger::DEBUG
+      ColorMap.setup
+
+      # Create the window to be associated with the form 
+      # Un post form and free the memory
+
+      catch(:close) do
+        #      $log.debug "START  ---------"
+        # need to pass a form, not window.
+        r = 1; c = 2; i=0
+        attr = Ncurses::A_NORMAL
+        @window.printstring  20, c, "press 0-9 to change BG color,  F1/q to quit. r-everse, n-ormal,b-old ", ColorMap.get_color('white')
+
+
+
+        while((ch = @window.getchar()) != FFI::NCurses::KEY_F1 )
+          next if ch == -1
+          break if ch == ?q.getbyte(0)
+          case ch
+          when ?r.getbyte(0)
+            attr |= Ncurses::A_REVERSE
+          when ?b.getbyte(0)
+            attr |= Ncurses::A_BOLD
+          when ?n.getbyte(0)
+            attr = Ncurses::A_NORMAL
+          when ?u.getbyte(0)
+            attr |= Ncurses::A_UNDERLINE
+          else
+            i = ch.chr.to_i
+            i = 1 if i > ColorMap::colors.length-1
+          end
+          bg = ColorMap::colors[i]
+          @@colors = %w[black red green yellow blue magenta cyan white]
+          @window.printstring  r, c, "%-40s" % "red #{bg}      ", ColorMap.get_color('red',bg) , attr
+          @window.printstring  2, c, "%-40s" % "blue #{bg}      ", ColorMap.get_color('blue',bg) , attr
+          @window.printstring  3, c, "%-40s" % "white #{bg}      ", ColorMap.get_color('white',bg) , attr
+          @window.printstring  4, c, "%-40s" % "green #{bg}      ", ColorMap.get_color('green',bg) , attr
+          @window.printstring  5, c, "%-40s" % "cyan #{bg}      ", ColorMap.get_color('cyan',bg) , attr
+          @window.printstring  6, c, "%-40s" % "magenta #{bg}      ", ColorMap.get_color('magenta',bg) , attr
+          @window.printstring  7, c, "black #{bg}      ", ColorMap.get_color('black',bg) , attr
+          @window.wrefresh
+        end
+        #     Canis::Keyboard.focus = tp
+      end
+    rescue => ex
+    ensure
+      #  @panel = @window.panel if @window
+      #  Ncurses::Panel.del_panel(@panel) if !@panel.nil?   
+      #  @window.delwin if !@window.nil?
+      @window.destroy unless @window.nil?
+      Canis::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
+end

data/lib/canis/core/system/keydefs.rb

@@ -0,0 +1,32 @@
+# ----------------------------------------------------------------------------- #
+#         File: keydefs.rb
+#  Description: Some common keys used in app. Earlier part of rwidget.rb
+#       Author: jkepler http://github.com/mare-imbrium/canis/
+#         Date: 08.11.11 - 14:57
+#      License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
+#  Last update: 2014-04-20 17:28
+# ----------------------------------------------------------------------------- #
+#
+
+# some common definition that we use throughout app. Do not add more, only what is common.
+# I should not have added Sh-F9 and C-left since they are rare, but only to show they exist.
+#
+# THESE are now obsolete since we are moving to string based return values
+# else they should be updated.
+KEY_TAB    = 9
+KEY_F1  = FFI::NCurses::KEY_F1
+KEY_F10  = FFI::NCurses::KEY_F10
+KEY_ENTER  = 13 # FFI::NCurses::KEY_ENTER gives 343
+KEY_RETURN = 10  # FFI gives 10 too
+KEY_BTAB  = 353 # nc gives same
+KEY_DELETE = 330
+KEY_BACKSPACE = KEY_BSPACE = 127 # Nc gives 263 for BACKSPACE
+KEY_CC     = 3   # C-c
+KEY_LEFT  = FFI::NCurses::KEY_LEFT
+KEY_RIGHT  = FFI::NCurses::KEY_RIGHT
+KEY_UP  = FFI::NCurses::KEY_UP
+KEY_DOWN  = FFI::NCurses::KEY_DOWN
+C_LEFT = 18168
+C_RIGHT = 18167
+S_F9 = 17949126
+META_KEY = 128

data/lib/canis/core/system/ncurses.rb

@@ -0,0 +1,237 @@
+require 'ffi-ncurses'
+#include FFI::NCurses # this pollutes many objects and invalidates method_missing
+module Canis
+  module_function
+
+  # Setup ncurses, nicely documented by the curses manpages
+  def start_ncurses
+    return if $ncurses_started
+    $ncurses_started = true
+    # in case we want a blocking getch, you may want to first
+    # set wtimeout to -1, and then reset it to this value.
+    # Please first check that we are using this.
+    $ncurses_timeout = 500 # used by windows for timeout of wgetch
+
+    # The initscr code determines the terminal type and initializes all curses
+    # data structures.
+    # initscr also causes the first call to refresh to clear the screen.
+    # If errors occur, initscr writes an appropriate error message to standard
+    # error and exits; otherwise, a pointer is returned to stdscr.
+    stdscr = Ncurses.initscr  ## FFI
+
+#    Color.start if Ncurses.has_colors?
+      Ncurses.start_color();
+      ColorMap.setup # added by RK 2008-11-30 00:48 
+    # The keypad option enables the keypad of the user's terminal.
+    # If enabled (bf is TRUE), the user can press a function key (such as an
+    # arrow key) and wgetch returns a single value representing the function
+    # key, as in KEY_LEFT.
+    # If disabled (bf is FALSE), curses does not treat function keys specially
+    # and the program has to interpret the escape sequences itself.
+    # If the keypad in the terminal can be turned on (made to transmit) and off
+    # (made to work locally), turning on this option causes the terminal keypad
+    # to be turned on when wgetch is called.
+    # The default value for keypad is false.
+    Ncurses.keypad(stdscr.pointer, bf = true) # FFIWINDOW
+    #Ncurses.keypad(stdscr, bf = true)
+      #Ncurses.stdscr.keypad(true)     # turn on keypad mode FFI
+    #Ncurses.keypad(stdscr, bf = 1)
+
+    # The nl and nonl routines control whether the underlying display device
+    # translates the return key into newline on input, and whether it
+    # translates newline into return and line-feed on output (in either case,
+    # the call addch('\n') does the equivalent of return and line feed on the
+    # virtual screen).
+    # Initially, these translations do occur.
+    # If you disable them using nonl, curses will be able to make better use of
+    # the line-feed capability, resulting in faster cursor motion.
+    # Also, curses will then be able to detect the return key.
+    Ncurses.nonl
+
+    # The raw and noraw routines place the terminal into or out of raw mode.
+    # Raw mode is similar to cbreak mode, in that characters typed are
+    # immediately passed through to the user program.
+    # The differences are that in raw mode, the interrupt, quit, suspend, and
+    # flow control characters are all passed through uninterpreted, instead of
+    # generating a signal.
+    # The behavior of the BREAK key depends on other bits in the tty driver
+    # that are not set by curses.
+    Ncurses.raw
+
+    # Normally, the tty driver buffers typed characters until a newline or
+    # carriage return is typed.
+    # The cbreak routine disables line buffering and
+    # erase/kill character-processing (interrupt and flow control characters
+    # are unaffected), making characters typed by the user immediately
+    # available to the program.
+    #Ncurses.cbreak
+    # I have removed cbreak and halfdelay since they were causing C-c
+    # to crash if i pressed it in succession
+
+    # The echo and noecho routines control whether characters typed by the user
+    # are echoed by getch as they are typed.
+    # Echoing by the tty driver is always disabled, but initially getch is in
+    # echo mode, so characters typed are echoed.
+    Ncurses.noecho
+
+    # The curs_set routine sets the cursor state is set to invisible, normal,
+    # or very visible for visibility equal to 0, 1, or 2 respectively.
+    # If the terminal supports the visibility requested, the previous cursor
+    # state is returned; otherwise, ERR is returned.
+    Ncurses.curs_set(1)
+
+    # The halfdelay routine is used for half-delay mode, which is similar to
+    # cbreak mode in that characters typed by the user are immediately
+    # available to the  program.
+    # However, after blocking for tenths tenths of seconds, ERR is returned if
+    # nothing has been typed.
+    # The value of tenths must be a number between 1 and 255.
+    # Use nocbreak to leave half-delay mode.
+    #Ncurses::halfdelay(tenths = 10)
+    # See above why switched off, halfdelay puts into cbreak mode, in which C-c pressed in quick
+    # succession crashes the program.
+
+    # The nodelay option causes getch to be a non-blocking call. If no input is
+    # ready, getch returns ERR. If disabled (bf is FALSE), getch waits until a
+    # key is pressed.
+    # I am using the next line for the window when creating, this does not
+    # have any impact on window.
+    # For this to have any effect your getch should be Ncurses.getch and not
+    # wgetch(@window), For that do this with window.
+    # I am disableing this 2011-12-20 since it does not work with combinations
+    # such as gg. Any routine that does a getch will just immediatelt return an ERR.
+    #Ncurses::nodelay(stdscr.pointer, bf = true)
+
+
+    # added these 2 so we can do resizing based on original and current size when terminal resized
+    #  2012-01-8 
+    $orig_cols = FFI::NCurses.COLS
+    $orig_rows = FFI::NCurses.LINES
+    # cache of keycode (int) and string result
+    $key_cache ||= {}
+  end
+
+  # this should happen only in outermost program that started ncurses
+  # if a called program does this, the calling program can have a display freeze
+  def stop_ncurses
+    Ncurses.echo
+    Ncurses.nocbreak
+    Ncurses.nl
+    Ncurses.endwin
+    $ncurses_started = false
+    #puts "curses over"
+  ensure
+    return unless error = @last_error
+
+    $stderr.puts ''
+    $stderr.puts @last_error_message if @last_error_message
+    $stderr.puts @last_error, *@last_error.backtrace
+  end
+require 'canis/core/system/colormap'
+include Canis::ColorMap
+end
+module Ncurses
+  extend self
+  FALSE = 0
+  TRUE = 1
+  module NCX
+    def COLS
+      FFI::NCurses.getmaxx(FFI::NCurses.stdscr)
+    end
+    def LINES
+#      #FFI::NCurses.getmaxy(FFI::NCurses.stdscr)
+      FFI::NCurses.LINES
+    end
+#    # supposed to be picked up at runtime
+    def COLORS
+      FFI::NCurses.COLORS
+    end
+
+    # jsut trying this so i can do Ncurses.stdscr.getmax
+    def _stdscr
+      FFI::NCurses.stdscr
+    end
+    # this allows me to refer to them as Ncurses::A_REVERSE as is the case everywhere
+    A_REVERSE = FFI::NCurses::A_REVERSE
+    A_STANDOUT = FFI::NCurses::A_STANDOUT
+    A_BOLD = FFI::NCurses::A_BOLD
+    A_UNDERLINE = FFI::NCurses::A_UNDERLINE
+    A_BLINK = FFI::NCurses::A_BLINK
+    A_NORMAL = FFI::NCurses::A_NORMAL
+    KEY_F1 = FFI::NCurses::KEY_F1
+  end
+  include NCX
+  extend NCX
+  # i think we can knock this off
+  def method_missing meth, *args
+    if (FFI::NCurses.respond_to?(meth))
+      FFI::NCurses.send meth, *args
+    end
+  end
+  # FFINC.constants.each { |e| Ncurses.const_set(e, FFINC.const_get(e) )  }
+  def const_missing name
+    val = FFI::NCurses.const_get(name)
+    const_set(name, val)
+    return val
+  end
+
+  # This is a window pointer wrapper, to be used for stdscr and others.
+  # Ideally ffi-ncurses should do this, if it returns a pointer, I'll do this.
+  class FFIWINDOW
+    attr_accessor :pointer
+    def initialize(*args, &block)
+      if block_given?
+        @pointer = args.first
+      else
+        @pointer = FFI::NCurses.newwin(*args)
+      end
+    end
+    def method_missing(name, *args)
+      name = name.to_s
+      if (name[0,2] == "mv")
+        test_name = name.dup
+        test_name[2,0] = "w" # insert "w" after"mv"
+        if (FFI::NCurses.respond_to?(test_name))
+          return FFI::NCurses.send(test_name, @pointer, *args)
+        end
+      end
+      test_name = "w" + name
+      if (FFI::NCurses.respond_to?(test_name))
+        return FFI::NCurses.send(test_name, @pointer, *args)
+      end
+      FFI::NCurses.send(name, @pointer, *args)
+    end
+    def respond_to?(name)
+      name = name.to_s
+      if (name[0,2] == "mv" && FFI::NCurses.respond_to?("mvw" + name[2..-1]))
+        return true
+      end
+      FFI::NCurses.respond_to?("w" + name) || FFI::NCurses.respond_to?(name)
+    end
+    def del
+      FFI::NCurses.delwin(@pointer)
+    end
+    alias delete del
+  end
+  # if ffi-ncurses returns a pointer wrap it.
+  # or we can check for whether it responds_to? refresh and getch
+  def self.initscr
+    #@stdscr = Ncurses::FFIWINDOW.new(FFI::NCurses.initscr) { }
+    stdscr = FFI::NCurses.initscr
+    if stdscr.is_a? FFI::Pointer
+      @stdscr = Ncurses::FFIWINDOW.new(stdscr) { }
+    else
+      @stdscr = stdscr
+    end
+  end
+  def self.stdscr
+    @stdscr
+  end
+  #  commented off on 2011-09-15 FFIWINDOW results in errors
+#  class << self
+#    def method_missing(method, *args, &block)
+#      FFI::NCurses.send(method, *args, &block)
+#    end
+#  end
+#  ---
+end