rbcurse 1.4.0 → 1.4.1.pre2

data/lib/rbcurse/extras/resultsetbrowser.rb

@@ -0,0 +1,281 @@
+require 'rbcurse/rscrollform'
+require 'fileutils'
+
+# See tabbed pane, and add_cols nad add_rows, on_entr and set_form_row to see cursor issue
+# remove main form 
+# don't make a widget just an object
+# let it create own form.
+
+# NOTE: experimental, not yet firmed up
+# If you use in application, please copy to some application folder in case i change this.
+# Can be used for print_help_page
+# SUGGESTIONS WELCOME.
+# @since 1.4.1
+module RubyCurses
+
+  class ResultsetBrowser #< Widget
+    #include EventHandler
+    include ConfigSetup
+    include RubyCurses::Utils
+    #dsl_property :xxx
+    # I don't think width is actually used, windows width matters. What of height ?
+    # THATS WRONG , i cannot eat up window. I should use object dimentsion for pad,
+    #  not window dimensions
+    dsl_accessor :row, :col, :height, :width
+    dsl_accessor :should_print_border
+
+    def initialize win, config={}, &block
+      @should_print_border = true
+      @v_window = win #form.window
+      @window = @v_window
+      @focusable = true
+      @editable  = true
+      @old_index = @current_index = 0
+      @fields = nil
+      config_setup config 
+      instance_eval &block if block_given?
+      init_vars
+    end
+    def map_keys
+      @v_form.bind_key(?\C-n) { @current_index += 1 if @current_index < @rows.count-1 }
+      @v_form.bind_key(?\C-p) {  @current_index -= 1  if @current_index > 0 }
+      @mapped = true
+    end
+    def init_vars
+      @row ||= 0
+      @col ||= 0
+      @height ||= 15
+      @width ||= 50
+      @field_offset = 14   # where actual Field should start (leaving space for label)
+      @row_offset ||= 0
+      @col_offset ||= 1
+      @border_offset = 0
+      if @should_print_border
+        @border_offset = 1
+      end
+      @v_form = RubyCurses::ScrollForm.new @v_window
+      @v_form.display_h(@height-1-@border_offset*2) if @height
+      @v_form.display_w(@width-1-@border_offset*2)  if @width
+    end
+    def data=(rows)
+      @rows = rows
+    end
+    def columns=(columns)
+      @columns = columns
+      h = @columns.count + 2
+      w = 150 
+      #row = 1
+      #col = 1
+      row = @row + @border_offset
+      col = @col + @border_offset
+      @v_form.set_pad_dimensions(row, col, h, w)
+      @v_form.should_print_border(false) # this should use dimensions of object not window. # 2011-10-12 15:48:14
+      # currently I don't have space for any buttons or anything.  The form takes all space of the window
+      # not of the object defined.
+      # I should be able to tell Scrollform to use only thismuch of window.
+    end
+    def set_form_row
+      f = @v_form.get_current_field
+      f.set_form_row
+    end
+    def handle_key ch
+      map_keys unless @mapped
+      $log.debug "XXX: RB HK got ch "
+      ret =  @v_form.handle_key ch
+      #set_form_row
+      if ret == :UNHANDLED
+        @v_form.process_key ch, self
+      end
+      repaint
+      @v_window.wrefresh
+    end
+    def repaint
+      @fields ||= _create_fields
+      #alert "old #{@old_index} , #{@current_index} "
+      if @old_index != @current_index
+        #alert "index change"
+        row = @rows[@current_index]
+        @columns.each_with_index { |e, i|  
+          value = row[i]
+          len = value.to_s.length
+          type=@rows[0].types[i]
+          if type == "TEXT"
+            value = value.gsub(/\n/," ") if value
+          end
+          f = @fields[i]
+          @fields[i].set_buffer(value)
+          if f.display_length < len && len < (@width - @field_offset)
+            @fields[i].display_length len
+          end
+        }
+        @v_form.repaint
+        @window.wrefresh
+        Ncurses::Panel.update_panels
+        @old_index = @current_index
+      end
+    end
+    # maybe not required since we don't have 2 forms now
+    def unused_on_enter
+      if $current_key == KEY_BTAB
+        c = @v_form.widgets.count-1
+        @v_form.select_field c
+      else
+        @v_form.select_field 0
+      end
+    end
+    private
+    def _create_fields
+      color = $datacolor
+      if @should_print_border
+        @v_window.print_border @row, @col, @height-1, @width, color #, Ncurses::A_REVERSE
+        @row_offset += 1
+        @col_offset += 1
+      end
+      $log.debug "XXX: ROWS#{@rows}"
+      $log.debug "XXX: COLS#{@columns}"
+      $log.debug "XXX: row#{@rows[@current_index]}"
+      fields = []
+      r = @row + @row_offset   # row was for where to print the total object, not this
+      c = @col + @col_offset + @field_offset # 14 is to leave space for labels
+      v_form = @v_form
+      @columns.each_with_index { |e, index| 
+        #break if index >= @height-1 # create only as much space we have, SUCKS but just trying till be scroll
+        #$log.debug "XXX: #{r} #{c} EACH #{e}, #{index}, #{@rows[@current_index][index]}"
+        value=@rows[@current_index][index]
+        type=@rows[0].types[index]
+        if type == "TEXT"
+          value = value.gsub(/\n/," ") if value
+        end
+        len = [value.to_s.length, (@width - @field_offset)].min
+        f = Field.new v_form do 
+          name  e
+          row  r
+          col c 
+          bgcolor 'blue'
+          highlight_background 'cyan'
+          set_buffer value
+          display_length len
+          set_label Label.new v_form, {'text' => e, 'color'=>'cyan'}
+        end
+        fields << f
+        r += 1
+      }
+      @v_form.repaint
+      @window.wrefresh
+      Ncurses::Panel.update_panels
+      #$log.debug "XXX: created fields "
+      return fields
+    end
+    
+    # ADD HERE
+    
+  end # class
+end # module
+module RubyCurses
+  # a data viewer for viewing some text or filecontents
+  # view filename, :close_key => KEY_RETURN
+  # send data in an array
+  # view Array, :close_key => KEY_RETURN, :layout => [0,0,23,80]
+  # when passing layout reserve 4 rows for window and border. So for 2 lines of text
+  # give 6 rows.
+  class Browser
+    def self.browse_sql dbname, tablename, sql, config={} #:yield: ???
+      raise "file not found" unless File.exist? dbname
+      require 'sqlite3'
+      db = SQLite3::Database.new(dbname)
+      columns, *rows = db.execute2(sql)
+      #$log.debug "XXX COLUMNS #{sql}  "
+      content = rows
+      return nil if content.nil? or content[0].nil?
+      datatypes = content[0].types 
+      self.browse db, tablename, columns, rows, config
+    end
+    # @param filename as string or content as array
+    # @yield textview object for further configuration before display
+    # NOTE: i am experimentally yielding textview object so i could supress borders
+    # just for kicks, but on can also bind_keys or events if one wanted.
+    #def self.view what, config={} #:yield: textview
+    def self.browse dbconn, tablename, columns, rows, config={} #:yield: ???
+      wt = 0 # top margin
+      wl = 0 # left margin
+      wh = Ncurses.LINES-wt-3 # height, goes to bottom of screen
+      ww = Ncurses.COLS-wl-3  # width, goes to right end
+      wt, wl, wh, ww = config[:layout] if config.has_key? :layout
+
+      fp = config[:title] || ""
+      pf = config.fetch(:print_footer, true)
+      ta = config.fetch(:title_attrib, 'bold')
+      fa = config.fetch(:footer_attrib, 'bold')
+
+      wh = Ncurses.LINES-0
+      ww = Ncurses.COLS-0
+      layout = { :height => wh, :width => ww, :top => wt, :left => wl } 
+      #v_window = config[:window] # using previous window cause crash seg fault
+      #v_window ||= VER::Window.new(layout) # copywin gives -1 and prints nothing
+      v_window = VER::Window.root_window
+      v_window.printstring 0, 30, "Database Browser Demo", $datacolor
+      @form = RubyCurses::Form.new v_window # only for some widgets that are not editable
+      header = app_header "rbcurse ", :text_center => "ResultsetBrowser Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+      sl = status_line :row => v_window.height == 0 ? Ncurses.LINES-1 : v.window.height-1
+      sl.command { "Record Navigation: C-n C-p. Scrolling M-n, M-p, M-l, M-h" }
+      
+      @form.repaint
+
+      #rb = ResultsetBrowser.new v_form, :row => 2, :col => 2
+      rb = ResultsetBrowser.new v_window, :row => 2, :col => 2, :height => 20, :width => 95
+      rb.columns = columns
+      rb.data = rows
+      rb.repaint
+
+
+      # yielding textview so you may further configure or bind keys or events
+      begin
+      #v_form.repaint
+      v_window.wrefresh
+      Ncurses::Panel.update_panels
+      # allow closing using q and Ctrl-q in addition to any key specified
+      #  user should not need to specify key, since that becomes inconsistent across usages
+        while((ch = v_window.getchar()) != ?\C-q.getbyte(0) )
+          break if ch == config[:close_key] 
+          rb.handle_key ch
+          #v_form.handle_key ch
+        end
+      rescue => err
+        $log.error err.to_s
+        $log.error err.backtrace.join("\n")
+        alert err.to_s
+
+      ensure
+        v_window.destroy if !v_window.nil?
+      end
+    end
+  end  # class
+end # module
+if __FILE__ == $PROGRAM_NAME
+require 'rbcurse/app'
+
+App.new do 
+  header = app_header "rbcurse ", :text_center => "ResultsetBrowser Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press F10 to exit from here"
+  columns = ["Name","Age","City", "Country"]
+  data    = [
+             [ "Rahul",31, "Delhi","India"], 
+             [ "Dev",35, "Mumbai","India"], 
+             [ "Jobs",56, "L.A","U.S.A"], 
+             [ "Matz",40, "Tokyo","Nippon"] 
+  ]
+
+    #RubyCurses::Browser.browse("dummy", "atable", columns, data,  :close_key => FFI::NCurses::KEY_F10, :title => "Enter to close") do |t|
+  sql = "select id, type, priority, title from bugs"
+  sql = "select * from bugs"
+    RubyCurses::Browser.browse_sql("../../../bugzy.sqlite", "bugs", sql, :close_key => FFI::NCurses::KEY_F10, :title => "Enter to close", :window => @window) do |t|
+      # you may configure textview further here.
+      #t.suppress_borders true
+      #t.color = :black
+      #t.bgcolor = :white
+      # or
+      #t.attr = :reverse
+    end
+
+end # app
+end

