rbhex-core 1.0.0

data/examples/term2.rb

@@ -0,0 +1,84 @@
+require 'rbhex/core/util/app'
+require 'rbhex/core/widgets/tabular'
+require 'rbhex/core/widgets/scrollbar'
+
+  def my_help_text
+    <<-eos
+    term2.rb
+    =========================================================================
+    Basic Usage
+
+    This example shows different ways of putting data in tabular format.
+
+    The 2 tables on the right differ in behaviour. The first puts tabular data
+    into a listbox so you get single/multiple selection. The second puts tabular
+    data into a textview, so there's no selection. <space> scrolls instead of
+    selects <ENTER> allows us to use the word under cursor for further actions.
+
+    To see an example of placing tabular data in a tabular widget, see tabular.rb.
+    The advantage of tabular_widget is column resizing, hiding, aligning and sorting.
+
+    =========================================================================
+    :n or Alt-n for next buffer. 'q' to quit.
+
+    eos
+  end
+App.new do
+  header = app_header "rbhex #{Rbhex::Core::VERSION}", :text_center => "Tabular Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold
+  message "F10 quit, F1 Help, ? Bindings"
+  #install_help_text my_help_text
+  @form.help_manager.help_text = my_help_text
+
+  flow :width => FFI::NCurses.COLS , :height => FFI::NCurses.LINES-2 do
+    stack :margin_top => 1, :width_pc => 20 do
+      t = Tabular.new(['a', 'b'], [1, 2], [3, 4])
+      listbox :list => t.render
+
+      t = Tabular.new ['a', 'b']
+      t << [1, 2]
+      t << [3, 4]
+      t << [4, 6]
+      #list_box :list => t.to_s.split("\n")
+      listbox :list => t.render
+    end # stack
+    file = File.expand_path("../data/tasks.csv", __FILE__)
+    lines = File.open(file,'r').readlines
+    heads = %w[ id sta type prio title ]
+    t = Tabular.new do |t|
+      t.headings = heads
+      lines.each { |e| t.add_row e.split '|'   }
+    end
+
+    t = t.render
+    wid = t[0].length + 2
+    wid = 30
+    stack :margin_top => 1, :width_pc => 80 , :height_pc => 100 do
+      listbox :list => t, :title => '[ tasks ]', :height_pc => 60
+
+      r = `ls -l`
+      res = r.split("\n")
+
+      t = Tabular.new do
+        #      self.headings = 'Perm', 'Gr', 'User', 'U',  'Size', 'Mon', 'Date', 'Time', 'File' # changed 2011 dts
+        self.headings = 'User',  'Size', 'Mon', 'Date', 'Time', 'File'
+        res.each { |e|
+          cols = e.split
+          next if cols.count < 6
+          cols = cols[3..-1]
+          cols = cols[0..5] if cols.count > 6
+          add_row cols
+        }
+        column_width 1, 6
+        align_column 1, :right
+      end
+      #lb =  list_box :list => t.render2
+      lb =  textview :set_content => t.render, :title => '[ls -l]', :height_pc => 40
+      lb.bind(:PRESS){|tae|
+        alert "Pressed list on line #{tae.current_index}  #{tae.word_under_cursor(nil, nil, "|")}  "
+      }
+      Scrollbar.new @form, :parent => lb
+      #make a textview that is vienabled by default.
+    end
+  end # end
+
+end # app

data/examples/testbuttons.rb

