rbcurse 0.1.1 → 0.1.2

data/lib/rbcurse/defaultlistselectionmodel.rb

@@ -1,3 +1,6 @@
+require 'rbcurse/listselectable'
+##
+# Added ListSelectionEvents on 2009-02-13 23:33 
 module RubyCurses
   class DefaultListSelectionModel
     include EventHandler
@@ -9,10 +12,15 @@ module RubyCurses
       @anchor_selection_index = -1
       @lead_selection_index = -1
       @selection_mode = :MULTIPLE
+      $log.debug " created DefaultListSelectionModel XXX"
     end
 
     def clear_selection
+      ix0 = @selected_indices.first
+      ix1 = @selected_indices.last
       @selected_indices=[]
+      lse = ListSelectionEvent.new(ix0, ix1, self, :DELETE)
+      fire_handler :LIST_SELECTION_EVENT, lse
     end
     def is_selected_index ix
       @selected_indices.include? ix
@@ -28,17 +36,23 @@ module RubyCurses
     end
     ## TODO should go in sorted, and no dupes
     def add_selection_interval ix0, ix1
+      $log.debug " def add_selection_interval #{ix0}, ix1"
       if @selection_mode != :MULTIPLE
         clear_selection
       end
       @anchor_selection_index = ix0
       @lead_selection_index = ix1
       ix0.upto(ix1) {|i| @selected_indices  << i unless @selected_indices.include? i }
+      lse = ListSelectionEvent.new(ix0, ix1, self, :INSERT)
+      fire_handler :LIST_SELECTION_EVENT, lse
+      $log.debug " DLSM firing LIST_SELECTION EVENT #{lse}"
     end
     def remove_selection_interval ix0, ix1
       @anchor_selection_index = ix0
       @lead_selection_index = ix1
       @selected_indices.delete_if {|x| x >= ix0 and x <= ix1}
+      lse = ListSelectionEvent.new(ix0, ix1, self, :DELETE)
+      fire_handler :LIST_SELECTION_EVENT, lse
     end
     def insert_index_interval ix0, len
       @anchor_selection_index = ix0

data/lib/rbcurse/listcellrenderer.rb

@@ -93,6 +93,13 @@ module RubyCurses
           graphic.printstring r, c, str % [len, _value], @color_pair,@attr
           r += 1
         end
+=begin
+        if @parent.search_found_ix == row_index
+          if !@parent.find_offset.nil?
+            graphic.mvchgat(y=r, x=@parent.find_offset, @parent.find_offset1, Ncurses::A_NORMAL, $reversecolor, nil)
+          end
+        end
+=end
     end
   # ADD HERE 
   end

data/lib/rbcurse/listkeys.rb

@@ -5,14 +5,17 @@ module RubyCurses
     # any changes to the vars after construction won't have an effect.
     def install_list_keys
       @KEY_ROW_SELECTOR ||= ?\C-x
+      @KEY_BLOCK_SELECTOR ||= ?\M-x
       @KEY_GOTO_TOP ||= ?\M-0
       @KEY_GOTO_BOTTOM ||= ?\M-9
-      @KEY_ASK_FIND_FORWARD ||= ?\M-f
-      @KEY_ASK_FIND_BACKWARD ||= ?\M-F
-      @KEY_FIND_NEXT ||= ?\M-g
-      @KEY_FIND_PREV ||= ?\M-G
+      #@KEY_ASK_FIND_FORWARD ||= ?\M-f
+      #@KEY_ASK_FIND_BACKWARD ||= ?\M-F
+      #@KEY_FIND_NEXT ||= ?\M-g
+      #@KEY_FIND_PREV ||= ?\M-G
       @KEY_SCROLL_FORWARD ||= ?\C-n
       @KEY_SCROLL_BACKWARD ||= ?\C-p
+      @KEY_SCROLL_RIGHT ||= ?\M-8
+      @KEY_SCROLL_LEFT ||= ?\M-7
 
       @KEY_CLEAR_SELECTION ||= ?\M-e
       @KEY_PREV_SELECTION ||= ?\M-"