data/lib/rbcurse/extras/statusline.rb

@@ -9,7 +9,12 @@ module RubyCurses
   class StatusLine < Widget
 
     def initialize form, config={}, &block
-      @row = Ncurses.LINES-3
+      if form.window.height == 0
+        @row = Ncurses.LINES-3 # fix, what about smaller windows, use window dimensions and watch out for 0,0
+      else
+        @row = form.window.height-3 # fix, what about smaller windows, use window dimensions and watch out for 0,0
+      end
+       # in root windows FIXME
       @col = 0
       super
       @focusable = false
@@ -19,7 +24,8 @@ module RubyCurses
       bind(:PROPERTY_CHANGE) {  |e| @color_pair = nil ; }
     end
     #
-    # command that returns a string that populates the status line.
+    # command that returns a string that populates the status line (left aligned)
+    # @see :right
     # See dbdemo.rb
     # e.g. 
     #   @l.command { "%-20s [DB: %-s | %-s ]" % [ Time.now, $current_db || "None", $current_table || "----"] }  
@@ -28,23 +34,55 @@ module RubyCurses
       @command = blk
       @args = args
     end
+    alias :left :command
+
+    # 
+    # Procudure for text to be right aligned in statusline
+    def right *args, &blk
+      @right_text = blk
+      @right_args = args
+    end
 
     # NOTE: I have not put a check of repaint_required, so this will print on each key-stroke OR
     #   rather whenever form.repaint is called.
     def repaint
       @color_pair ||= get_color($datacolor, @color, @bgcolor) 
