small fixes for redrawing

2005-05-17 13:17:51 +00:00
parent f649bb93cc
commit b161acf8cf
1 changed files with 8 additions and 5 deletions
@@ -296,7 +296,7 @@
 		(begin
 		  (focus-command-buffer!)
 		  (paint-command-window-contents)
-		  (move-cursor command-buffer)))
+		  (set! command-buffer (move-cursor command-buffer))))
 	    (set! c-x-pressed #f)
 	    (loop (wait-for-input)))

@@ -363,13 +363,15 @@
 		  (paint-result-window)
 		  (paint-bar-2)
 		  (paint-command-window-contents)
-		  (move-cursor command-buffer)
+		  (set! command-buffer (move-cursor command-buffer))
 		  (loop (wait-for-input))))
 	      
 	       (else 
 		(set! command-buffer (input command-buffer ch))
-		(paint-command-window-contents)
-		(move-cursor command-buffer)
+		(wclrtoeol (app-window-curses-win command-window))
+		(print-command-buffer (app-window-curses-win command-window) 
+				      command-buffer)
+		(set! command-buffer (move-cursor command-buffer))
 		(loop (wait-for-input))))))))))

 (define (window-init-curses-win! window)
@@ -793,7 +795,8 @@
 	(compute-y-x)
 	(wmove (app-window-curses-win result-window) 
 	       result-buffer-pos-y result-buffer-pos-x)
-	(wrefresh (app-window-curses-win result-window)))))
+	(wrefresh (app-window-curses-win result-window))
+	buffer)))

 ;;compue pos-x and pos-y
 (define compute-y-x