canis 0.0.4

data/examples/tasks.rb

@@ -0,0 +1,179 @@
+require 'canis/core/util/app'
+require 'canis/core/include/defaultfilerenderer'
+#require 'canis/core/widgets/rlist'
+
+App.new do 
+def resize
+  tab = @form.by_name["tasklist"]
+  cols = Ncurses.COLS
+  rows = Ncurses.LINES
+  tab.width_pc ||= (1.0*tab.width / $orig_cols)
+  tab.height_pc ||= (1.0*tab.height / $orig_rows)
+  tab.height = (tab.height_pc * rows).floor
+  tab.width = (tab.width_pc * cols).floor
+  #$log.debug "XXX:  RESIZE h w #{tab.height} , #{tab.width} "
+end
+  @default_prefix = " "
+  header = app_header "canis #{Canis::VERSION}", :text_center => "Task List", :text_right =>"New Improved!"
+
+  message "Press F10 or qq to quit "
+
+  file = "data/todo.txt"
+  alist = File.open(file,'r').read.split("\n") if File.exists? file
+  #flow :margin_top => 1, :item_width => 50 , :height => FFI::NCurses.LINES-2 do
+  #stack :margin_top => 1, :width => :expand, :height => FFI::NCurses.LINES-4 do
+
+    #task = field :label => "    Task:", :width => 50, :maxlen => 80, :bgcolor => :cyan, :color => :black
+    #pri = field :label => "Priority:", :width => 1, :maxlen => 1, :type => :integer, 
+      #:valid_range => 1..9, :bgcolor => :cyan, :color => :black , :default => "5"
+    #pri.overwrite_mode = true
+    # u,se voerwrite mode for this TODO and catch exception
+
+    # modify the default file renderer
+    dr = DefaultFileRenderer.new
+    dr.insert_mapping /^x/, [:blue, :black]
+    dr.insert_mapping /^.1/, [:white, :blue]
+    dr.insert_mapping /^.2/, [:red, :blue]
+    dr.insert_mapping /^.3/, [:white, :black]
+    dr.insert_mapping /^.4/, [:green, :black]
+    dr.insert_mapping /^.5/, [:red, :black]
+    dr.insert_mapping /^.6/, [:cyan, :black]
+    dr.insert_mapping /^.[7-9]/, [:magenta, :black]
+
+    $data_modified = false
+    lb = listbox :list => alist.sort, :title => "[ todos ]", :name => "tasklist", :row => 1, :height => Ncurses.LINES-4, :width => Ncurses.COLS-1
+    lb.should_show_focus = false
+    lb.renderer dr
+    lb.bind_key(?d, "Delete Row"){ 
+      if confirm("Delete #{lb.current_value} ?")
+        lb.delete_at lb.current_index 
+        $data_modified = true
+        # TODO reposition cursor at 0. use list_data_changed ?
+      end
+    }
+    lb.bind_key(?e, "Edit Row"){ 
+      if ((value = get_string("Edit Task:", :width => 80, :default => lb.current_value, :maxlen => 80, :width => 70)) != nil)
+
+        lb[lb.current_index]=value
+        $data_modified = true
+      end
+    }
+    lb.bind_key(?a, "Add Record"){ 
+
+      # ADD
+    task = LabeledField.new :label => "    Task:", :width => 60, :maxlen => 80, :bgcolor => :cyan, :color => :black,
+    :name => 'task'
+    pri = LabeledField.new :label => "Priority:", :width => 1, :maxlen => 1, :type => :integer, 
+      :valid_range => 1..9, :bgcolor => :cyan, :color => :black , :default => "5", :name => 'pri'
+    pri.overwrite_mode = true
+    config = {}
+    config[:width] = 80
+    config[:title] =  "New Task"
+    tp = MessageBox.new config do
+      item task
+      item pri
+      button_type :ok_cancel
+      default_button 0
+    end
+    index = tp.run
+    if index == 0 # OK
+      # when does this memory get released ??? XXX 
+      _t = tp.form.by_name['pri'].text 
+      if _t != ""
+        val =  @default_prefix + tp.form.by_name['pri'].text + ". " + tp.form.by_name['task'].text 
+        w = @form.by_name["tasklist"]
+        _l = w.list
+        _l << val
+        w.list(_l.sort)
+        $data_modified = true
+      end
+    else # CANCEL
+      #return nil
+    end
+    }
+    # decrease priority
+    lb.bind_key(?-, 'decrease priority'){ 
+      line = lb.current_value
+      p = line[1,1].to_i
+      if p < 9
+        p += 1 
+        line[1,1] = p.to_s
+        lb[lb.current_index]=line
+        lb.list(lb.list.sort)
+        $data_modified = true
+      end
+    }
+    # increase priority
+    lb.bind_key(?+, 'increase priority'){ 
+      line = lb.current_value
+      p = line[1,1].to_i
+      if p > 1
+        p -= 1 
+        line[1,1] = p.to_s
+        lb[lb.current_index]=line
+        lb.list(lb.list.sort)
+        $data_modified = true
+        # how to get the new row of that item and position it there. so one
+        # can do consecutive increases or decreases
+        # cursor on old row, but current has become zero. FIXME
+        # Maybe setform_row needs to be called
+      end
+    }
+    # mark as done
+    lb.bind_key(?x, 'mark done'){ 
+      line = lb.current_value
+      line[0,1] = "x"
+      lb[lb.current_index]=line
+      lb.list(lb.list.sort)
+      $data_modified = true
+    }
+    # flag task with a single character
+    lb.bind_key(?!, 'flag'){ 
+      line = lb.current_value.chomp
+      value = get_string("Flag for #{line}. Enter one character.", :maxlen => 1, :width => 1)
+      #if ((value = get_string("Edit Task:", :width => 80, :default => lb.current_value)) != nil)
+        #lb[lb.current_index]=value
+      #end
+      if value ##&& value[0,1] != " "
+        line[0,1] = value[0,1]
+        lb[lb.current_index]=line
+        lb.list(lb.list.sort)
+        $data_modified = true
+      end
+    }
+  #end # stack
+  s = status_line
+  @form.bind(:RESIZE) {  resize }
+
+    keyarray = [
+      ["F1" , "Help"], ["F10" , "Exit"], 
+      ["F2", "Menu"], ["F4", "View"],
+      ["d", "delete item"], ["e", "edit item"],
+      ["a", "add item"], ["x", "close item"],
+      ["+", "inc priority"], ["-", "dec priority"],
+
+      ["M-x", "Command"], nil
+    ]
+
+    gw = get_color($reversecolor, 'green', 'black')
+    @adock = dock keyarray, { :row => Ncurses.LINES-2, :footer_color_pair => $datacolor, 
+      :footer_mnemonic_color_pair => gw }
+
+  @window.confirm_close_command do
+    confirm "Sure you wanna quit?", :default_button => 1
+  end
+  @window.close_command do
+    if $data_modified
+    w = @form.by_name["tasklist"]
+    if confirm("Save tasks?", :default_button => 0)
+      system("cp #{file} #{file}.bak")
+      File.open(file, 'w') {|f| 
+        w.list.each { |e|  
+          f.puts(e) 
+        } 
+      } 
+    end
+    end # if modif
+  end
+  
+end # app