+      len = @form.window.width
+      len = Ncurses.COLS if len == 0
 
       # first print dashes through
-      @form.window.printstring @row, @col, "%s" % "-" * Ncurses.COLS, @color_pair, Ncurses::A_REVERSE
+      @form.window.printstring @row, @col, "%s" % "-" * len, @color_pair, Ncurses::A_REVERSE
 
       # now call the block to get current values
       if @command
-        ftext = @command.call(self, @args) if @command
+        ftext = @command.call(self, @args) 
       else
         status = $status_message ? $status_message.value : ""
-        ftext = " %-20s | %s" % [Time.now, status] # should we print a default value just in case user doesn't
+        #ftext = " %-20s | %s" % [Time.now, status] # should we print a default value just in case user doesn't
+        ftext = status # should we print a default value just in case user doesn't
+      end
+      if ftext =~ /#\[/
+        @form.window.printstring_formatted @row, @col, ftext, $datacolor, Ncurses::A_REVERSE
+      else
+        @form.window.printstring @row, @col, ftext, $datacolor, Ncurses::A_REVERSE
+      end
+      # move this to formatted FIXME
+      #@form.window.printstring_or_chunks @row, @col, ftext, $datacolor, Ncurses::A_REVERSE
+
+      if @right_text
+        ftext = @right_text.call(self, @right_args) 
+        if ftext =~ /#\[/
+          @form.window.printstring_formatted_right @row, nil, ftext, $datacolor, Ncurses::A_REVERSE
+        else
+          c = len - ftext.length
+          @form.window.printstring @row, c, ftext, $datacolor, Ncurses::A_REVERSE
+        end
+      else
+        t = Time.now
+        tt = t.strftime "%F %H:%M:%S"
+        ftext = "#[fg=green,bg=blue] %-20s" % [tt] # print a default
+        @form.window.printstring_formatted_right @row, nil, ftext, $datacolor, Ncurses::A_REVERSE
       end
