rbcurse 1.4.1 → 1.5.0.pre1

data/examples/deprecated/splitp.rb

@@ -1,56 +0,0 @@
-require 'rbcurse/app'
-
-App.new do 
-  header = app_header "rbcurse #{Rbcurse::VERSION}", :text_center => "Splitpane Demo", :text_right =>""
-  message_row(27)
-  message "<TAB> between outer panes, Alt-W between inner tabs, Alt-TAb to exit Splitpane"
-
-  stack :margin_top => 5, :margin => 15, :width => 79 do
-    splp = splitpane "outer", :height => 15  do |s|
-      fc = splitpane "top", :orientation => :VERTICAL_SPLIT, :border_color => $promptcolor, :divider_at => 0.3 do |fc1|
-        lb = list_box "Shapes",:list => ["Square", "Oval", "Rectangle", "Somethinglarge"], :choose => ["Oval"]
-        fc1.first_component lb
-
-        lb2 = list_box "MyGems", :list => ["highline", "sqlite3-ruby", "thor", "ncurses"], :choose => ["thor"]
-        fc1.second_component lb2
-        
-      end
-      s.first_component fc
-
-      sc = textarea "Edit"
-      s.second_component sc
-
-    end # splp
-    blank
-    flow do
-      #toggle :onvalue => "Vertical", :offvalue => "Horizontal", :value => true do |e|
-        #message "pressed #{e.state}"
-        #case e.state
-        #when :DESELECTED
-          #$log.debug " about to call orientation with V"
-          #splp.orientation :VERTICAL_SPLIT
-          ##ret = splp.reset_to_preferred_sizes
-        #else
-          #$log.debug " about to call orientation with H"
-          #splp.orientation :HORIZONTAL_SPLIT
-          ##ret = splp.reset_to_preferred_sizes
-        #end
-      #end
-      fc = splp
-      # increase split size
-      button "+" do
-        #splp.set_divider_location(splp.divider_location+1)
-        fc.set_divider_location(splp.divider_location+1)
-      end
-      # decrease split size
-      button "-" do
-        fc.set_divider_location(splp.divider_location-1)
-      end
-      # equalize  split size
-      button "=" do
-        splp.set_resize_weight(0.50)
-      end
-    end
-       
-  end # stack
-end # app

data/examples/deprecated/testscrolllb.rb

@@ -1,86 +0,0 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-# Creates a scrollpane with a Testwidget (which is a modified TextView class)
-require 'rubygems'
-#require 'ncurses' # FFI
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rlistbox'
-require 'rbcurse/rscrollpane'
-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 = 10; w = 40
-      ht = 10
-      # print filler stars
-      filler = "*" * (w+2)
-      #(ht+3).times(){|i| @form.window.printstring(i,c-1, filler, $datacolor) }
-
-
-        @scroll = ScrollPane.new @form do
-          name   "myScroller" 
-          row r+ht+1
-          col  c 
-          width w
-          height ht
-        end
-        mylist = []
-        0.upto(100) { |v| mylist << "#{v} scrollable data" }
-        $listdata = Variable.new mylist
-        # NOTE that embedded object is not passed form, since it doesn't update form
-        listb = Listbox.new nil do
-          name   "mylist" 
-          row 0
-          col  0 
-          width w+10
-          height ht+10
-          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 true
-        end
-        ## The next 2 are not advised since they don't trigger events
-        #listb.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
-        #$listdata.value.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net"
-        listb.list_data_model.insert 55, "hello ruby", "so long python", "farewell java", "RIP .Net", "hi lisp", "hi clojure", "hiya erlang"
-        @scroll.child(listb)
-
-
-      @help = "q to quit. This is a test of Listbox which uses a pad/buffer.: #{$0}"
-      #RubyCurses::Label.new @form, {'text' => @help, "row" => 21, "col" => 2, "color" => "yellow"}
-
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != ?q.getbyte(0) )
-        str = keycode_tos ch
-        @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

data/examples/deprecated/testscrollp.rb

