mcclim-cvs January 2007

mcclim-cvs@common-lisp.net

7 participants
67 discussions

[mcclim-cvs] CVS mcclim/Drei/Tests
by thenriksen 31 Jan '07

31 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei/Tests In directory clnet:/tmp/cvs-serv10820/Tests Modified Files: lisp-syntax-tests.lisp Log Message: Handle vector and array forms better. --- /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp 2007/01/15 22:13:15 1.2 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp 2007/01/31 14:31:59 1.3 @@ -254,7 +254,15 @@ collecting x) (is (string= (symbol-name a) "NIL")) (is (string= (symbol-name b) "nil")) - (is (string= (symbol-name c) "Nil"))))) + (is (string= (symbol-name c) "Nil")))) + (testing-lisp-syntax ("#(a b c c c c)") + (is (equalp (get-object) #6(a b c c c c)))) + (testing-lisp-syntax ("#6(a b c c c c)") + (is (equalp (get-object) #6(a b c c c c)))) + (testing-lisp-syntax ("#6(a b c)") + (is (equalp (get-object) #6(a b c c c c)))) + (testing-lisp-syntax ("#6(a b c c)") + (is (equalp (get-object) #6(a b c c c c))))) (test form-to-object-12 (testing-lisp-syntax ("(t . t)") @@ -389,6 +397,18 @@ (signals form-conversion-error (get-object)))) +(test form-to-object-18 + (testing-lisp-syntax ("#2A((0 1 5) (foo 2 (hot dog)))") + (is (equalp (get-object) #2A((0 1 5) (foo 2 (hot dog)))))) + (testing-lisp-syntax ("#2A((0 1) (foo 2 (hot dog)))") + (signals form-conversion-error (get-object))) + (testing-lisp-syntax ("#1A((0 1 5) (foo 2 (hot dog)))") + (is (equalp (get-object) #1A((0 1 5) (foo 2 (hot dog)))))) + (testing-lisp-syntax ("#0Anil") + (is (equalp (get-object) #0Anil))) + (testing-lisp-syntax ("#0A#2A((0 1 5) (foo 2 (hot dog)))") + (is (equalp (get-object) #0A#2A((0 1 5) (foo 2 (hot dog))))))) + (defgeneric find-pathnames (module) (:documentation "Get a list of the pathnames of the files making up an ASDF module/system/component.")

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 31 Jan '07

31 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv10820 Modified Files: lisp-syntax.lisp Log Message: Handle vector and array forms better. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/01/21 23:07:45 1.19 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/01/31 14:31:59 1.20 @@ -2835,12 +2835,19 @@ (setf (clim-mop:slot-value-using-class class tree slotd) new))))))) - ((arrayp tree) + ((vectorp tree) (loop for i from 0 below (length tree) do (let* ((old (aref tree i)) (new (circle-subst old-new-alist old))) (unless (eq old new) (setf (aref tree i) new))))) + ((arrayp tree) + (loop with array-size = (array-total-size tree) + for i from 0 below array-size do + (let* ((old (row-major-aref tree i)) + (new (circle-subst old-new-alist old))) + (unless (eq old new) + (setf (row-major-aref tree i) new))))) (t (let ((a (circle-subst old-new-alist (car tree))) (d (circle-subst old-new-alist (cdr tree)))) @@ -3015,7 +3022,18 @@ (defmethod form-to-object ((syntax lisp-syntax) (form simple-vector-form) &key &allow-other-keys) - (apply #'vector (call-next-method))) + (let* ((contents (call-next-method)) + (lexeme-string (form-string syntax (first (children form)))) + (size (parse-integer lexeme-string :start 1 + :end (1- (length lexeme-string)) + :junk-allowed t)) + (vector (make-array (or size (length contents))))) + (loop for cons = contents then (or rest cons) + for element = (first cons) + for rest = (rest cons) + for i below (length vector) do + (setf (aref vector i) element) + finally (return vector)))) (defmethod form-to-object ((syntax lisp-syntax) (form incomplete-string-form) &key &allow-other-keys) @@ -3105,6 +3123,26 @@ &rest args) (apply #'label-placeholder syntax form (extract-label syntax form) t args)) +(defmethod form-to-object ((syntax lisp-syntax) (form array-form) + &rest args) + (let* ((rank-string (form-string syntax (first (children form)))) + (rank (parse-integer rank-string :start 1 + :end (1- (length rank-string)))) + (array-contents (apply #'form-to-object syntax (second (children form)) args))) + (labels ((dimensions (rank contents) + (cond ((= rank 0) + nil) + ((= rank 1) + (list (length contents))) + (t + (let ((goal (dimensions (1- rank) (first contents)))) + (dolist (element (rest contents)) + (unless (equal goal (dimensions (1- rank) element)) + (form-conversion-error syntax form "jagged multidimensional array"))) + (cons (length contents) goal)))))) + (make-array (dimensions rank array-contents) + :initial-contents array-contents)))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Arglist fetching.

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 24 Jan '07

24 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv10259 Modified Files: drei-redisplay.lisp Log Message: Try to minimize the amount of calls to `change-space-requirements'. --- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2006/11/19 11:39:44 1.5 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2007/01/24 10:57:24 1.6 @@ -416,20 +416,30 @@ (defgeneric fix-pane-viewport (pane)) (defmethod fix-pane-viewport ((pane drei-pane)) - (let ((output-width (bounding-rectangle-width (stream-current-output-record pane)))) - (change-space-requirements pane :width output-width)) - (when (and (pane-viewport pane) (active pane)) - (multiple-value-bind (cursor-x cursor-y) (offset-to-screen-position pane pane (offset (point pane))) - (declare (ignore cursor-y)) - (let ((x-position (abs (transform-position (sheet-transformation pane) 0 0))) - (viewport-width (bounding-rectangle-width (or (pane-viewport pane) pane)))) - (cond ((> cursor-x (+ x-position viewport-width)) - (move-sheet pane (round (- (- cursor-x viewport-width))) 0)) - ((> x-position cursor-x) - (move-sheet pane (if (> viewport-width cursor-x) - 0 - (round (- cursor-x))) - 0))))))) + (let* ((output-width (bounding-rectangle-width (stream-current-output-record pane))) + (viewport (pane-viewport pane)) + (viewport-width (and viewport (bounding-rectangle-width viewport))) + (pane-width (bounding-rectangle-width pane))) + ;; If the width of the output is greater than the width of the + ;; sheet, make the sheet wider. If the sheet is wider than the + ;; viewport, but doesn't really need to be, make it thinner. + (when (or (> output-width pane-width) + (and viewport + (> pane-width viewport-width) + (>= viewport-width output-width))) + (change-space-requirements pane :width output-width)) + (when (and viewport (active pane)) + (multiple-value-bind (cursor-x cursor-y) (offset-to-screen-position pane pane (offset (point pane))) + (declare (ignore cursor-y)) + (let ((x-position (abs (transform-position (sheet-transformation pane) 0 0))) + (viewport-width (bounding-rectangle-width (or (pane-viewport pane) pane)))) + (cond ((> cursor-x (+ x-position viewport-width)) + (move-sheet pane (round (- (- cursor-x viewport-width))) 0)) + ((> x-position cursor-x) + (move-sheet pane (if (> viewport-width cursor-x) + 0 + (round (- cursor-x))) + 0)))))))) (defmethod handle-repaint :before ((pane drei-pane) region) (declare (ignore region))

1 0

[mcclim-cvs] CVS mcclim
by ahefner 23 Jan '07

23 Jan '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv21411 Modified Files: panes.lisp Log Message: Fix typo in note-space-requirements-changed which caused unnecessary scrolling. For reference, restored the original scroll-extent call as a comment. --- /project/mcclim/cvsroot/mcclim/panes.lisp 2007/01/07 19:53:05 1.177 +++ /project/mcclim/cvsroot/mcclim/panes.lisp 2007/01/23 07:51:10 1.178 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -;;; $Id: panes.lisp,v 1.177 2007/01/07 19:53:05 thenriksen Exp $ +;;; $Id: panes.lisp,v 1.178 2007/01/23 07:51:10 ahefner Exp $ (in-package :clim-internals) @@ -1869,16 +1869,28 @@ ;; XXX: We cannot use `scroll-extent', because McCLIM ignores it ;; unless the scrollee happens to be drawing. Very weird, should ;; be fixed. + + ;; It's not a bug, it's a feature. This requires further thought. -Hefner (move-sheet child (round (- (if (> (+ horizontal-scroll viewport-width) child-width) (- child-width viewport-width) horizontal-scroll))) (round (- (if (> (+ vertical-scroll viewport-height) - child-width) + child-height) (- child-height viewport-height) vertical-scroll)))) - (scroller-pane/update-scroll-bars (sheet-parent pane))))) + (scroller-pane/update-scroll-bars (sheet-parent pane)) + #+NIL + (scroll-extent child + (if (> (+ horizontal-scroll viewport-width) + child-width) + (max 0 (- child-width viewport-width)) + horizontal-scroll) + (if (> (+ vertical-scroll viewport-height) + child-height) + (max 0 (- child-height viewport-height)) + vertical-scroll))))) ;;;; ;;;; SCROLLER PANE @@ -2090,6 +2102,8 @@ (setq viewport (first (sheet-children pane))) ;; make the background of the viewport match the background of the ;; things scrolled. + ;; This doesn't appear to work, hence the "gray space" bugs. Actually + ;; handy for observing when the space requirements get messed up.. -Hefner (when (first (sheet-children viewport)) (setf (slot-value pane 'background) ;### hmm ... (pane-background (first (sheet-children viewport))))) @@ -2487,7 +2501,7 @@ (flet ((compute (val default) (if (eq val :compute) default val))) (if (or (eq (pane-user-width pane) :compute) - (eq (pane-user-height pane) :compute)) + (eq (pane-user-height pane) :compute)) (progn (with-output-recording-options (pane :record t :draw nil) ;; multiple-value-letf anyone? @@ -2500,7 +2514,7 @@ (stream-output-history pane) ;; Should we now get rid of the output history? ;; Why should we? --GB 2003-03-16 - (reset-output-history pane) + (reset-output-history pane) (let ((width (- x2 x1)) (height (- y2 y1))) ;; I don't want this letf here --GB 2003-01-23

1 0

[mcclim-cvs] CVS mcclim/Doc
by thenriksen 22 Jan '07

22 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Doc In directory clnet:/tmp/cvs-serv2622/Doc Modified Files: drei.texi Log Message: Fixed grammar mistake. --- /project/mcclim/cvsroot/mcclim/Doc/drei.texi 2007/01/14 08:38:33 1.6 +++ /project/mcclim/cvsroot/mcclim/Doc/drei.texi 2007/01/22 11:37:12 1.7 @@ -32,7 +32,7 @@ passively being fed gestures in the input editor, to having to do event handling and redisplay timing manually in the gadget version. Furthermore, Drei is extensible software, so we wished to make -the differences between these three modus operandorum transparent to the +the differences between these three modi operandi transparent to the extender (as much as possible at least, unfortunately the Law of Leaky Abstractions prevents us from reaching perfection). These two demands require the core Drei protocols, especially those pertaining to

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 21 Jan '07

21 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv3729/Drei Modified Files: lisp-syntax.lisp Log Message: Delete, not kill, the symbol to be replaced when doing symbol-completion. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/01/17 13:31:50 1.18 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/01/21 23:07:45 1.19 @@ -1736,7 +1736,7 @@ after `string'." (let ((token (symbol-at-mark mark syntax))) (setf (offset mark) (start-offset token)) - (forward-kill-expression mark syntax) + (forward-delete-expression mark syntax) (insert-sequence mark string))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1 0

[mcclim-cvs] CVS mcclim
by afuchs 18 Jan '07

18 Jan '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv17193 Modified Files: NEWS mcclim.asd Added Files: clim-examples.asd clim-listener.asd clouseau.asd scigraph.asd symlink-asd-files.sh Log Message: Split the interesting systems from mcclim.asd into their own .asd files, to ease asdf-installation. Beware: If you had symlinks from e.g. /path/to/asdf-central-registry/clim-listener.asd to mcclim.asd, this will break your setup. Run ./symlink-asd-files.sh /path/to/asdf-central-registry/ to fix this. --- /project/mcclim/cvsroot/mcclim/NEWS 2007/01/14 07:59:03 1.19 +++ /project/mcclim/cvsroot/mcclim/NEWS 2007/01/18 15:01:11 1.20 @@ -1,3 +1,8 @@ +* Changes in mcclim-0.9.5 relative to 0.9.4: +** Installation: the systems clim-listener, scigraph, clim-examples, + and clouseau can now be loaded without loading the system mcclim + first. + * Changes in mcclim-0.9.4 relative to 0.9.3: ** cleanup: removed the obsolete system.lisp file. ** backend improvements: Gtkairo --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/01/15 11:35:55 1.52 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/01/18 15:01:11 1.53 @@ -441,123 +441,12 @@ (:file "Looks/pixie" :pathname #.(make-pathname :directory '(:relative "Looks") :name "pixie" :type "lisp")))) -;;; name of :clim-clx-user chosen by mikemac for no good reason -(defsystem :clim-clx-user - :depends-on (:clim :clim-clx)) - ;;; The actual McCLIM system that people should to use in their ASDF ;;; package dependency lists. (defsystem :mcclim - :version "0.9.4" + :version "0.9.5-dev" :depends-on (:clim-looks)) -;;; CLIM-Examples depends on having at least one backend loaded. -(defsystem :clim-examples - :depends-on (:mcclim) - :components - ((:module "Examples" - :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") - (:file "gadget-test") - (:file "accepting-values") - (:file "method-browser") - (:file "stopwatch") - (:file "dragndrop-translator") - (:file "draggable-graph") - (:file "text-size-test") - (:file "drawing-benchmark") - (:file "logic-cube") - (:file "views") - (:file "font-selector"))) - (: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 -;;; this comment is too narrow to contain it. -(clim-defsystem (:scigraph :depends-on (:mcclim)) - ;; The DWIM part of SCIGRAPH - "Apps/Scigraph/dwim/package" - "Apps/Scigraph/dwim/feature-case" - "Apps/Scigraph/dwim/macros" - "Apps/Scigraph/dwim/tv" - "Apps/Scigraph/dwim/draw" - "Apps/Scigraph/dwim/present" - "Apps/Scigraph/dwim/extensions" - "Apps/Scigraph/dwim/wholine" - "Apps/Scigraph/dwim/export" - ;; The Scigraph part - "Apps/Scigraph/scigraph/package" - "Apps/Scigraph/scigraph/copy" - "Apps/Scigraph/scigraph/dump" - "Apps/Scigraph/scigraph/duplicate" - "Apps/Scigraph/scigraph/random" - "Apps/Scigraph/scigraph/menu-tools" - "Apps/Scigraph/scigraph/basic-classes" - "Apps/Scigraph/scigraph/draw" - "Apps/Scigraph/scigraph/mouse" - "Apps/Scigraph/scigraph/color" - "Apps/Scigraph/scigraph/basic-graph" - "Apps/Scigraph/scigraph/graph-mixins" - "Apps/Scigraph/scigraph/axis" - "Apps/Scigraph/scigraph/moving-object" - "Apps/Scigraph/scigraph/symbol" - "Apps/Scigraph/scigraph/graph-data" - "Apps/Scigraph/scigraph/legend" - "Apps/Scigraph/scigraph/graph-classes" - "Apps/Scigraph/scigraph/present" - "Apps/Scigraph/scigraph/annotations" - "Apps/Scigraph/scigraph/annotated-graph" - "Apps/Scigraph/scigraph/contour" - "Apps/Scigraph/scigraph/equation" - "Apps/Scigraph/scigraph/popup-accept" - "Apps/Scigraph/scigraph/popup-accept-methods" - "Apps/Scigraph/scigraph/duplicate-methods" - "Apps/Scigraph/scigraph/frame" - "Apps/Scigraph/scigraph/export" - "Apps/Scigraph/scigraph/demo-frame") - -(defsystem :clim-listener - :depends-on (:mcclim #+sbcl :sb-posix) - :components - ((:file "Experimental/xpm" - :pathname #.(make-pathname :directory '(:relative "Experimental") :name "xpm" :type "lisp")) - (:module "Apps/Listener" - :pathname #.(make-pathname :directory '(:relative "Apps" "Listener")) - :depends-on ("Experimental/xpm") - :components - ((:file "package") - (:file "util" :depends-on ("package")) - (:file "icons" :depends-on ("package" "util")) - (:file "file-types" :depends-on ("package" "icons" "util")) - (:file "dev-commands" :depends-on ("package" "icons" "file-types" "util")) - (:file "listener" :depends-on ("package" "file-types" "icons" "dev-commands" "util")) - #+CMU (:file "cmu-hacks" :depends-on ("package")))))) - -(defsystem :clouseau - :depends-on (:mcclim) - :serial t - :components - ((:module "Apps/Inspector" - :pathname #.(make-pathname :directory '(:relative "Apps" "Inspector")) - :components - ((:file "package") - (:file "disassembly" :depends-on ("package")) - (:file "inspector" :depends-on ("disassembly")))))) - (defmethod perform :after ((op load-op) (c (eql (find-system :clim)))) (pushnew :clim *features*) (pushnew :mcclim *features*)) --- /project/mcclim/cvsroot/mcclim/clim-examples.asd 2007/01/18 15:01:11 NONE +++ /project/mcclim/cvsroot/mcclim/clim-examples.asd 2007/01/18 15:01:11 1.1 ;;; -*- lisp -*- (defpackage :clim-examples.system (:use :cl :asdf)) (in-package :clim-examples.system) ;;; CLIM-Examples depends on having at least one backend loaded. (defsystem :clim-examples :depends-on (:mcclim) :components ((:module "Examples" :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") (:file "gadget-test") (:file "accepting-values") (:file "method-browser") (:file "stopwatch") (:file "dragndrop-translator") (:file "draggable-graph") (:file "text-size-test") (:file "drawing-benchmark") (:file "logic-cube") (:file "views") (:file "font-selector"))) (:module "Goatee" :components ((:file "goatee-test"))))) --- /project/mcclim/cvsroot/mcclim/clim-listener.asd 2007/01/18 15:01:11 NONE +++ /project/mcclim/cvsroot/mcclim/clim-listener.asd 2007/01/18 15:01:11 1.1 ;;; -*- lisp -*- (defpackage :clim-listener.system (:use :cl :asdf)) (in-package :clim-listener.system) (defsystem :clim-listener :depends-on (:mcclim #+sbcl :sb-posix) :components ((:file "Experimental/xpm" :pathname #.(make-pathname :directory '(:relative "Experimental") :name "xpm" :type "lisp")) (:module "Apps/Listener" :pathname #.(make-pathname :directory '(:relative "Apps" "Listener")) :depends-on ("Experimental/xpm") :components ((:file "package") (:file "util" :depends-on ("package")) (:file "icons" :depends-on ("package" "util")) (:file "file-types" :depends-on ("package" "icons" "util")) (:file "dev-commands" :depends-on ("package" "icons" "file-types" "util")) (:file "listener" :depends-on ("package" "file-types" "icons" "dev-commands" "util")) #+CMU (:file "cmu-hacks" :depends-on ("package"))))))--- /project/mcclim/cvsroot/mcclim/clouseau.asd 2007/01/18 15:01:11 NONE +++ /project/mcclim/cvsroot/mcclim/clouseau.asd 2007/01/18 15:01:11 1.1 ;;; -*- lisp -*- (defpackage :clouseau.system (:use :cl :asdf)) (in-package :clouseau.system) (defsystem :clouseau :depends-on (:mcclim) :serial t :components ((:module "Apps/Inspector" :pathname #.(make-pathname :directory '(:relative "Apps" "Inspector")) :components ((:file "package") (:file "disassembly" :depends-on ("package")) (:file "inspector" :depends-on ("disassembly"))))))--- /project/mcclim/cvsroot/mcclim/scigraph.asd 2007/01/18 15:01:11 NONE +++ /project/mcclim/cvsroot/mcclim/scigraph.asd 2007/01/18 15:01:11 1.1 ;;; -*- lisp -*- (defpackage :scigraph.system (:use :cl :asdf)) (in-package :scigraph.system) ;;; This won't load in SBCL, either. I have really crappy code to ;;; extract dependency information from :serial t ASDF systems, but ;;; this comment is too narrow to contain it. (defsystem :scigraph :depends-on (:mcclim) ;; The DWIM part of SCIGRAPH :serial t :components ( (:file "Apps/Scigraph/dwim/package") (:file "Apps/Scigraph/dwim/feature-case") (:file "Apps/Scigraph/dwim/macros") (:file "Apps/Scigraph/dwim/tv") (:file "Apps/Scigraph/dwim/draw") (:file "Apps/Scigraph/dwim/present") (:file "Apps/Scigraph/dwim/extensions") (:file "Apps/Scigraph/dwim/wholine") (:file "Apps/Scigraph/dwim/export") ;; The Scigraph part (:file "Apps/Scigraph/scigraph/package") (:file "Apps/Scigraph/scigraph/copy") (:file "Apps/Scigraph/scigraph/dump") (:file "Apps/Scigraph/scigraph/duplicate") (:file "Apps/Scigraph/scigraph/random") (:file "Apps/Scigraph/scigraph/menu-tools") (:file "Apps/Scigraph/scigraph/basic-classes") (:file "Apps/Scigraph/scigraph/draw") (:file "Apps/Scigraph/scigraph/mouse") (:file "Apps/Scigraph/scigraph/color") (:file "Apps/Scigraph/scigraph/basic-graph") (:file "Apps/Scigraph/scigraph/graph-mixins") (:file "Apps/Scigraph/scigraph/axis") (:file "Apps/Scigraph/scigraph/moving-object") (:file "Apps/Scigraph/scigraph/symbol") (:file "Apps/Scigraph/scigraph/graph-data") (:file "Apps/Scigraph/scigraph/legend") (:file "Apps/Scigraph/scigraph/graph-classes") (:file "Apps/Scigraph/scigraph/present") (:file "Apps/Scigraph/scigraph/annotations") (:file "Apps/Scigraph/scigraph/annotated-graph") (:file "Apps/Scigraph/scigraph/contour") (:file "Apps/Scigraph/scigraph/equation") (:file "Apps/Scigraph/scigraph/popup-accept") (:file "Apps/Scigraph/scigraph/popup-accept-methods") (:file "Apps/Scigraph/scigraph/duplicate-methods") (:file "Apps/Scigraph/scigraph/frame") (:file "Apps/Scigraph/scigraph/export") (:file "Apps/Scigraph/scigraph/demo-frame")))--- /project/mcclim/cvsroot/mcclim/symlink-asd-files.sh 2007/01/18 15:01:11 NONE +++ /project/mcclim/cvsroot/mcclim/symlink-asd-files.sh 2007/01/18 15:01:11 1.1 #!/bin/sh -e # (Re-)Installs the top-level .asd files into an # asdf:*central-registry* directory. Prompts before overwriting # anything. CENTRAL_REG="$1" if [ -z "$CENTRAL_REG" ] ; then echo "USAGE: $0 central-registry-dir" 2>&1 echo " central-registry-dir is a directory where asdf looks for .asd files." 2>&1 echo " e.g. on SBCL, this could be ~/.sbcl/systems/" 2>&1 exit 1 fi cd "`dirname $0`" for i in *.asd ; do if [ -e "$CENTRAL_REG"/"$i" ]; then echo -en "Warning: overwriting $CENTRAL_REG/$i with link to \n`pwd`/$i (press RET to continue)" 2>&1 read fi ln -sf "`pwd`/$i" "$CENTRAL_REG"/"$i" done

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 17 Jan '07

17 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv3254/Drei Modified Files: lisp-syntax.lisp Log Message: Make `sharpsign-sharpsign-lexeme' a complete form (and change its name). --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/01/15 22:13:16 1.17 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/01/17 13:31:50 1.18 @@ -375,7 +375,7 @@ (defclass delimiter-lexeme (lisp-lexeme) ()) (defclass text-lexeme (lisp-lexeme) ()) (defclass sharpsign-equals-lexeme (lisp-lexeme) ()) -(defclass sharpsign-sharpsign-lexeme (form-lexeme) ()) +(defclass sharpsign-sharpsign-form (form-lexeme complete-form-mixin) ()) (defclass reader-conditional-positive-lexeme (lisp-lexeme) ()) (defclass reader-conditional-negative-lexeme (lisp-lexeme) ()) (defclass uninterned-symbol-lexeme (lisp-lexeme) ()) @@ -525,7 +525,7 @@ (#\= (fo) (make-instance 'sharpsign-equals-lexeme)) (#\# (fo) - (make-instance 'sharpsign-sharpsign-lexeme)) + (make-instance 'sharpsign-sharpsign-form)) (#\+ (fo) (make-instance 'reader-conditional-positive-lexeme)) (#\- (fo) @@ -2743,7 +2743,7 @@ (let ((string (form-string syntax (first (children form))))) (parse-integer string :start 1 :end (1- (length string)) :radix 10))) -(defmethod extract-label ((syntax lisp-syntax) (form sharpsign-sharpsign-lexeme)) +(defmethod extract-label ((syntax lisp-syntax) (form sharpsign-sharpsign-form)) (let ((string (form-string syntax form))) (parse-integer string :start 1 :end (1- (length string)) :radix 10))) @@ -3101,7 +3101,7 @@ &rest args) (apply #'register-form-label syntax form args)) -(defmethod form-to-object ((syntax lisp-syntax) (form sharpsign-sharpsign-lexeme) +(defmethod form-to-object ((syntax lisp-syntax) (form sharpsign-sharpsign-form) &rest args) (apply #'label-placeholder syntax form (extract-label syntax form) t args))

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 17 Jan '07

17 Jan '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv17546 Modified Files: commands.lisp Log Message: When reading commands for `command-or-form', use the command history. --- /project/mcclim/cvsroot/mcclim/commands.lisp 2007/01/06 12:51:16 1.69 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2007/01/17 12:09:46 1.70 @@ -1401,7 +1401,7 @@ (if (member initial-char *command-dispatchers*) (progn (read-gesture :stream stream) - (accept command-ptype :stream stream :view view :prompt nil :history 'command-or-form)) + (accept command-ptype :stream stream :view view :prompt nil :history 'command)) (accept 'form :stream stream :view view :prompt nil :history 'command-or-form))) (t (funcall (cdar *input-context*) object type event options)))))

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 17 Jan '07

17 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv16830 Modified Files: basic-commands.lisp Log Message: Removed junk character. --- /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp 2007/01/17 11:44:30 1.4 +++ /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp 2007/01/17 12:02:04 1.5 @@ -245,7 +245,7 @@ ;;; ;;; This file also holds command definitions for other functions ;;; defined in the DREI-EDITING package. -n + (defmacro define-deletion-commands (unit command-table &key noun plural)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs January 2007