rbcurse 1.4.0 → 1.4.1.pre2

data/lib/rbcurse/extras/bottomline.rb

@@ -310,6 +310,13 @@ module RubyCurses
       #    q.change_proc = Proc.new {|str| Dir.glob(str +"*") }
       #
       attr_accessor :change_proc
+      #
+      # Called when any control-key is pressed, one that we are not handling
+      #
+      #    q.key_handler_proc = Proc.new {|ch| xxxx) }
+      #
+      attr_accessor :key_handler_proc
+
       #
       # text to be shown if user presses M-h
       #
@@ -966,15 +973,17 @@ module RubyCurses
     end
     def ask(question, answer_type=String, &details)
      $log.debug "XXXX inside ask win #{@window} "
-      #@window.show #unless @window.visible?
       @window ||= _create_footer_window
+      #@window.show #unless @window.visible?
     
       @question ||= Question.new(question, answer_type, &details)
       say(@question) #unless @question.echo == true
 
       @completion_proc = @question.completion_proc
       @change_proc = @question.change_proc
+      @key_handler_proc = @question.key_handler_proc
       @default = @question.default
+      $log.debug "XXX: ASK RBGETS got default: #{@default} "
       @helptext = @question.helptext
       @answer_type = @question.answer_type
       if @question.answer_type.is_a? Array
@@ -1037,7 +1046,8 @@ module RubyCurses
         return nil
       ensure
         @question = nil    # Reset Question object.
-        hide # assuming this method made it visible, not sure if this is called.
+        $log.debug "XXX: HIDE B AT ENSURE OF ASK"
+        hide_bottomline # assuming this method made it visible, not sure if this is called.
       end
     end
     #
@@ -1045,14 +1055,22 @@ module RubyCurses
     #  Call this if you find the window persists after using some method from here
     #   usually say or ask.
     #
+    #   NOTE: after callign this you must call window.show. Otherwise, next time
+    #   you call this, it will not hide.
+    #
     # @param [int, float] time to sleep before hiding window.
     #
     def hide wait=nil
       if @window
+        $log.debug "XXX: HIDE BOTTOMLINE INSIDE"
         sleep(wait) if wait
-        @window.hide 
-        @window.wrefresh
+        #if @window.visible?
+        #@window.hide    # THIS HAS SUDDENLY STOPPED WORKING
+        @window.destroy
+        @window = nil
+        #@window.wrefresh
         #Ncurses::Panel.update_panels
+        #end
       end
     end
     alias :hide_bottomline :hide
@@ -1081,7 +1099,7 @@ module RubyCurses
     #
     def say statement, config={}
       @window ||= _create_footer_window
-      #@window.show unless @window.visible? # this will need to be hidden manually NOTE
+      #@window.show #unless @window.visible?
       $log.debug "XXX: inside say win #{@window} !"
       case statement
       when Question
@@ -1109,11 +1127,25 @@ module RubyCurses
     #
     def say_with_pause statement, config={}
       @window ||= _create_footer_window
+      #@window.show #unless @window.visible? # 2011-10-14 23:52:52
       say statement, config
       @window.wrefresh
       Ncurses::Panel.update_panels
       ch=@window.getchar()
-      hide
+      hide_bottomline
+    end
+    # since say does not leave the screen, it is not exactly recommended
+    #  as it will hide what's below. It's better to call pause, or this, which
+    #  will quickly go off. If the message is not important enough to ask for a pause,
+    #  the will flicker on screen, but not for too long.
+    def say_with_wait statement, config={}
+      @window ||= _create_footer_window
+      #@window.show #unless @window.visible? # 2011-10-14 23:52:59
+      say statement, config
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      sleep 0.5
+      hide_bottomline
     end
     # A helper method for sending the output stream and error and repeat
     # of the question.
@@ -1166,6 +1198,7 @@ module RubyCurses
       ins_mode = false
       oldstr = nil # for tab completion, origal word entered by user
       default = @default || ""
+      $log.debug "XXX: RBGETS got default: #{@default} "
       if @default && @history
         if !@history.include?(default)
           @history_list.push default 
@@ -1248,12 +1281,6 @@ module RubyCurses
           when ?\C-k.getbyte(0) # delete forward
             @delete_buffer = str.slice!(curpos..-1) #rescue next
             clear_line len+maxlen+1, @prompt_length