data/lib/rbcurse/listscrollable.rb

@@ -8,6 +8,7 @@
 #   @pcol (used for horiz scrolling, starts at 0)
 #
 module ListScrollable
+  attr_reader :search_found_ix, :find_offset, :find_offset1
   def previous_row
     @oldrow = @current_index
     @current_index -= 1 if @current_index > 0
@@ -61,9 +62,9 @@ module ListScrollable
   def bounds_check
     h = scrollatrow()
     rc = row_count
-    $log.debug " PRE CURR:#{@current_index}, TR: #{@toprow} RC: #{rc} H:#{h}"
+    #$log.debug " PRE CURR:#{@current_index}, TR: #{@toprow} RC: #{rc} H:#{h}"
     @current_index = 0 if @current_index < 0  # not lt 0
-    @current_index = rc-1 if @current_index >= rc # not gt rowcount
+    @current_index = rc-1 if @current_index >= rc and rc>0 # not gt rowcount
     @toprow = rc-h-1 if rc > h and @toprow > rc - h - 1 # toprow shows full page if possible
     # curr has gone below table,  move toprow forward
     if @current_index - @toprow > h
@@ -74,11 +75,12 @@ module ListScrollable
     end
     #$log.debug " POST CURR:#{@current_index}, TR: #{@toprow} RC: #{rc} H:#{h}"
     if @oldrow != @current_index
-      $log.debug "going to call on leave and on enter"
+      #$log.debug "going to call on leave and on enter"
       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
     end
     set_form_row
+    #set_form_col 0 # added 2009-02-15 23:33  # this works for lists but we don't want this in TextArea's
     @repaint_required = true
   end
   # the cursor should be appropriately positioned
@@ -129,13 +131,13 @@ module ListScrollable
       when KEY_UP
         #select_prev_row
         #up
-        $log.debug " GOT KEY UP NEW SCROLL"
+        #$log.debug " GOT KEY UP NEW SCROLL"
         previous_row
       when KEY_LEFT
       when KEY_RIGHT
       when KEY_DOWN
         #down
-        $log.debug " GOT KEY DOWN NEW SCROLL"
+        #$log.debug " GOT KEY DOWN NEW SCROLL"
         next_row
       when KEY_ENTER, 10, 13
         if respond_to? :fire
@@ -203,14 +205,149 @@ module ListScrollable
     sar = scrollatrow + 1
     @toprow = (@current_index / sar) * sar
 
-    $log.debug "1 set_focus #{total}, sar #{sar}, toprow #{@toprow}, current_index #{@current_index}"
+    #$log.debug "1 set_focus #{total}, sar #{sar}, toprow #{@toprow}, current_index #{@current_index}"
     if total - @toprow < sar
       @toprow = (total - sar) 
     end
-    $log.debug "2 set_focus #{total}, sar #{sar}, toprow #{@toprow}, current_index #{@current_index}"
+    #$log.debug "2 set_focus #{total}, sar #{sar}, toprow #{@toprow}, current_index #{@current_index}"
     set_form_row # 2009-01-17 12:44 
     @repaint_required = true
     #bounds_check
   end
