rbcurse 1.5.0 → 1.5.2

data/examples/testmenu.rb

@@ -0,0 +1,101 @@
+require 'logger'
+require 'rbcurse'
+#require 'lib/rbcurse/rform'
+require 'rbcurse/extras/widgets/rpopupmenu'
+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
+      colors = Ncurses.COLORS
+      $log.debug "START #{colors} colors  #{$datacolor} ---------"
+      @form = Form.new @window
+      @form.window.printstring 0, 25, "Demo of Ruby Curses PopupMenu", $normalcolor, 'reverse'
+      r = 1; fc = 12;
+      row = 10; col = 10
+      colorlabel = Label.new @form, {'text' => "A label:", "row" => row, "col" => col, "color"=>"cyan", "mnemonic" => 'A'}
+
+      #@mb = RubyCurses::MenuBar.new
+      #filemenu = RubyCurses::Menu.new "File"
+      filemenu = RubyCurses::PopupMenu.new "File"
+      filemenu.add(item = RubyCurses::PMenuItem.new("Open",'O'))
+
+      filemenu.insert_separator 1
+      filemenu.add(RubyCurses::PMenuItem.new "New",'N')
+      filemenu.add(item = RubyCurses::PMenuItem.new("Save",'S'))
+      filemenu.add(item = RubyCurses::PMenuItem.new("Test",'T'))
+      filemenu.add(item = RubyCurses::PMenuItem.new("Wrap Text",'W'))
+      filemenu.add(item = RubyCurses::PMenuItem.new("Exit",'X'))
+      item.command() {
+        #throw(:menubarclose);
+        throw(:close)
+      }
+      item = RubyCurses::PCheckBoxMenuItem.new "Reverse"
+      #filemenu.create_window
+#     item.onvalue="On"
+#     item.offvalue="Off"
+     #item.checkbox.text "Labelcb"
+     #item.text="Labelcb"
+      # in next line, an explicit repaint is required since label is on another form.
+      #item.command(colorlabel){|it, label| att = it.getvalue ? 'reverse' : nil; label.attr(att); label.repaint}
+    
+
+      filemenu.add(item)
+      #@mb.add(filemenu)
+      editmenu = RubyCurses::PMenu.new "Edit"
+      item = RubyCurses::PMenuItem.new "Cut"
+      editmenu.add(item)
+      item.accelerator = "Ctrl-X"
+      item=RubyCurses::PMenuItem.new "Copy"
+      editmenu.add(item)
+      item.accelerator = "Ctrl-C"
+      item=RubyCurses::PMenuItem.new "Paste"
+      editmenu.add(item)
+      item.accelerator = "Ctrl-V"
+      #@mb.add(editmenu)
+      #@mb.add(
+      menu=RubyCurses::PMenu.new("Others")
+      filemenu.add(menu)
+      #item=RubyCurses::PMenuItem.new "Save","S"
+      item = RubyCurses::PMenuItem.new "Config"
+      menu.add(item)
+      item = RubyCurses::PMenuItem.new "Tables"
+      menu.add(item)
+      savemenu = RubyCurses::PMenu.new "EditM"
+      item = RubyCurses::PMenuItem.new "CutM"
+      savemenu.add(item)
+      item = RubyCurses::PMenuItem.new "DeleteM"
+      savemenu.add(item)
+      item = RubyCurses::PMenuItem.new "PasteM"
+      savemenu.add(item)
+      menu.add(savemenu)
+      # 2008-12-20 13:06 no longer hardcoding toggle key of menu_bar.
+      #@mb.toggle_key = KEY_F2
+      #@form.set_menu_bar  @mb
+      #@cell = CellRenderer.new "Hello", {"col" => 1, "row"=>29, "justify"=>:right, "display_length" => 30}
+      # END
+      @form.repaint
+      filemenu.show colorlabel, 0,1
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+    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/testmulticomp.rb

@@ -0,0 +1,70 @@
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/extras/widgets/rmulticontainer'
+require 'rbcurse/core/widgets/rtextarea'
+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  --------- testmulticomp"
+      @form = Form.new @window
+      @ctr = 1
+      r = 1; c = 30;
+
+      mc = MultiContainer.new @form  do
+        name "multic"
+        row  r 
+        col  c
+        width 60
+        height 15
+        title "Multiconty"
+      end
+      ctr = 1
+
+      @form.bind_key(?\M-a) do
+        $log.debug " Inside M-a MULTI "
+        texta = TextArea.new do
+          name  "mytext#{ctr}" 
+          title "Enter Something-#{ctr}"
+          title_attrib (Ncurses::A_REVERSE | Ncurses::A_BOLD)
+        end
+        mc.add texta, "Enter Something #{ctr}"
+        texta << "Hello World"
+        texta << "Hello World"
+        ctr += 1
+      end
+      @help = "F10 to quit. M-a to open new component. M-: for menu  #{$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()) != KEY_F10 )
+        break if ch == ?\C-q.getbyte(0)
+        str = keycode_tos ch
+        $log.debug  "#{ch} got (#{str})"
+        @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/testmulticontainer.rb

