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(a)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)))
