select-list now accepts width instead of result-buffer

part of darcs patch Wed Sep 21 20:47:51 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>

scheme/afs.scm

@@ -121,7 +121,8 @@
                       header
                       (iota hdr-len))
             (paint-selection-list-at 
-             select-list 0 hdr-len win buffer have-focus?))))
+             select-list 0 hdr-len win (result-buffer-num-cols buffer)
+             have-focus?))))
 
        ((key-press)
 	(lambda (self key control-x-pressed?)

scheme/browse-directory-list.scm

@@ -145,7 +145,7 @@
   (wattrset win (A-NORMAL))
   (paint-select-line-at select-line 1 1 win buffer)
   (paint-selection-list-at select-list 1 2 win
-			   buffer have-focus?))
+			   (result-buffer-num-cols buffer) have-focus?))
 
 (define (find-common-parent paths)
   (if (null? paths)

scheme/inspector.scm

@@ -183,7 +183,7 @@
              (paint-selection-list-at
               selection-list
               0 hdr-len
-              win result-buffer have-focus?))))
+              win (result-buffer-num-cols result-buffer) have-focus?))))
         ((key-press)
          (lambda (self key control-x-pressed?)
            (cond

scheme/job-viewer.scm

@@ -95,7 +95,8 @@
 	 (lambda (self win buffer have-focus?)
 	   (mvwaddstr win 0 0 headline)
 	   (paint-selection-list-at 
-	    select-list 0 1 win buffer have-focus?)))
+	    select-list 0 1 win (result-buffer-num-cols buffer)
+            have-focus?)))
 
 	((key-press)
 	 (lambda (self key control-x-pressed?)
@@ -250,7 +251,8 @@
 	   (mvwaddstr 
 	    win 0 0 (cut-to-size num-cols "Viewing job"))
 	   (paint-selection-list-at
-	    select-list 0 1 win buffer have-focus?)))
+	    select-list 0 1 win (result-buffer-num-cols buffer)
+            have-focus?)))
 
 	((key-press) handle-key-press)
 

scheme/nuit-engine.scm

@@ -806,7 +806,8 @@
 	       (string-append "Possible completions for " command))
     (wattrset win (A-NORMAL))
     (paint-selection-list-at select-list 0 2
-     win (result-buffer) (focus-on-result-buffer?))
+     win (result-buffer-num-cols (result-buffer))
+     (focus-on-result-buffer?))
     (refresh-result-window)))
 
 (define (current-cursor-index)

scheme/process.scm

@@ -53,14 +53,6 @@
            (result-buffer-num-lines buffer)
            processes)))
 
-    (define (set-processes! new-processes)
-      (set! processes new-processes)
-      (set! select-list
-            (make-process-selection-list 
-             (result-buffer-num-cols buffer)
-             (- (result-buffer-num-lines buffer) 1)
-             new-processes)))
-
     (define (get-selection-as-text self for-scheme-mode? focus-object-table)
       (let* ((marked (select-list-get-marked select-list)))
 	(cond
@@ -83,7 +75,8 @@
          (lambda (self win buffer have-focus?)
            (paint-select-line-at header-line 0 0 win buffer)
            (paint-selection-list-at 
-            select-list 0 1 win buffer have-focus?)))
+            select-list 0 1 win (result-buffer-num-cols buffer)
+            have-focus?)))
 
         ((key-press)
          (lambda (self key control-x-pressed?)

scheme/select-list.scm

@@ -125,14 +125,13 @@
 		  (select-list-view-index select-list))
 	    (+ 1 num-lines)))
 
-(define (paint-selection-list select-list win result-buffer have-focus?)
+(define (paint-selection-list select-list win width have-focus?)
-  (paint-selection-list-at select-list 0 0  win result-buffer have-focus?))
+  (paint-selection-list-at select-list 0 0  win width have-focus?))
 
-(define (paint-selection-list-at select-list x y win result-buffer 
+(define (paint-selection-list-at select-list x y win width
                                  have-focus?)
   (let ((num-lines (select-list-num-lines select-list))
-        (cursor-index (select-list-cursor-index select-list))
+        (cursor-index (select-list-cursor-index select-list)))
-        (width (result-buffer-num-cols result-buffer)))
     (let lp ((elts 
 	      (select-visible-elements select-list num-lines))
 	     (y y)

scheme/user-group-info.scm

@@ -203,9 +203,10 @@
     (lambda (message)
       (case message
         ((paint)
-         (lambda (self . args)
+         (lambda (self win buffer have-focus?)
-           (apply paint-selection-list
+           (paint-selection-list selection-list
-                  selection-list args)))
+                                 win (result-buffer-num-cols buffer)
+                                 have-focus?)))
         ((key-press)
          (lambda (self key control-x-pressed?)
            (cond
@@ -340,9 +341,10 @@
     (lambda (message)
       (case message
         ((paint)
-         (lambda (self . args)
+         (lambda (self win buffer have-focus?)
-           (apply paint-selection-list
+           (paint-selection-list selection-list
-                  selection-list args)))
+                                 win (result-buffer-num-cols buffer)
+                                 have-focus?)))
         ((key-press)
          (lambda (self key control-x-pressed?)
            (cond
@@ -421,9 +423,10 @@
     (lambda (message)
       (case message
         ((paint)
-         (lambda (self . args)
+         (lambda (self win buffer have-focus?)
-           (apply paint-selection-list
+           (paint-selection-list selection-list
-                  selection-list args)))
+                                 win (result-buffer-num-cols buffer)
+                                 have-focus?)))
         ((key-press)
          (lambda (self key control-x-pressed?)
            (cond