+    def install_keys
+=begin
+      @KEY_ASK_FIND_FORWARD ||= ?\M-f
+      @KEY_ASK_FIND_BACKWARD ||= ?\M-F
+      @KEY_FIND_NEXT ||= ?\M-g
+      @KEY_FIND_PREV ||= ?\M-G
+=end
+      @KEY_ASK_FIND ||= ?\M-f
+      @KEY_FIND_MORE ||= ?\M-g
+    end
+    def ask_search
+      options = ["Search backwards", "case insensitive", "Wrap around"]
+      sel,regex,hash =  get_string_with_options("Enter regex to search", 20, @last_regex||"", "checkboxes"=>options, "checkbox_defaults"=>[@search_direction_prev,@search_case,@search_wrap])
+      return if sel != 0
+      @search_direction_prev =  hash[options[0]]
+      @search_case = hash[options[1]]
+      @search_wrap = hash[options[2]]
+      if @search_direction_prev == true
+        ix = _find_prev regex, @current_index
+      else
+        ix = _find_next regex, @current_index
+      end
+      if ix.nil?
+        alert("No matching data for: #{regex}")
+      else
+        set_focus_on(ix)
+        set_form_col @find_offset1
+        @cell_editor.component.curpos = (@find_offset||0) if @cell_editing_allowed
+      end
+    end
+    def find_more
+      if @search_direction_prev 
+        find_prev
+      else
+        find_next
+      end
+    end
+    # find forwards
+    # Using this to start a search or continue search
+    def _find_next regex=@last_regex, start = @search_found_ix 
+      raise "No previous search" if regex.nil?
+      #$log.debug " _find_next #{@search_found_ix} : #{@current_index}"
+      fend = @list.size-1
+      if start != fend
+      start += 1 unless start == fend
+      @last_regex = regex
+      @search_start_ix = start
+      regex = Regexp.new(regex, Regexp::IGNORECASE) if @search_case
+      start.upto(fend) do |ix| 
+        row = @list[ix]
+        m=row.match(regex)
+        if !m.nil?
+          @find_offset = m.offset(0)[0]
+          @find_offset1 = m.offset(0)[1]
+          @search_found_ix = ix
+          return ix 
+        end
+      end
+      end
+      fend = start-1
+      start = 0
+      if @search_wrap
+        start.upto(fend) do |ix| 
+          row = @list[ix]
+          m=row.match(regex)
+          if !m.nil?
+            @find_offset = m.offset(0)[0]
+            @find_offset1 = m.offset(0)[1]
+            @search_found_ix = ix
+            return ix 
+          end
+        end
+      end
+      return nil
+    end
+    def find_next
+        ix = _find_next
+        regex = @last_regex 
+        if ix.nil?
+          alert("No more matching data for: #{regex}")
+        else
+          set_focus_on(ix) 
+          set_form_col @find_offset1
+        @cell_editor.component.curpos = (@find_offset||0) if @cell_editing_allowed
+        end
+    end
+    def find_prev
+        ix = _find_prev
+        regex = @last_regex 
+        if ix.nil?
+          alert("No previous matching data for: #{regex}")
+        else
+          set_focus_on(ix)
+          set_form_col @find_offset
+          @cell_editor.component.curpos = (@find_offset||0) if @cell_editing_allowed
+        end
+    end
+    ##
+    # find backwards
+    # Using this to start a search or continue search
+    def _find_prev regex=@last_regex, start = @search_found_ix 
+      raise "No previous search" if regex.nil?
+      #$log.debug " _find_prev #{@search_found_ix} : #{@current_index}"
+      if start != 0
+      start -= 1 unless start == 0
+      @last_regex = regex
+      @search_start_ix = start
+      regex = Regexp.new(regex, Regexp::IGNORECASE) if @search_case
+      start.downto(0) do |ix| 
+        row = @list[ix]
+        m=row.match(regex)
+        if !m.nil?
+          @find_offset = m.offset(0)[0]
+          @find_offset1 = m.offset(0)[1]
+          @search_found_ix = ix
+          return ix 
+        end
+      end
+      end
+      fend = start-1
+      start = @list.size-1
+      if @search_wrap
+        start.downto(fend) do |ix| 
+          row = @list[ix]
+          m=row.match(regex)
+          if !m.nil?
+            @find_offset = m.offset(0)[0]
+          @find_offset1 = m.offset(0)[1]
+            @search_found_ix = ix
+            return ix 
+          end
+        end
+      end
+      return nil
+    end
 
 end

data/lib/rbcurse/listselectable.rb

@@ -3,8 +3,13 @@
 module RubyCurses
   module ListSelectable
 
