Skip to content
Snippets Groups Projects
Commit 13faf0db authored by fgilham's avatar fgilham
Browse files

Mod to make Telent CLX work

parent 89a67b64
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.19 2004/08/13 12:24:30 emarsden Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.20 2007/08/21 15:54:59 fgilham Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -37,6 +37,21 @@ ...@@ -37,6 +37,21 @@
;;;; OPEN-CLX-DISPLAY. ;;;; OPEN-CLX-DISPLAY.
;;; New version to interface with "telent-clx".
#+ (and)
(defun open-clx-display (&optional display-name)
"Open a connection to DISPLAY-NAME if supplied, or to the appropriate
default display as given by GET-DEFAULT-DISPLAY otherwise."
(destructuring-bind (host display screen protocol)
(xlib::get-default-display display-name)
(let ((display (xlib:open-display host :display display :protocol protocol)))
(values display
(setf (xlib:display-default-screen display)
(nth screen (xlib:display-roots display)))))))
#- (and)
(defun open-clx-display (&optional (string (cdr (assoc :display (defun open-clx-display (&optional (string (cdr (assoc :display
*environment-list* *environment-list*
:test #'eq)))) :test #'eq))))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clxcom.lisp,v 1.29 2004/03/23 12:16:48 emarsden Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clxcom.lisp,v 1.30 2007/08/21 15:56:37 fgilham Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -34,8 +34,8 @@ ...@@ -34,8 +34,8 @@
("target:compile-clx.log" ("target:compile-clx.log"
:optimize :optimize
'(optimize (debug #-small 2 #+small .5) '(optimize (debug #-small 2 #+small .5)
(speed 2) (inhibit-warnings 2) (speed 2) (inhibit-warnings 2)
(safety #-small 1 #+small 0)) (safety #-small 1 #+small 0))
:optimize-interface :optimize-interface
'(optimize-interface (debug .5)) '(optimize-interface (debug .5))
:context-declarations :context-declarations
...@@ -46,7 +46,7 @@ ...@@ -46,7 +46,7 @@
(:macro (declare (optimize (speed 0)))))) (:macro (declare (optimize (speed 0))))))
(let ((c::*suppress-values-declaration* t)) (let ((c::*suppress-values-declaration* t))
(comf "target:clx/package" :load t) (comf "target:clx/package" :load t)
(comf "target:clx/defsystem" :load t) ; (comf "target:clx/defsystem" :load t)
(comf "target:clx/depdefs" :load t) (comf "target:clx/depdefs" :load t)
(comf "target:clx/clx" :load t) (comf "target:clx/clx" :load t)
(comf "target:clx/dependent" :load t) (comf "target:clx/dependent" :load t)
...@@ -67,14 +67,22 @@ ...@@ -67,14 +67,22 @@
(comf "target:clx/keysyms" :load t) (comf "target:clx/keysyms" :load t)
(comf "target:clx/manager" :load t) (comf "target:clx/manager" :load t)
(comf "target:clx/image" :load t) (comf "target:clx/image" :load t)
(comf "target:clx/resource" :load t)) (comf "target:clx/resource" :load t)
(comf "target:code/clx-ext") (comf "target:clx/shape" :load t)
(comf "target:hemlock/charmacs" :load t) (comf "target:clx/big-requests" :load t)
(comf "target:hemlock/key-event" :load t) (comf "target:clx/xvidmode" :load t)
(comf "target:hemlock/keysym-defs" :load t) (comf "target:clx/xrender" :load t)
(comf "target:clx/glx" :load t)
(comf "target:clx/gl" :load t)
(comf "target:clx/dpms" :load t))
(comf "target:code/clx-ext")
(comf "target:hemlock/charmacs" :load t)
(comf "target:hemlock/key-event" :load t)
(comf "target:hemlock/keysym-defs" :load t)
(comf "target:clx/provide")
#+nil #+nil
(comf "target:code/inspect")) (comf "target:code/inspect"))
(cat-if-anything-changed (cat-if-anything-changed
"target:clx/clx-library" "target:clx/clx-library"
...@@ -98,7 +106,15 @@ ...@@ -98,7 +106,15 @@
"target:clx/manager" "target:clx/manager"
"target:clx/image" "target:clx/image"
"target:clx/resource" "target:clx/resource"
"target:clx/shape"
"target:clx/big-requests"
"target:clx/xvidmode"
"target:clx/xrender"
"target:clx/glx"
"target:clx/gl"
"target:clx/dpms"
"target:code/clx-ext" "target:code/clx-ext"
"target:hemlock/charmacs" "target:hemlock/charmacs"
"target:hemlock/key-event" "target:hemlock/key-event"
"target:hemlock/keysym-defs") "target:hemlock/keysym-defs"
"target:clx/provide")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment