rbcurse 1.5.0 → 1.5.2

data/examples/testapp.rb

@@ -0,0 +1,44 @@
+require 'rbcurse/core/util/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

@@ -0,0 +1,58 @@
+require 'rbcurse/core/util/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

@@ -0,0 +1,137 @@
+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

@@ -0,0 +1,91 @@
+#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
+require 'logger'
+#require 'lib/rbcurse/mapper'
+#require 'lib/rbcurse/core/widgets/keylabelprinter'
+#require 'lib/rbcurse/commonio'
+#require 'lib/rbcurse/core/widgets/rwidget'
+#require 'lib/rbcurse/rform'
+require 'rbcurse/extras/widgets/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

@@ -0,0 +1,66 @@
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/widgets/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

@@ -0,0 +1,113 @@
+# this program tests out various widgets.
+#require 'ncurses' # FFI
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/core/widgets/rwidget'
+#require 'rbcurse/core/include/listcellrenderer'
+#require 'rbcurse/extras/include/celleditor'
+require 'rbcurse/extras/widgets/rlistbox'
+require 'rbcurse/core/include/vieditable'
+require 'rbcurse/experimental/widgets/undomanager'
+#require 'rbcurse/deprecated/widgets/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