rbcurse 1.4.1 → 1.5.0.pre1

data/lib/rbcurse/rmessagebox.rb

@@ -1,348 +0,0 @@
-=begin
-  * Name: rmessagebox: creates messageboxes
-  * Description   
-  * Author: rkumar (arunachalesha)
-  * Date: 2008-11-19 12:49 
-  * License: Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-  * file separated on 2009-01-13 22:39 
-
-=end
-require 'rbcurse/rwidget'
-require 'rbcurse/rlistbox'
-
-module RubyCurses
-  ##
-  # dimensions of window should be derived on content
-  #
-  class MessageBox
-    include RubyCurses::Utils
-    dsl_accessor :title
-    dsl_accessor :message
-    dsl_accessor :type               # :ok, :ok_cancel :yes_no :yes_no_cancel :custom
-    dsl_accessor :default_button     # TODO - currently first
-    dsl_accessor :layout
-    dsl_accessor :buttons           # used if type :custom
-    dsl_accessor :underlines           # offsets of each button to underline
-    attr_reader :config
-    attr_reader :selected_index     # button index selected by user
-    attr_reader :window     # required for keyboard
-    dsl_accessor :list_selection_mode  # true or false allow multiple selection
-    dsl_accessor :list  # 2009-01-05 23:59 
-    dsl_accessor :button_type      # ok, ok_cancel, yes_no
-    dsl_accessor :default_value     # 
-    dsl_accessor :default_values     # #  2009-01-06 00:05 after removing meth missing 
-    dsl_accessor :height, :width, :top, :left  #  2009-01-06 00:05 after removing meth missing
-
-    dsl_accessor :message_height
-
-
-    def initialize form=nil, aconfig={}, &block
-      @form = form
-      @config = aconfig
-      @buttons = []
-      #@keys = {}
-      @bcol = 5
-      @selected_index = -1
-      @config.each_pair { |k,v| instance_variable_set("@#{k}",v) }
-      instance_eval &block if block_given?
-      if @layout.nil? 
-        case @type.to_s
-        when "input"
-          layout(10,60, 10, 20) 
-        when "list"
-          height = [5, @list.length].min 
-          layout(10+height, 60, 5, 20)
-        when "field_list"
-          height = @field_list.length
-          layout(10+height, 60, 5, 20)
-        when "override"
-          $log.debug " override: #{@height},#{@width}, #{@top}, #{@left} "
-          layout(@height,@width, @top, @left) 
-          $log.debug " override: #{@layout.inspect}"
-        else
-          height = @form && @form.widgets.length ## quick fix. FIXME
-          height ||= 0
-          layout(10+height,60, 10, 20) 
-        end
-      end
-      @window = VER::Window.new(@layout)
-      if @form.nil?
-        @form = RubyCurses::Form.new @window
-      else
-        @form.window = @window
-      end
-      acolor = get_color $reversecolor # this implicitly uses color and bgcolor fooling me often
-      $log.debug " MESSAGE BOX #{@bgcolor} , #{@color} , #{acolor}"
-      @window.bkgd(Ncurses.COLOR_PAIR(acolor));
-      @window.wrefresh
-      @panel = @window.panel
-      Ncurses::Panel.update_panels
-      process_field_list
-      print_borders
-      print_title
-      print_message unless @message.nil?
-      print_input
-      create_buttons
-      @form.repaint
-      @window.wrefresh
-      handle_keys
-    end
-    ##
-    # takes care of a field list sent in
-    def process_field_list
-      return if @field_list.nil? or @field_list.length == 0
-      @field_list.each do |f|
-        f.set_form @form
-      end
-    end
-    def default_button offset0
-      @selected_index = offset0
-    end
-    ##
-    # value entered by user if type = input
-    def input_value
-      return @input.buffer if !@input.nil?
-      return @listbox.getvalue if !@listbox.nil?
-    end
-    def create_buttons
-      case @button_type.to_s.downcase
-      when "ok"
-        make_buttons ["&OK"]
-      when "ok_cancel" #, "input", "list", "field_list"
-        make_buttons %w[&OK &Cancel]
-        # experience 2009-02-22 12:52 trapping y and n - hopefully wont cause an edit problem
-        @form.bind_key(?o){ press(?\M-o) }   # called method takes care of getbyte 1.9
-        @form.bind_key(?c){ press(?\M-c) }   # called method takes care of getbyte 1.9
-      when "yes_no"
-        make_buttons %w[&Yes &No]
-        # experience 2009-02-22 12:52 trapping y and n - hopefully wont cause an edit problem
-        @form.bind_key(?y){ press(?\M-y) }   # called method takes care of getbyte 1.9
-        @form.bind_key(?n){ press(?\M-n) }   # called method takes care of getbyte 1.9
-      when "yes_no_cancel"
-        make_buttons ["&Yes", "&No", "&Cancel"]
-      when "custom"
-        raise "Blank list of buttons passed to custom" if @buttons.nil? or @buttons.size == 0
-        make_buttons @buttons
-      else
-        $log.debug "No type passed for creating messagebox. Using default (OK)"
-        make_buttons ["&OK"]
-      end
-    end
-    def make_buttons names
-      total = names.inject(0) {|total, item| total + item.length + 4}
-      bcol = center_column total
-
-      brow = @layout[:height]-3
-      button_ct=0
-      names.each_with_index do |bname, ix|
-        text = bname
-        #underline = @underlines[ix] if !@underlines.nil?
-
-        button = Button.new @form do
-          text text
-          name bname
-          row brow
-          col bcol
-          #underline underline
-          highlight_background $datacolor 
-          color $reversecolor
-          bgcolor $reversecolor
-        end
-        index = button_ct
-        button.command { |form| @selected_index = index; @stop = true; $log.debug "Pressed Button #{bname}";}
-        button_ct += 1
-        bcol += text.length+6
-      end
-    end
-    ## message box
-    def stopping?
-      @stop
-    end
-    def handle_keys
-      begin
-        while((ch = @window.getchar()) != 999 )
-          case ch
-          when -1
-            next
-          else
-            press ch
-            break if @stop
-          end
-        end
-      ensure
-        destroy  
-      end
-      return @selected_index
-    end
-    def press ch
-      ch = ch.getbyte(0) if ch.class==String ## 1.9
-        case ch
-        when -1
-          return
-        when KEY_F1, 27, ?\C-q.getbyte(0)   
-          @selected_index = -1
-          @stop = true
-          return
-        when KEY_ENTER, 10, 13
-          field =  @form.get_current_field
-          if field.respond_to? :fire
-            field.fire
-          end
-          #$log.debug "popup ENTER : #{@selected_index} "
-          #$log.debug "popup ENTER :  #{field.name}" if !field.nil?
-          @stop = true
-          return
-        when KEY_TAB
-          @form.select_next_field
-        when KEY_BTAB
-          @form.select_prev_field
-        else
-          # fields must return unhandled else we will miss hotkeys. 
-          # On messageboxes, often if no edit field, then O and C are hot.
-          field =  @form.get_current_field
-          handled = field.handle_key ch
-
-          if handled == :UNHANDLED
-            ret = @form.process_key ch, self ## trying out trigger button
-          end
-        end
-        @form.repaint
-        Ncurses::Panel.update_panels();
-        Ncurses.doupdate();
-        @window.wrefresh
-    end
-    def print_borders
-      width = @layout[:width]
-      height = @layout[:height]
-      @window.print_border_mb 1,2, height, width, $normalcolor, FFI::NCurses::A_REVERSE
-=begin
-      start = 2
-      hline = "+%s+" % [ "-"*(width-((start+1)*2)) ]
-      hline2 = "|%s|" % [ " "*(width-((start+1)*2)) ]
-      @window.printstring(row=1, col=start, hline, color=$reversecolor)
-      (start).upto(height-2) do |row|
-        @window.printstring row, col=start, hline2, color=$normalcolor, A_REVERSE
-      end
-      @window.printstring(height-2, col=start, hline, color=$reversecolor)
-=end
-    end
-    def print_title title=@title
-      width = @layout[:width]
-      title = " "+title+" "
-      @window.printstring(row=1,col=(width-title.length)/2,title, color=$normalcolor)
-    end
-    def center_column textlen
-      width = @layout[:width]
-      return (width-textlen)/2
-    end
-    def print_message message=@message, row=nil
-      @message_row = @message_col = 2
-      display_length = @layout[:width]-8
-        $log.debug " print_message: dl:#{display_length} "
-      # XXX this needs to go up and decide height of window
-      if @message_height.nil?
-        @message_height = (message.length/display_length)+2
-        #$log.debug " print_message: mh:#{@message_height}, ml: #{message.length}"
-      end
-      @message_height ||= 1
-      width = @layout[:width]
-      return if message.nil?
-      case @type.to_s
-      when "input" 
-        row=(@layout[:height]/3) if row.nil?
-        @message_col = 4
-      when "list" 
-        row=3
-        @message_col = 4 
-      else
-        row=(@layout[:height]/3) if row.nil?
-        @message_col = (width-message.length)/2
-        @message_col = 4 if @message.is_a? Array
-        @message_col = 4 if @message_col < 4 # this was often disappearing 2010-10-17 13:00 
-        #$log.debug "XX ALERT col #{@message_col} w: #{width} len: #{message.length} "
-      end
-      @message_row = row
-      # added 2009-11-05 14:53 to fix erasure of border
-      display_length -= @message_col
-      # 2008-12-30 19:45 experimenting with label so we can get justify and wrapping.
-      # 2011-09-20 trying to take care of when user changes color and bgcolor while calling.
-      clr = @color || :black
-      bgclr = @bgcolor || :white
-      message_label = RubyCurses::Label.new @form, {'text' => message, "name"=>"message_label","row" => row, "col" => @message_col, "display_length" => display_length,  "height" => @message_height, 'bgcolor' => bgclr , 'color' => clr}
-
-    end
-    def print_input
-      #return if @type.to_s != "input"
-      @message_height ||= 0
-      @message_row ||= 2
-      @message_col ||= 2
-      r = @message_row + @message_height + 1
-      c = @message_col
-      disp_len = @layout[:width]-8
-      defaultvalue = @default_value || ""
-      input_config = @config["input_config"] || {} # see test1.rb for usage example
-      case @type.to_s 
-      when "input"
-        @input = RubyCurses::Field.new @form, input_config do
-          name   "input" 
-          row  r 
-          col  c 
-          display_length disp_len
-          set_buffer defaultvalue
-        end
-      when "list"
-        list = @list
-        selection_mode = @list_selection_mode 
-        default_values = @default_values
-        $log.debug " value of select_mode #{selection_mode}"
-        @listbox = RubyCurses::Listbox.new @form do
-          name   "input" 
-          row  r 
-          col  c 
-
-          color 'black'
-          bgcolor 'white'
-          # now listcellrenderer only uses BOLD for selected, with a white bgcolor
-          # so here it won't show up on white bg
-          selected_color 'red'
-          selected_bgcolor 'black'
-          # just added 2010-10-14 21:24 
-          border_attrib :reverse
-          width 30
-          height 6
-          list  list
-          # ?? display_length  30
-          #set_buffer defaultvalue
-          selection_mode selection_mode
-          default_values default_values
-          is_popup false
-        end
-      end
-    end
-    def configure(*val , &block)
-      case val.size
-      when 1
-        return @config[val[0]]
-      when 2
-        @config[val[0]] = val[1]
-        instance_variable_set("@#{val[0]}", val[1]) 
-      end
-      instance_eval &block if block_given?
-    end
-    def cget param
-      @config[param]
-    end
-
-    def layout(height=0, width=0, top=0, left=0)
-      @layout = { :height => height, :width => width, :top => top, :left => left } 
-    end
-    def destroy
-      $log.debug "DESTROY : messagebox"
-      panel = @window.panel
-      #Ncurses::Panel.del_panel(panel) if !panel.nil?   
-      panel.del_panel if !panel.nil?
-      @window.delwin if !@window.nil?
-      Ncurses::Panel.update_panels # 2011-10-1 so window below doesn't have a black rectangle
-    end
-  end
-end

