fix painting a single line
This commit is contained in:
		
							parent
							
								
									88c6250483
								
							
						
					
					
						commit
						60ad7d02c4
					
				|  | @ -439,6 +439,7 @@ | ||||||
| 	rendezvous | 	rendezvous | ||||||
| 	rendezvous-channels | 	rendezvous-channels | ||||||
| 	 | 	 | ||||||
|  | 	ncurses | ||||||
| 	plugin | 	plugin | ||||||
| 	tty-debug | 	tty-debug | ||||||
| 	result-buffer-changes | 	result-buffer-changes | ||||||
|  |  | ||||||
|  | @ -158,10 +158,9 @@ | ||||||
| 
 | 
 | ||||||
| (define (paint-single-line termbuf win) | (define (paint-single-line termbuf win) | ||||||
|   (debug-message "paint-single-line " termbuf) |   (debug-message "paint-single-line " termbuf) | ||||||
|  |   (wmove win (terminal-buffer-y termbuf) 0) | ||||||
|   (wclrtoeol win) |   (wclrtoeol win) | ||||||
|   (mvwaddstr win  |   (waddstr win (line-at-cursor-position termbuf)) | ||||||
| 	     (terminal-buffer-y termbuf) 0  |  | ||||||
| 	     (line-at-cursor-position termbuf)) |  | ||||||
|   (position-cursor termbuf win)) |   (position-cursor termbuf win)) | ||||||
| 
 | 
 | ||||||
| (define (position-cursor termbuf win) | (define (position-cursor termbuf win) | ||||||
|  |  | ||||||
		Loading…
	
		Reference in New Issue
	
	 eknauel
						eknauel