data/examples/term2.rb

@@ -0,0 +1,88 @@
+require 'canis/core/util/app'
+require 'canis/core/widgets/tabular'
+require 'canis/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 "canis #{Canis::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], [5,6])
+      listbox :list => t.render
+
+      t = Tabular.new ['a', 'b']
+      t << [1, 2]
+      t << [3, 4]
+      t << [4, 6]
+      t << [8, 6]
+      t << [2, 6]
+      #list_box :list => t.to_s.split("\n")
+      listbox :list => t.render
+    end # stack
+
+
+    file = "data/tasks.csv"
+    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.chomp.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,307 @@
+# 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
+# 2014-04-30 - 23:46 removed variable in radiobutton to try out newly introduced
+# ButtonGroup.
+## -----
+## -- THIS WILL NOT WORK WITH < 0.0.15. WILL REQUIRE DOWNLOADING FIXES FROM GITHUB
+## OR HAVING AT LEAST 0.0.15
+#
+require 'logger'
+require 'canis'
+require 'canis/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 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
+    @lookfeel = :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  #{$0} --------- #{@window} "
+      @form = Form.new @window
+      title = (" "*30) + "Demo of Buttons" + Canis::VERSION
+      Label.new @form, {'text' => title, :row => 0, :col => 0, :color => 'green', :bgcolor => 'black'}
+      r = 1; fc = 12;
+        r += 1
+        row = 5
+        col = 3
+
+      _mess = "Message Comes Here"
+      message_label = Canis::Label.new @form, {text: _mess,
+        :name=>"message_label",:row => Ncurses.LINES-1, :col => 1, :width => 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").
+        width(18).
+        text("Bold attribute ").
+        mnemonic('B').
+        row(row).
+        col(col)
+      row += 1
+      # trying to do without thse stupid variables.
+      #@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 "
+        width 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_label.text "Modern look and feel for dialogs"
+        else
+          message_label.text "Classic look and feel for dialogs"
+        end
+      end
+
+      @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|  @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)}
+
+
+      checkbutton1.command do 
+        attrs =  checkbutton1.value ? 'reverse' : 'normal'; colorlabel.attr(attrs); message_label.attr(attrs)
+      end
+      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").
+        width(dlen).  # helps when right aligning
+        row(row).
+        col(col)
+
+      radio11 = RadioButton.new @form do
+        #variable $radio
+        text "c&yan"
+        value "cyan"
+        color "cyan"
+        width 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"
+        width dlen  # helps when right aligning
+        row row
+        col col
+      end
+      radio22 = RadioButton.new @form do
+        #variable $radio
+        text "magenta"
+        value "magenta"
+        color "magenta"
+        width dlen  # helps when right aligning
+        row row
+        col col+24
+      end
+      #$radio.update_command(colorlabel) {|tv, label|  label.color tv.value; }
+#
+      #$radio.update_command() {|tv|  @form.widgets.each { |e| next unless e.is_a? Widget; 
+        #e.bgcolor tv.value };  }
+      colorlabel.label_for radio1
+
+      group = ButtonGroup.new
+      [radio1, radio2, radio11, radio22].each { |r| 
+        group.add r
+      }
+      group.command(colorlabel) {|tv, label|  label.color tv.value; }
+#
+      group.command() {|tv|  @form.widgets.each { |e| next unless e.is_a? Widget; 
+        e.bgcolor tv.value };  }
+
+      # 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
+      }
+
+      require 'canis/core/widgets/statusline'
+      @status_line = Canis::StatusLine.new @form, :row => Ncurses.LINES-2
+      @status_line.command {
+        "F1 Help | F2 Menu | F3 View | F4 Shell | F5 Sh | %20s" % [message_label.text]
+      }
+      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 = rb_confirm("Do your really want to quit?") 
+        end
+        if ret 
+          throw(:close); 
+        else
+          message_label.text = "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?
+    Canis::stop_ncurses
+    puts ex if ex
+    puts(ex.backtrace.join("\n")) if ex
+  end
+end