rbcurse 1.4.1 → 1.5.0.pre1

data/examples/testapp.rb

@@ -1,44 +0,0 @@
-require 'rbcurse/app'
-
-# this was a test to see how i could have a class and an app inside
-# and i could call methods in the class and have variables available
-# inside App.
-#
-# instance_eval inside stack and others was causing the issue putting everything in
-# App. However, i have to change the app, to use yield in order not to lose context
-
-class Testy
-  attr_accessor :value
-  def initialize val
-    @value = val
-    @my = "oldval"
-    run
-  end
-  def amethod
-    $log.debug "XXXX amethod called... " if $log.debug? 
-    alert " self #{self.class} amethod "
-    @my = "hellothere"
-  end
-  def run
-    puts @value
-    app = App.new 
-    $log.debug " APP : value #{value}" if $log.debug? 
-    header = app.app_header "rbcurse #{Rbcurse::VERSION} " , :text_center => " #{@value} Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-    app.message "Press F10 to exit from here #{@value} "
-
-    app.stack :margin_top => 2, :margin => 5, :width => 30 do |s|
-      app.label "Hello: ", :attr => :reverse
-      f=app.field "abc"
-        #amethod() 
-      f.bind(:CHANGE) { 
-        amethod() 
-        app.message "now #{@my} "
-      }
-
-    end # stack
-    app.safe_loop
-  end
-end
-if __FILE__ == $PROGRAM_NAME
-  Testy.new "FFI-NCURSES"
-end

data/examples/testapp2.rb

@@ -1,58 +0,0 @@
-require 'rbcurse/app'
-
-####
-#  If you want to create an application which can run standaalong from terminal, or be passed
-#  values from a previous form then this is one way you can do it.
-#
-# this was a test to see how i could have a class and an app inside
-# and i could call methods in the class and have variables available
-# inside App.
-#
-# instance_eval inside stack and others was causing the issue putting everything in
-# App. However, i have to change the app, to use yield in order not to lose context
-
-class Testy
-  attr_accessor :value
-  def initialize val
-    @value = val
-    @my = "oldval"
-    run
-  end
-  # i will call this method from within the App block
-  def amethod
-    $log.debug "XXXX amethod called... " if $log.debug? 
-    #alert " self #{self.class} amethod "
-    # we will access @my from insdie the block, we also access @f from here
-    @my = "hellothere #{@f.getvalue} "
-  end
-  def run
-
-    App.new do |app|
-      $log.debug " APP : value #{value}" if $log.debug? 
-      header = app.app_header "rbcurse #{Rbcurse::VERSION} ", :text_center => " #{@value} Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
-      app.message "Press F10 to exit from here #{@value} "
-
-      app.stack :margin_top => 2, :margin => 5, :width => 30 do |s|
-        app.label "Hello: ", :attr => :reverse
-        @f=app.field "abc"
-        #amethod() 
-        @f.bind(:CHANGE) { 
-          amethod() 
-          app.message "now #{@my} "
-        }
-
-      end # stack
-      app.status_line :row => last_line()
-
-      # earlier style without end, everything had to be explicit but quite simple. Hard to edit since you
-      # could mess up by inserting inside
-      s="#[fg=green]testing chunks #[fg=yellow, bg=red, bold]yellow #[reverse] reverseme#[normal]normal#[bg = black]just yellow#[fg=blue],blue now #[underline] underlined text"
-      # revised, i know allow [end] so you can pop back to whatever was there before.
-      s="#[fg=green]testing chunks #[fg=yellow, bg=red, bold]yellow #[/end] back to green#[reverse]reverse#[end]#[bg=blue]blue bg #[end],back to green #[/end]plain#[underline] underlined text"
-      app.window.printstring_formatted 15,1, s, $datacolor, 'normal'
-    end
-  end
-end
-if __FILE__ == $PROGRAM_NAME
-  Testy.new "SomeData"
-end

data/examples/testchars.rb