-      @form.window.printstring @row, @col, ftext, $datacolor, Ncurses::A_REVERSE
 
       @repaint_required = false
     end

data/lib/rbcurse/extras/tabularwidget.rb

@@ -71,11 +71,11 @@ module RubyCurses
     attr_accessor :numbering
     # default or custom sorter
     attr_reader :table_row_sorter
-     
+
     # @group select related
     dsl_accessor :selection_mode
     dsl_accessor :selected_color, :selected_bgcolor, :selected_attr
-    
+
     dsl_property :show_selector # boolean
     dsl_property :row_selected_symbol 
     dsl_property :row_unselected_symbol 
@@ -172,30 +172,39 @@ module RubyCurses
       @column_pointer = Circular.new @columns.size()-1
     end
     alias :headings= :columns=
-    ## 
-    # send in a list of data
-    # 
-    # @param [Array / Tabular] data to be displayed
-    def set_content list
-      if list.is_a? RubyCurses::Tabular
-        @list = list
-      elsif list.is_a? Array
-        @list = list
-      else
-        raise "set_content expects Array not #{list.class}"
-      end
-      if @table_row_sorter
-        @table_row_sorter.model=@list
-      else
-        @table_row_sorter = TableRowSorter.new @list
+      ## 
+      # send in a list of data
+      # sorting will only happen if data passed using set_content
+      # NOTE: why doesn't set_content take in columns
+      # @param [Array / Tabular] data to be displayed
+      def set_content list, columns=nil
+        if list.is_a? RubyCurses::Tabular
+          @list = list
+        elsif list.is_a? Array
+          @list = list
+        else
+          raise "set_content expects Array not #{list.class}"
+        end
+        if @table_row_sorter
+          @table_row_sorter.model=@list
+        else
+          @table_row_sorter = TableRowSorter.new @list
+        end
+        # adding columns setting here 2011-10-16 
+        self.columns = columns if columns
+        @current_index = @_header_adjustment # but this is set when columns passed
+        @toprow = 0
+        @second_time = false # so that reestimation of column_widths
+        @repaint_required = true
+        @recalc_required = true
+        self
       end
-      @current_index = @_header_adjustment
-      @toprow = 0
-      @second_time = false # so that reestimation of column_widths
-      @repaint_required = true
-      @recalc_required = true
+    def data=(data)
+      set_content(data, nil)
     end
+
     # add a row of data 
