[closure-cvs] CVS update: closure/src/gui/clim-gui.lisp

[Christophe Rhodes]

Update of /project/closure/cvsroot/closure/src/gui
In directory common-lisp.net:/tmp/cvs-serv7926/src/gui

Modified Files:
	clim-gui.lisp 
Log Message:
Complete the renaming *MEDIUM* -> *PANE*.

Panes are CLIM extended-streams, and remember output to them in output
records.  Mediums are much simpler, and don't have this kind of
memory.  So, though the same drawing functions (DRAW-TEXT, DRAW-LINE)
can have the same initial effect applied to a pane and a medium, the
output-record state is very different.

Date: Mon Jul 11 17:58:04 2005
Author: crhodes

Index: closure/src/gui/clim-gui.lisp
diff -u closure/src/gui/clim-gui.lisp:1.19 closure/src/gui/clim-gui.lisp:1.20
--- closure/src/gui/clim-gui.lisp:1.19	Sun Jul 10 13:18:34 2005
+++ closure/src/gui/clim-gui.lisp	Mon Jul 11 17:58:03 2005
@@ -4,7 +4,7 @@
 ;;;   Created: 2002-07-22
 ;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: MIT style (see below)
-;;;       $Id: clim-gui.lisp,v 1.19 2005/07/10 11:18:34 emarsden Exp $
+;;;       $Id: clim-gui.lisp,v 1.20 2005/07/11 15:58:03 crhodes Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
@@ -28,6 +28,15 @@
 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; $Log: clim-gui.lisp,v $
+;; Revision 1.20  2005/07/11 15:58:03  crhodes
+;; Complete the renaming *MEDIUM* -> *PANE*.
+;;
+;; Panes are CLIM extended-streams, and remember output to them in output
+;; records.  Mediums are much simpler, and don't have this kind of
+;; memory.  So, though the same drawing functions (DRAW-TEXT, DRAW-LINE)
+;; can have the same initial effect applied to a pane and a medium, the
+;; output-record state is very different.
+;;
 ;; Revision 1.19  2005/07/10 11:18:34  emarsden
 ;; Distinguish between pane and medium in the CLIM GUI. This should
 ;; fix image display.
@@ -128,7 +137,6 @@
   (:menu-bar menubar-command-table)
   (:panes
    (canvas (make-pane 'closure-pane
-            :name 'canvas
             :height 2000
             :width 800
             :display-time nil))
@@ -620,17 +628,6 @@
 
 ;;;; ----------------------------------------------------------------------------------------------------
 
-#+NIL
-(define-closure-command com-reflow ()
-  (window-clear (find-pane-named *frame* 'canvas))
-  (let ((*medium* (find-pane-named *frame* 'canvas)))
-    (let ((device (make-instance 'closure/clim-device::clim-device :medium *medium*)))
-      (let ((closure-protocol:*document-language*
-             (make-instance 'r2::html-4.0-document-language))
-            (closure-protocol:*user-agent*
-             nil))
-        (r2::reflow)))))
-
 (define-presentation-translator url-from-string
     (string url closure)
   (x)
@@ -684,7 +681,7 @@
                    (min (gadget-max-value scrollbar) (+ current-y (* 0.9 window-height))))))
 
 (define-closure-command (com-redraw :name t :keystroke (#\r :control)) ()
-  (let* ((*medium* (find-pane-named *frame* 'canvas)) )
-    (handle-repaint *medium* (sheet-region (pane-viewport *medium*))))
+  (let* ((*pane* (find-pane-named *frame* 'canvas)) )
+    (handle-repaint *pane* (sheet-region (pane-viewport *pane*))))
   (xlib:display-finish-output (clim-clx::clx-port-display (find-port))))