@@ -0,0 +1,296 @@
+# This program tests out various buttons.
+## I have used both DSL and conventional constructors for each button to test out.
+## Had to fix checkbox code (text and mnemonic to return self).
+# Had to fix radio button code, remove raise from constructor
+## -----
+## -- THIS WILL NOT WORK WITH < 0.0.15. WILL REQUIRE DOWNLOADING FIXES FROM GITHUB
+## OR HAVING AT LEAST 0.0.15
+#
+require 'logger'
+require 'rbhex'
+require 'rbhex/core/include/appmethods.rb'
+def help_text
+      <<-eos
+               BUTTONS  HELP
+
+      This is some help text for testbuttons.
+      To select any button press the SPACEBAR, although ENTER will also work.
+      You may also press the mnemonic or hotkey on the label..
+
+      The toggle button toggles the kind of dialog for the Cancel button. Modern look
+      and feel refers to a popup with buttons. This is like the links editor.
+
+      Classic look and feel refers to a line at the bottom of the screen, with a y/n prompt.
+      THis is like a lot of older apps, i think Pine and maybe vim.
+
+
+      Alt-c/F10 -   Exit application
+
+
+
+      -----------------------------------------------------------------------
+      eos
+end
+if $0 == __FILE__
+
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    path = File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT)
+    $log = Logger.new(path)
+    $log.level = Logger::DEBUG
+
+    @lookfeel = :classic # :dialog # or :classic
+    @lookfeel = :dialog # or :classic
+
+    @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 test2.rb --------- #{@window} "
+      @form = Form.new @window
+      title = (" "*30) + "Original Demo of basic Ruby Curses Widgets " + Rbhex::Core::VERSION
+      Label.new @form, {'text' => title, :row => 0, :col => 0, :color => 'green', :bgcolor => 'black'}
+      r = 1; fc = 12;
+        r += 1
+        row = 5
+        col = 3
+
+      $message = Variable.new
+      $message.value = "Message Comes Here"
+      message_label = RubyCurses::Label.new @form, {'text_variable' => $message,
+        "name"=>"message_label","row" => Ncurses.LINES-1, "col" => 1, "display_length" => 60,
+        "height" => 2, 'color' => 'cyan'}
+
+      $results = Variable.new
+      $results.value = "A variable"
+
+      row += 1
+      checkbutton = CheckBox.new(@form).
+        variable($results).
+        onvalue("Selected bold   ").
+        offvalue("UNselected bold").
+        display_length(18).
+        text("Bold attribute ").
+        mnemonic('B').
+        row(row).
+        col(col)
+      row += 1
+      @cb_rev = Variable.new false # related to checkbox reverse
+      cbb = @cb_rev
+      checkbutton1 = CheckBox.new @form do
+        variable cbb # $cb_rev
+        #value = true
+        onvalue "Selected reverse   "
+        offvalue "UNselected reverse"
+        text "Reverse attribute "
+        display_length 18
+        row row
+        col col
+        mnemonic 'R'
+      end
+      row += 1
+      togglebutton = ToggleButton.new(@form).
+        value( true).
+        onvalue( " Toggle Down ").
+        offvalue("  Untoggle   ").
+        row(row).
+        col(col).
+        mnemonic('T')
+        #underline 0
+      togglebutton.command do
+        if togglebutton.value
+          $message.value = "Modern look and feel for dialogs"
+        else
+          $message.value = "Classic look and feel for dialogs"
+        end
+      end
+      # a special case required since another form (combo popup also modifies)
+      $message.update_command() { message_label.repaint }
+
+      @form.bind(:ENTER) { |f|   f.label && f.label.bgcolor = 'red' if f.respond_to? :label}
+      @form.bind(:LEAVE) { |f|  f.label && f.label.bgcolor = 'black'   if f.respond_to? :label}
+
+      row += 1
+      colorlabel = Label.new @form, {'text' => "Select a color:", "row" => row, "col" => col,
+        "color"=>"cyan", "mnemonic" => 'S'}
+      $radio = Variable.new
+      $radio.update_command(colorlabel) {|tv, label|  label.color tv.value; }
+      #$radio.update_command() {|tv|  message_label.color tv.value; align.bgcolor tv.value; combo1.bgcolor tv.value}
+      $radio.update_command() {|tv|  @form.widgets.each { |e| next unless e.is_a? Widget;
+        e.bgcolor tv.value };  }
+
+      # whenever updated set colorlabel and messagelabel to bold
+      $results.update_command(colorlabel,checkbutton) {|tv, label, cb|
+        attrs =  cb.value ? 'bold' : 'normal'; label.attr(attrs); message_label.attr(attrs)}
+
+
+      # whenever updated set colorlabel and messagelabel to reverse
+      #@cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb| attrs =  cb.value ? 'reverse' : nil; label.attr(attrs); message_label.attr(attrs)}
+      # changing nil to normal since PROP CHAN handler will not fire if nil being set.
+      @cb_rev.update_command(colorlabel,checkbutton1) {|tv, label, cb|
+        attrs =  cb.value ? 'reverse' : 'normal'; label.attr(attrs); message_label.attr(attrs)}
+
+      row += 1
+      dlen = 10
+      # if we try conventional style then constructor throws exception since @variable must be set
+      radio1 = RadioButton.new(@form).
+        variable($radio).
+        text("red").
+        value("red").
+        color("red").
+        display_length(dlen).  # helps when right aligning
+        row(row).
+        col(col)
+
+      radio11 = RadioButton.new @form do
+        variable $radio
+        text "c&yan"
+        value "cyan"
+        color "cyan"
+        display_length dlen  # helps when right aligning
+        row row
+        col col+24
+      end
+
+      row += 1
+      radio2 = RadioButton.new @form do
+        variable $radio
+        text  "&green"
+        value  "green"
+        color "green"
+        display_length dlen  # helps when right aligning
+        row row
+        col col
+      end
+      radio22 = RadioButton.new @form do
+        variable $radio
+        text "magenta"
+        value "magenta"
+        color "magenta"
+        display_length dlen  # helps when right aligning
+        row row
+        col col+24
+      end
+      colorlabel.label_for radio1
+
+      # instead of using frozen, I will use a PropertyVeto
+      # to disallow changes to color itself
+      veto = lambda { |e, name|
+        if e.property_name == 'color'
+          if e.newvalue != name
+            raise PropertyVetoException.new("Cannot change this at all!", e)
+          end
+        elsif e.property_name == 'bgcolor'
+            raise PropertyVetoException.new("Cannot change this!", e)
+        end
+      }
+      [radio1, radio2, radio11, radio22].each { |r|
+        r.bind(:PROPERTY_CHANGE) do |e| veto.call(e, r.text) end
+      }
+
+      @status_line = status_line :row => Ncurses.LINES-2
+      @status_line.command {
+        "F1 Help | F2 Menu | F3 View | F4 Shell | F5 Sh | %20s" % [$message.value]
+      }
+      row += 1 #2
+      ## DSL style of construction
+      ok_button = Button.new @form do
+        text "OK"
+        name "OK"
+        row row
+        col col
+        #attr 'reverse'
+        #highlight_background "white"
+        #highlight_foreground "blue"
+        mnemonic 'O'
+      end
+      ok_button.command() { |eve|
+        alert("Hope you enjoyed this demo - Press the Cancel button to quit", {'title' => "Hello", :bgcolor => :blue , :color => :white})
+      }
+
+      ## conventional style of construction
+      # using ampersand to set mnemonic
+      cancel_button = Button.new(@form).
+        text("&Cancel").
+        name("Cancel").
+        row(row).
+        col(col + 10)
+        #attr 'reverse'
+        #highlight_background "white"
+        #highlight_foreground "blue"
+        #surround_chars ['{ ',' }']  ## change the surround chars
+      cancel_button.command { |aeve|
+        #if @lookfeel == :dialog
+        if togglebutton.value == true
+          ret = confirm("Do your really want to quit?")
+        else
+          ret = confirm_window("Do your really want to quit?")
+        end
+        if ret == :YES || ret == true
+          throw(:close);
+        else
+          $message.value = "Quit aborted"
+        end
+      }
+      #col += 22
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+
+      # the main loop
+
+      while((ch = @window.getchar()) != FFI::NCurses::KEY_F10 )
+        break if ch == ?\C-q.getbyte(0)
+        begin
+          @form.handle_key(ch)
+
+        rescue FieldValidationException => fve
+          alert fve.to_s
+
+          f = @form.get_current_field
+          # lets restore the value
+          if f.respond_to? :restore_original_value
+            f.restore_original_value
+            @form.repaint
+          end
+          $error_message.value = ""
+        rescue => err
+          $log.error( err) if err
+          $log.error(err.backtrace.join("\n")) if err
+          textdialog err
+          $error_message.value = ""
+        end
+
+        # this should be avoided, we should not muffle the exception and set a variable
+        # However, we have been doing that
+        if $error_message.get_value != ""
+          if @lookfeel == :dialog
+            alert($error_message, {:bgcolor => :red, 'color' => 'yellow'}) if $error_message.get_value != ""
+          else
+            print_error_message $error_message, {:bgcolor => :red, :color => :yellow}
+          end
+          $error_message.value = ""
+        end
+
+        @window.wrefresh
+      end # while loop
+    end # catch
+  rescue => ex
+  ensure
+    $log.debug " -==== EXCEPTION =====-"
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+    @window.destroy if !@window.nil?
+    VER::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+  end
+end