+    #  NOTE: this is not creating a table sorter
     # @param [Array] an array containing entries for each column
     def add array
       @list ||= []
@@ -206,6 +215,10 @@ module RubyCurses
     alias :<< :add
     alias :add_row :add
     alias :append :add
+    def create_default_sorter
+      raise "Data not sent in." unless @list
+      @table_row_sorter = TableRowSorter.new @list
+    end
     def remove_all
       @list = []
       init_vars
@@ -301,7 +314,7 @@ module RubyCurses
       raise "#{self.class} needs height" unless @height
 
       $log.debug " #{@name} print_borders,  #{@graphic.name} "
-      
+
       bordercolor = @border_color || $datacolor
       borderatt = @border_attrib || Ncurses::A_NORMAL
       @graphic.print_border @row, @col, @height-1, @width, bordercolor, borderatt
@@ -313,11 +326,25 @@ module RubyCurses
       @graphic.printstring( @row, @col+(@width-@title.length)/2, @title, $datacolor, @title_attrib) unless @title.nil?
     end
     def print_foot #:nodoc:
-      @footer_attrib ||= Ncurses::A_REVERSE
-      footer = "R: #{@current_index+1}, C: #{@curpos+@pcol}, #{@list.length} lines  "
-      #$log.debug " print_foot calling printstring with #{@row} + #{@height} -1, #{@col}+2"
-      @graphic.printstring( @row + @height -1 , @col+2, footer, $datacolor, @footer_attrib) 
+      @footer_attrib ||= Ncurses::A_DIM
+      gb = get_color($datacolor, 'green','black')
+      if @current_index == @toprow
+        footer = "%15s" % " [ header row ]"
+      else
+        footer = "%15s" % " [#{@current_index}/ #{@list.length} ]"
+      end
+      pos = @col + 2
+      right = true
+      if right
+        pos = @col + @width - footer.length - 1
+      end
+      @graphic.printstring( @row + @height -1 , pos, footer, gb, @footer_attrib) 
       @repaint_footer_required = false # 2010-01-23 22:55 
+      #@footer_attrib ||= Ncurses::A_REVERSE
+      #footer = "R: #{@current_index+1}, C: #{@curpos+@pcol}, #{@list.length} lines  "
+      ##$log.debug " print_foot calling printstring with #{@row} + #{@height} -1, #{@col}+2"
+      #@graphic.printstring( @row + @height -1 , @col+2, footer, $datacolor, @footer_attrib) 
+      #@repaint_footer_required = false # 2010-01-23 22:55 
     end
     ### FOR scrollable ###
     def get_content
@@ -368,10 +395,10 @@ module RubyCurses
         ret = up
         get_window.ungetch(KEY_BTAB) if ret == :NO_PREVIOUS_ROW
         check_curpos
-        
+
       when KEY_DOWN, ?j.getbyte(0)
         ret = down
-        get_window.ungetch(KEY_TAB) if ret == :NO_NEXT_ROW
+        #get_window.ungetch(KEY_TAB) if ret == :NO_NEXT_ROW
         check_curpos
       when KEY_LEFT, ?h.getbyte(0)
         cursor_backward
@@ -413,7 +440,7 @@ module RubyCurses
         # storing digits entered so we can multiply motion actions
         $multiplier *= 10 ; $multiplier += (ch-48)
         return 0
-      #when ?\C-u.getbyte(0)
+        #when ?\C-u.getbyte(0)
         ## multiplier. Series is 4 16 64
         #@multiplier = (@multiplier == 0 ? 4 : @multiplier *= 4)
         #return 0
@@ -430,7 +457,7 @@ module RubyCurses
           ret = process_key ch, self
         rescue => err
           $error_message.value = err.to_s
-#          @form.window.print_error_message # changed 2011 dts  
+          #          @form.window.print_error_message # changed 2011 dts  
           alert err.to_s
           $log.error " Tabularwidget ERROR #{err} "
           $log.debug(err.backtrace.join("\n"))
