rbcurse 1.5.2 → 1.5.3

data/lib/rbcurse/deprecated/widgets/rtabbedwindow.rb

@@ -1,167 +0,0 @@
-=begin
-  * Name: tabbed pane: can have multiple forms overlapping.
-  * Description:  This embeds a tabbedpane inside a window - a retake on tabbedwindow
-  * Author: rkumar
-
-  * Consists of a main window and form that contains the TabbedPane and several buttons
-    below. 
-    The tabbedpane itself contains a Form for the buttons, and then one form and Pad
-    each for the tab. Check TabbedPane for details since it can change.
-
-  --------
-  * Date: 2011-10-17 3:38 PM 
-  * License:
-    Same as Ruby's License (http://www.ruby-lang.org/LICENSE.txt)
-
-=end
-require 'logger'
-require 'rbcurse'
-require 'rbcurse/rtabbedpane'
-
-include RubyCurses
-module RubyCurses
-  extend self
-
-  # TODO :  insert_tab, remove_tab, disable/hide tab
-  # Hotkeys should be defined with ampersand, too.
-  #
-  class TabbedWindow
-    include EventHandler
-    dsl_accessor :row, :col
-    dsl_accessor :height, :width
-    dsl_accessor :button_type      # ok, ok_cancel, yes_no
-    dsl_accessor :buttons           # used if type :custom
-    attr_reader :selected_index
-    def initialize win, aconfig={}, &block
-      @parent = win
-      @bgcolor ||=  "black" # 0
-      @color ||= "white" # $datacolor
-      @attr = nil
-
-      @config = aconfig
-      @config.each_pair { |k,v| variable_set(k,v) }
-      instance_eval &block if block_given?
-      @tp = nil
-    end
-    def tabbed_pane
-      return @tp if @tp
-      @layout = { :height => @height, :width => @width, :top => @row, :left => @col } 
-      #@layout = { :height => 0, :width => 0, :top => 0, :left => 0 } 
-      @window = VER::Window.new(@layout)
-      @form = RubyCurses::Form.new @window
-      @form.name = "TWindow"
-      @form.navigation_policy = :CYCLICAL
-      h = @layout[:height] == 0 ? FFI::NCurses.LINES-2 : @layout[:height]-2
-      w = @layout[:width] == 0 ? FFI::NCurses.COLS : @layout[:width]-0
-      h -= 0
-      w -= 0
-      r = 0 # @row-0
-      c =0 # @col
-      @tp = RubyCurses::TabbedPane.new @form, :height => h, :width =>w, :row => r, :col => c
-      return @tp
-    end
-    #
-    # I am honestly not sure what block anyone is gonna pass to Tab
-    #  I confess i may have been even more ignorant than I am today. We
-    #  could use the block here, pass form here, if component not given especially
-    def add_tab text, component = nil, aconfig={}, &block
-      @tp ||= tabbed_pane
-      t = @tp.add_tab text, component, aconfig #, &block  # NOTE, not passing block there
-      if block_given?
-        yield @tp.form(t) 
-      end
-      return t
-    end
-    alias :tab :add_tab
-    alias :new_tab :add_tab
-    ##
-    def repaint
-    end
-    def show
-      # first create the main top window with the tab buttons on it.
-      @window.bkgd(Ncurses.COLOR_PAIR($datacolor));
-      @window.box( 0, 0);
-      @window.wrefresh
-      Ncurses::Panel.update_panels
-      create_buttons
-      @form.repaint
-      #handle_keys
-      # need to convey button pressed
-    end
-    def handle_keys
-      begin
-        while (( ch=@window.getchar()) != 999)
-          break if ch == ?\C-q.getbyte(0) || @stop
-          ret = @form.handle_key(ch)
-          if ret == :UNHANDLED
-            ret = @form.process_key ch, self # field
-            @form.repaint
-          end
-          @window.wrefresh
-          break if @stop  # 2011-10-21 somehow not coming out
-        end
-        return if @stop
-      ensure
-        destroy
-      end
-    end
-    def destroy
-      @window.destroy
-    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]
-      when "yes_no"
-        make_buttons %w[&Yes &No]
-      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 buttontype passed for creating tabbedpane. Using default (OK)"
-        make_buttons ["&OK"]
-      end
-    end
-    def make_buttons names
-      $log.debug "XXX: came to TW make buttons FORM= #{@form.name} "
-      total = names.inject(0) {|total, item| total + item.length + 4}
-      bcol = center_column total
-
-      # this craps out when height is zero
-      brow = @layout[:height]-2
-      brow = FFI::NCurses.LINES-2 if brow < 0
-      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 $reversecolor 
-          color $datacolor
-          bgcolor $datacolor
-        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
-    def center_column textlen
-      width = @layout[:width].ifzero( FFI::NCurses.COLS )
-      return (width-textlen)/2
-    end
-
-
-  end # class TabbedWindow
-
-
-end # module

