[sup-devel] [PATCH] Added slip_rows config option

[Daniel Schoepe <daniel.schoepe@googlemail.com>]

This patch adds a slip_rows config option used by thread-view-mode
that passes the argument to scroll-mode, which already has that
functionality, but it was only used by completion-mode before.
The option controls how many lines of context are shown when scrolling
up/down.
---
 lib/sup.rb                        |    3 ++-
 lib/sup/modes/thread-view-mode.rb |    2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/sup.rb b/lib/sup.rb
index 2765faa..c94c2b0 100644
--- a/lib/sup.rb
+++ b/lib/sup.rb
@@ -264,7 +264,8 @@ else
     :default_attachment_save_dir => "",
     :sent_source => "sup://sent",
     :poll_interval => 300,
-    :wrap_width => 0
+    :wrap_width => 0,
+    :slip_rows => 0
   }
   begin
     FileUtils.mkdir_p Redwood::BASE_DIR
diff --git a/lib/sup/modes/thread-view-mode.rb b/lib/sup/modes/thread-view-mode.rb
index 63fe211..6138dc7 100644
--- a/lib/sup/modes/thread-view-mode.rb
+++ b/lib/sup/modes/thread-view-mode.rb
@@ -111,7 +111,7 @@ EOS
   ## objects. @person_lines is a map from row #s to Person objects.
 
   def initialize thread, hidden_labels=[], index_mode=nil
-    super()
+    super :slip_rows => $config[:slip_rows]
     @thread = thread
     @hidden_labels = hidden_labels
 
-- 
1.7.0

_______________________________________________
Sup-devel mailing list
Sup-devel@rubyforge.org
http://rubyforge.org/mailman/listinfo/sup-devel