[Gd-chatter] r11553 - in trunk/fundev/sources: deuce environment/debugger

[andreas at gwydiondylan.org]

Author: andreas
Date: Mon Dec 17 16:45:57 2007
New Revision: 11553

Modified:
   trunk/fundev/sources/deuce/display.dylan
   trunk/fundev/sources/environment/debugger/message-logs.dylan
Log:
job: fd

Try harder to keep the shell prompt at the bottom of the window.


Modified: trunk/fundev/sources/deuce/display.dylan
==============================================================================
--- trunk/fundev/sources/deuce/display.dylan	(original)
+++ trunk/fundev/sources/deuce/display.dylan	Mon Dec 17 16:45:57 2007
@@ -445,13 +445,13 @@
 end method redisplay-all-windows;
 
 define method redisplay-section
-    (section :: <section>, #key editor) => ()
+    (section :: <section>, #key editor, centering :: false-or(<real>) = #f) => ()
   let editor = editor | (*editor-frame* & frame-editor(*editor-frame*));
   when (editor)
     for (window :: <window> in editor-windows(editor))
       let buffer = window-buffer(window);
       when (buffer & buffer-contains-section?(buffer, section))
-        queue-redisplay(window, $display-all);
+        queue-redisplay(window, $display-all, centering: centering);
         redisplay-window-within-frame(window-frame(window), window)
       end
     end

Modified: trunk/fundev/sources/environment/debugger/message-logs.dylan
==============================================================================
--- trunk/fundev/sources/environment/debugger/message-logs.dylan	(original)
+++ trunk/fundev/sources/environment/debugger/message-logs.dylan	Mon Dec 17 16:45:57 2007
@@ -112,7 +112,7 @@
     if (instance?(section, <dylanworks-shell-section>))
       section-output-line(section) := bp-line(stream-position(stream))
     end;
-    redisplay-section(section, editor: $environment-editor)
+    redisplay-section(section, editor: $environment-editor, centering: 1.0)
   else
     debug-message("Ignoring application message: %s", message)
   end