ncumbra 0.1.0

data/lib/umbra/messagebox.rb

@@ -0,0 +1,348 @@
+# ----------------------------------------------------------------------------- #
+#         File: messagebox.rb
+#  Description: a small window with a list or message or fields and buttons which pops up.
+#       Author: j kepler  http://github.com/mare-imbrium/canis/
+#         Date: 2018-04-13 - 23:10
+#      License: MIT
+#  Last update: 2018-04-21 14:44
+# ----------------------------------------------------------------------------- #
+#  YFF Copyright (C) 2012-2018 j kepler
+require 'umbra/window'
+require 'umbra/form'
+require 'umbra/widget'
+require 'umbra/button'
+require 'umbra/field'
+require 'umbra/label'
+require 'umbra/textbox'
+
+module Umbra
+  class MessageBox
+
+    attr_reader :form
+    attr_reader :window
+    attr_accessor :title
+    attr_accessor :buttons     # button labels. e.g. [Ok, Cancel]
+    #dsl_accessor :default_button
+    #
+    # a message to be printed, usually this will be the only thing supplied
+    # with an OK button. This should be a short string, a label will be used
+    # and input_config passed to it
+
+    #dsl_accessor :message
+    # you can also set button_orientation : :right, :left, :center
+    #
+    def initialize config={}, &block
+
+      h = config.fetch(:height, nil)
+      w = config.fetch(:width, nil)
+      t = config.fetch(:row, nil)
+      l = config.fetch(:col, nil)
+      if h && w && t && l
+        #@window = Window.new :height => h, :width => w, :top => t, :left => l
+        @window = Window.new  h, w, t, l
+        # else window will be created in repaint, and form will pass it to widgets before their first
+        # repaint
+      end
+      @form = Form.new @window
+      @buttons = ["Ok", "Cancel"]
+
+      config.each_pair { |k,v| instance_variable_set("@#{k}",v) }
+      @config = config
+      @row = 0
+      @col = 0
+      @row_offset = 1
+      @col_offset = 2
+      
+      #@color ||= :black
+      #@bgcolor ||= :white
+      @color_pair  = CP_BLACK
+      # 2014-05-31 - 11:44 adding form color 
+      #   try not to set buttons color in this program, let button pick up user or form colors
+      #@form.color = @color
+      #@form.bgcolor = @bgcolor
+      #@form.color_pair = @color_pair
+      @maxrow = 3
+
+      instance_eval &block if block_given?
+      #yield_or_eval &block if block_given? TODO
+
+    end
+    def item widget
+      # # normalcolor gives a white on black stark title like links and elinks
+      # You can also do 'acolor' to give you a sober title that does not take attention away, like mc
+      # remove from existing form if set, problem with this is mnemonics -- rare situation.
+      #if widget.form
+        #f = widget.form
+        #f.remove_widget widget
+      #end
+      @maxrow ||= 3
+      #widget.set_form @form
+      @form.add_widget widget
+      widget.row ||= 0
+      widget.col ||= 0
+      if widget.row == 0
+        widget.row = [@maxrow+1, 3].max if widget.row == 0
+      else
+        widget.row += @row_offset 
+      end
+      if widget.col == 0
+        widget.col = 5
+      else
+        # i don't know button_offset as yet
+        widget.col += @col_offset 
+      end
+      # in most cases this override is okay, but what if user has set it
+      # The problem is that widget and field are doing a default setting so i don't know
+      # if user has set or widget has done a default setting. NOTE
+      # 2014-05-31 - 12:40 CANIS BUTTONCOLOR i have commented out since it should take from form
+      #   to see effect
+      if false
+        widget.color ||= @color    # we are overriding colors, how to avoid since widget sets it
+        widget.bgcolor  ||= @bgcolor
+        widget.attr = @attr if @attr # we are overriding what user has put. DARN !
+      end
+      @maxrow = widget.row if widget.row > @maxrow
+      @suggested_h = @height || @maxrow+6
+      @suggested_w ||= 0
+      ww = widget.width || 5  # some widgets do no set a default width, and could be null
+      _w = [ww + 5, 15].max
+      @suggested_w = widget.col + _w if widget.col > @suggested_w
+      if ww >= @suggested_w
+        @suggested_w = ww + widget.col + 10
+      end
+      $log.debug "  MESSAGEBOX add suggested_w #{@suggested_w} "
+      # if w's given col is > width then add to suggested_w or text.length
+    end
+    alias :add :item
+    # returns button index
+    # Call this after instantiating the window
+    def run
+      repaint
+      @form.pack # needs window
+      @form.repaint
+      @window.wrefresh
+      return handle_keys
+    end
+    def repaint
+      _create_window unless @window
+      #acolor = get_color $reverscolor, @color, @bgcolor 
+      acolor = 0 # ??? FIXME
+      $log.debug " MESSAGE BOX bg:#{@bgcolor} , co:#{@color} , colorpair:#{acolor}"
+      @window.wbkgd(FFI::NCurses.COLOR_PAIR(acolor) | REVERSE); 
+
+      @color_pair ||= CP_BLACK
+      bordercolor = @border_color || CP_BLACK
+      borderatt = @border_attrib || NORMAL
+      @window.wattron(FFI::NCurses.COLOR_PAIR(bordercolor) | (borderatt || FFI::NCurses::A_NORMAL))
+      print_border_mb @window, 1,2, @height, @width, nil, nil
+      @window.wattroff(FFI::NCurses.COLOR_PAIR(bordercolor) | (borderatt || FFI::NCurses::A_NORMAL))
+      @title ||= "+-+"
+      @title_color ||= CP_CYAN
+      @title_attr ||= REVERSE
+      title = " "+@title+" "
+      # normalcolor gives a white on black stark title like links and elinks
+      # You can also do 'acolor' to give you a sober title that does not take attention away, like mc
+      @window.printstring(@row=1,@col=(@width-title.length)/2,title, color=@title_color, @title_attr)
+      #print_message if @message
+      create_action_buttons(*@buttons) unless @action_buttons
+    end
+    def create_action_buttons *labels
+      @action_buttons = []
+      _row = @height-3
+      _col = (@width-(labels.count*8))/2
+      _col = 5 if _col < 1
+
+      labels.each_with_index do |l, ix|
+        b = Button.new text: l, row: _row, col: _col
+        _col += l.length+5
+        @action_buttons << b
+        @form.add_widget b
+        b.command do
+          @selected_index = ix
+          throw(:close, ix)
+        end
+      end
+    end
+    # CLEAN THIS UP TODO
+    # Pass a short message to be printed. 
+    # This creates a label for a short message, and a field for a long one.
+    # @yield field created
+    # @param [String] text to display
+    def message message # yield label or field being used for display for further customization
+      @suggested_h = @height || 10
+      message = message.gsub(/[\n\r\t]/,' ') rescue message
+      message_col = 5
+      $log.debug "  MESSAGE w: #{@width}, size: #{message.size} "
+      _pad = 5
+      @suggested_w = @width || [message.size + _pad + message_col , FFI::NCurses.COLS-2].min
+      r = 3
+      len = message.length
+      #@suggested_w = len + _pad + message_col if len < @suggested_w - _pad - message_col
+
+      display_length = @suggested_w-_pad
+      display_length -= message_col
+      message_height = 2
+      #clr = @color || :white
+      #bgclr = @bgcolor || :black
+
+      color_pair = CP_WHITE
+      # trying this out. sometimes very long labels get truncated, so i give a field in wchich user
+      # can use arrow key or C-a and C-e
+      if message.size > display_length
+        message_label = Field.new({:text => message, :name=>"message_label",
+          :row => r, :col => message_col, :width => display_length,  
+          :color_pair => color_pair, :editable => false})
+      else
+        message_label = Label.new({:text => message, :name=>"message_label",
+          :row => r, :col => message_col, :width => display_length,
+          :height => message_height, :color_pair => color_pair})
+      end
+      @form.add_widget message_label
+      @maxrow = 3
+      yield message_label if block_given?
+    end
+    alias :message= :message
+ 
+    # This is for larger messages, or messages where the size is not known.
+    # A textview object is created and yielded.
+    #
+    def text message
+      @suggested_w = @width || (FFI::NCurses.COLS * 0.80).floor
+      @suggested_h = @height || (FFI::NCurses.LINES * 0.80).floor
+
+      message_col = 3
+      r = 2
+      display_length = @suggested_w-4
+      display_length -= message_col
+      #clr = @color || :white
+      #bgclr = @bgcolor || :black
+      color_pair = CP_WHITE
+
+      if message.is_a? Array
+        l = longest_in_list message
+        if l > @suggested_w 
+          if l < FFI::NCurses.COLS
+            #@suggested_w = l
+            @suggested_w = FFI::NCurses.COLS-2 
+          else
+            @suggested_w = FFI::NCurses.COLS-2 
+          end
+          display_length = @suggested_w-6
+        end
+        # reduce width and height if you can based on array contents
+      else
+        message = wrap_text(message, display_length).split("\n")
+      end
+      # now that we have moved to textpad that +8 was causing black lines to remain after the text
+      message_height = message.size #+ 8
+      # reduce if possible if its not required.
+      #
+      r1 = (FFI::NCurses.LINES-@suggested_h)/2
+      r1 = r1.floor
+      w = @suggested_w
+      c1 = (FFI::NCurses.COLS-w)/2
+      c1 = c1.floor
+      @suggested_row = r1
+      @suggested_col = c1
+      brow = @button_row || @suggested_h-4
+      available_ht = brow - r + 1
+      message_height = [message_height, available_ht].min
+      # replaced 2014-04-14 - 23:51 
+      message_label = Textbox.new({:name=>"message_label", :list => message,
+        :row => r, :col => message_col, :width => display_length,
+        :height => message_height, :color_pair => color_pair})
+      #message_label.set_content message
+      @form.add_widget message_label
+      yield message_label if block_given?
+
+    end
+    alias :text= :text
+    # returns length of longest
+    def longest_in_list list  #:nodoc:
+      longest = list.inject(0) do |memo,word|
+        memo >= word.length ? memo : word.length
+      end    
+      longest
+    end    
+    def wrap_text(s, width=78)    # {{{
+      s.gsub(/(.{1,#{width}})(\s+|\Z)/, "\\1\n").split("\n")
+    end
+    def _create_window
+
+      $log.debug "  MESSAGEBOX _create_window h:#{@height} w:#{@width} r:#{@row} c:#{@col} "
+      $log.debug "  MESSAGEBOX _create_window h:#{@suggested_h} w:#{@suggested_w} "
+      @width ||= @suggested_w || 60
+      @height = @suggested_h || 10
+      $log.debug "  MESSAGEBOX _create_window h:#{@height} w:#{@width} r:#{@row} c:#{@col} "
+      if @suggested_row
+        @row = @suggested_row
+      else
+        @row = ((FFI::NCurses.LINES-@height)/2).floor
+      end
+      if @suggested_col
+        @col = @suggested_col
+      else
+        w = @width
+        @col = ((FFI::NCurses.COLS-w)/2).floor
+      end
+      #@window = Window.new :height => @height, :width => @width, :top => @row, :left => @col
+      $log.debug "  MESSAGEBOX _create_window h:#{@height} w:#{@width} r:#{@row} c:#{@col} "
+      @window = Window.new  @height,  @width,  @row,  @col
+      @graphic = @window
+      @form.window = @window
+      # in umbra, the widgets would not be having a window, if window was created after the widgets were added
+    end
+    def handle_keys
+      buttonindex = catch(:close) do 
+        while((ch = @window.getch()) != FFI::NCurses::KEY_F10 )
+          break if ch == ?\C-q.getbyte(0) || ch == 2727 # added double esc
+          begin
+            # trying out repaint of window also if repaint all asked for. 12 is C-l
+            if ch == 1000 or ch == 12
+              repaint
+            end
+            @form.handle_key(ch)
+            @window.wrefresh
+          rescue => err
+            $log.debug( err) if err
+            $log.debug(err.backtrace.join("\n")) if err
+            #textdialog ["Error in Messagebox: #{err} ", *err.backtrace], :title => "Exception" # TODO
+            @window.refresh # otherwise the window keeps showing (new FFI-ncurses issue)
+          ensure
+          end
+
+        end # while loop
+      end # close
+      $log.debug "MESSAGEBOX: CALLING PROGRAM BEING RETURNED: #{buttonindex} "
+      @window.destroy
+      # added 2014-05-01 - 18:10 hopefully to refresh root_window.
+      #Window.refresh_all
+      return buttonindex 
+    end
+    # this is identical to the border printed by dialogs.
+    # The border is printed not on the edge, but one row and column inside.
+    # This is purely cosmetic, otherwise windows.box should be used which prints a box 
+    # on the edge.
+    private def print_border_mb window, row, col, height, width, color, attr # {{{
+      win = window.pointer
+      #att = attr
+      len = width
+      len = FFI::NCurses.COLS if len == 0
+      space_char = " ".codepoints.first
+      (row-1).upto(row+height-1) do |r|
+        # this loop clears the screen, printing spaces does not work since ncurses does not do anything
+        FFI::NCurses.mvwhline(win, r, col, space_char, len)
+      end
+
+      FFI::NCurses.mvwaddch win, row, col, FFI::NCurses::ACS_ULCORNER
+      FFI::NCurses.mvwhline( win, row, col+1, FFI::NCurses::ACS_HLINE, width-6)
+      FFI::NCurses.mvwaddch win, row, col+width-5, FFI::NCurses::ACS_URCORNER
+      FFI::NCurses.mvwvline( win, row+1, col, FFI::NCurses::ACS_VLINE, height-4)
+
+      FFI::NCurses.mvwaddch win, row+height-3, col, FFI::NCurses::ACS_LLCORNER
+      FFI::NCurses.mvwhline(win, row+height-3, col+1, FFI::NCurses::ACS_HLINE, width-6)
+      FFI::NCurses.mvwaddch win, row+height-3, col+width-5, FFI::NCurses::ACS_LRCORNER
+      FFI::NCurses.mvwvline( win, row+1, col+width-5, FFI::NCurses::ACS_VLINE, height-4)
+    end # }}}
+  end # class
+end # module

data/lib/umbra/pad.rb

@@ -0,0 +1,340 @@
+=begin
+  * Name: PadReader.rb
+  * Description : This is an independent file viewer that uses a Pad and traps keys
+                  I am using only ffi-ncurses and not window.rb or any other support classes
+                  so this can be used anywhere else.
+  * Author:  jkepler
+  * Date:    2018-03-28 14:30
+  * License: MIT
+  * Last update:  2018-04-17 11:25
+
+  == CHANGES
+  == TODO 
+  - should have option to wrap text
+  - / search ?
+  NOTE:
+  in this the cursor does not move down, it starts to scroll straight away.
+  So we need another version for lists and textviews in which the cursor moves with up and down.
+  The cursor should be invisible in this.
+  == -----------------------
+=end
+require 'ffi-ncurses'
+
+class Pad
+
+  # You may pass height, width, row and col for creating a window otherwise a fullscreen window
+  # will be created. If you pass a window from caller then that window will be used.
+  # Some keys are trapped, jkhl space, pgup, pgdown, end, home, t b
+  # This is currently very minimal and was created to get me started to integrating
+  # pads into other classes such as textview.
+  def initialize config={}, &block
+
+    $log.debug "  inside pad contructor"
+    @config = config
+    @rows = FFI::NCurses.LINES-1
+    @cols = FFI::NCurses.COLS-1
+    @prow = @pcol = 0                        # show many cols we are panning
+    @startrow = 0
+    @startcol = 0
+    
+    h = config.fetch(:height, 0)
+    w = config.fetch(:width, 0)
+    t = config.fetch(:row, 0)
+    l = config.fetch(:col, 0)
+    @color_pair = config.fetch(:color_pair, 14)
+    @attr = config.fetch(:attr, FFI::NCurses::A_BOLD)
+    @rows = h unless h == 0
+    @cols = w unless w == 0
+    @startrow = t unless t == 0
+    @startcol = l unless l == 0
+    @suppress_border = config[:suppress_border]
+    top = t
+    left = l
+    @height = h
+    @width = w
+    #@pointer, @panel = create_window(h, w, t, l)
+    @pointer, @panel = create_centered_window(h, w, @color_pair, @attr)
+
+    @startrow, @startcol = FFI::NCurses.getbegyx(@pointer)
+    unless @suppress_border
+      @startrow += 1
+      @startcol += 1
+      @rows -=3  # 3 is since print_border_only reduces one from width, to check whether this is correct
+      @cols -=3
+    end
+    $log.debug "top and left are: #{top}  #{left} "
+    #@window.box # 2018-03-28 - 
+    FFI::NCurses.box @pointer, 0, 0
+    title(config[:title])
+    FFI::NCurses.wbkgd(@pointer, FFI::NCurses.COLOR_PAIR(@color_pair) | @attr);
+    FFI::NCurses.curs_set 0                  # cursor invisible
+    if config[:filename]
+      self.filename=(config[:filename])
+    elsif config[:list]
+      self.list=(config[:list])
+    end
+  end
+  # minimum window creator method, not using a class.
+  # However, some methods do require windows width and ht etc
+  def create_window h, w, t, l
+    pointer = FFI::NCurses.newwin(h, w, t, l)
+    panel = FFI::NCurses.new_panel(pointer)
+    FFI::NCurses.keypad(pointer, true)
+    return pointer, panel
+  end
+  def create_centered_window height, width, color_pair=14, attr=FFI::NCurses::A_BOLD
+    row = ((FFI::NCurses.LINES-height)/2).floor
+    col = ((FFI::NCurses.COLS-width)/2).floor
+    pointer = FFI::NCurses.newwin(height, width, row, col)
+    FFI::NCurses.wbkgd(pointer, FFI::NCurses.COLOR_PAIR(color_pair) | attr);
+    panel = FFI::NCurses.new_panel(pointer)
+    FFI::NCurses.keypad(pointer, true)
+    return pointer, panel
+  end
+  def destroy_window pointer, panel
+    FFI::NCurses.del_panel(panel)  if panel
+    FFI::NCurses.delwin(pointer)   if pointer
+    panel = pointer = nil         # prevent call twice
+  end
+  def destroy_pad
+    if @pad
+      FFI::NCurses.delwin(@pad) 
+      @pad = nil
+    end
+  end
+  # print a title over the box on zeroth row
+  def title stitle
+    return unless stitle
+    stitle = "| #{stitle} |"
+    col = (@width-stitle.size)/2
+    FFI::NCurses.mvwaddstr(@pointer, 0, col, stitle) 
+  end
+  private def display_content content
+      @pad = create_pad content 
+      FFI::NCurses.wrefresh(@pointer)
+      padrefresh
+  end
+
+  private def create_pad content
+    # destroy pad if exists
+    destroy_pad
+    @content_rows, @content_cols = content_dimensions(content)
+    pad = FFI::NCurses.newpad(@content_rows, @content_cols)
+    FFI::NCurses.wbkgd(pad, FFI::NCurses.COLOR_PAIR(@color_pair) | @attr);
+    FFI::NCurses.keypad(pad, true);         # function and arrow keys
+
+    FFI::NCurses.update_panels
+    cp = @color_pair
+    #@attr = FFI::NCurses::A_BOLD
+    FFI::NCurses.wattron(pad, FFI::NCurses.COLOR_PAIR(cp) | @attr)
+    # WRITE
+    filler = " "*@content_cols
+    content.each_index { |ix|
+      #FFI::NCurses.mvwaddstr(pad,ix, 0, filler)
+      FFI::NCurses.mvwaddstr(pad,ix, 0, content[ix])
+    }
+    FFI::NCurses.wattroff(pad, FFI::NCurses.COLOR_PAIR(cp) | @attr)
+    return pad
+  end
+
+  # receive array as content source
+  #
+  def list=(content)
+    display_content content
+  end
+  # source of data is a filename
+  def filename=(filename)
+    content = File.open(filename,"r").read.split("\n")
+    display_content content
+  end
+  private def content_dimensions content
+    content_rows = content.count
+    content_cols = content_cols(content)
+    return content_rows, content_cols
+  end
+
+
+  # write pad onto window
+  private
+  def padrefresh
+    raise "padrefresh: Pad not created" unless @pad
+    FFI::NCurses.prefresh(@pad,@prow,@pcol, @startrow,@startcol, @rows + @startrow,@cols+@startcol);
+  end
+
+  # returns button index
+  # Call this after instantiating the window
+  public
+  def run
+    return handle_keys
+  end
+
+  # convenience method
+  private
+  def key x
+    x.getbyte(0)
+  end
+  def content_cols content
+    # FIXME bombs if content contains integer or nil.
+    #longest = content.max_by(&:length)
+    #longest.length
+    max = 1
+    content.each do |line|
+      next unless line
+      l = 1
+      case line
+      when String
+        l = line.length
+      else
+        l = line.to_s.length
+      end
+      max = l if l > max
+    end
+    return max
+  end
+  # returns length of longest
+  def longest_in_list list  #:nodoc:
+    longest = list.inject(0) do |memo,word|
+      memo >= word.length ? memo : word.length
+    end    
+    longest
+  end    
+
+  # returns button index
+  private
+  def handle_keys
+    @height = FFI::NCurses.LINES-1 if @height == 0
+    ht = @rows 
+    scroll_lines = @height/2
+    buttonindex = catch(:close) do 
+      maxrow = @content_rows - @rows
+      maxcol = @content_cols - @cols 
+      while ((ch = FFI::NCurses.wgetch(@pointer)) != FFI::NCurses::KEY_F10)
+        break if ch == ?\C-q.getbyte(0) 
+        begin
+          case ch
+          when key(?g), 279 # home as per iterm2
+            @prow = 0
+            @pcol = 0
+          when key(?b), key(?G), 277 # end as per iterm2
+            @prow = maxrow-1
+            @pcol = 0
+          when key(?j), FFI::NCurses::KEY_DOWN
+            @prow += 1
+          when key(?k), FFI::NCurses::KEY_UP
+            @prow -= 1
+          when 32, 338   # Page Down abd Page Up as per iTerm2
+            @prow += 10
+          when key(?\C-d)
+            @prow += scroll_lines
+          when key(?\C-b)
+            @prow -= scroll_lines
+          when key(?\C-f)
+            @prow += ht
+          when key(?\C-u)
+            @prow -= ht
+          when 339
+            @prow -= 10
+          when key(?l), FFI::NCurses::KEY_RIGHT
+            @pcol += 1
+          when key(?$)
+            @pcol = maxcol - 1
+          when key(?h), FFI::NCurses::KEY_LEFT
+            @pcol -= 1
+          when key(?0)
+            @pcol = 0
+          when key(?q)
+            throw :close
+          else 
+            #alert " #{ch} not mapped "
+          end
+          @prow = 0 if @prow < 0
+          @pcol = 0 if @pcol < 0
+          if @prow > maxrow-1
+            @prow = maxrow-1
+          end
+          if @pcol > maxcol-1
+            @pcol = maxcol-1
+          end
+          padrefresh
+          #FFI::NCurses::Panel.update_panels # 2018-03-28 - this bombs elsewhere
+        rescue => err
+          if $log
+            $log.debug err.to_s                 
+            $log.debug err.backtrace.join("\n")
+          end
+          FFI::NCurses.endwin
+          puts "INSIDE pad.rb"
+          puts err
+          puts err.backtrace.join("\n")
+        ensure
+        end
+
+      end # while loop
+    end # close
+  rescue => err
+    if $log
+      $log.debug err.to_s
+      $log.debug err.backtrace.join("\n")
+    end
+    FFI::NCurses.endwin
+    puts err
+    puts err.backtrace.join("\n")
+  ensure
+    #@window.destroy #unless @config[:window]
+    destroy_window @pointer, @panel
+    #FFI::NCurses.delwin(@pad)       if @pad
+    destroy_pad
+    FFI::NCurses.curs_set 1                  # cursor visible again
+    return buttonindex 
+  end
+end
+if __FILE__ == $PROGRAM_NAME
+  def startup
+    require 'logger'
+    require 'date'
+
+    path = File.join(ENV["LOGDIR"] || "./" ,"v.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT) 
+    $log = Logger.new(path)
+    $log.level = Logger::DEBUG
+    today = Time.now.to_s
+    $log.info "Pad demo #{$0} started on #{today}"
+  end
+  def std_colors
+    FFI::NCurses.use_default_colors
+    # 2018-03-17 - changing it to ncurses defaults
+    FFI::NCurses.init_pair(0,  FFI::NCurses::BLACK,   -1)
+    FFI::NCurses.init_pair(1,  FFI::NCurses::RED,   -1)
+    FFI::NCurses.init_pair(2,  FFI::NCurses::GREEN,     -1)
+    FFI::NCurses.init_pair(3,  FFI::NCurses::YELLOW,   -1)
+    FFI::NCurses.init_pair(4,  FFI::NCurses::BLUE,    -1)
+    FFI::NCurses.init_pair(5,  FFI::NCurses::MAGENTA,  -1)
+    FFI::NCurses.init_pair(6,  FFI::NCurses::CYAN,    -1)
+    FFI::NCurses.init_pair(7,  FFI::NCurses::WHITE,    -1)
+    FFI::NCurses.init_pair(14,  FFI::NCurses::WHITE,    FFI::NCurses::CYAN)
+  end
+
+
+  FFI::NCurses.initscr
+  FFI::NCurses.curs_set 1
+  FFI::NCurses.raw
+  FFI::NCurses.noecho
+  FFI::NCurses.keypad FFI::NCurses.stdscr, true
+  FFI::NCurses.scrollok FFI::NCurses.stdscr, true
+  if FFI::NCurses.has_colors
+    FFI::NCurses.start_color
+    std_colors
+  end
+
+  startup
+  begin
+    file = ARGV[0] || $0
+    h = 20
+    w = 50
+    p = Pad.new :filename => "#{file}", :height => FFI::NCurses.LINES-1, :width => w, :row => 0, :col => 0, title: "pad.rb", color_pair: 14, attr: FFI::NCurses::A_BOLD
+    p.run
+  ensure
+    FFI::NCurses.endwin
+    FFI::NCurses.curs_set 1                  # cursor visible again
+  end
+end