March 2006 - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

[mcclim-cvs] CVS mcclim/Backends/beagle/input
by tmoore 24 Mar '06

24 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/input In directory clnet:/tmp/cvs-serv7141/Backends/beagle/input Modified Files: events.lisp Log Message: Ripped out the CLIM event process in the Beagle back end. Events are delivered to the principal Cocoa thread which can deliver them directly to the CLIM application processes. --- /project/mcclim/cvsroot/mcclim/Backends/beagle/input/events.lisp 2006/03/23 15:27:24 1.10 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/input/events.lisp 2006/03/24 11:18:27 1.11 @@ -28,7 +28,7 @@ #|| -$Id: events.lisp,v 1.10 2006/03/23 15:27:24 tmoore Exp $ +$Id: events.lisp,v 1.11 2006/03/24 11:18:27 tmoore Exp $ Events in Cocoa --------------- @@ -119,52 +119,48 @@ ;;; us (apart from the menus use grabbing I think) -(defparameter *mcclim-event-queue* nil) - - ;;; TODO: roll the next two methods into a single code-block; only the ;;; beagle-event|notification-to-clim-event method differs ;;; between them. (defmethod add-event-to-queue (mirror event) - "Adds an event to the dynamically scoped *mcclim-event-queue* queue, after + "Adds an event to the event queue associated with the mirror's sheet, after conversion from a Cocoa event MACPTR to a CLIM event. This method signals the port event semaphore when an event is added to the queue. Cocoa events that map onto a NIL CLIM event (i.e. those that are not handled) are not added to the queue." - (declare (special *beagle-port - *mcclim-event-queue*)) (let ((clim-event (beagle-event-to-clim-event mirror event))) (unless (not clim-event) ;; This provides way too much information... - #+nil + #-(and) (unless (or (typep event 'pointer-enter-event) (typep event 'pointer-exit-event)) (format *trace-output* "Adding event to queue: ") (describe-object clim-event *trace-output*) (terpri *trace-output*)) - (setf *mcclim-event-queue* (nconc *mcclim-event-queue* (list clim-event))) - (ccl:signal-semaphore (beagle-port-event-semaphore *beagle-port*))))) + (distribute-event *beagle-port* clim-event)))) (defmethod add-notification-to-queue (window notification &optional origin-x origin-y width height) - "Adds an event to the dynamically scoped *mcclim-event-queue* queue, after + "Adds an event to the queue, after queue associated with the mirror's sheet after conversion from a Cocoa notification MACPTR to a CLIM event. This method signals the port event semaphore when a notification is added to the queue." - (declare (special *beagle-port* - *mcclim-event-queue*)) (let ((clim-event (beagle-notification-to-clim-event window notification origin-x origin-y width height))) (unless (not clim-event) - (setf *mcclim-event-queue* (nconc *mcclim-event-queue* (list clim-event))) - (ccl:signal-semaphore (beagle-port-event-semaphore *beagle-port*))))) + (distribute-event *beagle-port* clim-event)))) ;;; timeout = timeout delay in seconds -;;; If no timeout is specified (nil timeout), this method hangs around until an event arrives. +;;; If no timeout is specified (nil timeout), this method hangs around until an +;;; event arrives. +;;; +;;; get-next-event is not defined because it is not used in the Beagle backend +;;; (there is no event process calling process-next-event). +#-(and) (defmethod get-next-event ((port beagle-port) &key wait-function (timeout nil)) (declare (special *mcclim-event-queue* *beagle-port*) (ignore wait-function))

1 0

[mcclim-cvs] CVS mcclim/Backends/beagle/native
by tmoore 24 Mar '06

24 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/native In directory clnet:/tmp/cvs-serv7141/Backends/beagle/native Modified Files: lisp-view.lisp Log Message: Ripped out the CLIM event process in the Beagle back end. Events are delivered to the principal Cocoa thread which can deliver them directly to the CLIM application processes. --- /project/mcclim/cvsroot/mcclim/Backends/beagle/native/lisp-view.lisp 2005/05/16 22:13:17 1.1 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/native/lisp-view.lisp 2006/03/24 11:18:27 1.2 @@ -236,78 +236,32 @@ ;;; Event handling methods. -;;; Add the event they're invoked with to the "event queue" we define -;;; in the events.lisp file. +;;; Add the event they're invoked with to the event queue of the associated +;;;sheet. ;;; ;;; Cocoa docs say if you don't want to handle the event, you should ;;; pass it on to your superclass. So that's what we do. ;;; ---------------------------------------------------------------------------- -(define-objc-method ((:void :mouse-moved event) lisp-view) - (when (> (logand (view-event-mask self) #$NSMouseMovedMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received MOUSE MOVED event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :mouse-down event) lisp-view) - (when (> (logand (view-event-mask self) #$NSLeftMouseDownMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received MOUSE DOWN event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :mouse-dragged event) lisp-view) - (when (> (logand (view-event-mask self) #$NSLeftMouseDraggedMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received MOUSE DRAGGED event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :mouse-up event) lisp-view) - (when (> (logand (view-event-mask self) #$NSLeftMouseUpMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received MOUSE UP event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :mouse-entered event) lisp-view) - (when (> (logand (view-event-mask self) #$NSMouseEnteredMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received MOUSE ENTERED event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :mouse-exited event) lisp-view) - (when (> (logand (view-event-mask self) #$NSMouseExitedMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received MOUSE EXITED event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :right-mouse-down event) lisp-view) - (when (> (logand (view-event-mask self) #$NSRightMouseDownMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received RIGHT MOUSE DOWN event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :right-mouse-dragged event) lisp-view) - (when (> (logand (view-event-mask self) #$NSRightMouseDraggedMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received RIGHT MOUSE DRAGGED event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :right-mouse-up event) lisp-view) - (when (> (logand (view-event-mask self) #$NSRightMouseUpMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received RIGHT MOUSE UP event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :other-mouse-down event) lisp-view) - (when (> (logand (view-event-mask self) #$NSOtherMouseDownMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received OTHER MOUSE DOWN event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :other-mouse-dragged event) lisp-view) - (when (> (logand (view-event-mask self) #$NSOtherMouseDraggedMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received OTHER MOUSE DRAGGED event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :other-mouse-up event) lisp-view) - (when (> (logand (view-event-mask self) #$NSOtherMouseUpMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received OTHER MOUSE UP event: ~S" (description event))) - (add-event-to-queue self event))) - -(define-objc-method ((:void :scroll-wheel event) lisp-view) - (when (> (logand (view-event-mask self) #$NSScrollWheelMask) 0) -;;; (nslog (format nil "LISP-VIEW: Received SCROLL WHEEL event: ~S" (description event))) - (add-event-to-queue self event))) +(macrolet ((frob (selector mask) + `(define-objc-method ((:void ,selector event) lisp-view) + (unless (zerop (logand (view-event-mask self) ,mask)) + ;; (nslog (format nil "LISP-VIEW: Received ~S event: ~S" ',selector (description event))) + (add-event-to-queue self event))))) + (frob :mouse-moved #$NSMouseMovedMask) + (frob :mouse-down #$NSLeftMouseDownMask) + (frob :mouse-dragged #$NSLeftMouseDraggedMask) + (frob :mouse-up #$NSLeftMouseUpMask) + (frob :mouse-entered #$NSMouseEnteredMask) + (frob :mouse-exited #$NSMouseExitedMask) + (frob :right-mouse-down #$NSRightMouseDownMask) + (frob :right-mouse-dragged #$NSRightMouseDraggedMask) + (frob :right-mouse-up #$NSRightMouseUpMask) + (frob :other-mouse-down #$NSOtherMouseDownMask) + (frob :other-mouse-dragged #$NSOtherMouseDraggedMask) + (frob :other-mouse-up #$NSOtherMouseUpMask) + (frob :scroll-wheel #$NSScrollWheelMask)) ;;; ----------------------------------------------------------------------------

1 0

[mcclim-cvs] CVS mcclim/Backends/beagle/windowing
by tmoore 24 Mar '06

24 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing In directory clnet:/tmp/cvs-serv7141/Backends/beagle/windowing Modified Files: port.lisp Log Message: Ripped out the CLIM event process in the Beagle back end. Events are delivered to the principal Cocoa thread which can deliver them directly to the CLIM application processes. --- /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/port.lisp 2005/06/16 09:27:51 1.5 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/port.lisp 2006/03/24 11:18:27 1.6 @@ -26,8 +26,14 @@ (in-package :beagle) +;;; The beagle backend of McCLIM runs inside a Cocoa application. There is one +;;; port, associated with that application. There is no separate event process; +;;; the main thread of the Cocoa app is notified of events and puts them on the +;;; proper event queues using the mapping in the port object between NSViews +;;; and sheets. (defparameter *beagle-port* nil) + (defparameter *default-beagle-frame-manager* 'beagle:beagle-aqua-frame-manager "Specifies the frame manager that should be used by default when the port creates its frame manager. Permissable values are 'beagle::beagle-standard-frame-manager and @@ -53,6 +59,10 @@ ;;; in the long-term. (NB. this duplicates behaviour in McCLIM "PORT" type but that uses ;;; 'eq tests in the hashtables, and MACPTRs (which is what a mirror boils down to being in ;;; the end) are only ever 'eql.) +;;; +;;; I'm not sure what Duncan was getting at with that comment; +;;; mirror/sheet/NSView seems like a fine correspondence to me, unless you want +;;; to only use one mirror per window. -- moore (defclass beagle-port (basic-port) ((screen :initform nil :accessor beagle-port-screen) @@ -63,9 +73,7 @@ ;; holds sheet that should receive key events. ::FIXME:: need to tell McCLIM which sheet ;; is taking keyboard events; look into how all that bit hangs together, it's changed ;; since this was written. - (key-focus-sheet :initform nil :accessor beagle-port-key-focus) - (event-semaphore :initform nil :accessor beagle-port-event-semaphore))) - + (key-focus-sheet :initform nil :accessor beagle-port-key-focus))) (defmethod destroy-port :before ((port beagle-port)) ;; clear out color-table, view-table, cached images etc. ::TODO:: check this logic is correct... @@ -133,8 +141,10 @@ ;;; the port-server-path? Not sure...) to permit the user to make use of screens other ;;; than the main screen. (defmethod initialize-beagle ((port beagle-port)) - - (ccl::create-autorelease-pool) + ;; If we were not already running inside a Cocoa application (OpenMCL's + ;; COCOA), we would obviously have to invoke the magic here to start up a + ;; Cocoa main thread. + (ccl::create-autorelease-pool) ;XXX Is this necessary? -- moore ;; CLX port gets some options here and uses those to set stuff up. We should probably do ;; this too, in the future ::FIXME:: @@ -150,24 +160,7 @@ ;;; :WITH-OBJECT nil)) (make-cursor-table port) - (make-graft port) - - (setf (beagle-port-event-semaphore port) (ccl:make-semaphore)) - - (setf (port-event-process port) - (clim-sys:make-process - (lambda () - (ccl::create-autorelease-pool) - (loop - (with-simple-restart - (restart-event-loop "Restart CLIM's event loop.") -;;; (with-autorelease-pool - (loop - ;; process-next-event is defined in ports.lisp. It invokes - ;; get-next-event in the backend to actually get the next - ;; event in the queue - (process-next-event port))))) - :name (format nil "~S's event process." port))));) + (make-graft port)) ;;; From CLX/port.lisp

1 0

[mcclim-cvs] CVS mcclim/Backends/beagle
by tmoore 24 Mar '06

24 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle In directory clnet:/tmp/cvs-serv7141/Backends/beagle Modified Files: README.txt Log Message: Ripped out the CLIM event process in the Beagle back end. Events are delivered to the principal Cocoa thread which can deliver them directly to the CLIM application processes. --- /project/mcclim/cvsroot/mcclim/Backends/beagle/README.txt 2005/09/22 11:40:30 1.19 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/README.txt 2006/03/24 11:18:26 1.20 @@ -32,16 +32,22 @@ -Duncan duncan(a)robotcat.demon.co.uk +I've taken a look at the Beagle backend for the .9.2 release of McCLIM +and added some of my own notes and edits to this file. + +-Tim +moore(a)bricoworks.com + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% INSTALLATION -The code has been written using OpenMCL Version (Beta: Darwin) 0.14.3 and -up-to-date McCLIM sources (since both are available within the same CVS -module, it should be safe to assume the back end will work with whatever -McCLIM sources were checked out at the same time). Hopefully newer versions -of OpenMCL will be ok; unfortunately older versions will not work due to -changes in the OpenMCL Cocoa Bridge. +The code has been tested using OpenMCL Version 1.0 and up-to-date +McCLIM sources (since both are available within the same CVS module, +it should be safe to assume the back end will work with whatever +McCLIM sources were checked out at the same time). Hopefully newer +versions of OpenMCL will be ok; unfortunately older versions will not +work due to changes in the OpenMCL Cocoa Bridge. Compiling and running the back end currently is a straight-forward (if rather limiting [see note #2]) task: @@ -57,8 +63,14 @@ 5. Evaluate '(asdf:oos 'asdf:load-op :mcclim)' [See note #3] The McCLIM Listener should now be able to be started from the OpenMCL -Listener by evaluating '(clim-listener:run-listener)'. See the McCLIM -installation notes for other things you might want to do. [See note #1] +Listener by evaluating '(clim-listener:run-listener)' after loading it +with '(asdf:oos 'asdf:load-op :clim-listener)'. See the McCLIM +installation notes for other things you might want to do. [See note +#1]. If you load the clim-examples system, you cause the CLX backend +to be loaded too; after this you currently need to set a default +backend with '(setf climi:*default-server-path* :beagle)' to avoid +problems. + Note #1: Some of the examples provided with McCLIM do not execute when using the Beagle back end, either because of unimplemented features in

1 0

[mcclim-cvs] CVS mcclim
by varkesteijn 23 Mar '06

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv2336 Modified Files: commands.lisp Log Message: * fix remove-command-from-command-table * add relevant test --- /project/mcclim/cvsroot/mcclim/commands.lisp 2006/03/20 08:15:26 1.60 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2006/03/23 17:03:38 1.61 @@ -198,11 +198,11 @@ (when (typep item 'menu-item) (remove-menu-item-from-command-table table (command-menu-item-name item) - :errorp nil) - - (when (command-item-name item) - (remhash (command-item-name item) (command-line-names table))) - (remhash command-name (commands table))))))) + :errorp nil)) + + (when (command-item-name item) + (remhash (command-item-name item) (command-line-names table))) + (remhash command-name (commands table)))))) (defun add-command-to-command-table (command-name command-table

1 0

[mcclim-cvs] CVS mcclim/Tests
by varkesteijn 23 Mar '06

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Tests In directory clnet:/tmp/cvs-serv2336/Tests Modified Files: commands.lisp Log Message: * fix remove-command-from-command-table * add relevant test --- /project/mcclim/cvsroot/mcclim/Tests/commands.lisp 2005/09/30 16:02:33 1.2 +++ /project/mcclim/cvsroot/mcclim/Tests/commands.lisp 2006/03/23 17:03:40 1.3 @@ -41,3 +41,12 @@ (lookup-keystroke-command-item gesture 'menu-test-table))))) 'menu-test-table) (assert (= count 1))) + +(define-command-table removal-test-table) +(add-command-to-command-table 'com-test-command 'removal-test-table) +(remove-command-from-command-table 'com-test-command 'removal-test-table) +(assert (handler-case + (remove-command-from-command-table 'com-test-command + 'removal-test-table) + (command-not-present () t) + (:no-error (x) (declare (ignore x)) nil)))

1 0

[mcclim-cvs] CVS mcclim
by varkesteijn 23 Mar '06

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv32694 Modified Files: mcclim.asd Log Message: * mcclim.asd (defsystem :clim-system): include a few more of the examples. (patch by Douglas Crosher, mcclim-devel, 'Patch: clim-example system definition', 16 March 2006) --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2006/03/23 15:27:23 1.13 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2006/03/23 16:59:47 1.14 @@ -286,16 +286,24 @@ :components ((:file "calculator") (:file "colorslider") + (:file "menutest") ; extra (:file "address-book") (:file "traffic-lights") (:file "clim-fig") (:file "postscript-test") + (:file "puzzle") + (:file "transformations-test") + (:file "demodemo") (:file "stream-test") (:file "presentation-test") + (:file "dragndrop") #+clx (:file "gadget-test") (:file "accepting-values") (:file "method-browser") - (:file "dragndrop-translator"))))) + (:file "dragndrop-translator"))) + (:module "Goatee" + :components + ((:file "goatee-test"))))) ;;; This won't load in SBCL, either. I have really crappy code to ;;; extract dependency information from :serial t ASDF systems, but

1 0

[mcclim-cvs] CVS mcclim
by tmoore 23 Mar '06

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv32705 Modified Files: TODO Log Message: update --- /project/mcclim/cvsroot/mcclim/TODO 2004/07/23 12:36:44 1.11 +++ /project/mcclim/cvsroot/mcclim/TODO 2006/03/23 16:59:18 1.12 @@ -14,19 +14,12 @@ General designs need more work, particularly the support of compositing. - A compound output recording record structure based on R trees or - another spatial data structure is needed. - make-design-from-output-record (setf* pointer-position) - drag-output-record, dragging-output - More spiffy presentation accept and present methods - define-drag-and-drop-translator - with-input-editor-typeout read-only extents in Goatee @@ -39,12 +32,10 @@ display-command-table-menu, menu-choose-command-from-table - raise-frame, bury-frame, notify-user + notify-user :accept-values panes - frame-drag-and-drop-feedback, frame-drag-and-drop-highlighting - display-command-menu restraining-pane @@ -70,6 +61,19 @@ each pane to decide when it wants the input focus. ====================== Resolved issues ====================== +TBM:20060323:175700 + A compound output recording record structure based on R trees or + another spatial data structure is needed. [Implemented by + Christophe Rhodes and Andreas Fuchs]. + + drag-output-record, dragging-output + + define-drag-and-drop-translator + + raise-frame, bury-frame + + frame-drag-and-drop-feedback, frame-drag-and-drop-highlighting + TBM:20040524:100000 command-enable

1 0

[mcclim-cvs] CVS mcclim
by tmoore 23 Mar '06

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv31048 Modified Files: INSTALL Log Message: Typo --- /project/mcclim/cvsroot/mcclim/INSTALL 2006/03/23 16:37:54 1.7 +++ /project/mcclim/cvsroot/mcclim/INSTALL 2006/03/23 16:44:58 1.8 @@ -93,7 +93,7 @@ functional-geometry - Frank Buss' and Rainer Joswig's functional - geometry explorer, implmented on top of clim-listener: + geometry explorer, implemented on top of clim-listener: (load "Apps/Functional-Geometry/functional-geometry.asd") (asdf:oos 'asdf:load :functional-geometry)

1 0

[mcclim-cvs] CVS mcclim
by tmoore 23 Mar '06

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv30838 Modified Files: INSTALL Removed Files: INSTALL.ASDF INSTALL.CLISP INSTALL.CMU INSTALL.OPENMCL INSTALL.SBCL Log Message: Updated instructions to refer only to asdf method --- /project/mcclim/cvsroot/mcclim/INSTALL 2003/11/19 13:51:17 1.6 +++ /project/mcclim/cvsroot/mcclim/INSTALL 2006/03/23 16:37:54 1.7 @@ -1,64 +1,148 @@ -Install instructions for Franz Allegro Common Lisp --------------------------------------------------- +Prerequisites: +============== -1. Start Lisp +ASDF - The ASDF system definition facility. Many implementations come +with it and (require :asdf) is all that is needed. If yours doesn't, +see http://www.cliki.net/asdf. -2. Load the system definition file: - (load "system") -3. Compile and load the system: +Installing McCLIM using mcclim.asd +================================== - (compile-system :clim) - (compile-system :clim-clx) - (compile-system :clim-examples) +To tell ASDF about the wherabouts of McCLIM and to compile it for the +first time, perform these steps: -4. Load the compiled system: + 1. Symlink mcclim.asd to a directory in your + asdf:*central-registry* list. E.g., for SBCL, that would be: - (load-system :clim) - (load-system :clim-clx) - (load-system :clim-examples) + $ ln -sf /path/to/mcclim.asd ~/.sbcl/systems/ + + 2. If you are using a Lisp implementation that requires a separate + CLX to be installed, do this now and symlink the clx's .asd file + to your asdf:*central-registry*, as above. If your + implementation's CLX doesn't come with a clx.asd file, you will + have to load CLX via (require :clx) or a similar mechanism + yourself. + + 3. You need to install the spatial-trees library (available at + http://cliki.net/spatial-trees) The preferred method for that is + via asdf-install. see http://cliki.net/asdf-install for an + introduction to that method. + + 4. On your Lisp's REPL (with ASDF loaded), type + + (asdf:oos 'asdf:load-op :mcclim) + ; compilation messages should zip past + +After step 4, McCLIM and the CLX backend should be loaded and +you are good to go. + +When you restart your lisp image, you will need to perform step 4 to +load McCLIM again. + +Installing mcclim.asd if you were using ASDF & system.lisp before +================================================================= + +Make sure to remove all symlinks in your asdf:*central-registry* to +system.lisp and replace them with symlinks to mcclim.asd. Keeping the +old links around will break loading the McCLIM system in subtle ways. + +After replacing the symlinks, follow the "Installing McCLIM..." +section above, beginning at step 1 - the symlink mcclim.asd itself is +required, too. + +Writing a system that depends on McCLIM +======================================= + +In an ASDF system that depends on a loaded CLIM, use the following +code to declare a dependency on McCLIM: + +(defsystem :your-clim-using-system + :depends-on (:mcclim #| other dependencies |#) + :components (#| components |#) + ) + +The dependency on the McCLIM system will also load a suitable display +backend on implementations where it can determine one. Running the demos ------------------ +================= + +McCLIM comes with some interesting demo programs and applications: + + address-book - The classic CLIM demo: + + (asdf:oos 'asdf:load :clim-examples) + (in-package :clim-demo) + (run-frame-top-level (make-application-frame 'address-book) + + The Examples directory includes other demo programs that might be + of interest. Many of these are quite old and were written before + large parts of the CLIM specification were implemented; for good + examples of CLIM style it is best to look elsewhere. + + + clim-listener - a Lisp 'listener' or top-level loop with many + goodies for examining directories, CLOS classes, etc. Printed + results are mouse-sensitive and in supported implementations + (currently OpenMCL) can be used directly as arguments in Lisp expressions: + + (asdf:oos 'asdf:load :clim-listener) + (clim-listener:run-listener) + + + functional-geometry - Frank Buss' and Rainer Joswig's functional + geometry explorer, implmented on top of clim-listener: + + (load "Apps/Functional-Geometry/functional-geometry.asd") + (asdf:oos 'asdf:load :functional-geometry) + (functional-geometry::run-functional-geometry) + + +Installation Notes for Implementations +====================================== + +Notes about bugs or gotchas in specific Common Lisp implementations +appear in the release notes found in the ReleaseNotes directory. + +Franz Allegro Common Lisp +========================= + +McCLIM has been tested with the ANSI Common Lisp image alisp. It +doesn't currently work in with "modern Lisp" but support is on the way. + -1. Run the calculator demo +OpenMCL +======= - (clim-demo::calculator) +McCLIM has been tested with openmcl-1.0. It is recommended that you +download CLX from ftp://clozure.com/pub/CLX. - This demo is self-explanatory. - - when you get tired of it, hit ^C in the Lisp listener. +An experimental Cocoa backend for McCLIM, called Beagle, is included +in Backends/beagle. -2. Run the menu demo - (menutest::menutest) +CLISP +===== - This demo is self-explanatory. - - when you get tired of it, hit ^C in the Lisp listener. +1. Get clisp-20041218 or newer. Build it with option --with-module=clx/mit-clx. -3. Run the slider demo +2. Get a copy of the ASDF package. Compile it: + $ clisp -c $ASDF/asdf.lisp - (clim-demo::colorslider) +3. Start + $ clisp -K full -i $ASDF/asdf.fas - You should see three sliders on the left and a color area on the right. - Use the three sliders to adjust RGB values to obtain a color. +and continue as above. - when you get tired of it, hit ^C in the Lisp listener. -4. A some of the demos should be run using the function clim-demo::run-test: - (clim-demo::run-test 'clim-demo::address-book) - (clim-demo::run-test 'goatee::goatee-test) - [N.B.: This advice is mostly obsolete. The usual way to start a - CLIM application is with e.g., - (run-frame-top-level (make-application-frame 'clim-demo::address-book) - Any problems that result should be reported as bugs.] +CMUCL +===== -Note: +McCLIM has been tested with version 19.c. - Before running any McCLIM application, it may be necessary for you - to enable host based access to the X server. This can be - accomplished by executing the following command at a shell prompt: +SBCL +==== - xhost localhost +McCLIM has been tested with version 0.9.8 and later.

1 0