@@ -1,137 +0,0 @@
-require 'logger'
-require 'rbcurse'
-if $0 == __FILE__
-  include RubyCurses
-  include RubyCurses::Utils
-
-  begin
-  # Initialize curses
-    VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
-    $log.level = Logger::DEBUG
-
-    @window = VER::Window.root_window
-
-    catch(:close) do
-      colors = Ncurses.COLORS
-      @form = Form.new @window
-      r = 1; c = 1;
-      arr=[]; sarr=[]
-
-sarr << "ACS_BBSS"
-arr << FFI::NCurses::ACS_BBSS
-sarr << "ACS_BLOCK"
-arr << FFI::NCurses::ACS_BLOCK
-sarr << "ACS_BOARD"
-arr << FFI::NCurses::ACS_BOARD
-sarr << "ACS_BSBS"
-arr << FFI::NCurses::ACS_BSBS
-sarr << "ACS_BSSB"
-arr << FFI::NCurses::ACS_BSSB
-sarr << "ACS_BSSS"
-arr << FFI::NCurses::ACS_BSSS
-sarr << "ACS_BTEE"
-arr << FFI::NCurses::ACS_BTEE
-sarr << "ACS_BULLET"
-arr << FFI::NCurses::ACS_BULLET
-sarr << "ACS_CKBOARD"
-arr << FFI::NCurses::ACS_CKBOARD
-sarr << "ACS_DARROW"
-arr << FFI::NCurses::ACS_DARROW
-sarr << "ACS_DEGREE"
-arr << FFI::NCurses::ACS_DEGREE
-sarr << "ACS_DIAMOND"
-arr << FFI::NCurses::ACS_DIAMOND
-sarr << "ACS_GEQUAL"
-arr << FFI::NCurses::ACS_GEQUAL
-sarr << "ACS_HLINE"
-arr << FFI::NCurses::ACS_HLINE
-sarr << "ACS_LANTERN"
-arr << FFI::NCurses::ACS_LANTERN
-sarr << "ACS_LARROW"
-arr << FFI::NCurses::ACS_LARROW
-sarr << "ACS_LEQUAL"
-arr << FFI::NCurses::ACS_LEQUAL
-sarr << "ACS_LLCORNER"
-arr << FFI::NCurses::ACS_LLCORNER
-sarr << "ACS_LRCORNER"
-arr << FFI::NCurses::ACS_LRCORNER
-sarr << "ACS_LTEE"
-arr << FFI::NCurses::ACS_LTEE
-sarr << "ACS_NEQUAL"
-arr << FFI::NCurses::ACS_NEQUAL
-sarr << "ACS_PI"
-arr << FFI::NCurses::ACS_PI
-sarr << "ACS_PLMINUS"
-arr << FFI::NCurses::ACS_PLMINUS
-sarr << "ACS_PLUS"
-arr << FFI::NCurses::ACS_PLUS
-sarr << "ACS_RARROW"
-arr << FFI::NCurses::ACS_RARROW
-sarr << "ACS_RTEE"
-arr << FFI::NCurses::ACS_RTEE
-sarr << "ACS_S1"
-arr << FFI::NCurses::ACS_S1
-sarr << "ACS_S3"
-arr << FFI::NCurses::ACS_S3
-sarr << "ACS_S7"
-arr << FFI::NCurses::ACS_S7
-sarr << "ACS_S9"
-arr << FFI::NCurses::ACS_S9
-sarr << "ACS_SBBS"
-arr << FFI::NCurses::ACS_SBBS
-sarr << "ACS_SBSB"
-arr << FFI::NCurses::ACS_SBSB
-sarr << "ACS_SBSS"
-arr << FFI::NCurses::ACS_SBSS
-sarr << "ACS_SSBB"
-arr << FFI::NCurses::ACS_SSBB
-sarr << "ACS_SSBS"
-arr << FFI::NCurses::ACS_SSBS
-sarr << "ACS_SSSB"
-arr << FFI::NCurses::ACS_SSSB
-sarr << "ACS_SSSS"
-arr << FFI::NCurses::ACS_SSSS
-sarr << "ACS_STERLING"
-arr << FFI::NCurses::ACS_STERLING
-sarr << "ACS_TTEE"
-arr << FFI::NCurses::ACS_TTEE
-sarr << "ACS_UARROW"
-arr << FFI::NCurses::ACS_UARROW
-sarr << "ACS_ULCORNER"
-arr << FFI::NCurses::ACS_ULCORNER
-sarr << "ACS_URCORNER"
-arr << FFI::NCurses::ACS_URCORNER
-sarr << "ACS_VLINE"
-arr << FFI::NCurses::ACS_VLINE
-
-sarr.each_index { |i|
-  @window.mvaddch r,c, arr[i]
-  @window.mvprintw r,c+2,"%s", :string, sarr[i]
-  r+=1
-  if r == 25
-    r = 1
-    c+=25
-  end
-}
-
-      #@form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != ?q.getbyte(0) )
-        break if ch == 32 || ch == 13
-        str = keycode_tos ch
-        @form.handle_key(ch)
-        @window.wrefresh
-      end
-    end
-  rescue => ex
-  ensure
-    @window.destroy if !@window.nil?
-    VER::stop_ncurses
-    p ex if ex
-    p(ex.backtrace.join("\n")) if ex
-    $log.debug( ex) if ex
-    $log.debug(ex.backtrace.join("\n")) if ex
-  end
-end

