Optimized prompt output upon cancel
This commit is contained in:
		
							parent
							
								
									46a87b3e0c
								
							
						
					
					
						commit
						02625fca66
					
				@ -54,11 +54,10 @@ begin
 | 
				
			|||||||
    Write(ADefault);
 | 
					    Write(ADefault);
 | 
				
			||||||
  end;
 | 
					  end;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  if c = #13 then
 | 
					 | 
				
			||||||
    Writeln;
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
  if c = ^C then
 | 
					  if c = ^C then
 | 
				
			||||||
    Result := ''; //Pretend that nothing happened.
 | 
					    Result := ''; //Pretend that nothing happened.
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  Writeln; //Always end the line
 | 
				
			||||||
end;
 | 
					end;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
end.
 | 
					end.
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user