data/lib/rbcurse/rmulticontainer.rb

@@ -1,304 +0,0 @@
-=begin
-  * Name: MultiContainer 
-  * Description   View (cycle) multiple components in one container using a key or menu
-  * Author: rkumar (arunachalesha)
-  * file created 2010-03-15 10:40 
-  --------
-  * License:
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
-require 'rbcurse'
-
-include RubyCurses
-module RubyCurses
-  extend self
-
-  ##
-  # Extends TextView with ability to load more than one file or content
-  # and switch between files (buffers).
-  # NOTE: ideally, i should be able to dynamically add this functionality to either Textview
-  # or TextArea or even ListBox or Table someday. Should then be a Module rather than a class.
-  class MultiContainer < Widget
-    dsl_accessor :title
-
-
-    def initialize form = nil, config={}, &block
-      @focusable = true
-      @row_offset = @col_offset = 1
-      super
-      @bmanager = BufferManager.new self
-      init_vars
-
-    end
-    def init_vars
-      super
-      # the following allows us to navigate buffers with :bn :bp etc (with Alt pressed)
-      bind_key(?\M-:, :buffer_menu)
-      bind_key(?\M-;, :buffer_menu)
-      # bind_key([?\C-x, ?f], :file_edit)
-      bind_key([?\C-x, ?k], :delete_component)
-      bind_key([?\C-x, ?\C-b], :list_components)
-      bind_key(?\M-n, :goto_next_component)
-      bind_key(?\M-p, :goto_prev_component)
-      bind_key(?\M-1, :goto_first_component)
-      # easily cycle using p. n is used for next search.
-      #bind_key(?p, :buffer_previous)
-      @suppress_borders = false 
-      @repaint_all = true 
-      @name ||= "multicontainer"
-    end
-    ## returns current buffer
-    # @return  [RBuffer] current buffer
-    def current_component
-      @bmanager.current
-    end
-    ##
-    # Add a component with a title
-    # @param [Widget] component
-    # @param [String] title
-    def add component, title
-      component.row    = @row+@row_offset+0 # FFI changed 1 to 0 2011-09-12
-      component.col    = @col+@col_offset+0 # FFI changed 1 to 0 2011-09-12
-      component.width  = @width-2
-      component.height = @height-2
-      component.form   = @form
-      component.override_graphic(@graphic)
-      @current_buffer = @bmanager.add component, title
-      @current_component = @current_buffer.component
-      #set_current_component
-      #set_form_row ## FFI added 2011-09-12 to get cursor at start when adding
-      $log.debug "MULTICONT ADD got cb : #{@current_component} "
-    end
-    def set_current_component
-      @current_component = @current_buffer.component
-      @current_title = @current_component.title          # NOTE: unused, don't knw what for
-      set_form_row 
-      @current_component.repaint_all true
-    end
-    # required otherwise some components may not get correct cursor position on entry
-    # e.g. table
-    def on_enter
-      set_form_row
-    end
-    def set_form_row  #:nodoc:
-      if !@current_component.nil?
-        cc = @current_component
-    
-        @current_component.on_enter # 2011-10-19 why was this not there earlier
-
-        # 2011-10-21 I've tried removing next 2 lines but there are certain case
-        # that do need them. See testmulticontainer.rb
-        
-        @current_component.set_form_row 
-        @current_component.set_form_col 
-  
-      end
-    end
-    def set_form_col
-      # deliberately empty since Form will call this and Widgets one is unsuitable
-      # for us
-    end
-    ## 
-    # multi-container
-    def handle_key ch  #:nodoc:
-      $log.debug " MULTI handlekey #{ch}, #{@current_component}"
-      ret = :UNHANDLED
-      return :UNHANDLED unless @current_component
-
-      ret = @current_component.handle_key(ch)
-      $log.debug " MULTI = current comp #{@current_component} returned #{ret} "
-      if ret == :UNHANDLED
-        # check for bindings, these cannot override above keys since placed at end
-        begin
-          ret = process_key ch, self
-          $log.debug " MULTI = process_key returned #{ret} "
-          if ch > 177 && ch < 187
-            n = ch - 177
-      
-            component_at(n)
-            ret = 0 # other unhandled goes back
-            # go to component n
-          end
-        rescue => err
-          $error_message.value = err.to_s
-          $log.error " Multicomponent process_key #{err} "
-          $log.debug(err.backtrace.join("\n"))
-          alert err.to_s
-        end
-        return :UNHANDLED if ret == :UNHANDLED
-      end
-      # check for any keys not handled and check our own ones
-      return ret # 
-    end
-    def repaint
-      print_border if (@suppress_borders == false && @repaint_all) # do this once only, unless everything changes
-      return unless @current_component
-      $log.debug " MULTI REPAINT - calling current_comps repaint #{@current_component} "
-      ret = @current_component.repaint
-    end
-    def print_border  #:nodoc:
-      #$log.debug " #{@name} print_borders,  #{@graphic.name} "
-      color = $datacolor
-      @graphic.print_border_only @row, @col, @height-1, @width, color #, Ncurses::A_REVERSE
-      print_title
-    end
-    def print_title  #:nodoc:
-      #$log.debug " print_title #{@row}, #{@col}, #{@width}  "
-      _title = @title || "" + @current_title
-      @graphic.printstring( @row, @col+(@width-_title.length)/2, _title, $datacolor, @title_attrib) unless _title.nil?
-    end
-    # this is just a test of the simple "most" menu
-    # can use this for next, prev, first, last, new, delete, overwrite etc
-    def buffer_menu
-      menu = PromptMenu.new self 
-      menu.add(menu.create_mitem( 'l', "list buffers", "list buffers ", :list_components ))
-      item = menu.create_mitem( 'b', "Buffer Options", "Buffer Options" )
-      menu1 = PromptMenu.new( self, "Buffer Options")
-      menu1.add(menu1.create_mitem( 'n', "Next", "Switched to next buffer", :goto_next_component ))
-      menu1.add(menu1.create_mitem( 'p', "Prev", "Switched to previous buffer", :goto_prev_component ))
-      menu1.add(menu1.create_mitem( 'f', "First", "Switched to first buffer", :goto_first_component ))
-      menu1.add(menu1.create_mitem( 'l', "Last", "Switched to last buffer", :goto_last_component ))
-      menu1.add(menu1.create_mitem( 'd', "Delete", "Deleted buffer", :delete_component ))
-      item.action = menu1
-      menu.add(item)
-      # how do i know what's available. the application or window should know where to place
-      menu.display @form.window, $error_message_row, $error_message_col, $datacolor #, menu
-    end
-
-
-    def goto_next_component
-      perror "No other buffer" and return if @bmanager.size < 2
-
-      @current_buffer = @bmanager.next
-      set_current_component
-    end
-
-    def goto_prev_component
-      perror "No other buffer" and return if @bmanager.size < 2
-
-      @current_buffer = @bmanager.previous
-      $log.debug " buffer_prev got #{@current_buffer} "
-      set_current_component
-    end
-    def goto_first_component
-      @current_buffer = @bmanager.first
-      $log.debug " buffer_first got #{@current_buffer} "
-      set_current_component
-    end
-    def goto_last_component
-      @current_buffer = @bmanager.last
-      $log.debug " buffer_last got #{@current_buffer} "
-      set_current_component
-    end
-    def delete_component
-      if @bmanager.size > 1
-        @bmanager.delete_at
-        @current_component = @bmanager.previous
-        set_current_component
-      else
-        perror "Only one buffer. Cannot delete."
-      end
-    end
-
-    def component_at index
-      cc = @bmanager.element_at index
-      return unless cc 
-      @current_component = cc 
-      #$log.debug " buffer_last got #{@current_component} "
-      set_current_component
-    end
-    def perror errmess
-      alert errmess
-      #@form.window.print_error_message errmess
-    end
-    def list_components
-      $log.debug " TODO buffers_list: #{@bmanager.size}  "
-      menu = PromptMenu.new self 
-      @bmanager.each_with_index{ |b, ix|
-        aproc = Proc.new { component_at(ix) }
-        name = b.title
-        num = ix + 1
-        menu.add(menu.create_mitem( num.to_s, name, "Switched to buffer #{ix}", aproc ))
-      }
-      menu.display @form.window, $error_message_row, $error_message_col, $datacolor
-    end
-  end # class multicontainer
-  ##
-  # Handles multiple buffers, navigation, maintenance etc
-  # Instantiated at startup of 
-  #
-  class BufferManager
-    include Enumerable
-    def initialize source
-      @source = source
-      @buffers = [] # contains RBuffer
-      @counter = 0
-      # for each buffer i need to store data, current_index (row), curpos (col offset) and title (filename).
-    end
-    def element_at index
-      @buffers[index]
-    end
-    def each
-      @buffers.each {|k| yield(k)}
-    end
-
-    ##
-    # @return [RBuffer] current buffer/file
-    ##
-    def current
-      @buffers[@counter]
-    end
-    ##
-    # Would have liked to just return next buffer and not get lost in details of caller
-    #
-    # @return [RBuffer] next buffer/file
-    ##
-    def next
-      @counter += 1
-      @counter = 0 if @counter >= @buffers.size
-      @buffers[@counter]
-    end
-    ##
-    # @return [RBuffer] previous buffer/file
-    ##
-    def previous
-      $log.debug " previous bs: #{@buffers.size}, #{@counter}  "
-      @counter -= 1
-      return last() if @counter < 0
-      $log.debug " previous ctr  #{@counter} "
-      @buffers[@counter]
-    end
-    def first
-      @counter = 0
-      @buffers[@counter]
-    end
-    def last
-      @counter = @buffers.size - 1
-      @buffers[@counter]
-    end
-    ##
-    def delete_at index=@counter
-      @buffers.delete_at index
-    end
-    def delete_by_name name
-      @buffers.delete_if {|b| b.filename == name }
-    end
-    def insert component, position, title=nil
-      anew = RComponents.new(component, title)
-      @buffers.insert position, anew
-      @counter = position
-      return anew
-    end
-    def add component, title=nil
-      $log.debug " ADD H: #{component.height} C: #{component.width} "
-      insert component, @buffers.size, title
-    end
-    def size
-      @buffers.size
-    end
-    alias :count :size
-  end
-  RComponents = Struct.new(:component, :title)
-
-end # modul