data/lib/rbcurse/deprecated/widgets/scrollable.rb

@@ -1,301 +0,0 @@
-#### ---------------------- ####
-# CAUTION: This is the worst piece of code ever written, pls do not
-# go further. I will remove this very soon.
-# -- Shamefully yours.
-#### ---------------------- ####
-# Provides the ability to scroll content, typically an array
-# widget that includes may override on_enter_row and on_leave_row
-# This was essentially copied and modifed from the pad scroller
-# i think i can redo it and make it much simpler XXX
-module Scrollable
-  def init_scrollable
-    @toprow = @prow = @winrow = @pcol = 0
-    @oldwinrow = @oldprow = @oldtoprow = 0
-    @startrow = 1   # from where we start prniting, taking header row into account
-    @cols = @width
-    @left_margin ||= 2
-    @show_focus = true if @show_focus.nil? 
-
-#   @right_margin ||= @left_margin
-#   @scrollatrow ||= @height-2
-  end
-  def goto_start
-    @prow = 0
-    @toprow = @prow
-    @winrow = 0 
-  end
-  def goto_end
-    @prow = get_content().length-1 
-    #@toprow = @prow
-    #@winrow = 0     # not putting this was cause prow < toprow !!
-    @toprow = @prow - @scrollatrow   # ensure screen is filled when we show last. so clear not required
-    @toprow = 0 if @toprow < 0
-    ## except what if very few rows
-    @winrow = @scrollatrow
-  end
-  def right
-    @hscrollcols ||= @cols/2
-    @pcol += @hscrollcols if @pcol + @hscrollcols < @padcols
-    #   window_erase @win XXX
-  end
-  def left
-    @hscrollcols ||= @cols/2
-    @pcol -= @hscrollcols if @pcol > 0
-    @pcol = 0 if @pcol < 0
-  end
-  # not that saving content_rows is buggy since we add rows.
-  def down num=1
-    #     $log.debug "inside down"
-    num.times do 
-    if @prow >= get_content().length-1
-      #Ncurses.beep
-      @message = "No more rows"
-      return -1
-    end
-    if @winrow < @scrollatrow # 20
-      @winrow += 1    # move cursor down
-    else
-      @toprow += 1    # scroll down a row
-    end
-    @prow += 1        # incr pad row
-    end
-  end
-  def up num=1  # UP
-    num.times do
-    if @prow <= 0
-      #Ncurses.beep
-      @message = "This is the first row"
-      @prow = 0
-      return -1
-    else
-      @prow -= 1 
-    end
-    if @winrow > 0 
-      @winrow -= 1
-    else
-      @toprow -= 1 if @toprow > 0
-    end
-    @toprow = @prow if @prow < @toprow
-    end
-  end
-  def scroll_forward
-    if @toprow + @scrollatrow+1 >= get_content().length
-      # so cursor goes to last line
-      @prow +=  get_content().length - @prow - 1 # XXX 2008-11-27 14:18 
-    else
-      @toprow += @scrollatrow+1 # @rows-2 2008-11-13 23:41 put toprow here too
-      $log.debug "space pr #{@prow}"
-      @prow = @toprow
-    end
-  end
-  def scroll_backward
-    if @prow <= 0
-      @message = "This is the first row"
-      @prow = 0
-      #next
-    else
-      @prow -=  (@scrollatrow+1) #(@rows-2)
-      @prow = 0 if @prow < 0
-    end
-    @toprow = @prow
-  end
-  def pre_key
-    @oldprow = @prow
-    @oldtoprow = @toprow
-    @oldwinrow = @winrow
-  end
-  # prior to repaint. but after keypress
-  def post_key
-#    $log.debug "1 post_key w:#{@winrow} p:#{@prow} t:#{@toprow}"
-    @toprow = @prow if @prow < @toprow   # ensre search could be 
-    @toprow = @prow if @prow > @toprow + @scrollatrow   
-    @winrow = @prow - @toprow
-#    $log.debug "2 post_key w:#{@winrow} p:#{@prow} t:#{@toprow}"
-    # wont work first time - added 2008-11-26 20:56 
-    if @oldprow != @prow
-     $log.debug "going to call on leave and on enter"
-      on_leave_row @oldprow if respond_to? :on_leave_row     # to be defined by widget that has included this
-      on_enter_row @prow   if respond_to? :on_enter_row  # to be defined by widget that has included this
-    end
-    #@form.row =  @winrow
-    set_form_row
-
-    end
-  ##
-  # caution, this now uses winrow not prow
-    def show_focus_on_row row0, _prow, tf=true
-     # color = tf ? $reversecolor : $datacolor
-      # if cursor on row, reverse else normal
-      attr = tf ? Ncurses::A_REVERSE : Ncurses::A_NORMAL
-      color = @color_pair
-      r = row0+1 
-      #check if row is selected or not
-      row_att = @list_attribs[_prow] unless @list_attribs.nil?
-      if !row_att.nil?
-        status = row_att.fetch(:status, " ")
-        attr1 = row_att[:bgcolor] 
-        color = attr1 unless attr1.nil?
-      end
-      @datawidth ||= @width-2
-      return if r > get_content().length
-      @form.window.mvchgat(y=r+@row, x=1+@col, max=@datawidth, attr, color, nil)
-    end
-    ##
-    # unfocus the previous row cursor was on
-    # and put focus on currrent row
-    # Called after repaint
-    def show_focus
-      show_focus_on_row(@oldwinrow, @oldprow, false)
-      show_focus_on_row(@winrow, @prow, true)
-      # printstr @form.window, 23, 10, @prow
-    end
-    ## call from repaint
-    # TODO i can simplif, i think
-    # - if user scrolls horizontally, use column as starting point
-    def paint
-      #$log.debug "called paint t:#{@toprow} p:#{@prow} w:#{@winrow}"
-      list  = get_content
-      @content_rows = list.length # rows can be added at any time
-      win = get_window
-      maxlen = @maxlen || @width-2
-      if @bgcolor.is_a? String and @color.is_a? String
-        acolor = ColorMap.get_color(@color, @bgcolor)
-      else
-        acolor = $datacolor
-      end
-      @color_pair = acolor
-      0.upto(@height-2) {|r|
-        if @toprow + r < @content_rows
-          # this relates to selection of a row, as yet
-          # check if any status of attribs for this row
-          row_att = @list_attribs[@toprow+r] unless @list_attribs.nil?
-          status = " "
-          #bgcolor = $datacolor
-          bgcolor = nil
-          if !row_att.nil?
-            status = row_att.fetch(:status, " ")
-            bgcolor = row_att[:bgcolor]
-          end
-          # sanitize
-          content = list[@toprow+r].chomp # don't display newline
-          content.gsub!(/\t/, '  ') # don't display tab
-          content.gsub!(/[^[:print:]]/, '')  # don't display non print characters
-
-          #content = content[0..maxlen-1] if !content.nil? && content.length > maxlen # only show maxlen
-          if !content.nil? 
-            if content.length > maxlen # only show maxlen
-              content = content[@pcol..@pcol+maxlen-1] 
-            else
-              content = content[@pcol..-1]
-            end
-          end
-
-          width = @width-(@left_margin+1)
-          @form.window.printstring @row+r+1, @col+@left_margin-1, "%s" % status, acolor, @attr if @implements_selectable
-          @form.window.printstring  @row+r+1, @col+@left_margin, "%-*s" % [width,content], acolor, @attr
-          win.mvchgat(y=r+@row+1, x=@col+@left_margin, max=width, Ncurses::A_NORMAL, bgcolor, nil) unless bgcolor.nil?
-          dollar = "|"
-          dollar = "$" if list[@toprow+r][-1,1]=="\r"
-          @form.window.printstring  @row+r+1, @col+@width-1, dollar, acolor, @attr
-
-        else
-          # clear the displayed area
-          @form.window.printstring @row+r+1, @col+@left_margin, " "*(@width-(@left_margin+1)), acolor
-          dollar = "|"
-          @form.window.printstring  @row+r+1, @col+@width-1, dollar, acolor, @attr
-        end
-      }
-      show_focus if @show_focus
-    end
-    ## for user to know which row is being focussed on
-    def focussed_index
-      @prow
-    end
-    # only to be used in single selection cases as focussed item FIXME.
-    def selected_item
-      get_content()[focussed_index()]
-    end
-    alias :current_index :focussed_index
-    alias :selected_index :focussed_index
-    def scrollable_handle_key ch
-      begin
-        pre_key
-        case ch
-        when ?\C-n.getbyte(0)
-          scroll_forward
-        when 32
-          scroll_forward
-        when ?\C-p.getbyte(0)
-          scroll_backward
-        when ?0.getbyte(0)
-          goto_start
-        when ?9.getbyte(0)
-          goto_end
-        when ?[.getbyte(0)
-        when ?[.getbyte(0)
-        when KEY_UP
-          #select_prev_row
-          up
-        when KEY_LEFT
-        when KEY_RIGHT
-        when KEY_DOWN
-          down
-          # select_next_row
-        when KEY_ENTER, 10, 13
-          if respond_to? :fire
-            fire
-          end
-        when ?A.getbyte(0)..?Z.getbyte(0), ?a.getbyte(0)..?z.getbyte(0)
-          ret = set_selection_for_char ch.chr
-        else
-          return :UNHANDLED #if ret == -1
-        end
-      ensure
-        post_key
-      end
-    end # handle_k listb
-    ## 2008-12-18 18:03 
-    # finds the next match for the char pressed
-    # returning the index
-    def next_match char
-      data = get_content
-      row = focussed_index
-      currval = data[row].chomp
-      row.upto(data.length-1) do |ix|
-        val = data[ix].chomp
-        if val[0,1] == char and val != currval
-          return ix
-        end
-      end
-      0.upto(row) do |ix|
-        val = data[ix].chomp
-        if val[0,1] == char and val != currval
-          return ix
-        end
-      end
-      return -1
-    end
-    ## 2008-12-18 18:03 
-    # sets the selection to the next row starting with char
-    def set_selection_for_char char
-      ix = next_match char
-      @prow = ix if ix != -1
-      return ix
-    end
-    ##
-    # 2008-12-18 18:05 
-    # set focus on given index
-    def set_focus_on arow
-      return if arow > get_content().length-1 or arow < 0
-      total = get_content().length
-      @prow = arow
-      sar = @scrollatrow + 1
-      @toprow = (@prow / sar) * sar
-
-      if total - @toprow < sar
-        @toprow = (total - sar) 
-      end
-      @winrow = @prow - @toprow
-    end
-
-  end