@@ -515,12 +542,12 @@ module RubyCurses
     def cursor_forward #:nodoc:
       maxlen = @maxlen || @width-@internal_width
       repeatm { 
-      if @curpos < @width and @curpos < maxlen-1 # else it will do out of box
-        @curpos += 1
-        addcol 1
-      else
-        @pcol += 1 if @pcol <= @buffer.length
-      end
+        if @curpos < @width and @curpos < maxlen-1 # else it will do out of box
+          @curpos += 1
+          addcol 1
+        else
+          @pcol += 1 if @pcol <= @buffer.length
+        end
       }
       set_form_col 
       #@repaint_required = true
@@ -539,20 +566,20 @@ module RubyCurses
       #@repaint_required = true
       @repaint_footer_required = true # 2010-01-23 22:41 
       if @form
-      @form.addrowcol row, col
+        @form.addrowcol row, col
       else
         @parent_component.form.addrowcol num
       end
     end
     def cursor_backward  #:nodoc:
       repeatm { 
-      if @curpos > 0
-        @curpos -= 1
-        set_form_col 
-        #addcol -1
-      elsif @pcol > 0 
-        @pcol -= 1   
-      end
+        if @curpos > 0
+          @curpos -= 1
+          set_form_col 
+          #addcol -1
+        elsif @pcol > 0 
+          @pcol -= 1   
+        end
       }
       #@repaint_required = true
       @repaint_footer_required = true # 2010-01-23 22:41 
@@ -594,27 +621,27 @@ module RubyCurses
       0.upto(h - @_header_adjustment) do |hh|
         crow = tr+hh
         if crow < rc
-            #focussed = @current_index == crow ? true : false 
-            content = tm[crow]
+          #focussed = @current_index == crow ? true : false 
+          content = tm[crow]
 
-            columnrow = false
-            if content == :columns
-              columnrow = true
-            end
+          columnrow = false
+          if content == :columns
+            columnrow = true
+          end
 
-            value = convert_value_to_text content, crow
+          value = convert_value_to_text content, crow
 
-            @buffer = value if crow == @current_index
-            # next call modified string. you may wanna dup the string.
-            # rlistbox does
-            sanitize value if @sanitization_required
-            truncate value
-            ## set the selector symbol if requested
-            paint_selector crow, r+hh, c, acolor, @attr
+          @buffer = value if crow == @current_index
+          # next call modified string. you may wanna dup the string.
+          # rlistbox does
+          sanitize value if @sanitization_required
+          truncate value
+          ## set the selector symbol if requested
+          paint_selector crow, r+hh, c, acolor, @attr
 
-            #@graphic.printstring  r+hh, c, "%-*s" % [@width-@internal_width,value], acolor, @attr
-            #print_data_row( r+hh, c, "%-*s" % [@width-@internal_width,value], acolor, @attr)
-            print_data_row( r+hh, c+@left_margin, @width-@internal_width-@left_margin, value, acolor, @attr)
+          #@graphic.printstring  r+hh, c, "%-*s" % [@width-@internal_width,value], acolor, @attr
+          #print_data_row( r+hh, c, "%-*s" % [@width-@internal_width,value], acolor, @attr)
+          print_data_row( r+hh, c+@left_margin, @width-@internal_width-@left_margin, value, acolor, @attr)
 
         else
           # clear rows
@@ -853,9 +880,11 @@ module RubyCurses
     end
 
     # returns true if cursor is on header row
+    # NOTE: I have no idea why row was used here. it is not working
     def header_row?
       return false if @columns.nil?
-      1 == @row + (@current_index-@toprow)
+      #1 == @row + (@current_index-@toprow)
+      @current_index == @toprow
     end
     # on pressing ENTER we send user some info, the calling program
     # would bind :PRESS
@@ -937,7 +966,7 @@ module RubyCurses
     end
 
     # Some supporting classes
-    
+
     # This is our default table row sorter.
     # It does a multiple sort and allows for reverse sort also.
     # It's a pretty simple sorter and uses sort, not sort_by.
@@ -976,6 +1005,7 @@ module RubyCurses
       def sort
         return unless @model
         return if @sort_keys.empty?