data/examples/testcombo.rb

@@ -0,0 +1,102 @@
+require 'logger'
+require 'rbhex'
+require 'rbhex/core/widgets/rcombo'
+require 'rbhex/core/include/appmethods.rb'
+def help_text
+      <<-eos
+               COMBO  HELP
+
+      This is some help text for Combos
+
+      You may press SPACE to invoke the popup and then use arrow keys to traverse. (j and k may also work)
+      SPACE on the popup to select.
+
+      You may press the first character of the desired item to see all those items starting with that char.
+      e.g. pressing "v" will cycle through vt100 and vt102
+
+
+      If the arrow_key_policy is set to :popup then a down arrow will also invoke popup. However, if you
+      prefer the down arrow to go to the next field, use :ignore. In that case, only SPACE can trigger POPUP.
+
+      -----------------------------------------------------------------------
+      eos
+end
+if $0 == __FILE__
+
+  include RubyCurses
+  include RubyCurses::Utils
+
+  begin
+  # Initialize curses
+    VER::start_ncurses  # this is initializing colors via ColorMap.setup
+    path = File.join(ENV["LOGDIR"] || "./" ,"rbc13.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT)
+    $log = Logger.new(path)
+    $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 testcombo.rb --------- #{@window} "
+      @form = Form.new @window
+      title = (" "*30) + "Demo of Combo (F10 quits, F1 help, SPACE to popup combo) " + Rbhex::Core::VERSION
+      Label.new @form, {:text => title, :row => 1, :col => 0, :color => :green, :bgcolor => :black}
+      r = 3; fc = 12;
+
+
+
+        cb = ComboBox.new @form, :row => 7, :col => 2, :display_length => 20,
+          :list => %w[xterm xterm-color xterm-256color screen vt100 vt102],
+          :arrow_key_policy => :popup,
+          :label => "Declare terminal as: "
+
+      # arrow_key_policy can be popup or ignore
+        # display_length is used to place combo symbol and popup and should be calculated
+        # from label.text
+
+      @form.help_manager.help_text = help_text
+      #@form.bind_key(FFI::NCurses::KEY_F1, 'help') {  display_app_help help_text() }
+      @form.bind_key(FFI::NCurses::KEY_F1, 'help') {  display_app_help }
+      @form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+
+      # the main loop
+
+      while((ch = @window.getchar()) != FFI::NCurses::KEY_F10 )
+        break if ch == ?\C-q.getbyte(0)
+        begin
+          @form.handle_key(ch)
+
+        rescue => err
+          $log.error( err) if err
+          $log.error(err.backtrace.join("\n")) if err
+          textdialog err
+          $error_message.value = ""
+        end
+
+        # this should be avoided, we should not muffle the exception and set a variable
+        # However, we have been doing that
+        if $error_message.get_value != ""
+          alert($error_message, {:bgcolor => :red, 'color' => 'yellow'}) if $error_message.get_value != ""
+          $error_message.value = ""
+        end
+
+        @window.wrefresh
+      end # while loop
+    end # catch
+  rescue => ex
+  ensure
+    $log.debug " -==== EXCEPTION =====-"
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+    @window.destroy if !@window.nil?
+    VER::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+  end
+end