@@ -0,0 +1,94 @@
+## 
+#  This tests both multicontainer and container
+#
+require 'logger'
+require 'rbcurse'
+require 'rbcurse/extras/widgets/rmulticontainer'
+require 'rbcurse/core/widgets/rcontainer'
+require 'rbcurse/core/widgets/rtextarea'
+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  --------- testmulticomp"
+      @form = Form.new @window
+      @ctr = 1
+      r = 1; c = 30;
+
+      mc = MultiContainer.new @form  do
+        name "multic"
+        row  r 
+        col  c
+        width 60
+        height 15
+        title "Multicontainer"
+      end
+      ctr = 1
+
+      c1 = Container.new 
+      mc.add c1, "A form"
+      f1 = Field.new nil do
+        name "name"
+        text "rahul"
+        row 1
+        col 10
+        label " Name: "
+      end
+      f2 = Field.new nil, :name => "email", :text => "me@somebody.com", :label => "Email: "
+      c1.add( f1, f2)
+
+      c3 = TextArea.new
+      mc.add c3, "Edit Me"
+      c2 = Container.new 
+      mc.add c2, "Another form"
+      attrib = 'underline'
+      f3 = Field.new do
+        name "language"
+        text "ruby"
+        row 1
+        col 10
+        label "Language: "
+        attr attrib
+      end
+      f4 = Field.new nil, :name => "version", :text => "1.9.2", :row => 2, :col => 10, 
+        :label => " Version: ", :attr => attrib
+      c2.add( f3, f4)
+
+      @help = "F10 to quit. M-a to open new component. M-: for menu  #{$0} "
+      RubyCurses::Label.new @form, {:text => @help, :row => last_line(), :col => 2, 
+        :color => 'yellow', :bgcolor => 'red'}
+      f5 = Field.new @form, :name => "version2", :text => "1.9.2", :row => 20, :col => c, :bgcolor => 'blue',
+        :label => "Version: ", :label_color_pair => get_color($datacolor, 'green', 'black')
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      while((ch = @window.getchar()) != KEY_F10 )
+        break if ch == ?\C-q.getbyte(0)
+        str = keycode_tos ch
+        $log.debug  "#{ch} got (#{str})"
+        @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/testmultispl.rb