-    def list_selection_model lsm
-      @list_selection_model = lsm
+    ## modified on 2009-02-13 23:41 to return model if no param passed
+    def list_selection_model(*lsm)
+      if lsm.empty?
+        @list_selection_model 
+      else
+        @list_selection_model = lsm[0]
+      end
       #@list_selection_model.selection_mode = @selection_mode || :MULTIPLE
     end
     def create_default_list_selection_model
@@ -15,6 +20,7 @@ module RubyCurses
     end
 
     def add_row_selection_interval ix0, ix1
+      $log.debug " def add_row_selection_interval #{ix0}, ix1"
       # if row_selection_allowed
       @list_selection_model.add_selection_interval ix0, ix1
     end
@@ -64,4 +70,19 @@ module RubyCurses
     attr_accessor :row_selection_allowed
     attr_accessor :column_selection_allowed
   end
+  class ListSelectionEvent
+    attr_accessor :firstrow, :lastrow, :source, :type
+    def initialize firstrow, lastrow, source, type
+      @firstrow = firstrow
+      @lastrow = lastrow
+      @source = source
+      @type = type
+    end
+    def to_s
+      "#{@type.to_s}, firstrow: #{@firstrow}, lastrow: #{@lastrow}, source: #{@source}"
+    end
+    def inspect
+      to_s
+    end
+  end
 end

data/lib/rbcurse/rlistbox.rb

@@ -44,6 +44,7 @@ module RubyCurses
     include Enumerable
     include RubyCurses::EventHandler
     attr_accessor :selected_index
+    attr_reader :last_regex # should i really keep here as public or maintain in listbox
 
     def initialize anarray
       @list = anarray.dup
@@ -64,6 +65,7 @@ module RubyCurses
       @list.index(obj)
     end
     def length ; @list.length; end
+    alias :size :length
 
     def insert off0, *data
       @list.insert off0, *data
@@ -112,7 +114,7 @@ module RubyCurses
       @list.dup
     end
     def on_enter_row object
-      $log.debug " XXX on_enter_row of list_data"
+      #$log.debug " XXX on_enter_row of list_data"
       fire_handler :ENTER_ROW, object
     end
     # ##
@@ -143,10 +145,10 @@ module RubyCurses
       return find_match @last_regex, start, @search_end_ix
     end
     ##
-    # find backwards
+    # find backwards, list_data_model
     # Using this to start a search or continue search
     def find_prev regex=@last_regex, start = @search_found_ix 
-      raise "No previous search" if @last_regex.nil?
+      raise "No previous search" if regex.nil? # @last_regex.nil?
       $log.debug " find_prev #{@search_found_ix} : #{@current_index}"
       start -= 1 unless start == 0
       @last_regex = regex
@@ -427,6 +429,7 @@ module RubyCurses
       select_default_values   
       # when the combo box has a certain row in focus, the popup should have the same row in focus
 
+      install_keys
       init_vars
       install_list_keys
 
@@ -531,7 +534,7 @@ module RubyCurses
       h = scrollatrow()
       rc = row_count
       $log.debug " listbxo got ch #{ch}"
-      $log.debug " when kps #{@KEY_PREV_SELECTION}  "
+      #$log.debug " when kps #{@KEY_PREV_SELECTION}  "
       case ch
       when KEY_UP  # show previous value
         previous_row
@@ -565,14 +568,21 @@ module RubyCurses
         @repaint_required = true
       when 27, ?\C-c:
         editing_canceled @current_index if @cell_editing_allowed
+        cancel_block # block
       when @KEY_ASK_FIND_FORWARD
-        ask_search_forward
+      # ask_search_forward
       when @KEY_ASK_FIND_BACKWARD
-        ask_search_backward
+      # ask_search_backward
       when @KEY_FIND_NEXT
-        find_next
+      # find_next
       when @KEY_FIND_PREV