@@ -1,88 +0,0 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-# Creates a scrollpane with a TextView (which is a modified TextView class)
-require 'rubygems'
-#require 'ncurses' # FFI
-require 'logger'
-require 'rbcurse'
-#require 'rbcurse/rtextview'
-require 'rbcurse/rmultitextview'
-require 'rbcurse/rscrollpane'
-require 'rbcurse/undomanager'
-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
-      @form.name = "Form::MAINFORM"
-      r = 3; c = 5; w = 80
-      ht = 20
-      # print filler stars
-      #filler = "*" * (w+2)
-      #(ht+3).times(){|i| @form.window.printstring(i,c-1, filler, $datacolor) }
-
-
-        @scroll = ScrollPane.new @form do
-          name   "myScroller" 
-          row r
-          col  c 
-          width w
-          height ht
-        end
-        @textview = MultiTextView.new do
-        #@textview = TextView.new do
-          name   "myView" 
-          row 0
-          col  0 
-          width w 
-          height ht +20
-          title "README.txt"
-          title_attrib 'bold'
-          print_footer true
-          footer_attrib 'bold'
-          #suppress_borders true
-        end
-        #@textview.should_create_buffer true # can be moved to scrollpane
-        #@textview.set_buffering(:target_window => @form.window, :bottom => @scroll.height-1, :right => @scroll.width-1 )
-        #content = File.open("../README.markdown","r").readlines
-        #@textview.set_content content #, :WRAP_WORD
-        @textview.add "../README.markdown", "Readme"
-       
-        @textview.load_module "vieditable", "ViEditable"
-        @scroll.child(@textview)
-        undom = SimpleUndo.new @textview
-        #@textview.show_caret=true
-
-      @help = "F1 to quit. #{$0} TextView inside scrollpane. M-n M-p M-h M-l M-< M->, e to open file, : for menu"
-      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r+1, "col" => 2, "color" => "yellow"}
-
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != KEY_F1 ) # ?q.getbyte(0) )
-        str = keycode_tos ch
-        @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

data/examples/deprecated/testscrollta.rb

@@ -1,80 +0,0 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-# Creates a scrollpane with a Testwidget (which is a modified TextView class)
-require 'rubygems'
-#require 'ncurses' # FFI
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rtextarea'
-require 'rbcurse/rscrollpane'
-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
-      @form.name = "Form::MAINFORM"
-      $log.debug " MAIN FORM #{@form}   w #{@window}  "
-      r = 3; c = 10; w = 40
-      ht = 10
-
-
-        @scroll = ScrollPane.new @form do
-          name   "myScroller" 
-          row r+1
-          col  c 
-          width w
-          height ht
-        end
-        # XXX  we are passing nil as form, so its bound to bomb FIXME TODO
-        @textview = TextArea.new @nil do
-          name   "myText" 
-          row 0
-          col  0 
-          width w+10
-          height ht+10
-          title "EditMe.txt"
-          title_attrib 'bold'
-          print_footer true
-          footer_attrib 'bold'
-        end
-        @scroll.child(@textview)
-        @textview << "I expect to pass through this world but once." << "Any good therefore that I can do, or any kindness or abilities that I can show to any fellow creature, let me do it now."
-        @textview << "Let me not defer it or neglect it, for I shall not pass this way again."
-        @textview << " "
-        @textview << "F1 to exit. M-n, M-p, M-h, M-l for scrolling."
-        @textview << "Some more text going below scrollpane.. "
-        @textview << "Try C-[ C-] for going to start and end "
-
-
-      @help = "F1 to quit. #{$0}. This is a test of TextArea inside a Scrollpane (it uses a pad/buffer)."
-      RubyCurses::Label.new @form, {'text' => @help, "row" => 23, "col" => 2, "color" => "yellow"}
-
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != KEY_F1)
-        str = keycode_tos ch
-        @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

data/examples/deprecated/testscrolltable.rb