@@ -0,0 +1,199 @@
+$LOAD_PATH << "/Users/rahul/work/projects/rbcurse/lib"
+require 'rbcurse'
+require 'rbcurse/extras/widgets/rmultisplit'
+require 'rbcurse/extras/widgets/rlistbox'
+require 'fileutils'
+
+#
+## this sample creates a multisplitpane with n objects
+##+ and move divider around using - + and =.
+# TODO:
+# x Status bar below to reflect full path.
+# - enter to gotonext component too, or at least make visible if not
+#    but now cursor is showing around everywhere
+#
+$counter = 0
+
+# when displaying a filename, if directory prepend a slash.
+def format list, fullname=nil
+  list.collect! {|e|
+    if fullname
+      f = File.join(fullname, e)
+    else
+      f = e
+    end
+    if File.directory? f
+      "/" + e
+    else
+      e
+    end
+  }
+  list
+end
+# @param [Listbox] new list to bind
+# @param [Array] array of lists
+# @param [MultiSplit] msp object to add a new list to
+def bind_list(listb, lists, splitp)
+  #listb.bind(:ENTER_ROW, mylist) {|lb,list| row_cmd.call(lb,list) }
+  listb.bind(:PRESS) {     
+    #@status_row.text = "Selected #{tablelist.get_content()[tablelist.current_index]}"
+    item = "#{listb.get_content()[listb.current_index]}"
+    fullname = File.join(listb.config[:path], item)
+    mylist = nil
+    if File.directory? fullname
+      $log.debug " DIRector is a item #{item} "
+      d = Dir.new(fullname)
+      mylist = d.entries
+      mylist.delete "."
+      mylist.delete ".."
+      format(mylist, fullname)
+      # NOTE that we create component with nil form as container will manage it
+      if lists.empty? || lists.last == listb
+        $counter += 1
+        listc = Listbox.new nil do
+          name  "LIST#{$counter}" 
+          list mylist
+          title item
+          title_attrib 'reverse'
+        end
+        listc.one_key_selection = false
+        listc.bind(:ENTER) {|l| l.title_attrib 'reverse';  }
+        listc.bind(:LEAVE) {|l| l.title_attrib 'normal';  }
+        # FIXME crashes if file nil
+        row_cmd = lambda {|lb, oldlist| list = lb.list(); file = list[lb.current_index]; file ||= "?";  $message.value = File.join(lb.config[:path], file); }
+        listc.bind(:ENTER_ROW, mylist) {|lb,list| row_cmd.call(lb,list) }
+        splitp.add listc
+        lists << listc
+        listb.config[:child] = listc
+        listc.config[:path] = File.join(listb.config[:path], item)
+        bind_list(listc, lists, splitp)
+      else
+        #l = lists.first
+        l = listb.config[:child]
+        l.list_data_model.remove_all
+        # if empty maybe we should remove it, but its just a demo
+        # what happens is, this comes up again when going through another
+        # directory. First go down rbcurse/lib/rbcurse/extras
+        # then go to examples which has a shallow structure.
+        l.list_data_model.insert 0, *mylist unless mylist.empty?
+        l.config[:path] = fullname
+        l.title = item
+        while true
+          n = l.config[:child]
+          break if n.nil?
+          n.list_data_model.remove_all
+          # TODO should be removed, so focus does not go to it
+          n.title = ""
+          l = n
+        end
+        $log.debug " MYLIST #{mylist} dir #{item} "
+      end
+      splitp.goto_next_component
+    end
+  } 
+end
+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
+      @form = Form.new @window
+      r = 3; c = 7; ht = 18
+      #lastrow = ht+r+5 # 26
+      lastrow = Ncurses.LINES-1
+
+
+      help = "F1 to quit. #{$0}  Press Enter on directory, TAB/BTAB to navigate. C-w+-= "
+      RubyCurses::Label.new @form, {:text => help, :row => lastrow, "col" => 2, "color" => "yellow" }
+      title = "Demo of Multi-SplitPane (Column Browse pattern)"
+      RubyCurses::Label.new @form, {:text => title, :row => 1, :col => c, :color => "white" }
+
+
+      splitp = MultiSplit.new @form do
+          name   "mypane" 
+          row  r 
+          col  c
+          width 70
+          height ht
+          split_count 3
+          unlimited true
+          orientation :VERTICAL_SPLIT
+          max_visible 3
+        end
+      splitp.bind(:PROPERTY_CHANGE){|e| $message.value = e.to_s }
+
+      $message = Variable.new
+      $message.value = "Message Comes Here"
+      message_label = RubyCurses::Label.new @form, {'text_variable' => $message, "name"=>"message_label","row" => ht+r+2, "col" => 1, "display_length" => 80,  "height" => 2, 'color' => 'cyan'}
+      $message.update_command() { message_label.repaint } # why ?
+      #message_label.row = splitp.row + splitp.height 
+      #message_label.col = splitp.col
+      @form.place_below(message_label)
+
+
+      lists = []
+      FileUtils.cd("..")
+      mylist = Dir.glob('*')
+      mylist.delete_if {|x| x =~ /^\./ || x =~ /^_/ || x =~ /bak$/}
+      format(mylist)
+      # NOTE that we create component with nil form as container will manage it
+      listb = Listbox.new nil do
+        name   "mainlist" 
+        list mylist
+        title "A short list"
+        title_attrib 'reverse'
+      end
+      listb.config[:path] = Dir.getwd
+      listb.one_key_selection = false
+      splitp.add listb
+      row_cmd = lambda {|lb, list| file = list[lb.current_index]; $message.value = file; # File.stat("#{cur_dir()}/#{file}").inspect 
+      }
+      listb.bind(:ENTER_ROW, mylist) {|lb,list| row_cmd.call(lb,list) }
+      listb.bind(:ENTER) {|l| l.title_attrib 'reverse';  }
+      listb.bind(:LEAVE) {|l| l.title_attrib 'normal';  }
+      bind_list(listb, lists, splitp)
+
+      # Dummy field just to see navigation from and to container
+      fname = "Search"
+      r, c = @form.next_position
+      c += fname.length + 1
+        field = Field.new @form do
+          name   fname
+          row  r
+          col  c
+          display_length  30
+          bgcolor 'cyan'
+          #set_buffer "abcd " 
+          set_label Label.new @form, {:text => fname, :color=>'white',:bgcolor=>'red', :mnemonic=> 's'}
+        end
+
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      counter = 0
+      while((ch = @window.getchar()) != KEY_F1 )
+        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
+    puts(ex.backtrace.join("\n")) if ex
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+  end
+end
+