-        find_prev
+      # find_prev
+      when @KEY_ASK_FIND
+        ask_search
+      when @KEY_FIND_MORE
+        find_more
+      when @KEY_BLOCK_SELECTOR
+        mark_block #selection
       else
         # this has to be fixed, if compo does not handle key it has to continue into next part FIXME
         ret = :UNHANDLED # changed on 2009-01-27 13:14 not going into unhandled, tab not released
@@ -606,8 +616,10 @@ module RubyCurses
           set_focus_on(ix)
         end
     end
+    # gets string to search and calls data models find prev
     def ask_search_backward
       regex =  get_string("Enter regex to search (backward)")
+      @last_regex = regex
       ix = @list.find_prev regex, @current_index
       if ix.nil?
         alert("No matching data for: #{regex}")
@@ -615,7 +627,8 @@ module RubyCurses
         set_focus_on(ix)
       end
     end
-    def find_prev
+    ## listbox find_prev
+    def OLDfind_prev
         ix = @list.find_prev
         regex = @last_regex 
         if ix.nil?
@@ -627,7 +640,7 @@ module RubyCurses
         end
     end
     # table find_next
-    def find_next
+    def OLDfind_next
         ix = @list.find_next
         regex = @last_regex 
         if ix.nil?
@@ -639,12 +652,12 @@ module RubyCurses
     def on_enter
       on_enter_row @current_index
       set_form_row # added 2009-01-11 23:41 
-      $log.debug " ONE ENTER LIST #{@current_index}, #{@form.row}"
-      @repaint_required
+      #$log.debug " ONE ENTER LIST #{@current_index}, #{@form.row}"
+      @repaint_required = true
       fire_handler :ENTER, self
     end
     def on_enter_row arow
-      $log.debug " Listbox #{self} ENTER_ROW with curr #{@current_index}. row: #{arow} H: #{@handler.keys}"
+      #$log.debug " Listbox #{self} ENTER_ROW with curr #{@current_index}. row: #{arow} H: #{@handler.keys}"
       #fire_handler :ENTER_ROW, arow
       fire_handler :ENTER_ROW, self
       @list.on_enter_row self
@@ -668,7 +681,8 @@ module RubyCurses
       col = c+@left_margin # @form.col
       # unfortunately 2009-01-11 19:47 combo boxes editable allows changing value
       editor.prepare_editor self, row, col, value
-      set_form_col @left_margin
+      editor.component.curpos = 0 # reset it after search, if user scrols down
+      set_form_col 0 #@left_margin
 
       # set original value so we can cancel
       # set row and col,
@@ -676,7 +690,7 @@ module RubyCurses
     end
     def on_leave_row arow
       #$log.debug " Listbox #{self} leave with (cr: #{@current_index}) #{arow}: list[row]:#{@list[arow]}"
-      $log.debug " Listbox #{self} leave with (cr: #{@current_index}) #{arow}: "
+      #$log.debug " Listbox #{self} leave with (cr: #{@current_index}) #{arow}: "
       #fire_handler :LEAVE_ROW, arow
       fire_handler :LEAVE_ROW, self
       editing_completed arow
@@ -797,7 +811,47 @@ module RubyCurses
       end
       @repaint_required = true
     end
+    def set_form_col col=0
+      super col+@left_margin
+    end
+    # experimental selection of multiple rows via block
+    # specify a block start and then a block end
+    # usage: bind mark_selection to a key. It works as a toggle.
+    # C-c will cancel any selection  that has begun.
+    # added on 2009-02-19 22:37 
+    def mark_block #selection
+      if @inside_block
+        @inside_block = false
+        end_block #selection
+      else
+        @inside_block = true
+        start_block #selection
+      end
+    end
+    # added on 2009-02-19 22:37 
+    def cancel_block
+      @first_index = @last_index = nil
+      @inside_block = false
+    end
+    # sets marker for start of block
+    # added on 2009-02-19 22:37 
+    def start_block #selection
+      @first_index = @current_index
+      @last_index = nil
+    end
+    # sets marker for end of block
+    # added on 2009-02-19 22:37 
+    def end_block #selection
+      @last_index = current_index
+      lower = [@first_index, @last_index].min
+      higher = [@first_index, @last_index].max
+      #lower.upto(higher) do |i| @list.toggle_row_selection i; end
+      add_row_selection_interval(lower, higher)
+      @repaint_required = true
+    end
+ 
 