@@ -1,165 +0,0 @@
-#$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/"
-#*******************************************************#
-#                     testsrolltable.rb                 #
-#                 written by Rahul Kumar                #
-#                    January 18, 2010                   #
-#                                                       #
-#  Test table inside a scrollpane.                      #
-#  The table here has minimal functionality. Pls refer  #
-#  testtable.rb for more complete functionality.        #
-#
-#  /----+----+----+-----\
-#  |____|____|____|_____|
-#  |    |    |    |    V|
-#  |    |    |    |    V|
-#  +    |    |    |    V|
-#  |    |    |    |    V|
-#  |    |    |    |    V|
-#  |>>>>>>>>>>>   |     |
-#  \----+----+----+-----/
-#  http://totalrecall.files.wordpress.com/2010/01/rbcurse-tablescrollpane.png
-#
-#
-#            Released under ruby license. See           #
-#         http://www.ruby-lang.org/en/LICENSE.txt       #
-#               Copyright 2010, Rahul Kumar             #
-#*******************************************************#
-# Creates a scrollpane with a Table 
-require 'rubygems'
-#require 'ncurses' # FFI
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rtable'
-require 'rbcurse/rscrollpane'
-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 = 3; c = 7; w = 80
-      ht = 20
-
-        scroll = ScrollPane.new @form do
-          name   "myScroller" 
-          row r
-          col  c 
-          width w
-          height ht
-        end
-      data = [["Pathetique",3,"Tchaikovsky",3.21, true, "WIP"],
-        ["Ali Maula Ali Maula",3,"NFAK",3.47, true, "WIP"],
-        ["Tera Hijr Mera Nasib",92,"Razia Sultan",412, true, "Fin"],
-        ["Piano Concerto 4&5",4,"Beethoven",110.0, false, "Cancel"],
-        ["Toccata and Fugue",4,"J S Bach",102.72, false, "Postp"],
-        ["Symphony No. 3",4,"Henryk Gorecki",102.72, true, "Postp"],
-        ["The Great Gig in the Sky",8,"Pink Floyd",12.72, false, "Todo"],
-        ["Steppes of Central Asia",9,"Borodin",12.2, false, "WIP"],
-        ["Wish You Were Here",8,"Pink Floyd",2.7, false, "Todo"],
-        ["Habanera",nil,"Maria Callas",112.7, true, "Cancel"],
-        ["Mack the Knife",9,"Loius Armstrong",12.2, false, "Todo"],
-        ["Prince Igor",9,"Borodin",16.3, false, "WIP"],
-        ["Shahbaaz Qalandar",9,"Nusrat Fateh Ali Khan",12.2, false, "Todo"],
-        ["Raag Darbari",9,"Ustad Fateh Ali Khan",12.2, false, "Todo"],
-        ["Yaad-e-Mustafa Aisi",9,"Santoo Khan",12.2, true, "Todo"],
-        ["Chaconne",4,"Johann S Bach",12.42, true, "Postp"],
-        ["Raag Jaunpuri",9,"Ustad Fateh Ali Khan",12.2, false, "Todo"],
-        ["Dalaleragita",9,"Vaishnava",12.2, false, "Todo"],
-        ["Prasada sevaya",9,"Vaishnava",12.2, false, "Todo"],
-        ["Sri Rupamanjiri",9,"Vaishnava",12.2, false, "Todo"],
-        ["M Vlast ",9,"Smetana",12.2, false, "Todo"],
-        ["Jai Radha Madhava",163,"Jagjit Singh",5.4, false, "WIP"]]
-
-      colnames = %w[ Song Cat Artist Ratio Flag Status]
-      statuses = ["Todo", "WIP", "Fin", "Cancel", "Postp"]
-
-        atable = Table.new nil do
-          name   "mytext" 
-          row  0 
-          col  0
-          width 78
-          height 15
-          #title "A Table"
-          #title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
-          cell_editing_allowed true
-          editing_policy :EDITING_AUTO
-          set_data data, colnames
-        end
-        sel_col = Variable.new 0
-        sel_col.value = 0
-        tcm = atable.get_table_column_model
-        selcolname = atable.get_column_name sel_col.value
-        #
-        ## key bindings fo atable
-        # column widths 
-          tcm.column(0).width 24
-          tcm.column(1).width 5
-          tcm.column(2).width 18
-          #tcm.column(2).editable false
-          tcm.column(3).width 7
-          tcm.column(4).width 5
-          tcm.column(5).width 8
-        atable.configure() do
-          bind_key(330) { atable.remove_column(tcm.column(atable.focussed_col)) rescue ""  }
-          bind_key(?+) {
-            acolumn = atable.get_column selcolname
-            w = acolumn.width + 1
-            acolumn.width w
-            #atable.table_structure_changed
-          }
-          bind_key(?-) {
-            acolumn = atable.get_column selcolname
-            w = acolumn.width - 1
-            if w > 3
-            acolumn.width w
-            #atable.table_structure_changed
-            end
-          }
-          bind_key(?>) {
-            colcount = tcm.column_count-1
-            #atable.move_column sel_col.value, sel_col.value+1 unless sel_col.value == colcount
-            col = atable.focussed_col
-            atable.move_column col, col+1 unless col == colcount
-          }
-          bind_key(?<) {
-            col = atable.focussed_col
-            atable.move_column col, col-1 unless col == 0
-            #atable.move_column sel_col.value, sel_col.value-1 unless sel_col.value == 0
-          }
-          #bind_key(KEY_RIGHT) { sel_col.value = sel_col.value+1; current_column sel_col.value}
-          #bind_key(KEY_LEFT) { sel_col.value = sel_col.value-1;current_column sel_col.value}
-        end
-        scroll.child(atable)
-
-      @help = "F1 to quit. This is a test of Table inside a scrollpane. #{$0} M-n M-p M-< M-> M-h M-l"
-      RubyCurses::Label.new @form, {'text' => @help, "row" => ht+r+1, "col" => 2, "color" => "yellow"}
-
-      @form.repaint
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      while((ch = @window.getchar()) != KEY_F1 ) # ?q.getbyte(0) )
-        str = keycode_tos ch
-        @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