[closure-cvs] CVS closure/src/gui

[dlichteblau]

Update of /project/closure/cvsroot/closure/src/gui
In directory clnet:/tmp/cvs-serv12493

Modified Files:
	clim-gui.lisp 
Log Message:
Make closure start on Gtkairo:

	* src/gui/clim-gui.lisp (WRITE-STATUS, FOO, COM-REDRAW): Replace
        calls to xlib:display-finish-output with
        clim-backend:port-force-output.


--- /project/closure/cvsroot/closure/src/gui/clim-gui.lisp	2005/08/25 15:14:14	1.22
+++ /project/closure/cvsroot/closure/src/gui/clim-gui.lisp	2006/12/29 17:37:07	1.23
@@ -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.22 2005/08/25 15:14:14 crhodes Exp $
+;;;       $Id: clim-gui.lisp,v 1.23 2006/12/29 17:37:07 dlichteblau Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
@@ -28,6 +28,13 @@
 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; $Log: clim-gui.lisp,v $
+;; Revision 1.23  2006/12/29 17:37:07  dlichteblau
+;; Make closure start on Gtkairo:
+;;
+;; 	* src/gui/clim-gui.lisp (WRITE-STATUS, FOO, COM-REDRAW): Replace
+;;         calls to xlib:display-finish-output with
+;;         clim-backend:port-force-output.
+;;
 ;; Revision 1.22  2005/08/25 15:14:14  crhodes
 ;; OpenMCL support (from Dave Murray aka JQS)
 ;;
@@ -514,7 +521,7 @@
 (defun write-status (string)
   (window-clear (find-pane-named *frame* 'status))
   (write-string string (find-pane-named *frame* 'status))
-  (xlib:display-finish-output (clim-clx::clx-port-display (find-port))))
+  (clim-backend:port-force-output (find-port)))
 
 (defun foo (url)
   (let ((*standard-output* *trace-output*))
@@ -561,9 +568,9 @@
                          (clim:change-space-requirements *pane* :width x2 :height y2)
                          ;; While we are at it, force a repaint
                          (handle-repaint *pane* (sheet-region (pane-viewport *pane*)))
-                         (xlib:display-finish-output (clim-clx::clx-port-display (find-port))))))))
+                         (clim-backend:port-force-output (find-port)))))))
                #+nil (write-status "Done.")))))
-       #+nil (xlib:display-finish-output (clim-clx::clx-port-display (find-port)))))))
+       #+nil (clim-backend:port-force-output (find-port))))))
 
 (defun reflow ()
   (let ((*standard-output* *trace-output*))
@@ -684,5 +691,5 @@
 (define-closure-command (com-redraw :name t :keystroke (#\r :control)) ()
   (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))))
+  (clim-backend:port-force-output (find-port)))