-          #when ?\C-u.getbyte(0) # clear entire line
-            #@delete_buffer = str
-            #str = ""
-            #curpos = 0
-            #clear_line len+maxlen+1, @prompt_length
-            #len = @prompt_length
           when ?\C-u.getbyte(0) # delete to the left of cursor till start of line
             @delete_buffer = str.slice!(0..curpos-1) #rescue next
             curpos = 0
@@ -1324,7 +1351,15 @@ module RubyCurses
               end
             end
           when ?\C-a.getbyte(0) .. ?\C-z.getbyte(0)
-            Ncurses.beep
+            # here' swhere i wish i could pass stuff back without closing
+            # I'd like the user to be able to scroll list or do something based on
+            # control or other keys
+            if @key_handler_proc  # added  2011-11-3 7:38 PM 
+              @key_handler_proc.call(ch) 
+              next
+            else
+              Ncurses.beep
+            end
           when KEY_UP
             if @history && !@history.empty?
               olen = str.length
@@ -1339,6 +1374,15 @@ module RubyCurses
               curpos = str.length
               len += str.length - olen
               clear_line len+maxlen+1, @prompt_length
+            else # try to pick up default, seems we don't get it 2011-10-14 
+              if @default
+                olen = str.length
+                str = @default
+                str = str.dup
+                curpos = str.length
+                len += str.length - olen
+                clear_line len+maxlen+1, @prompt_length
+              end
             end
           when KEY_DOWN
             if @history && !@history.empty?
@@ -1441,6 +1485,7 @@ module RubyCurses
 
       #if @question.character.nil?
       #  if @question.echo == true #and @question.limit.nil?
+      $log.debug "XXX: before RBGETS got default: #{@default} "
       ret, str = rbgetstr
       if ret == 0
         return @question.change_case(@question.remove_whitespace(str))                
@@ -1524,6 +1569,7 @@ module RubyCurses
     #
     def choose list1, config={}
       dirlist = true
+      start = 0
       case list1
       when NilClass
         #list1 = Dir.glob("*")
@@ -1547,7 +1593,9 @@ module RubyCurses
         rc.display_menu list1
         # earlier wmove bombed, now move is (window.rb 121)
         str = ask(prompt) { |q| q.change_proc = Proc.new { |str| w.wmove(1,1) ; w.wclrtobot;  
-          l = list1.select{|e| e.index(str)==0}  ; 
+
+          l = list1.select{|e| e.index(str)==0}  ;  # select those starting with str
+
           if (l.size == 0 || str[-1]=='/') && dirlist
             # used to help complete directories so we can drill up and down
             #l = Dir.glob(str+"*")
@@ -1555,14 +1603,35 @@ module RubyCurses
           end
           rc.display_menu l; 
           l
-        } }
+        }
+        q.key_handler_proc = Proc.new { |ch| 
+          # this is not very good since it does not respect above list which is filtered
+          # # need to clear the screen before printing - FIXME
+          case ch
+          when ?\C-n.getbyte(0)
+            start += 2 if start < list1.length - 2
+
+            w.wmove(1,1) ; w.wclrtobot;  
+            rc.display_menu list1, :startindex => start
+          when ?\C-p.getbyte(0)
+            start -= 2 if start > 2
+            w.wmove(1,1) ; w.wclrtobot;  
+            rc.display_menu list1, :startindex => start
+          else
+            alert "unhalderlind by jey "
+          end
+        
+        }
+        }
         # need some validation here that its in the list TODO
       ensure
         rc.destroy
         rc = nil
+        $log.debug "XXX: HIDE B IN ENSURE"
         hide_bottomline # since we called ask() we need to close bottomline
       end
-      hide_bottomline # since we called ask() we need to close bottomline
+        $log.debug "XXX: HIDE B AT END OF ASK"
+      #hide_bottomline # since we called ask() we need to close bottomline
       return str
     end
     def display_text_interactive text, config={}

data/lib/rbcurse/extras/box.rb