data/examples/testcombo.rb

@@ -1,91 +0,0 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-require 'logger'
-#require 'lib/rbcurse/mapper'
-#require 'lib/rbcurse/keylabelprinter'
-#require 'lib/rbcurse/commonio'
-#require 'lib/rbcurse/rwidget'
-#require 'lib/rbcurse/rform'
-require 'rbcurse/extras/rcomboedit'
-if $0 == __FILE__
-  include RubyCurses
-
-  begin
-  # Initialize curses
-    VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
-    $log.level = Logger::DEBUG
-
-    @window = VER::Window.root_window
-    # Initialize few color pairs 
-    # Create the window to be associated with the form 
-    # Un post form and free the memory
-
-    catch(:close) do
-      @form = Form.new @window
-      r = 1; c = 30;
-      mylist = []
-      0.upto(100) { |i| mylist << i.to_s }
-      combo = ComboBoxEdit.new @form do
-        name "combo"
-        row r
-        col c
-        bgcolor :magenta
-        display_length 10
-        editable false
-        list mylist
-        set_label Label.new @form, {'text' => "Non-edit Combo"}
-        list_config 'color' => 'black', 'bgcolor'=>'magenta', 'max_visible_items' => 6
-      end
-      r+=1
-      $results = Variable.new
-      $results.value = "Event:"
-      status = RubyCurses::Label.new @form, {'text_variable' => $results, "row" => 22, "col" => 2}
-      # since updated from another window, so explicit repaint required
-      $results.update_command { status.repaint }
-
-      v_positions = [:BELOW, :SAME, :CENTER, :CENTER, :ABOVE, :ABOVE]
-      #h_positions = [:SAME, :LEFT, :RIGHT, :SAME, :SAME, :ABOVE]
-      policies = [:NO_INSERT, :INSERT_AT_TOP, :INSERT_AT_BOTTOM, 
-        :INSERT_AT_CURRENT, :INSERT_BEFORE_CURRENT, :INSERT_AFTER_CURRENT]
-      policies.each_with_index do |policy, ix|
-          name="combo#{r}"
-          list = ListDataModel.new( %w[spotty tiger secret pass torvalds qwerty quail toiletry])
-          list.bind(:LIST_DATA_EVENT, name) { |lde,n| $results.value = lde.to_s[0,70]; $log.debug " STA: #{$results} #{lde}"  }
-          list.bind(:ENTER_ROW, name) { |obj,n| $results.value = "ENTER_ROW :#{obj.current_index} : #{obj.selected_item}    "; $log.debug " ENTER_ROW: #{$results.value} , #{obj}"  }
-        ComboBoxEdit.new @form do
-          name name
-          row r
-          col 30
-          display_length 10
-          bgcolor 'cyan'
-          editable true
-          #list %w[spotty tiger secret pass torvalds qwerty quail toiletry]
-          list_data_model list
-          insert_policy policy
-          set_label Label.new @form, {'text' => "Combo: "+policy.to_s}
-          list_config 'color' => 'white', 'bgcolor'=>'blue', 'valign' => v_positions[ix]
-        end
-        r+=2
-      end
-
-      @help = "Use UP and DOWN to navigate values, alt-DOWN for popup, TAB / BACKTAB between fields. F10-quit"
-      RubyCurses::Label.new @form, {'text' => @help, "row" => 21, "col" => 2, "color" => "yellow"}
-
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != KEY_F10 )
-        @form.handle_key(ch)
-        @window.wrefresh
-      end
-    end
-  rescue => ex
-  ensure
-    @window.destroy if !@window.nil?
-    VER::stop_ncurses
-    p ex if ex
-    p(ex.backtrace.join("\n")) if ex
-    $log.debug( ex) if ex
-    $log.debug(ex.backtrace.join("\n")) if ex
-  end
-end