+    # ADD HERE
   end # class listb
 
 

data/lib/rbcurse/rmessagebox.rb

@@ -111,8 +111,14 @@ module RubyCurses
         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) }
+        @form.bind_key(?c){ press(?\M-c) }
       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) }
+        @form.bind_key(?n){ press(?\M-n) }
       when "yes_no_cancel"
         make_buttons ["&Yes", "&No", "&Cancel"]
       when "custom"
@@ -170,7 +176,6 @@ module RubyCurses
       return @selected_index
     end
     def press ch
-       #$log.debug "message box handle_keys :  #{ch}"  if ch != -1
         case ch
         when -1
           return
@@ -183,12 +188,14 @@ module RubyCurses
           if field.respond_to? :fire
             field.fire
           end
-          $log.debug "popup ENTER : #{@selected_index} "
-          $log.debug "popup ENTER :  #{field.name}" if !field.nil?
+          #$log.debug "popup ENTER : #{@selected_index} "
+          #$log.debug "popup ENTER :  #{field.name}" if !field.nil?
           @stop = true
           return
         when 9
           @form.select_next_field
+        when 353
+          @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.
@@ -234,7 +241,7 @@ module RubyCurses
       # XXX this needs to go up and decide height of window
       if @message_height.nil?
         @message_height = (message.length/display_length)+1
-        $log.debug " print_message: mh:#{@message_height}"
+        $log.debug " print_message: mh:#{@message_height}, ml: #{message.length}"
       end
       @message_height ||= 1
       width = @layout[:width]
@@ -251,6 +258,7 @@ module RubyCurses
         @message_col = (width-message.length)/2
       end
       @message_row = row
+      # FIXME : wont print if newline at end of message !!!
       #@window.printstring( row, @message_col , message, color=$reversecolor)
       # 2008-12-30 19:45 experimenting with label so we can get justify and wrapping.
       #@window.printstring( row, @message_col , message, color=$reversecolor)
@@ -264,6 +272,7 @@ module RubyCurses
       @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"] || {}
       case @type.to_s 
@@ -272,7 +281,7 @@ module RubyCurses
           name   "input" 
           row  r 
           col  c 
-          display_length  30
+          display_length disp_len
           set_buffer defaultvalue
         end
       when "list"

data/lib/rbcurse/rtabbedpane.rb

@@ -74,6 +74,9 @@ module RubyCurses
     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
       @tabs ||= []
@@ -161,6 +164,7 @@ module RubyCurses
         }
  
       end
+      create_buttons
       @form.repaint
     end
     def display_form form
@@ -183,7 +187,14 @@ module RubyCurses
       return form
     end
     def handle_keys
-      while (( ch=@window.getchar()) != KEY_F1)
+      begin
+      while (( ch=@window.getchar()) != 999)
+        if ch == ?\C-q
+          @selected_index = -1  # this signifies cancel by ?C-q
+          @stop = true
+          return
+        end
+        return if @stop
         @current_form ||= @form
         ret = @current_form.handle_key(ch)
         case ret
@@ -220,15 +231,66 @@ module RubyCurses
           @form.repaint
           #return :UNHANDLED if ret == :UNHANDLED
         end
+        return if @stop
         @current_form.window.wrefresh
         @window.refresh
       end
-      destroy
+      ensure
+        destroy
+      end
     end
     def destroy
       @window.destroy
       @forms.each { |f| w = f.window; w.destroy unless w.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]
+      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
+      total = names.inject(0) {|total, item| total + item.length + 4}
+      bcol = center_column total
+
+      brow = @layout[:height]-2
+      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]
+      return (width-textlen)/2
+    end
 
     ##
     # nested class tab