@@ -0,0 +1,58 @@
+# ------------------------------------------------------------ #
+#         File: box.rb 
+#  Description: draws a box around some group of items
+#       Author: rkumar http://github.com/rkumar/rbcurse/
+#         Date: 06.11.11 - 18:22 
+#  Last update: 06.11.11 - 19:53
+# ------------------------------------------------------------ #
+#
+require 'rbcurse'
+require 'rbcurse/common/bordertitle'
+include RubyCurses
+#include RubyCurses::BorderTitle
+
+# @example
+#
+# At a later stage, we will integrate this with lists and tables, so it will happen automatically.
+#
+# @since 1.4.1    UNTESTED
+module RubyCurses
+  class Box < Widget
+
+    include BorderTitle
+
+    # margin for placing widgets inside
+    # This is not used inside here, but is used by stacks.
+    # @see widgetshortcuts.rb
+    dsl_accessor :margin_left, :margin_top
+
+    def initialize form, config={}, &block
+
+      bordertitle_init
+      super
+      @window = form.window if @form
+      @editable = false
+      @focusable = false
+      #@height += 1 # for that silly -1 that happens
+      @repaint_required = true
+    end
+
+    ##
+    # repaint the scrollbar
+    def repaint
+      return unless @repaint_required
+      bc = $datacolor
+      bordercolor = @border_color || bc
+      borderatt = @border_attrib || Ncurses::A_NORMAL
+      @window.print_border row, col, height, width, bordercolor, borderatt
+      #print_borders
+      print_title
+      @repaint_required = false
+    end
+    ##
+    ##
+    # ADD HERE 
+  end
+end
+if __FILE__ == $PROGRAM_NAME
+end

data/lib/rbcurse/extras/directorylist.rb

@@ -86,7 +86,7 @@ module RubyCurses
       @list.insert 0, @_header
       @title = @current_path
       @current_index = @_first_data_index
-      set_form_row
+      set_form_row if @form
     end
     # called by parent's repaint
     def convert_value_to_text file, crow

data/lib/rbcurse/extras/horizlist.rb