data/examples/testkeypress.rb

@@ -1,66 +0,0 @@
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rtextarea'
-#require 'rbcurse/oldrtextarea'
-if $0 == __FILE__
-  include RubyCurses
-  include RubyCurses::Utils
-
-  begin
-  # Initialize curses
-    VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
-
-    $log.level = Logger::DEBUG
-
-    @window = VER::Window.root_window
-
-    catch(:close) do
-      colors = Ncurses.COLORS
-      $log.debug "START #{colors} colors  ---------"
-      @form = Form.new @window
-      r = 1; c = 30;
-
-        texta = TextArea.new @form do
-          name   "mytext" 
-          row  r 
-          col  c
-          width 60
-          height 15
-          editable false
-          focusable false
-          title "Keypresses"
-          auto_scroll true
-          title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
-        end
-      help = "q to quit. Check keys. F1..10, C-a..z, Alt a-zA-Z0-9, C-left,rt, Sh-F5..10 .: #{$0}"
-      help1 = "Press in quick succession: 1) M-[, w     and (2)  M-[, M-w.        (3)  M-Sh-O, w."  
-      RubyCurses::Label.new @form, {'text' => help, "row" => 21, "col" => 2, "color" => "yellow"}
-      RubyCurses::Label.new @form, {'text' => help1, "row" => 22, "col" => 2, "color" => "green"}
-
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != ?q.getbyte(0) )
-        str = keycode_tos ch
-        $log.debug  "#{ch} got (#{str})"
-        texta << "#{ch} got (#{str})"
-        texta.repaint
-        # 2010-01-01 16:00 not much point calling handle_key since textarea is not editable
-        # and will return unhandled and thus NOT do a repaint. so we have to repaint anyway.
-        #ret = @form.handle_key(ch)
-        #$log.debug " form handlekey returned: #{ret} "
-        @form.repaint
-        @window.wrefresh
-      end
-    end
-  rescue => ex
-  ensure
-    @window.destroy if !@window.nil?
-    VER::stop_ncurses
-    p ex if ex
-    p(ex.backtrace.join("\n")) if ex
-    $log.debug( ex) if ex
-    $log.debug(ex.backtrace.join("\n")) if ex
-  end
-end

data/examples/testlistbox.rb

