- mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] reinitializing panes
by Christophe Rhodes 17 Feb '07

17 Feb '07

Hi, A question came up on #lisp yesterday: essentially, it asked how to dynamically change the contents of a pane, in a similar way to changing layouts of a frame. My intuitive answer was to reinitialize the pane with a new :contents initarg, which was quickly followed by an intuitive suspicion that this wouldn't actually work in McCLIM currently. (The suspicion was strengthened by the example in the spec in 29.5.2, which doesn't define any bookkeeping for reinitialization, and confirmed when I actually tried it...) So, the first question: should what I suggested work in principle, or is there a reason why we shouldn't allow it (and what should be allowed instead?). The second question: if it should work, is there anything wrong with the attached implementation, apart from its cut-and-paste nature? Is there something in the protocols that I am not following? To try it out, run the vbox's toplevel, then issue the commands Double, followed by Draw. Comments? Cheers, Christophe

3 2

[mcclim-devel] request for help with accepting a complex object
by Robert Goldman 13 Feb '07

13 Feb '07

I have a complex object of two parameters that I would like to be able to accept. I.e., I would like to be able to prompt the user to enter the two parameters, and I will build an object out of them. I have been trying to do this in an interactor window using accepting-values and get the following error: GRAPH-MDP(13): (accept 'termination-function :stream pane :prompt "Termination function:") Error: No methods applicable for generic function #<STANDARD-GENERIC-FUNCTION INVOKE-UPDATING-OUTPUT> with args (#<STANDARD-INPUT-EDITING-STREAM @ #x9c015cc2> #<Closure (FLET CLIM-INTERNALS::INVOKE-ACCEPTING-VALUES #:UPDATING-OUTPUT-CONTINUATION105288) @ #x9c02ab02> CLIM-INTERNALS::ACCEPTING-VALUES-RECORD (NIL) #<Function EQL> CLIM-INTERNALS::NO-CACHE-VALUE #<Function FORCE-UPDATE-CACHE-TEST>) of classes (STANDARD-INPUT-EDITING-STREAM FUNCTION SYMBOL CONS FUNCTION SYMBOL FUNCTION) I was wondering if anyone could see their way to providing me a hint about what's wrong. Thanks, R

1 0

[mcclim-devel] Gtkairo/demodemo bug
by Samium Gromoff 12 Feb '07

12 Feb '07

When trying out the drawing part of demodemo, with mcclim using gtkairo, after drawing some lines i decided to draw an ellipse. This had the following effect: Attempt to invert the probably singular transformation #<CLIM-INTERNALS::STANDARD-HAIRY-TRANSFORMATION 0 0 0 -2 156 324>. [Condition of type CLIM:SINGULAR-TRANSFORMATION] Restarts: 0: [USE-VALUE] Supply a transformation to use instead of the inverse. 1: [ABORT] Return to application command loop 2: [ABORT] Return to application command loop 3: [ABORT] Return to SLIME's top level. 4: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {AFDE919}>) Backtrace: 0: ((SB-PCL::FAST-METHOD CLIM:INVERT-TRANSFORMATION (CLIM-INTERNALS::STANDARD-TRANSFORMATION)) #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::STANDARD-HAIRY-TRANSFORMATION 0 0 0 -2 156 324>) 1: ((SB-PCL::FAST-METHOD CLIM:INVERT-TRANSFORMATION :AROUND (CLIM-INTERNALS::CACHED-INVERSE-TRANSFORMATION-MIXIN)) (#(0) . #()) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) #<CLIM-INTERNALS::STANDARD-HAIRY-TRANSFORMATION 0 0 0 -2 156 324>) 2: (CLIM-GTKAIRO::SYNC-TRANSFORMATION #<CLIM-GTKAIRO::CAIRO-MEDIUM {DE8A9B9}> #<CLIM-INTERNALS::STANDARD-HAIRY-TRANSFORMATION 0 0 0 -2 156 324>) 3: ((LAMBDA ())) 4: ((LAMBDA ())) 5: (CLIM-GTKAIRO::INVOKE-WITH-GTK #<CLOSURE (LAMBDA #) {DD6018D}>) 6: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM-GTKAIRO::CAIRO-MEDIUM {DE8A9B9}> #<CLIM-DEMO::CANVAS-PANE CLIM-DEMO::CANVAS {A8BB111}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {DD59E2D}> :INK #<CLIM-INTERNALS::NAMED-COLOR "blue"> ..) 7: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::CANVAS-PANE CLIM-DEMO::CANVAS {A8BB111}> #<CLOSURE (FLET #:CONTINUATION160) {DD59B5D}> NIL T) 8: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2. SB-PCL::.ARG3.)) #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::FRAME-TRACKING-POINTER-STATE {DD56F69}> #<CLIM:POINTER-MOTION-EVENT {DD51929}> 156 322) 9: ((FLET CLIM-INTERNALS::DO-TRACKING)) 10: ((LABELS #:G103) #<CLIM-GTKAIRO::CAIRO-MEDIUM {DE8A9B9}>) 11: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<CLIM-INTERNALS::FRAME-TRACKING-POINTER-STATE {DD56F69}> #<CLIM-DEMO::CLIM-FIG {A8A9AC1}> #<CLIM-DEMO::CANVAS-PANE CLIM-DEMO::CANVAS {A8BB111}> -308893239 8) 12: (CLIM-DEMO::HANDLE-DRAW-OBJECT #<CLIM-DEMO::CANVAS-PANE CLIM-DEMO::CANVAS {A8BB111}> 156 324) 13: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unused argument> #<unused argument> #<CLIM-DEMO::CLIM-FIG {A8A9AC1}> :COMMAND-PARSER CLIM:COMMAND-LINE-COMMAND-PARSER :COMMAND-UNPARSER CLIM:COMMAND-LINE-COMMAND-UNPARSER :PARTIAL-COMMAND-PARSER ..) 14: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::CLIM-FIG {A8A9AC1}>) 15: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unused argument> #<unused argument> #<CLIM-DEMO::CLIM-FIG {A8A9AC1}>) 16: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-DEMO::CLIM-FIG {A8A9AC1}>) 17: ((LAMBDA (&REST IGNORE))) 18: (CLIM-INTERNALS::INVOKE-CALLBACK #<CLIM-GTKAIRO::GTK-BUTTON "(Unnamed Pane)" {DDAED39}> #<CLOSURE (LAMBDA #) {DDD0365}>) 19: (CLIM-EXTENSIONS:SIMPLE-EVENT-LOOP #<CLIM-DEMO::DEMODEMO {DC5B199}>) 20: (CLIM-EXTENSIONS:SIMPLE-EVENT-LOOP #<CLIM-DEMO::DEMODEMO {DC5B199}>) 21: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-DEMO::DEMODEMO {DC5B199}> :STREAM ..) 22: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unused argument> #<unused argument> #<CLIM-DEMO::DEMODEMO {DC5B199}> :COMMAND-PARSER CLIM:COMMAND-LINE-COMMAND-PARSER :COMMAND-UNPARSER CLIM:COMMAND-LINE-COMMAND-UNPARSER :PARTIAL-COMMAND-PARSER ..) 23: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<CLIM-DEMO::DEMODEMO {DC5B199}>) 24: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unused argument> #<unused argument> #<CLIM-DEMO::DEMODEMO {DC5B199}>) 25: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-DEMO::DEMODEMO {DC5B199}>) 26: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CLIM-DEMO::RUN-TEST 'CLIM-DEMO::DEMODEMO) #<NULL-LEXENV>) 27: (SWANK::EVAL-REGION " (clim-demo::run-test 'clim-demo::demodemo) " T) 28: ((LAMBDA ())) 29: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {DBBCE35}>) 30: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {DBBCE35}>) 31: (SWANK:LISTENER-EVAL " (clim-demo::run-test 'clim-demo::demodemo) ") 32: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL " (clim-demo::run-test 'clim-demo::demodemo) ") #<NULL-LEXENV>) SBCL is 1.0, McCLIM is very recent CVS. regards, Samium Gromoff

2 1

[mcclim-devel] presentation example from docs
by Cyrus Harmon 11 Feb '07

11 Feb '07

Hi mcclim devels, Well, I'm finally getting around to learning how to write a mcclim app. For a change, I figured i'd read the documentation first this time. Granted this is a minor gripe but when I run the presentation example given in the manual, the manual says I should see that output "the 15 or The third month" when I click on the shown objects. In fact I get "the 15 of THE". Is the manual in error or is something wrong here? Thanks, Cyrus

2 4

[mcclim-devel] while I'm picking minor mcclim nits...
by Cyrus Harmon 10 Feb '07

10 Feb '07

This fixes a few compile warnings. Of course, I have no idea what this does :) but the changes look like the right thing to do. Cyrus --- presentation-defs.lisp 10 Feb 2007 15:11:02 -0800 1.71 +++ presentation-defs.lisp 10 Feb 2007 15:17:12 -0800 @@ -1121,11 +1121,11 @@ &key view (default nil defaultp) (default-type nil default-type-p) - activation-gestures + (activation-gestures nil activationsp) (additional-activation-gestures nil additional-activations-p) - delimiter-gestures + (delimiter-gestures nil delimitersp) (additional-delimiter-gestures nil additional-delimiters-p) @@ -1136,13 +1136,11 @@ (with-activation-gestures ((if additional-activations-p additional-activation-gestures activation-gestures) - :override activationsp) - (with-delimiter-gestures ((if additional-delimiters-p + :override activationsp) (with-delimiter-gestures ((if additional-delimiters-p additional-delimiter-gestures delimiter-gestures) :override delimitersp))) - (when (or (zerop (- end start)) - (let ((maybe-end)))) + (when (or (zerop (- end start))) (if defaultp (return-from accept-from-string (values default (if default-type-p

1 0

[mcclim-devel] Drei and input focus
by Christophe Rhodes 06 Feb '07

06 Feb '07

Hi, I am pretty sure that Drei gadgets are doing something naughty with input focus. My X11 window manager has focus-follows-mouse (well, strictly, sloppy focus) for top-level windows. If I make a CLIM application containing a drei pane, then the application window will steal focus: if I have my mouse over the drei buffer, and then move it into a window which is above some portion of the drei pane, that window will get focus for a brief moment, and then the drei application will take it back... Cheers, Christophe

3 10

[mcclim-devel] Delimiter gestures and the bowels of input editing
by Troels Henriksen 30 Jan '07

30 Jan '07

Observe the following presentation definitions: (define-presentation-type unacceptable ()) (define-presentation-method accept ((type unacceptable) stream view &key) (with-delimiter-gestures (#\Space) (list (accept 'package :stream stream :view view :prompt nil) (accept 'package :stream stream :view view :prompt nil)))) (defun test-unacceptable (&optional (stream *standard-input*)) (with-input-editing (stream) (replace-input stream (format nil "CLIM-USER CL-USER~%") :buffer-start 0) (accept 'unacceptable :stream stream))) When (test-unacceptable) is run, I'd expect a return value of (#.(find-package :clim-user) #.(find-package :cl-user)). In Drei, this won't work, because the call to `replace-input' in `complete-input' will trigger a rescan, and since the delimiter gesture is left unread once "CLIM-USER" has been read, it will prevent the proper parsing of the second element of input (to be specific, it will see it as empty). Goatee gets around this by introducing a nonspecified hack in `replace-input' whereby passing :rescan nil explicitly causes the function to not queue a rescan, even if it is necessary. (This example doesn't work in Goatee anyway, though, but I guess that's for another reason). My question is this: do you think the above code should work and do as I think, and how exactly are delimiter gestures supposed to be handled? -- \ Troels "Athas" /\ Henriksen

1 0

[mcclim-devel] Problem with scrolling windows and repainting
by Robert P. Goldman 24 Jan '07

24 Jan '07

I have a problem with scrolling not properly syncing with repaint, I believe. See the picture at http://rpgoldman.real-time.com/inspector-bug.png that shows that I can (in Clouseau, the CLIM inspector) scroll off to the right into what looks like space that is never painted, and so is just gray emptiness. -- Robert P. Goldman Senior Scientist Smart Information Flow Technologies (d/b/a SIFT, LLC) 211 N. First St., Suite 300 Minneapolis, MN 55401 Voice: (612) 384-3454 Email: rpgoldman(a)SIFT.info

2 1

[mcclim-devel] Re: [mcclim-cvs] CVS mcclim (scroll-extent vs. move-sheet)
by Andy Hefner 23 Jan '07

23 Jan '07

On 10/28/06, thenriksen <thenriksen(a)common-lisp.net> wrote: > + ;; XXX: We cannot use `scroll-extent', because McCLIM ignores it > + ;; unless the scrollee happens to be drawing. Very weird, should > + ;; be fixed. I think I finally deciphered the purpose of the method in recording.lisp which defines this odd behavior: to supress scrolling of the stream when recording output to an offscreen record (such as using with-output-to-output-record). This is a legitimate concern, and simply removing the method would be wrong. This suggests that output to an offscreen output record should also not cause the stream-pane to be resized. McCLIM does not guard against this case. The following program demonstrates the problem: (in-package :clim-user) (define-application-frame oops-1 () () (:pane (scrolling (:width 300 :height 300) (make-pane :application-pane :end-of-line-action :allow :end-of-page-action :allow :display-function (lambda (frame stream) (with-output-to-output-record (stream) (dotimes (i 200) (format stream "~&You never see this.~%"))) (format stream "All those scrollbars for this little line of text?~%")))))) The correct solution might involve checking that the open output record is connected to the stream output history, and supressing resizing and scrolling only if it is not (indicating offscreen drawing). Hmm.

1 0

[mcclim-devel] more magical dependency analysis
by Andreas Fuchs 20 Jan '07

20 Jan '07

Hi all, I just polished up asdf-dependency-grovel (http://www.cliki.net/asdf-dependency-grovel, now with added asdf-installability) and let it have its way with mcclim.asd. The result is a merged :clim system with 168 components and (apparently) working dependencies. (Yay!) Attached, you can find: * the updated mcclim.asd, * the clim system's components file, * the "master system definition" file used to generate the list (contains just serial definitions), and * a shell script to generate the components file from the master system definition. Drop these files in the top level directory of a recent cvs checkout of mcclim, and you can start testing stuff. (: To re-generate dependencies: 1. have sbcl 2. asdf-install asdf-dependency-grovel 3. run ./grovel-dependencies.sh 4. wait. I would like to hear your comments, especially on the maintainability of the serial definitions in mcclim-dependencies.lisp vs. the blood/sweat/tears hand-maintained dependencies in the old mcclim.asd. Cheers, -- Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs ;;; -*- Mode: Lisp -*- ;;; (c) copyright 1998,1999,2000 by Michael McDonald (mikemac(a)mikemac.com) ;;; (c) copyright 2000 by ;;; Robert Strandh (strandh(a)labri.u-bordeaux.fr) ;;; (c) copyright 2005-2006 by ;;; Andreas Fuchs (asf(a)boinkor.net) ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Library General Public License for more details. ;;; ;;; You should have received a copy of the GNU Library General Public ;;; License along with this library; if not, write to the ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. ;;; Really, I wouldn't bother with anything but ASDF. Almost every lisp ;;; ships with it, and it has the added benefit of ASDF-INSTALL. ;;; Get ASDF, and be welcome to the 21st century. -- [2005-01-31:asf] (cl:defpackage :mcclim.system (:use :asdf :cl) (:export #:mp #:fix #:dep-on-swank #:ifswank #:*clim-directory* #:mcclim-cl-source-file)) (in-package :mcclim.system) (defparameter *clim-directory* (directory-namestring *load-truename*)) ;;; Legacy CMUCL support stuff #+cmu (progn (unless (fboundp 'ext:stream-read-char) (unless (ignore-errors (ext:search-list "gray-streams:")) (setf (ext:search-list "gray-streams:") '("target:pcl/" "library:subsystems/"))) (if (fboundp 'extensions:without-package-locks) (extensions:without-package-locks (load "gray-streams:gray-streams-library")) (load "gray-streams:gray-streams-library"))) #-clx (require :clx) #+mp (when (eq mp::*initial-process* mp::*current-process*) (format t "~%~%You need to run (mp::startup-idle-and-top-level-loops) to start up the multiprocessing support.~%~%"))) ;;; Make CLX asdf-loadable on Allegro 6.2 ;;; possibly this should be further refined to funciton properly for ;;; Allegro on Windows platforms. [2005/04/18:rpg] #+allegro (progn (defclass requireable-system (asdf:system) ()) (defmethod asdf:perform ((op asdf:load-op) (system requireable-system)) (require (intern (slot-value system 'asdf::name) :keyword))) (defmethod asdf::traverse ((op asdf:load-op) (system requireable-system)) (list (cons op system))) (defsystem :clx :class requireable-system)) (defmacro clim-defsystem ((module &key depends-on) &rest components) `(progn (asdf:defsystem ,module ,@(and depends-on `(:depends-on ,depends-on)) :serial t :components (,@(loop for c in components for p = (merge-pathnames (parse-namestring c) (make-pathname :type "lisp" :defaults *clim-directory*)) collect `(:file ,(namestring p) :pathname ,p)))))) (eval-when (:compile-toplevel :execute :load-toplevel) (defun fix (&optional (prefix "Lisp-Dep/")) (concatenate 'string prefix #+cmu "fix-cmu" #+scl "fix-scl" #+excl "fix-acl" #+sbcl "fix-sbcl" #+openmcl "fix-openmcl" #+lispworks "fix-lispworks" #+clisp "fix-clisp")) (defun mp (&optional (prefix "Lisp-Dep/")) (concatenate 'string prefix (first '(#+(and :cmu :mp (not :pthread)) "mp-cmu" #+scl "mp-scl" #+sb-thread "mp-sbcl" #+excl "mp-acl" #+openmcl "mp-openmcl" #+lispworks "mp-lw" #| fall back |# "mp-nil")))) (defun find-swank-system () (handler-case (asdf:find-system :swank) (asdf:missing-component ()))) (defun ifswank () (if (find-swank-system) '(:and) '(:or)))) (defclass mcclim-cl-source-file (asdf:cl-source-file) ()) (defsystem :clim :depends-on (:spatial-trees :flexichain) :default-component-class mcclim-cl-source-file :components #.(let ((component-file (merge-pathnames #p"clim-components.lisp-expr" *clim-directory*))) (when (probe-file component-file) (with-open-file (f component-file :direction :input) (read f))))) (defsystem :drei-tests :depends-on (:clim :fiveam) :components ((:module "Tests" :pathname #.(make-pathname :directory '(:relative "Drei" "Tests")) :components ((:module "cl-automaton" :depends-on ("testing") :components ((:file "eqv-hash-tests") (:file "state-and-transition-tests") (:file "automaton-tests") (:file "regexp-tests"))) (:file "packages") (:file "testing" :depends-on ("packages")) (:file "buffer-tests" :depends-on ("testing")) (:file "base-tests" :depends-on ("testing")) (:file "kill-ring-tests" :depends-on ("testing")) (:file "motion-tests" :depends-on ("testing")) (:file "editing-tests" :depends-on ("testing")) (:file "core-tests" :depends-on ("testing")) (:file "buffer-streams-tests" :depends-on ("testing")) (:file "rectangle-tests" :depends-on ("testing")) (:file "undo-tests" :depends-on ("testing")) (:file "lisp-syntax-tests" :depends-on ("testing")))))) (defsystem :clim-clx :depends-on (:clim #+(or sbcl openmcl ecl allegro) :clx) :components ((:module "Backends/CLX" :pathname #.(make-pathname :directory '(:relative "Backends" "CLX")) :components ((:file "package") (:file "image" :depends-on ("package")) (:file "keysyms-common" :depends-on ("package")) (:file "keysyms" :depends-on ("keysyms-common" "package")) (:file "keysymdef" :depends-on ("keysyms-common" "package")) (:file "port" :depends-on ("keysyms-common" "keysyms" "package")) (:file "medium" :depends-on ("port" "keysyms" "package")) (:file "graft" :depends-on ("port" "package")) (:file "frame-manager" :depends-on ("medium" "port" "package")))))) (defsystem :clim-null :depends-on (:clim) :components ((:module "Backends/Null" :pathname #.(make-pathname :directory '(:relative "Backends" "Null")) :components ((:file "package") (:file "port" :depends-on ("package")) (:file "medium" :depends-on ("port" "package")) (:file "graft" :depends-on ("port" "package")) (:file "frame-manager" :depends-on ("medium" "port" "package")))))) ;;; TODO/asf: I don't have the required libs to get :clim-opengl to load. tough. (clim-defsystem (:clim-opengl :depends-on (:clim)) "Backends/OpenGL/opengl-x-frame-manager" "Backends/OpenGL/opengl-frame-manager" "Backends/OpenGL/opengl-x-port-before" "Backends/OpenGL/opengl-port" "Backends/OpenGL/opengl-x-port-after" "Backends/OpenGL/opengl-medium" "Backends/OpenGL/opengl-x-graft") ;;; A system that loads the appropriate backend for the current ;;; platform. (defsystem :clim-looks :depends-on (:clim ;; If we're on an implementation that ships CLX, use ;; it. Same if the user has loaded CLX already. #+(or sbcl scl openmcl ecl clx allegro) :clim-clx #+gl :clim-opengl ;; OpenMCL and MCL support the beagle backend (native ;; OS X look&feel on OS X). ;; But until it's ready, it's no use forcing users to ;; cope with possible bugs. ;; #+(or openmcl mcl) :clim-beagle ;; null backend :clim-null ) :components ((:file "Looks/pixie" :pathname #.(make-pathname :directory '(:relative "Looks") :name "pixie" :type "lisp")))) (defsystem :drei-swank-add-ons :depends-on (:swank :clim) :components ((:file "lisp-syntax-swank" :pathname #.(make-pathname :directory '(:relative "Drei") :name "lisp-syntax-swank" :type "lisp")))) ;;; The actual McCLIM system that people should to use in their ASDF ;;; package dependency lists. (defsystem :mcclim :depends-on (:clim-looks #+#.(mcclim.system:ifswank):drei-swank-add-ons)) (defmethod perform :after ((op load-op) (c (eql (find-system :clim)))) (pushnew :clim *features*) (pushnew :mcclim *features*)) (defmethod perform :around (op (c mcclim-cl-source-file)) (let ((*features* (adjoin :building-mcclim *features*))) (call-next-method))) ;;; This file contains -*- lisp -*- expressions. ;;; AUTO-GENERATED file from system definition of system clim/serial in . ;;; ;;; Instead of directly editing this file, please edit the system definitions ;;; of clim-lisp/serial or clim-basic/serial or clim-core/serial or clim/serial ;;; or goatee-core/serial or esa-mcclim/serial or drei-mcclim/serial or ;;; clim-postscript/grovel, then re-generate this file. ( ;; ex clim-lisp/serial (:file "patch" :depends-on ()) (:file #.(fix) :pathname #.(make-pathname :directory '(:relative "Lisp-Dep") :name (fix "") :type "lisp") :depends-on ("patch")) (:file "package" :depends-on ("patch" "patch" #.(fix))) ;; ex clim-basic/serial (:file "decls" :depends-on ("package")) (:file "protocol-classes" :depends-on ("package" #.(fix))) (:file #.(mp) :pathname #.(make-pathname :directory '(:relative "Lisp-Dep") :name (mp "") :type "lisp") :depends-on ("package")) (:file "utils" :depends-on ("package")) (:file "defresource" :depends-on ("package")) (:file "setf-star" :depends-on ("package")) (:file "design" :depends-on ("decls" "protocol-classes")) (:file "X11-colors" :depends-on ("design")) (:file "coordinates" :depends-on ("package")) (:file "transforms" :depends-on ("decls" "protocol-classes")) (:file "regions" :depends-on ("decls" "protocol-classes" "setf-star" "utils")) (:file "sheets" :depends-on ("regions")) (:file "pixmap" :depends-on ("decls" "protocol-classes")) (:file "events" :depends-on ("decls" "protocol-classes" "utils" #.(mp))) (:file "ports" :depends-on ("pixmap" "sheets" #.(mp))) (:file "grafts" :depends-on ("sheets")) (:file "medium" :depends-on ("ports")) (:file "output" :depends-on ("medium")) (:file "input" :depends-on ("sheets" #.(mp))) (:file "repaint" :depends-on ("events" "sheets")) (:file "graphics" :depends-on ("design" "output" "transforms")) (:file "views" :depends-on ("decls" "protocol-classes")) (:file "stream-output" :depends-on ("output")) (:file "recording" :depends-on ("graphics" "stream-output")) (:file "encapsulate" :depends-on ("stream-output")) (:file "stream-input" :depends-on ("encapsulate" "events" "input")) (:file "text-selection" :depends-on ("X11-colors" "events" "graphics")) (:file "bezier" :depends-on ("coordinates" "recording")) ;; ex clim-core/serial (:file "text-formatting" :depends-on ("encapsulate")) (:file "input-editing" :depends-on ("decls" "utils")) (:file "presentations" :depends-on ("recording")) (:file "presentation-defs" :depends-on ("input-editing" "presentations" "stream-input" "views")) (:file "pointer-tracking" :depends-on ("events" "recording")) (:file "commands" :depends-on ("Backends/PostScript/sheet" "presentation-defs")) (:file "incremental-redisplay" :depends-on ("recording")) (:file "frames" :depends-on ("incremental-redisplay" "pointer-tracking" "presentation-defs")) (:file "panes" :depends-on ("commands" "frames" "text-selection")) (:file "gadgets" :depends-on ("panes")) (:file "menu" :depends-on ("gadgets")) (:file "table-formatting" :depends-on ("presentation-defs")) (:file "graph-formatting" :depends-on ("recording")) (:file "bordered-output" :depends-on ("recording")) (:file "dialog-views" :depends-on ("bordered-output" "incremental-redisplay" "presentation-defs")) (:file "dialog" :depends-on ("bordered-output" "commands" "incremental-redisplay" "table-formatting")) (:file "builtin-commands" :depends-on ("dialog")) (:file "describe" :depends-on ("builtin-commands")) (:file "menu-choose" :depends-on ("builtin-commands" "panes")) ;; ex clim/serial (:file "input-editing-goatee" :depends-on ("Goatee/editing-stream" "builtin-commands")) (:file "input-editing-drei" :depends-on ("Drei/input-editor")) (:file "text-editor-gadget" :depends-on ("Drei/drei-clim")) (:file "Extensions/rgb-image" :pathname #.(make-pathname :directory '(:relative "Extensions") :name "rgb-image" :type "lisp") :depends-on ("builtin-commands")) ;; ex goatee-core/serial (:file "Goatee/conditions" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "conditions" :type "lisp") :depends-on ("package")) (:file "Goatee/dbl-list" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "dbl-list" :type "lisp") :depends-on ("package" #.(fix))) (:file "Goatee/flexivector" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "flexivector" :type "lisp") :depends-on ("Goatee/conditions" #.(fix))) (:file "Goatee/buffer" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "buffer" :type "lisp") :depends-on ("Goatee/dbl-list" "Goatee/flexivector" "setf-star")) (:file "Goatee/editable-buffer" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "editable-buffer" :type "lisp") :depends-on ("Goatee/buffer")) (:file "Goatee/editable-area" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "editable-area" :type "lisp") :depends-on ("Goatee/dbl-list")) (:file "Goatee/clim-area" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "clim-area" :type "lisp") :depends-on ("Goatee/buffer" "Goatee/editable-area" "recording")) (:file "Goatee/kill-ring" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "kill-ring" :type "lisp") :depends-on ("Goatee/dbl-list" "utils")) (:file "Goatee/goatee-command" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "goatee-command" :type "lisp") :depends-on ("Goatee/editable-area" "Goatee/editable-buffer" "Goatee/kill-ring" "stream-input")) (:file "Goatee/editing-stream" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "editing-stream" :type "lisp") :depends-on ("Goatee/editable-buffer" "recording")) (:file "Goatee/presentation-history" :pathname #.(make-pathname :directory '(:relative "Goatee") :name "presentation-history" :type "lisp") :depends-on ("Goatee/goatee-command")) ;; ex esa-mcclim/serial (:file "ESA/packages" :pathname #.(make-pathname :directory '(:relative "ESA") :name "packages" :type "lisp") :depends-on ("builtin-commands")) (:file "ESA/utils" :pathname #.(make-pathname :directory '(:relative "ESA") :name "utils" :type "lisp") :depends-on ("ESA/packages")) (:file "ESA/esa" :pathname #.(make-pathname :directory '(:relative "ESA") :name "esa" :type "lisp") :depends-on ("ESA/utils" "panes")) (:file "ESA/esa-buffer" :pathname #.(make-pathname :directory '(:relative "ESA") :name "esa-buffer" :type "lisp") :depends-on ("ESA/packages")) (:file "ESA/esa-io" :pathname #.(make-pathname :directory '(:relative "ESA") :name "esa-io" :type "lisp") :depends-on ("ESA/esa")) (:file "ESA/esa-command-parser" :pathname #.(make-pathname :directory '(:relative "ESA") :name "esa-command-parser" :type "lisp") :depends-on ("ESA/packages")) (:file "ESA/colors" :pathname #.(make-pathname :directory '(:relative "ESA") :name "colors" :type "lisp") :depends-on ("builtin-commands")) ;; ex drei-mcclim/serial (:file "Drei/cl-automaton/automaton-package" :pathname #.(make-pathname :directory '(:relative "Drei" "cl-automaton") :name "automaton-package" :type "lisp") :depends-on ("builtin-commands")) (:file "Drei/cl-automaton/eqv-hash" :pathname #.(make-pathname :directory '(:relative "Drei" "cl-automaton") :name "eqv-hash" :type "lisp") :depends-on ("Drei/cl-automaton/automaton-package")) (:file "Drei/cl-automaton/state-and-transition" :pathname #.(make-pathname :directory '(:relative "Drei" "cl-automaton") :name "state-and-transition" :type "lisp") :depends-on ("Drei/cl-automaton/eqv-hash")) (:file "Drei/cl-automaton/automaton" :pathname #.(make-pathname :directory '(:relative "Drei" "cl-automaton") :name "automaton" :type "lisp") :depends-on ("Drei/cl-automaton/eqv-hash")) (:file "Drei/cl-automaton/regexp" :pathname #.(make-pathname :directory '(:relative "Drei" "cl-automaton") :name "regexp" :type "lisp") :depends-on ("Drei/cl-automaton/automaton-package")) (:file "Drei/Persistent/binseq-package" :pathname #.(make-pathname :directory '(:relative "Drei" "Persistent") :name "binseq-package" :type "lisp") :depends-on ("builtin-commands")) (:file "Drei/Persistent/binseq" :pathname #.(make-pathname :directory '(:relative "Drei" "Persistent") :name "binseq" :type "lisp") :depends-on ("Drei/Persistent/binseq-package")) (:file "Drei/Persistent/obinseq" :pathname #.(make-pathname :directory '(:relative "Drei" "Persistent") :name "obinseq" :type "lisp") :depends-on ("Drei/Persistent/binseq-package")) (:file "Drei/Persistent/binseq2" :pathname #.(make-pathname :directory '(:relative "Drei" "Persistent") :name "binseq2" :type "lisp") :depends-on ("Drei/Persistent/binseq-package")) (:file "Drei/packages" :pathname #.(make-pathname :directory '(:relative "Drei") :name "packages" :type "lisp") :depends-on ("Drei/Persistent/binseq-package" "ESA/packages")) (:file "Drei/buffer" :pathname #.(make-pathname :directory '(:relative "Drei") :name "buffer" :type "lisp") :depends-on ("Drei/packages")) (:file "Drei/Persistent/persistent-buffer" :pathname #.(make-pathname :directory '(:relative "Drei" "Persistent") :name "persistent-buffer" :type "lisp") :depends-on ("Drei/buffer")) (:file "Drei/kill-ring" :pathname #.(make-pathname :directory '(:relative "Drei") :name "kill-ring" :type "lisp") :depends-on ("Drei/packages")) (:file "Drei/base" :pathname #.(make-pathname :directory '(:relative "Drei") :name "base" :type "lisp") :depends-on ("Drei/Persistent/persistent-buffer" "Drei/cl-automaton/automaton-package" "ESA/utils")) (:file "Drei/syntax" :pathname #.(make-pathname :directory '(:relative "Drei") :name "syntax" :type "lisp") :depends-on ("Drei/base")) (:file "Drei/motion" :pathname #.(make-pathname :directory '(:relative "Drei") :name "motion" :type "lisp") :depends-on ("Drei/Persistent/persistent-buffer")) (:file "Drei/editing" :pathname #.(make-pathname :directory '(:relative "Drei") :name "editing" :type "lisp") :depends-on ("Drei/buffer")) (:file "Drei/abbrev" :pathname #.(make-pathname :directory '(:relative "Drei") :name "abbrev" :type "lisp") :depends-on ("Drei/packages")) (:file "Drei/undo" :pathname #.(make-pathname :directory '(:relative "Drei") :name "undo" :type "lisp") :depends-on ("Drei/packages")) (:file "Drei/delegating-buffer" :pathname #.(make-pathname :directory '(:relative "Drei") :name "delegating-buffer" :type "lisp") :depends-on ("Drei/buffer")) (:file "Drei/Persistent/persistent-undo" :pathname #.(make-pathname :directory '(:relative "Drei" "Persistent") :name "persistent-undo" :type "lisp") :depends-on ("Drei/buffer" "Drei/undo")) (:file "Drei/drei" :pathname #.(make-pathname :directory '(:relative "Drei") :name "drei" :type "lisp") :depends-on ("Drei/abbrev" "Drei/delegating-buffer" "Drei/syntax" "Drei/undo" "ESA/esa" "ESA/esa-buffer")) (:file "Drei/core" :pathname #.(make-pathname :directory '(:relative "Drei") :name "core" :type "lisp") :depends-on ("Drei/drei")) (:file "Drei/buffer-streams" :pathname #.(make-pathname :directory '(:relative "Drei") :name "buffer-streams" :type "lisp") :depends-on ("Drei/packages")) (:file "Drei/rectangle" :pathname #.(make-pathname :directory '(:relative "Drei") :name "rectangle" :type "lisp") :depends-on ("Drei/packages" "ESA/utils")) (:file "Drei/drei-clim" :pathname #.(make-pathname :directory '(:relative "Drei") :name "drei-clim" :type "lisp") :depends-on ("Drei/drei" "gadgets")) (:file "Drei/core-commands" :pathname #.(make-pathname :directory '(:relative "Drei") :name "core-commands" :type "lisp") :depends-on ("Drei/base" "ESA/esa")) (:file "Drei/drei-redisplay" :pathname #.(make-pathname :directory '(:relative "Drei") :name "drei-redisplay" :type "lisp") :depends-on ("Drei/drei-clim")) (:file "Drei/basic-commands" :pathname #.(make-pathname :directory '(:relative "Drei") :name "basic-commands" :type "lisp") :depends-on ("Drei/packages" "ESA/esa")) (:file "Drei/misc-commands" :pathname #.(make-pathname :directory '(:relative "Drei") :name "misc-commands" :type "lisp") :depends-on ("Drei/packages" "ESA/esa")) (:file "Drei/unicode-commands" :pathname #.(make-pathname :directory '(:relative "Drei") :name "unicode-commands" :type "lisp") :depends-on ("Drei/packages" "ESA/esa")) (:file "Drei/search-commands" :pathname #.(make-pathname :directory '(:relative "Drei") :name "search-commands" :type "lisp") :depends-on ("Drei/packages" "ESA/esa")) (:file "Drei/fundamental-syntax" :pathname #.(make-pathname :directory '(:relative "Drei") :name "fundamental-syntax" :type "lisp") :depends-on ("Drei/drei-redisplay")) (:file "Drei/lisp-syntax" :pathname #.(make-pathname :directory '(:relative "Drei") :name "lisp-syntax" :type "lisp") :depends-on ("Drei/fundamental-syntax" "Drei/motion")) (:file "Drei/input-editor" :pathname #.(make-pathname :directory '(:relative "Drei") :name "input-editor" :type "lisp") :depends-on ("Drei/core")) (:file "Drei/lisp-syntax-swine" :pathname #.(make-pathname :directory '(:relative "Drei") :name "lisp-syntax-swine" :type "lisp") :depends-on ("Drei/lisp-syntax")) (:file "Drei/lisp-syntax-commands" :pathname #.(make-pathname :directory '(:relative "Drei") :name "lisp-syntax-commands" :type "lisp") :depends-on ("Drei/basic-commands" "Drei/lisp-syntax")) ;; ex clim-postscript/grovel (:file "Backends/PostScript/package" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "package" :type "lisp") :depends-on ("package")) (:file "Backends/PostScript/encoding" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "encoding" :type "lisp") :depends-on ("Backends/PostScript/package")) (:file "Backends/PostScript/paper" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "paper" :type "lisp") :depends-on ("Backends/PostScript/package")) (:file "Backends/PostScript/class" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "class" :type "lisp") :depends-on ("Backends/PostScript/package" "input" "recording" "repaint")) (:file "Backends/PostScript/font" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "font" :type "lisp") :depends-on ("Backends/PostScript/class")) (:file "Backends/PostScript/graphics" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "graphics" :type "lisp") :depends-on ("Backends/PostScript/class" "bezier")) (:file "Backends/PostScript/sheet" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "sheet" :type "lisp") :depends-on ("Backends/PostScript/graphics")) (:file "Backends/PostScript/afm" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "afm" :type "lisp") :depends-on ("Backends/PostScript/package")) (:file "Backends/PostScript/standard-metrics" :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript") :name "standard-metrics" :type "lisp") :depends-on ("Backends/PostScript/font")) ) #!/bin/sh -e cd "$(dirname $0)" rm -f clim-components.lisp-expr sbcl --disable-debugger \ --eval '(require :asdf)' \ --load mcclim.asd \ --load mcclim-dependencies.lisp \ --eval "(asdf:oos 'asdf-dependency-grovel:dependency-op :mcclim-dependencies)" \ --eval '(sb-ext:quit)' ;;; -*- Mode: Lisp -*- (cl:in-package :cl-user) #+mcclim(eval-when (:compile-toplevel :load-toplevel :execute) (cerror "Continue corrupting the lisp image." "~@<You are trying to load the McCLIM dependency groveler into a lisp ~ image that has McCLIM already loaded. Besides possibly skewing results, ~ this will corrupt your Lisp image.~:@>")) ;; load groveler, for the component type, etc. (eval-when (:load-toplevel :execute) (asdf:find-system :mcclim) ; ensure that its system definition is loaded. (asdf:oos 'asdf:load-op :asdf-dependency-grovel)) (defpackage :mcclim-dependencies.system (:use :asdf :cl :asdf-dependency-grovel :mcclim.system)) (in-package :mcclim-dependencies.system) (defclass mcclim-instrumented-cl-source-file (mcclim-cl-source-file instrumented-cl-source-file) ()) ;;; serial system definitions (defmacro groveling-defsystem ((module &key depends-on (serial t)) &body components) `(progn #+asdf (asdf:defsystem ,module ,@(and depends-on `(:depends-on ,depends-on)) :serial ,serial :default-component-class mcclim-instrumented-cl-source-file :components (,@(loop for c in components for p = (when (stringp c) (merge-pathnames (parse-namestring c) (make-pathname :type "lisp" :defaults *clim-directory*))) if (stringp c) collect `(:file ,(pathname-name p) :pathname ,p) else collect c))))) (groveling-defsystem (:clim-lisp/serial) "patch" #.(fix) "package") (groveling-defsystem (:clim-basic/serial :depends-on (:clim-lisp/serial :spatial-trees :flexichain)) "decls" "protocol-classes" #.(mp) "utils" "defresource" "setf-star" "design" "X11-colors" "coordinates" "transforms" "regions" "sheets" "pixmap" "events" "ports" "grafts" "medium" "output" "input" "repaint" "graphics" "views" "stream-output" "recording" "encapsulate" "stream-input" "text-selection" "bezier" ) (groveling-defsystem (:goatee-core/serial :depends-on (:clim-basic/serial)) "Goatee/conditions" "Goatee/dbl-list" "Goatee/flexivector" "Goatee/buffer" "Goatee/editable-buffer" "Goatee/editable-area" "Goatee/clim-area" "Goatee/kill-ring" "Goatee/goatee-command" "Goatee/editing-stream" "Goatee/presentation-history" ) (groveling-defsystem (:clim-core/serial :depends-on (:clim-basic/serial :goatee-core/serial :clim-postscript/grovel)) "text-formatting" "input-editing" "presentations" "presentation-defs" "pointer-tracking" "commands" "incremental-redisplay" "frames" "panes" "gadgets" "menu" "table-formatting" "graph-formatting" "bordered-output" "dialog-views" "dialog" "builtin-commands" "describe" "menu-choose" ) (groveling-defsystem (:esa-mcclim/serial :depends-on (:clim-core/serial)) "ESA/packages" "ESA/utils" "ESA/esa" "ESA/esa-buffer" "ESA/esa-io" "ESA/esa-command-parser" "ESA/colors") (groveling-defsystem (:drei-mcclim/serial :depends-on (:flexichain :esa-mcclim/serial :clim-core/serial)) "Drei/cl-automaton/automaton-package" "Drei/cl-automaton/eqv-hash" "Drei/cl-automaton/state-and-transition" "Drei/cl-automaton/automaton" "Drei/cl-automaton/regexp" "Drei/Persistent/binseq-package" "Drei/Persistent/binseq" "Drei/Persistent/obinseq" "Drei/Persistent/binseq2" "Drei/packages" "Drei/buffer" "Drei/Persistent/persistent-buffer" "Drei/kill-ring" "Drei/base" "Drei/syntax" "Drei/motion" "Drei/editing" "Drei/abbrev" "Drei/undo" "Drei/delegating-buffer" "Drei/Persistent/persistent-undo" "Drei/drei" "Drei/core" "Drei/buffer-streams" "Drei/rectangle" "Drei/drei-clim" "Drei/core-commands" "Drei/drei-redisplay" "Drei/basic-commands" "Drei/misc-commands" "Drei/unicode-commands" "Drei/search-commands" "Drei/fundamental-syntax" "Drei/lisp-syntax" "Drei/input-editor" "Drei/lisp-syntax-swine" "Drei/lisp-syntax-commands") (groveling-defsystem (:clim-postscript/grovel :depends-on (:clim-basic/serial) :serial nil) "Backends/PostScript/package" "Backends/PostScript/encoding" "Backends/PostScript/paper" "Backends/PostScript/class" "Backends/PostScript/font" "Backends/PostScript/graphics" "Backends/PostScript/sheet" "Backends/PostScript/afm" "Backends/PostScript/standard-metrics") (groveling-defsystem (:clim/serial :depends-on (:clim-core/serial :goatee-core/serial :drei-mcclim/serial)) "input-editing-goatee" "input-editing-drei" "text-editor-gadget" "Extensions/rgb-image") ;;;; the dependency system (asdf:defsystem :mcclim-dependencies :components ((component-file "mcclim" :output-file #.(merge-pathnames #p"clim-components.lisp-expr" *clim-directory*) :load-system :clim/serial :merge-systems (:clim-lisp/serial :clim-basic/serial :clim-core/serial :clim/serial :goatee-core/serial :esa-mcclim/serial :drei-mcclim/serial :clim-postscript/grovel) :additional-dependencies (("\"package\"" "\"patch\"" "#.(fix)")) :component-name-translation ((#.(format nil "~S" (fix)) "#.(fix)" "#.(fix) :pathname #.(make-pathname :directory '(:relative \"Lisp-Dep\") :name (fix \"\") :type \"lisp\")") (#.(format nil "~S" (mp)) "#.(mp)" "#.(mp) :pathname #.(make-pathname :directory '(:relative \"Lisp-Dep\") :name (mp \"\") :type \"lisp\")")) :cull-redundant t :verbose nil)))

1 0