@@ -0,0 +1,203 @@
+require 'rbcurse'
+
+# This is a horizontal scroller, to scroll a list of options much like
+# vim often does on the statusline. I'd like to use it for scrolling
+# menus or buttons like on TabbedPanes to avoid another Form.
+
+# You may bind to the ENTER_ROW event to chagne some data elsewhere,
+# or the PRESS event. In this case, PRESS will refer to pressing the
+# space bar or ENTER. There is <em>no</em> LIST_SELECTION event for that.
+
+
+
+module RubyCurses
+
+  # Horizontal list scrolling and selection.
+  #
+  #    == Example
+  #    require 'rbcurse/extras/horizlist'
+  #    require 'fileutils'
+  #    l = HorizList.new @form, :row => 5, :col => 5, :width => 80 
+  #    list = Dir.glob("*")
+  #    l.list(list)
+
+  class HorizList < Widget
+
+    def initialize form, config={}, &block
+      super
+      @_events.push(*[:ENTER_ROW, :LEAVE_ROW, :PRESS])
+      @focusable = true
+      init_vars
+      @list = []
+      @toprow = 0
+
+      # last printed index
+      @last_index = 0
+
+      # item on which cursor is
+      @current_index = 0
+    end
+    def init_vars
+    end
+    # alias :text :getvalue # NEXT VERSION
+
+    def map_keys
+      @keys_mapped = true
+      bind_keys([KEY_RIGHT, ?l, ?.], :next_item)
+      bind_keys([KEY_LEFT, ?h,?,], :previous_item)
+      bind_keys([10,13,32]){ fire_action_event }
+      bind_keys([?\M-l,?>, KEY_DOWN], :scroll_right)
+      bind_keys([?\M-h,?<, KEY_UP], :scroll_left)
+    end
+    def list(strings)
+      @list = strings
+    end
+    def add item
+      @list << item
+    end
+    def repaint
+      return unless @repaint_required
+      @window ||= @form.window
+      $log.debug "XXX:HORIZ REPAINT Ci #{@current_index}, TR #{@toprow} "
+      $status_message.value = " #{@current_index}, TR #{@toprow} "
+      @window.printstring @row, @col, " "* @width, @color_pair || $reversecolor
+      c = @col + 1
+      t = @toprow
+      @list.each_with_index { |e, i| 
+        next if i < t # sucks for large lists
+        break if c + e.length >= @width + @col
+        att = @attrib || FFI::NCurses::A_NORMAL
+        if i == @current_index
+          att = FFI::NCurses::A_REVERSE if i == @current_index
+          acolor = @focussed_color_pair ||  get_color($datacolor,'green', 'white') 
+        else
+          acolor = @color_pair
+        end
+        @window.printstring @row, c, e, acolor  || $reversecolor, att
+        c += e.length + 2
+        @last_index = i
+        break if c >= @width + @col
+      }
+      @repaint_required = false
+    end
+    def handle_key ch
+      map_keys unless @keys_mapped
+      ret = process_key ch, self
+      @multiplier = 0
+      return :UNHANDLED if ret == :UNHANDLED
+    end
+    def previous_item num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
+    
+      return :NO_PREVIOUS_ROW if @current_index == 0 
+      @old_toprow = @toprow
+      @oldrow = @current_index
+      @current_index -= num
+      @current_index = 0 if @current_index < 0
+      bounds_check
+      $multiplier = 0
+      if @current_index < @toprow
+        @toprow = @current_index
+      end
+      @toprow = 0 if @toprow < 0
+      @repaint_required = true
+    end
+    def next_item num=(($multiplier.nil? or $multiplier == 0) ? 1 : $multiplier)
+      rc = row_count
+      return :NO_NEXT_ROW if @current_index == rc-1  # changed 2011-10-5 so process can do something
+      @old_toprow = @toprow
+      @oldrow = @current_index
+      @current_index += num 
+      @current_index = rc - 1 if @current_index >= rc
+      @toprow = @current_index if @current_index > @last_index
+      bounds_check
+      $multiplier = 0
+      @repaint_required = true
+    end
+    def scroll_right
+      rc = row_count
+      return :NO_NEXT_ROW if @current_index == rc-1  # changed 2011-10-5 so process can do something
+      @old_toprow = @toprow
+      @oldrow = @current_index
+
+      @current_index = @last_index + 1
+
+      @current_index = rc - 1 if @current_index >= rc
+      @toprow = @current_index if @current_index > @last_index
+      bounds_check
+      $multiplier = 0
+      @repaint_required = true
+    end
+    def scroll_left
+      return :NO_PREVIOUS_ROW if @current_index == 0 
+      @old_toprow = @toprow
+      @oldrow = @current_index
+      @current_index = @toprow - 4
+      @current_index = 0 if @current_index < 0
+      bounds_check
+      $multiplier = 0
+      if @current_index < @toprow
+        @toprow = @current_index
+      end
+      @toprow = 0 if @toprow < 0
+      @repaint_required = true
+    end
+    def row_count; @list.size; end
+    def bounds_check
+      @row_changed = false
+      if @oldrow != @current_index
+        on_leave_row @oldrow if respond_to? :on_leave_row     # to be defined by widget that has included this
+        on_enter_row @current_index   if respond_to? :on_enter_row  # to be defined by widget that has included this
+        set_form_row
+        @row_changed = true
+      end
+      if @old_toprow != @toprow # only if scrolling has happened should we repaint
+        @repaint_required = true 
+        @widget_scrolled = true
+      end
+    end
+    def on_enter
+      if @list.nil? || @list.size == 0
+        Ncurses.beep
+        return :UNHANDLED
+      end
+      super  
+      on_enter_row @current_index
+      set_form_row
+      true
+    end
+    def on_enter_row arow
+      fire_handler :ENTER_ROW, self
+      @repaint_required = true
+    end
+    def on_leave_row arow
+      fire_handler :LEAVE_ROW, self
+    end
+    def fire_action_event
+      require 'rbcurse/ractionevent'
+      fire_handler :PRESS, ActionEvent.new(self, :PRESS, text)
+    end
+    def current_value
+      @list[@current_index]
+    end
+    alias :text :current_value
+    ##
+  end # class
+end # module
+if __FILE__ == $PROGRAM_NAME
+  require 'rbcurse/app'
+
+  App.new do
+    require 'rbcurse/extras/horizlist'
+    require 'fileutils'
+    l = HorizList.new @form, :row => 5, :col => 5, :width => 80 
+    list = Dir.glob("*")
+    l.list(list)
+    l.bind(:PRESS){ |eve| alert "You pressed #{eve.text} " }
+    sl = status_line
+    sl.command do
+      " Status:  #{$status_message} "
+    end
+  end
+
+  
+end