@@ -1,113 +0,0 @@
-# this program tests out various widgets.
-#require 'ncurses' # FFI
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rwidget'
-#require 'rbcurse/listcellrenderer'
-#require 'rbcurse/celleditor'
-require 'rbcurse/rlistbox'
-require 'rbcurse/vieditable'
-require 'rbcurse/undomanager'
-#require 'rbcurse/rmessagebox'
-class RubyCurses::Listbox
-  # vieditable includes listeditable which
-  # does bring in some functions which can crash program like x and X TODO
-  # also, f overrides list f mapping. TODO
-  include ViEditable
-end
-if $0 == __FILE__
-  include RubyCurses
-
-  begin
-  # Initialize curses
-    VER::start_ncurses  # this is initializing colors via ColorMap.setup
-    $log = Logger.new((File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")))
-    $log.level = Logger::DEBUG
-
-    @window = VER::Window.root_window
-    $catch_alt_digits = true; # emacs like alt-1..9 numeric arguments
-    # Initialize few color pairs 
-    # Create the window to be associated with the form 
-    # Un post form and free the memory
-
-    catch(:close) do
-      colors = Ncurses.COLORS
-      $log.debug "START #{colors} colors testlistbox.rb --------- #{@window} "
-      @form = Form.new @window
-      @form.window.printstring 0, 30, "Demo of Listbox - rbcurse", $normalcolor, 'reverse'
-      r = 1; fc = 1;
-
-      $results = Variable.new
-      $results.value = "A list with vim-like key bindings. Try j k gg G o O C dd u (undo) C-r (redo) f<char> w yy p P. Also try emacs's kill-ring save/yank/cycle using M-w C-y M-y. Also, C-u and M1..9 numeric arguments."
-      var = RubyCurses::Label.new @form, {'text_variable' => $results, "row" => r+12, "col" => fc, "display_length" => 80, "height" => 5}
-      r += 1
-      mylist = []
-      0.upto(100) { |v| mylist << "#{v} scrollable data" }
-      $listdata = Variable.new mylist
-      listb = Listbox.new @form do
-        name   "mylist" 
-        row  r 
-        col  1 
-        width 40
-        height 11
-        #         list mylist
-        list_variable $listdata
-        #selection_mode :SINGLE
-        show_selector true
-        row_selected_symbol "[X] "
-        row_unselected_symbol "[ ] "
-        title "A long list"
-        title_attrib 'reverse'
-        cell_editing_allowed false
-      end
-      listb.one_key_selection = false # this allows us to map keys to methods
-      listb.vieditable_init_listbox
-      undom = SimpleUndo.new listb
-
-      #listb.list.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
-
-    # just for demo, lets scroll the text view as we scroll this.
-    #        listb.bind(:ENTER_ROW, @textview) { |alist, tview| tview.top_row alist.current_index }
-
-    #list = ListDataModel.new( %w[spotty tiger panther jaguar leopard ocelot lion])
-    #list.bind(:LIST_DATA_EVENT) { |lde| $message.value = lde.to_s; $log.debug " STA: #{$message.value} #{lde}"  }
-    #list.bind(:ENTER_ROW) { |obj| $message.value = "ENTER_ROW :#{obj.current_index} : #{obj.selected_item}    "; $log.debug " ENTER_ROW: #{$message.value} , #{obj}"  }
-
-    # using ampersand to set mnemonic
-    col = 1
-    row = 20
-    cancel_button = Button.new @form do
-      #variable $results
-      text "&Cancel"
-      row row
-      col col + 10
-      #surround_chars ['{ ',' }']  ## change the surround chars
-    end
-    cancel_button.command { |form| 
-      if confirm("Do your really want to quit?")== :YES
-        throw(:close); 
-      else
-        $message.value = "Quit aborted"
-      end
-    }
-
-
-    @form.repaint
-    @window.wrefresh
-    Ncurses::Panel.update_panels
-    while((ch = @window.getchar()) != KEY_F1 )
-      @form.handle_key(ch)
-      #@form.repaint
-      @window.wrefresh
-    end
-  end
-rescue => ex
-ensure
-  @window.destroy if !@window.nil?
-  VER::stop_ncurses
-  p ex if ex
-  p(ex.backtrace.join("\n")) if ex
-  $log.debug( ex) if ex
-  $log.debug(ex.backtrace.join("\n")) if ex
-end
-end