Now that we have two windows for the command buffer clearing the
window is easier
This commit is contained in:
		
							parent
							
								
									3669859bb9
								
							
						
					
					
						commit
						03f535f0f2
					
				| 
						 | 
				
			
			@ -369,7 +369,7 @@
 | 
			
		|||
	      
 | 
			
		||||
	       (else 
 | 
			
		||||
		(set! command-buffer (input command-buffer ch))
 | 
			
		||||
		(wclrtoeol (app-window-curses-win command-window))
 | 
			
		||||
		(werase (app-window-curses-win command-window))
 | 
			
		||||
		(print-command-buffer (app-window-curses-win command-window) 
 | 
			
		||||
				      command-buffer)
 | 
			
		||||
		(set! command-buffer (move-cursor command-buffer))
 | 
			
		||||
| 
						 | 
				
			
			@ -433,9 +433,9 @@
 | 
			
		|||
  (wrefresh (app-window-curses-win command-frame-window)))
 | 
			
		||||
 | 
			
		||||
(define (paint-command-window-contents)
 | 
			
		||||
   (set-buffer-num-lines! command-buffer
 | 
			
		||||
  (set-buffer-num-lines! command-buffer
 | 
			
		||||
 			 (- (app-window-height command-window) 2))
 | 
			
		||||
   (set-buffer-num-cols! command-buffer
 | 
			
		||||
  (set-buffer-num-cols! command-buffer
 | 
			
		||||
 			(- (app-window-width command-window) 3))
 | 
			
		||||
  (werase (app-window-curses-win command-window))
 | 
			
		||||
  (set! command-buffer 
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue