canis 0.0.4

data/examples/testcombo.rb

@@ -0,0 +1,102 @@
+require 'logger'
+require 'canis'
+require 'canis/core/widgets/rcombo'
+require 'canis/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)
+'v' on the popup to select (or whatever has been set as $row_selector (#{keycode_tos($row_selector)}) )
+
+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 Canis
+  include Canis::Utils
+
+  begin
+  # Initialize curses
+    Canis::start_ncurses  # this is initializing colors via ColorMap.setup
+    path = File.join(ENV["LOGDIR"] || "./" ,"canis14.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT) 
+    $log = Logger.new(path)
+    $log.level = Logger::DEBUG
+
+    @window = Canis::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) " + Canis::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, :width => 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
+        # width 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?
+    Canis::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+  end
+end

data/examples/testdb.rb

@@ -0,0 +1,182 @@
+#!/usr/bin/env ruby
+
+# Using tablewidget with sqlite3 resultset
+# TODO : make columns hidden on key - toggle, how to get back then
+# TODO : move column position
+# TODO : filter column
+# TODO : menu on C-x to delete a column, hide unhide expand etc, use pad menu
+require 'logger'
+require 'canis'
+require 'canis/core/widgets/table'
+require 'sqlite3'
+#
+def get_data
+  dbname = "movie.sqlite"
+  raise unless File.exists? dbname
+  db = SQLite3::Database.new(dbname)
+  sql = "select * from movie"
+  $columns, *rows = db.execute2(sql)
+  content = rows
+  return nil if content.nil? or content[0].nil?
+  $datatypes = content[0].types #if @datatypes.nil?
+  return content
+end
+
+def edit_row tw
+  row = tw.current_value
+  h   = tw.columns
+  _edit h, row, " Edit "
+  tw.fire_row_changed tw.current_index
+end
+def insert_row tw
+  h   = tw.columns
+  row = []
+  h.each { |e| row << "" }
+  ret = _edit h, row, "Insert"
+  if ret
+    tw.add row
+    tw.fire_dimension_changed
+  end
+end
+
+# making a generic edit messagebox - quick dirty
+def _edit h, row, title
+  _l = longest_in_list h
+  _w = _l.size
+  # _w can be longer than 70, assuming that screen is 70 or more
+  config = { :width => 70, :title => title }
+  bw = get_color $datacolor, :black, :white
+  mb = MessageBox.new config do
+    txt = nil
+    h.each_with_index { |f, i| 
+      txt = row[i] || ""
+      add LabeledField.new :label => "%*s:" % [_w, f], :text => txt.chomp, :name => i.to_s, 
+        :bgcolor => :cyan,
+        :width => 50,
+        :label_color_pair => bw
+    }
+    button_type :ok_cancel
+  end
+  index = mb.run
+  return nil if index != 0
+  h.each_with_index { |e, i| 
+    f = mb.widget(i.to_s)
+    row[i] = f.text
+  }
+  row
+end
+begin
+  # Initialize curses
+  Canis::start_ncurses  # this is initializing colors via ColorMap.setup
+  path = File.join(ENV["LOGDIR"] || "./" ,"canis14.log")
+  logfilename   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT) 
+  $log = Logger.new(logfilename)
+  $log.level = Logger::DEBUG
+
+
+  colors = Ncurses.COLORS
+  back = :black
+  lineback = :blue
+  back = 234 if colors >= 256
+  lineback = 236 if colors >= 256
+
+  catch(:close) do
+    @window = Canis::Window.root_window
+    @form = Form.new @window
+
+    #header = app_header "0.0.1", :text_center => "Movie Database", :text_right =>"" , :name => "header" , :color => :white, :bgcolor => lineback , :attr => :bold 
+
+
+
+    _col = "#[fg=yellow]"
+    $message = Variable.new
+    $message.value = ""
+=begin
+    @status_line = status_line :row => Ncurses.LINES-1 #, :bgcolor => :red, :color => :yellow
+    @status_line.command {
+      "#[bg=236, fg=black]#{_col}F1#[/end] Help | #{_col}?#[/end] Keys | #{_col}M-c#[/end] Ask | #{_col}M-d#[/end] History | #{_col}M-m#[/end] Methods | %20s" % [$message.value]
+    }
+=end
+
+    h = FFI::NCurses.LINES-4
+    w = FFI::NCurses.COLS
+    r = 1
+    #header = %w[ Pos Last Title Director Year Country Mins BW]
+    #file = "movies1000.txt"
+
+    arr = get_data
+    tv = Canis::Table.new @form, :row => 1, :col => 0, :height => h, :width => w, :name => "tv", :suppress_borders => false do |b|
+
+      b.resultset $columns, arr
+
+      b.model_row 1
+      b.column_width 0, 5
+      #b.get_column(2).color = :red
+      #b.get_column(3).color = :yellow
+      #b.get_column(2).bgcolor = :blue
+      b.column_width 1, 5
+      b.column_width 4, 5
+      #b.column_width 2, 5
+      b.column_align 6, :right
+      #b.column_width 2, b.calculate_column_width(2)
+      b.column_width 2, 50
+      b.column_width 3, 25
+      b.column_width 5, 10
+      #b.column_width 3, 55
+      #b.column_hidden 1, true
+    end
+    mcr = Canis::DefaultTableRenderer.new tv
+    mcr.header_colors :white, :red
+    tv.renderer mcr
+    mcr.column_model ( tv.column_model )
+    tv.create_default_sorter
+    tv.move_column 1,-1
+
+    # pressing ENTER on a method name will popup details for that method
+    tv.bind(:PRESS) { |ev|
+      if @current_index > 0
+        w = ev.word_under_cursor.strip
+        w = ev.text
+      # the curpos does not correspond to the formatted display, this is just the array
+      # without the width info XXX
+        alert "#{ev.current_index}, #{ev.curpos}: #{w}"
+      end
+    }
+    tv.bind_key(?e) { edit_row(tv) }
+    tv.bind_key(?i) { insert_row(tv) }
+    tv.bind_key(?D) { tv.delete_at tv.current_index }
+    @form.bind_key(?\M-c, "Filter") {
+      tv = @form.by_name["tv"]; 
+      str = get_string "Enter name of director:"
+      if str && str.length > 0
+      m = tv.matching_indices do |ix, fields|
+        fields[3] =~ /#{str}/i
+      end
+      else
+        tv.clear_matches
+      end
+    }
+
+
+    $message.value = "#{tv.current_index}: #{tv.lastrow}, #{tv.lastcol}"
+    @form.repaint
+    @window.wrefresh
+    Ncurses::Panel.update_panels
+    while((ch = @window.getchar()) != KEY_F10 )
+      break if ch == ?q.ord || ch == ?\C-q.getbyte(0)
+      @form.handle_key(ch)
+      $message.value = "#{tv.current_index}: #{tv.lastrow}, #{tv.lastcol}"
+      @window.wrefresh
+    end
+  end
+rescue => ex
+  textdialog ["Error in rib: #{ex} ", *ex.backtrace], :title => "Exception"
+  $log.debug( ex) if ex
+  $log.debug(ex.backtrace.join("\n")) if ex
+ensure
+  @window.destroy if !@window.nil?
+  Canis::stop_ncurses
+  p ex if ex
+  p(ex.backtrace.join("\n")) if ex
+end
+  # a test renderer to see how things go

data/examples/testfields.rb

@@ -0,0 +1,208 @@
+require 'logger'
+require 'canis'
+require 'canis/core/include/appmethods.rb'
+def help_text
+      <<-eos
+# FIELD  HELP 
+
+This is some help text for |Fields|
+
+*Name* is non-focusable
+*Line* takes numbers from 1 to 200
+*Regex* takes only alpha
+*Password* takes only scotty or tiger or pass or qwerty, and can be left blank
+
+Use Alt (meta) with the highlighted character to jump to that field.
+<Alt-m> goes to line, <Alt-p> to password.
+
+Notice how the field label (for first 3 fields) becomes red when focused (as in Pine/Alpine). This uses
+the event `:ENTER` and `:LEAVE` and +set_label+. The other fields use `LabeledField+. In the first 3, the 
+labels row and col have not been specified, so are calculated. In the last 3, label's lcol and lrow are 
+specified for custom placement.
+
+
+>
+      F10      -   Exit application  (also C-q)
+      Alt-!    -   Drop to shell
+      C-x c    -   Drop to shell
+      C-x l    -   list of files
+      C-x p    -   process list
+      C-x d    -   disk usage list
+      C-x s    -   Git status
+      C-x w    -   Git whatchanged
+      Alt-x    -   Command mode (<tab> to see commands and select)
+
+      F3       -   View log
+      F4       -   prompt for unix command and display in viewer
+      F5       -   Drop to shell
+<
+
+-----------------------------------------------------------------------
+      eos
+end
+if $0 == __FILE__
+
+  include Canis
+  include Canis::Utils
+
+  begin
+  # Initialize curses
+    Canis::start_ncurses  # this is initializing colors via ColorMap.setup
+    path = File.join(ENV["LOGDIR"] || "./" ,"canis14.log")
+    file   = File.open(path, File::WRONLY|File::TRUNC|File::CREAT) 
+    $log = Logger.new(path)
+    $log.level = Logger::DEBUG
+
+    @lookfeel = :classic # :dialog # or :classic
+
+    @window = Canis::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 testfield.rb --------- #{@window} "
+      @form = Form.new @window
+      title = (" "*30) + "Demo of Field (F10 quits, F1 help) " + Canis::VERSION
+      Label.new @form, {:text => title, :row => 1, :col => 0, :color => :green, :bgcolor => :black}
+      r = 3; fc = 12;
+      mnemonics = %w[ n l r p]
+      %w[ name line regex password].each_with_index do |w,i|
+        field = Field.new @form do
+          name w 
+          row  r 
+          col  fc 
+          width  30
+          #text "abcd " 
+          set_label Label.new @form, {:text => w, :color=> :cyan, :mnemonic => mnemonics[i]}
+        end
+        r += 1
+      end
+
+      f = @form.by_name["line"]
+      f.width(3).text(24).valid_range(1..200).
+        maxlen(3).
+        type(:integer)
+
+      @form.by_name["name"].text( "Not focusable").
+        focusable(false)
+      
+      @form.by_name["regex"].valid_regex(/^[A-Z][a-z]*/).
+        text( "SYNOP").
+        width(10).
+        maxlen = 20
+
+      @form.by_name["password"].text("").
+        mask('*').
+        color(:red).
+        values(%w[scotty tiger secret pass qwerty]).
+        null_allowed true
+
+    r += 3
+    l1 = Label.new @form, :name => "LabeledField", :attr => 'bold', :text => "Profile", :row => r, :col => fc
+    r += 1
+    f1 = LabeledField.new @form,  :name => "name1", :maxlen => 20, :width => 20, :bgcolor => :white, 
+      :color => :black, :text => "abc", :label => '    Name: ', :row => r, :col => fc
+    r += 1
+    f2 = LabeledField.new @form, :name => "email", :width => 20, :bgcolor => :white, 
+      :color => :blue, :text => "me@google.com", :label => '   Email: ', :row => r, :col => fc
+    r += 3
+    f3 = LabeledField.new @form
+    f3.name("mobile").width(20).bgcolor(:white).color(:black).
+      text("").label('  Mobile: ').
+      row(r).col(fc).
+      type(:integer)
+    r += 2
+
+    LabeledField.new(@form).
+    name("landline").width(20).bgcolor(:white).color(:black).
+      text("").label('Landline: ').
+      row(r).col(fc).
+      chars_allowed(/[\d\-]/)
+      # a form level event, whenever any widget is focussed, make the label red
+    #
+
+    r += 2
+      %w[ profession title department].each_with_index do |w,i|
+        LabeledField.new(@form).label(w).width(20).text("").
+          bgcolor(:white).color(:black).
+          row(r+i).col(fc).lcol(01)
+      end
+      @form.bind_key(FFI::NCurses::KEY_F3,'view log') { 
+        require 'canis/core/util/viewer'
+        Canis::Viewer.view(path || "canis14.log", :close_key => KEY_ENTER, :title => "<Enter> to close")
+      }
+      @form.bind_key(FFI::NCurses::KEY_F4, 'system command') {  shell_output }
+      @form.bind_key(FFI::NCurses::KEY_F5, 'shell') {  suspend }
+      @form.bind_key([?\C-x,?c], 'shell') {  suspend }
+      @form.bind_key(?\M-!, 'shell') {  suspend }
+      @form.bind_key([?\C-x,?l], 'ls -al') {  run_command "ls -al" }
+      @form.bind_key([?\C-x,?p], 'ps -l') {  run_command "ps -l" }
+      @form.bind_key([?\C-x,?d], 'df -h') {  run_command "df -h" }
+      #@form.bind_key([?\C-x,?d], 'git diff') {  run_command "git diff --name-status" }
+      @form.bind_key([?\C-x, ?s], 'git st') {  run_command "git status" }
+      @form.bind_key([?\C-x,?w], 'git whatchanged') {  run_command "git whatchanged" }
+
+      @form.help_manager.help_text = help_text
+      @form.repaint
+      @form.widgets.each { |ff|
+        if ff.focusable?
+          ff.bind(:ENTER) { |f|   f.label && f.label.bgcolor = :red if (f.respond_to? :label and f.label.respond_to?(:bgcolor))}
+          ff.bind(:LEAVE) { |f|  f.label && f.label.bgcolor = 'black'   if (f.respond_to? :label and f.label.respond_to?(:bgcolor))}
+        end
+      }
+      @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
+          textdialog fve
+          
+          f = @form.get_current_field
+          # lets restore the value
+          if f.respond_to? :restore_original_value
+            f.restore_original_value
+            #@form.select_field @form.active_index
+            @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 =====-" if ex
+    $log.debug( ex) if ex
+    $log.debug(ex.backtrace.join("\n")) if ex
+    @window.destroy if !@window.nil?
+    Canis::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+  end
+end