+        $log.debug "TABULAR SORT KEYS #{sort_keys} "
         @model.sort!{|x,y| 
           res = 0
           @sort_keys.each { |ee| 
@@ -1003,7 +1033,10 @@ module RubyCurses
           @sort_keys.delete index # in case its already there
           @sort_keys.delete(index*-1) # in case its already there
           @sort_keys.unshift index
-          # TODO delete beyond a max, default 3
+          # don't let it go on increasing
+          if @sort_keys.size > 3
+            @sort_keys.pop
+          end
         end
       end
       def set_sort_keys list
@@ -1071,43 +1104,47 @@ module RubyCurses
 
 end # modul
 if __FILE__ == $PROGRAM_NAME
-  
-require 'rbcurse/app'
-App.new do
-  t = TabularWidget.new @form, :row => 2, :col => 2, :height => 20, :width => 30
-  t.columns = ["Name ", "Age ", " Email        "]
-  t.add %w{ rahul 33 r@ruby.org }
-  t << %w{ _why 133 j@gnu.org }
-  t << ["jane", "1331", "jane@gnu.org" ]
-  t.column_align 1, :right
-  s = TabularWidget.new @form, :row => 2, :col =>32  do |b|
-    b.columns = %w{ country continent text }
-    b << ["india","asia","a warm country" ] 
-    b << ["japan","asia","a cool country" ] 
-    b << ["russia","europe","a hot country" ] 
-    #b.column_width 2, 30
-  end
-  s = TabularWidget.new @form , :row => 12, :col => 32  do |b|
-    b.columns = %w{ place continent text }
-    b << ["india","asia","a warm country" ] 
-    b << ["japan","asia","a cool country" ] 
-    b << ["russia","europe","a hot country" ] 
-    b << ["sydney","australia","a dry country" ] 
-    b << ["canberra","australia","a dry country" ] 
-    b << ["ross island","antarctica","a dry country" ] 
-    b << ["mount terror","antarctica","a windy country" ] 
-    b << ["mt erebus","antarctica","a cold place" ] 
-    b << ["siberia","russia","an icy city" ] 
-    b << ["new york","USA","a fun place" ] 
-    b.column_width 0, 12
-    b.column_width 1, 12
-    b.column_hidden 1, true
-    b.numbering = true ## FIXME BROKEN
+
+  require 'rbcurse/app'
+  App.new do
+    t = TabularWidget.new @form, :row => 2, :col => 2, :height => 20, :width => 30
+    t.columns = ["Name ", "Age ", " Email        "]
+    t.add %w{ rahul 33 r@ruby.org }
+    t << %w{ _why 133 j@gnu.org }
+    t << ["jane", "1331", "jane@gnu.org" ]
+    t.column_align 1, :right
+    t.create_default_sorter
+
+    s = TabularWidget.new @form, :row => 2, :col =>32  do |b|
+      b.columns = %w{ country continent text }
+      b << ["india","asia","a warm country" ] 
+      b << ["japan","asia","a cool country" ] 
+      b << ["russia","europe","a hot country" ] 
+      #b.column_width 2, 30
+    end
+    s.create_default_sorter
+    s = TabularWidget.new @form , :row => 12, :col => 32  do |b|
+      b.columns = %w{ place continent text }
+      b << ["india","asia","a warm country" ] 
+      b << ["japan","asia","a cool country" ] 
+      b << ["russia","europe","a hot country" ] 
+      b << ["sydney","australia","a dry country" ] 
+      b << ["canberra","australia","a dry country" ] 
+      b << ["ross island","antarctica","a dry country" ] 
+      b << ["mount terror","antarctica","a windy country" ] 
+      b << ["mt erebus","antarctica","a cold place" ] 
+      b << ["siberia","russia","an icy city" ] 
+      b << ["new york","USA","a fun place" ] 
+      b.column_width 0, 12
+      b.column_width 1, 12
+      b.column_hidden 1, true
+      b.numbering = true ## FIXME BROKEN
+    end
+    s.create_default_sorter
+    require 'rbcurse/extras/scrollbar'
+    sb = Scrollbar.new @form, :parent => s
+    #t.column_align 1, :right
+    #puts t.to_s
+    #puts
   end
-  require 'rbcurse/extras/scrollbar'
-  sb = Scrollbar.new @form, :parent => s
-  #t.column_align 1, :right
-  #puts t.to_s
-  #puts
-end
 end