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

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

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv22888 Modified Files: mcclim.asd Log Message: Changes to get Beagle running with current sources. Various demos 'run' (tested address-book, clim-listener, functional-geometry) but many things aren't working (scroll bars). --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2006/03/20 11:01:54 1.12 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2006/03/23 15:27:23 1.13 @@ -256,35 +256,6 @@ "Backends/OpenGL/opengl-medium" "Backends/OpenGL/opengl-x-graft") -;;; TODO/asf: I don't have the required macintosh to get :clim-beagle to load. - -(defsystem :clim-objc-support) -(defmethod perform ((op load-op) (c (eql (find-system :clim-objc-support)))) - (require "OBJC-SUPPORT")) - -(clim-defsystem (:clim-beagle :depends-on (:clim :clim-objc-support)) - "Backends/beagle/package" - "Backends/beagle/lisp-window" - "Backends/beagle/lisp-window-delegate" - "Backends/beagle/lisp-view" - "Backends/beagle/lisp-view-additional" - "Backends/beagle/lisp-image" - "Backends/beagle/lisp-unmanaged-view" - "Backends/beagle/cocoa-util" - "Backends/beagle/port" - "Backends/beagle/frame-manager" - "Backends/beagle/medium" - "Backends/beagle/mirror" - "Backends/beagle/events" - "Backends/beagle/graft" - "Backends/beagle/fonts" - "Backends/beagle/image" - "Backends/beagle/keysymdef") - -;;; legacy system that loads :clim-beagle -(defsystem :beagle - :depends-on (:clim-beagle)) - ;;; A system that loads the appropriate backend for the current ;;; platform. (defsystem :clim-looks

1 0

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

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/input In directory clnet:/tmp/cvs-serv22888/Backends/beagle/input Modified Files: events.lisp Log Message: Changes to get Beagle running with current sources. Various demos 'run' (tested address-book, clim-listener, functional-geometry) but many things aren't working (scroll bars). --- /project/mcclim/cvsroot/mcclim/Backends/beagle/input/events.lisp 2005/06/16 09:27:50 1.9 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/input/events.lisp 2006/03/23 15:27:24 1.10 @@ -28,7 +28,7 @@ #|| -$Id: events.lisp,v 1.9 2005/06/16 09:27:50 crhodes Exp $ +$Id: events.lisp,v 1.10 2006/03/23 15:27:24 tmoore Exp $ Events in Cocoa --------------- @@ -747,14 +747,6 @@ ;; Need to make use of the Cocoa method for getting modifier state - this is independent of events ;; pretty much (i.e. pointer documentation pane changes depending what modifier keys are pressed ;; prior to a mouse click etc.) ::FIXME:: -(defmethod pointer-modifier-state ((pointer beagle-pointer)) - ;; (multiple-value-bind (x y same-screen-p child mask) - ;; (xlib:query-pointer (clx-port-window (port pointer))) - ;; (declare (ignore x y same-screen-p child)) - ;; (x-event-state-modifiers (port pointer) mask))) - (warn "pointer-modifier-state: implement me") - nil) - ;; Again, make use of Cocoa methods for querying the pointer position. See above ::FIXME:: (defmethod pointer-position ((pointer beagle-pointer)) @@ -763,12 +755,6 @@ (warn "pointer-position: implement me") nil) - -;; Ditto previous two methods... -(defmethod pointer-button-state ((pointer beagle-pointer)) - (warn "pointer-button-state: implement me") - nil) - ;;; Is PORT-POINTER-SHEET also needed? See STREAM-POINTER-POSITION in ;;; STREAM-INPUT.LISP

1 0

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

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/output In directory clnet:/tmp/cvs-serv22888/Backends/beagle/output Modified Files: fonts.lisp Log Message: Changes to get Beagle running with current sources. Various demos 'run' (tested address-book, clim-listener, functional-geometry) but many things aren't working (scroll bars). --- /project/mcclim/cvsroot/mcclim/Backends/beagle/output/fonts.lisp 2005/05/18 20:21:57 1.2 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/output/fonts.lisp 2006/03/23 15:27:24 1.3 @@ -200,71 +200,104 @@ ;;; All mediums and output sheets must implement a method for this generic function. -(defmethod text-size ((medium beagle-medium) string &key text-style (start 0) end) - (declare (special *default-text-style*)) - - ;; Method can be passed either a string or a char; make sure for the latter - ;; that we see only strings. - (when (characterp string) - (setf string (string string))) - - ;; Make sure there's an 'end' specified - (unless end - (setf end (length string))) - - ;; Make sure there's a text-style - (unless text-style - (setf text-style (medium-text-style medium))) +;;; Helper that doesn't handle newline +;;; XXX text-size and text-bounding-rectangle* are both broken because the +;;; Cocoa NSString function :size-with-attributes is quite buggy. Text +;;; rendering should be rewritten to use glyphs or ATSUI (a pleasant task I'm +;;; sure). -- moore + +(defun text-size-aux (medium string font start end) + ;; See if there's a better way to do this; is this stack allocation? + (let ((objc-str (%make-nsstring (subseq string start end)))) + (slet ((bsize (send objc-str :size-with-attributes + (reuse-attribute-dictionary medium font)))) + (let* ((descender (abs (send font 'descender))) + (fragment-width (pref bsize :<NSS>ize.width)) + (fragment-height (pref bsize :<NSS>ize.height)) + (fragment-baseline (- fragment-height descender))) + (send objc-str 'release) + (values fragment-width fragment-height descender fragment-baseline))))) + +(defmethod text-size ((medium beagle-medium) (s character) + &key (text-style (medium-text-style medium)) + (start 0) + (end 1)) + (text-size medium (string s) :text-style text-style :start start :end end)) + +(defmethod text-size ((medium beagle-medium) (string string) + &key (text-style (medium-text-style medium)) + (start 0) + ( end (length string))) + (declare (special *default-text-style*)) ;; Check for 'empty string' case - (if (>= start end) - (values 0 0 0 0 0) - (let ((position-newline (position #\newline string :start start)) - ;; See if there's a better way to do this; is this stack - ;; allocation? - (objc-str (%make-nsstring (subseq string start end))) - (font (%text-style->beagle-font (or text-style - *default-text-style*)))) - (slet ((bsize (send objc-str :size-with-attributes - (reuse-attribute-dictionary medium font)))) - ;; Don't use 'text-style-descent' in the following, since that - ;; method is defined in terms of this one :-) - (let* ((descender (abs (send font 'descender))) - (fragment-width (pref bsize :<NSS>ize.width)) - (fragment-height (pref bsize :<NSS>ize.height)) - (fragment-x (pref bsize :<NSS>ize.width)) - ;; subtract line height from this later... - (fragment-y (pref bsize :<NSS>ize.height)) - ;; baseline = height - descender - (fragment-baseline (- fragment-height descender))) - (send objc-str 'release) - (if (null position-newline) - (values fragment-width - fragment-height - fragment-x - (- fragment-y fragment-height) - fragment-baseline) - (progn - (multiple-value-bind (w h x y b) - (text-size medium string :text-style text-style - :start position-newline - :end end) - ;; Current width, or width of sub-fragment, whichever - ;; is larger - (let ((largest-width (max fragment-width w)) - ;; current height + height of sub-fragment - (current+fragment-height (+ fragment-height h)) - ;; new y position; one line height smaller than the - ;; total height - (y-position (- (+ fragment-y y) fragment-height)) - ;; baseline of string; total height - baseline size, where - ;; baseline 'size' is (line-height - baseline). - (baseline (- (+ fragment-height h) (- h b)))) - (values largest-width - current+fragment-height - x ; always use last x calculated... - y-position - baseline)))))))))) + (when (>= start end) + ;; XXX is 0 value for the baseline correct? + (return-from text-size (values 0 0 0 0 0))) + (let ((position-newline (position #\newline string :start start :end end)) + (font (%text-style->beagle-font (or text-style *default-text-style*)))) + (multiple-value-bind + (fragment-width fragment-height descender fragment-baseline) + (text-size-aux medium string font start (or position-newline end)) + (declare (ignore descender)) + (unless position-newline + (return-from text-size + (values fragment-width fragment-height fragment-width 0 + fragment-baseline))) + (multiple-value-bind (w h x y b) + (text-size medium string :text-style text-style + :start (1+ position-newline) + :end end) + ;; Current width, or width of sub-fragment, whichever is larger + (let ((largest-width (max fragment-width w)) + ;; current height + height of sub-fragment + (current+fragment-height (+ fragment-height h)) + ;; new y position; one line height smaller than the total height + (y-position y) + ;; baseline of string; total height - baseline size, where + ;; baseline 'size' is (line-height - baseline). + (Baseline (- (+ fragment-height h) (- h b)))) + (values largest-width + current+fragment-height + x ; always use last x calculated... + y-position + baseline)))))) + +(defmethod climi::text-bounding-rectangle* + ((medium beagle-medium) (s character) + &key (text-style (medium-text-style medium)) + (start 0) + (end 1)) + (climi::text-bounding-rectangle* medium (string s) + :text-style text-style :start start :end end)) + +(defmethod climi::text-bounding-rectangle* + ((medium beagle-medium) (s string) + &key (text-style (medium-text-style medium)) + (start 0) + (end 1)) + (declare (special *default-text-style*)) + ;; Check for 'empty string' case + (when (>= start end) + (return-from climi::text-bounding-rectangle* (values 0 0 0 0))) + (let ((font (%text-style->beagle-font (or text-style *default-text-style*))) + (height 0) + (width 0) + (baseline nil)) + (loop + for line-start = start then (1+ line-end) + for line-end = (position #\newline s :start line-start :end end) + do (multiple-value-bind + (fragment-width fragment-height descender fragment-baseline) + (text-size-aux medium s font line-start (or line-end end)) + (declare (ignore descender)) + (incf height fragment-height) + (setq width (max width fragment-width)) + (unless baseline + (setq baseline fragment-baseline))) + while line-end) + (values 0 (- baseline) width (- height baseline)))) + ;;; Note: we DO NOT want to draw the fonts in the medium-foreground colour - we want

1 0

[mcclim-cvs] CVS mcclim/Backends/CLX
by crhodes 23 Mar '06

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv27080/Backends/CLX Modified Files: medium.lisp Log Message: Fix for ellipse drawing (from Troels Henriksen) --- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2006/02/17 14:16:39 1.72 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2006/03/23 11:59:00 1.73 @@ -564,7 +564,7 @@ (with-transformed-position ((sheet-native-transformation (medium-sheet medium)) center-x center-y) (let* ((arc-angle (- end-angle start-angle)) - (arc-angle (if (< end-angle 0) + (arc-angle (if (< arc-angle 0) (+ (* pi 2) arc-angle) arc-angle))) (with-clx-graphics (medium) @@ -588,7 +588,7 @@ medium)) center-x center-y) (let* ((arc-angle (- end-angle start-angle)) - (arc-angle (if (< end-angle 0) + (arc-angle (if (< arc-angle 0) (+ (* pi 2) arc-angle) arc-angle)) (min-x (round-coordinate (- center-x radius)))

1 0

[mcclim-cvs] CVS mcclim/Apps/Scigraph/dwim
by crhodes 23 Mar '06

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim In directory clnet:/tmp/cvs-serv1310/Apps/Scigraph/dwim Modified Files: extensions.lisp package.lisp present.lisp tv.lisp wholine.lisp Log Message: Make Scigraph/dwim compile without error under SBCL. The code is still a horrible mess of reader conditionals, feature case, and other similar stuff; it really deserves to die a horrible death. For now, though, put it on a life support machine. --- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/extensions.lisp 2004/08/06 13:19:40 1.5 +++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/extensions.lisp 2006/03/23 10:09:50 1.6 @@ -31,6 +31,7 @@ ;;; Lisp Extensions ;;;***************** +#-(and) (unless (fboundp 'ignore) ;; Define IGNORE to be like our old friend from Genera. ;; This practice is frowned upon because IGNORE is in the --- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/package.lisp 2004/08/06 13:19:40 1.4 +++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/package.lisp 2006/03/23 10:09:50 1.5 @@ -87,6 +87,7 @@ ;; March 1989, X3J13 votes to subsume downward-funarg & downward-function ;; by dynamic-extent. Get rid of the next two eventually. jpm. dwim::downward-funarg dwim::downward-function + #-ansi-cl dwim::dynamic-extent dwim::array-register))) --- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/present.lisp 2004/08/06 13:19:40 1.3 +++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/present.lisp 2006/03/23 10:09:50 1.4 @@ -527,9 +527,10 @@ #+clim-0.9 nil #+clim-1.0 clim:*activation-characters*)) (declare (ignore bchars)) + (declare (ignorable achars)) #FEATURE-CASE ((:clim-0.9 (clim::activation-character-p char)) - (:clim-2 (ignore achars) (clim:activation-gesture-p char)) + (:clim-2 (clim:activation-gesture-p char)) ((or :clim-1.0 :clim-2 (not :clim)) (and (if (consp char) (setq char (second char)) t) @@ -548,9 +549,10 @@ (defun accept-blip-p (char &optional (chars #-clim dw::*accept-blip-chars* #+clim-1.0 clim:*blip-characters* #+clim-0.9 nil)) + (declare (ignorable chars)) #FEATURE-CASE ((:clim-0.9 (clim::blip-character-p char)) - (:clim-2 (ignore chars) (clim:delimiter-gesture-p char)) + (:clim-2 (clim:delimiter-gesture-p char)) ((or :clim-1.0 :clim-2 (not :clim)) (loop for l in chars thereis (and (characterp char) (member char l :test #'char-equal)))))) @@ -662,7 +664,7 @@ #-clim (dw:accept 'tv:sheet :stream stream :prompt nil)) :printer ((window stream) (let ((*print-readably* nil)) - (declare (special *print-readably*)) + #-ansi-cl (declare (special *print-readably*)) #+clim (format stream "~A" window) #-clim (present window 'tv:sheet :stream stream))) :description "a window") @@ -690,12 +692,13 @@ (otherwise (present-to-string element)))) (defun make-accept-values-choices (&key query-identifier sequence select-action) + (declare (ignorable sequence)) #FEATURE-CASE - ((:clim-2 (ignore sequence) + ((:clim-2 (clim-internals::make-accept-values-multiple-choices :query-identifier query-identifier :select-action select-action)) - (:clim-1.0 (ignore sequence) + (:clim-1.0 (clim::make-accept-values-multiple-choices :query-identifier query-identifier :select-action select-action)) @@ -710,12 +713,13 @@ (defun make-accept-values-choice (&key choices choice value documentation) #+clim (declare (ignore documentation)) + (declare (ignorable choice)) #FEATURE-CASE - ((:clim-2 (ignore choice) + ((:clim-2 (clim-internals::make-accept-values-multiple-choice :choices choices :value value)) - (:clim-1.0 (ignore choice) + (:clim-1.0 (clim::make-accept-values-multiple-choice :choices choices :value value)) @@ -871,7 +875,7 @@ (accept 'string :stream stream :prompt nil :default nil))) (:clim-1.0 (let ((clim::*disable-input-editor-echo* t)) - (ignore clim::*disable-input-editor-echo*) + (declare (ignorable clim::*disable-input-editor-echo*)) ;; This variable is defined in a patch file (echo-patch.lisp) ;; that came from Scott MacKay and has not been made a part of DWIM. ;; You must load it separately. @@ -907,5 +911,5 @@ :parser ((stream) (values (readline-no-echo stream) 'invisible-object)) :printer ((object stream) - (ignore object) + (declare (ignore object)) (write-string "*" stream))) --- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/tv.lisp 2004/08/06 13:19:40 1.7 +++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/tv.lisp 2006/03/23 10:09:50 1.8 @@ -363,7 +363,7 @@ ((not :clim) (scl:send frame :superior)))) (defun find-frame-manager (&key (if-exists :reuse)) - (ignore if-exists) + (declare (ignorable if-exists)) #FEATURE-CASE ((:clim-2 (clim:find-frame-manager)) (:clim-1.0 @@ -384,10 +384,10 @@ (tv:console-default-superior)))))) (defun get-reusable-frame (manager type) + (declare (ignorable manager)) #FEATURE-CASE (((not :clim) (let ((choices *deactivated-frames*)) - (ignore manager) (dolist (item choices) (when (and (eq (frame-manager item) manager) (typep (scl:send item :program) type)) @@ -401,7 +401,6 @@ (:clim-1.0 #-MCL (let ((choices *deactivated-frames*)) - (ignore manager) (dolist (item choices) (when (typep item type) (setq *deactivated-frames* (delete item *deactivated-frames*)) @@ -582,7 +581,6 @@ :left left :top top :right (+ left width) :bottom (+ top height))) (:clim-2 ;; what parent does this get? - #-mcclim (ignore parent) (let ((frame (clim:make-application-frame type :pretty-name title --- /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/wholine.lisp 2003/10/31 11:35:37 1.1 +++ /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/wholine.lisp 2006/03/23 10:09:50 1.2 @@ -490,12 +490,12 @@ #+(or clim-1.0 clim-2) (defmethod clim:read-frame-command :around ((frame t) &key stream) - (ignore stream) + (declare (ignore stream)) (with-process-state (input-string) (call-next-method))) #+(or clim-1.0 clim-2) (defmethod clim:execute-frame-command :around ((frame t) command) - (ignore command) + (declare (ignore command)) (with-process-state (run-string) (call-next-method))) #-clim

1 0

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

23 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv25483 Modified Files: image.lisp port.lisp Log Message: Fix (temporary hack) to use file sockets in CLX on ACL --- /project/mcclim/cvsroot/mcclim/Backends/CLX/image.lisp 2005/02/21 13:32:49 1.20 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/image.lisp 2006/03/23 08:45:26 1.21 @@ -18,7 +18,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -(defpackage "IMAGE" +(defpackage :image ; (:use #:clim-lisp) (:use :clim-clx :common-lisp) (:export --- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2006/03/15 22:56:55 1.121 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2006/03/23 08:45:26 1.122 @@ -1412,3 +1412,24 @@ Sending property NIL to target.~%" target) (send-event :target target :property nil)))) (xlib:display-force-output (xlib:window-display requestor)))) + +;;; XXX CLX in ACL doesn't use local sockets, so here's a fix. This is gross +;;; and should obviously be included in Franz' clx and portable clx, but I +;;; believe that enough users will find that their X servers don't listen for +;;; TCP connections that it is worthwhile to include this code here +;;; temporarily. + +#+allegro +(defun xlib::open-x-stream (host display protocol) + (declare (ignore protocol)) ;; Derive from host + (let ((stream (if (or (string= host "") (string= host "unix")) + (socket:make-socket + :address-family :file + :remote-filename (format nil "/tmp/.X11-unix/X~D" display) + :format :binary) + (socket:make-socket :remote-host (string host) + :remote-port (+ *x-tcp-port* display) + :format :binary)))) + (if (streamp stream) + stream + (error "Cannot connect to server: ~A:~D" host display))))

1 0

[mcclim-cvs] CVS mcclim/Doc/Guided-Tour
by cfruhwirth 22 Mar '06

22 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Doc/Guided-Tour In directory clnet:/tmp/cvs-serv6799 Added Files: COPYING Log Message: Add file to document that we got permission to use the original authors work. --- /project/mcclim/cvsroot/mcclim/Doc/Guided-Tour/COPYING 2006/03/22 13:47:13 NONE +++ /project/mcclim/cvsroot/mcclim/Doc/Guided-Tour/COPYING 2006/03/22 13:47:13 1.1 This file contains the logs of the mail conversations between various copyright holders in "A guided tour of CLIM" published in ACM Lisp Pointers 1991. It purpose is to document that we got permission for reusing the original authors' work. ======================================================================== From: Clemens Fruhwirth <clemens(a)endorphin.org> To: rao(a)inxight.com Subject: CLIM a guided tour X-Mailer: MH-E 7.84; nmh 1.1; XEmacs 21.5 (beta22) Date: Sun, 27 Nov 2005 18:27:28 +0100 Hello! I hope I got the correct "Ramona Rao", that is, the one that has co-authored "A Guided Tour of CLIM". McCLIM is an effort to provide a free CLIM environment for recent CL implementations like SBCL, CMUCL, et al. The community hasn't come up with a useful and short documentation like your tour to introduce users to CLIM. Unfortunately, CLIM has changed and the examples included in the article don't run anymore. I would like to update this article to produce a tutorial for the McCLIM community. Given the age of the article I presume that the interest in commercial exploitation has also faded. Therefore, I would like to ask, if it's possible to obtain any TeX source for this article. If the source got lost, I could also extract the text and reformat it. Of course, I would need your permission for these actions. Also, I'm not sure if that's ok for ACM. Is any of that possible? Thanks in advance! P.S.: I found your article here http://lemonodor.com/archives/000765.html -- Fruhwirth Clemens - http://clemens.endorphin.org for robots: sp4mtrap(a)endorphin.org From: Clemens Fruhwirth <clemens(a)endorphin.org> To: dennis.doughty(a)pantero.com Subject: A guided tour of CLIM - permission for 2005 update X-Mailer: MH-E 7.84; nmh 1.1; XEmacs 21.5 (beta22) Date: Thu, 08 Dec 2005 11:03:07 +0100 Hello Mr. Doughty, Together with Ramana Rao and Bill York, you have authored the article "A guided tour of CLIM" for ACM in 1991. CLIM has changed much since 1991, especially with the release of the CLIM 2 specification. The CLIM community lacks a good and short introduction to CLIM like your article was. I would like to update the examples in your article and also rewrite parts of the article that doesn't apply to the new CLIM. Assuming your permission for this action, I intend to publish this update on my webpage to aid the CLIM community. Ramano Rao as well as Bill York give me permission for this update. ACM also acknowledged this step. Now, I would like to ask, if this is ok with you. Thank you, Clemens P.S. Here are the mails from Ramana Rao, ACM and Bill York: Subject: RE: CLIM a guided tour Date: Mon, 28 Nov 2005 12:47:05 -0800 From: "Ramana Rao" <rao(a)inxight.com> To: "Clemens Fruhwirth" <clemens(a)endorphin.org> Cc: "Bill York" <york(a)comergent.com> Clemens, Unfortunately, I don't seem to be able to get my hands on the original tex source for that article. I happily give you permission to adapt the text as supports the CLIM community. I've really been out of touch and would be curious to hear any highlights of what's happening there. Meanwhile, Bill York may be able to put his hands on the tex source. Thanks, Ramana Subject: RE: CLIM a guided tour Date: Thu, 1 Dec 2005 14:31:21 -0600 From: "Bill York" <york(a)comergent.com> To: "Clemens Fruhwirth" <clemens(a)endorphin.org> Cc: "Ramana Rao" <rao(a)inxight.com> I don't seem to have the source file. Good luck in your efforts. From: Deborah Cotton <cotton(a)hq.acm.org> To: 'Clemens Fruhwirth' <clemens(a)endorphin.org> Cc: permissions(a)acm.org Subject: RE: Update to http://portal.acm.org/citation.cfm?id=121996 Date: Wed, 7 Dec 2005 14:56:15 -0500 X-Mailer: Internet Mail Service (5.5.2657.72) Dear Mr. Fruhwirth, Thank you for your inquiry, and interest in ACM publications. Because the article in question appeared in a SIG newsletter, rather than a journal or conference proceedings, the authors retained copyright. In this case, ACM only requires acknowledgment of the original publication. You have received permission from two of the three authors, but you should also pursue the third author's permission, especially since you have revised the original work. Let me know if you have any further questions. Best regards, Deborah Cotton Copyright & Permissions ACM Publications 212.869.7440 ext. 652 212.869.0481 fax permissions(a)acm.org -- Fruhwirth Clemens - http://clemens.endorphin.org for robots: sp4mtrap(a)endorphin.org From: Robert Strandh <strandh(a)labri.fr> Message-ID: <17326.56044.483289.241972(a)serveur5.labri.fr> Date: Sun, 25 Dec 2005 18:46:20 +0100 To: clemens(a)endorphin.org Subject: forwarded message from Dennis Doughty --U9PbTyCujO Content-Type: text/plain; charset=us-ascii Content-Description: message body text Content-Transfer-Encoding: 7bit We got the permission! --U9PbTyCujO Content-Type: message/rfc822 Content-Description: forwarded message Content-Transfer-Encoding: 7bit Return-Path: <doughty(a)alum.mit.edu> Received: from iona.labri.fr ([unix socket]) by iona.labri.fr (Cyrus v2.2.12) with LMTPA; Sun, 25 Dec 2005 13:06:08 +0100 X-Sieve: CMU Sieve 2.2 Received: from localhost (guismo.drimm.u-bordeaux1.fr [147.210.36.243]) by iona.labri.fr (Postfix) with ESMTP id 59080101767 for <strandh(a)labri.fr>; Sun, 25 Dec 2005 13:06:08 +0100 (CET) Received: from iona.labri.fr ([147.210.8.143]) by localhost (guismo.drimm.u-bordeaux1.fr [147.210.36.243]) (amavisd-new, port 10024) with LMTP id 30892-06-2 for <strandh(a)labri.fr>; Sun, 25 Dec 2005 13:06:08 +0100 (CET) X-policyd-weight: using cached result; rate: -3.41 X-Greylist: delayed 903 seconds by postgrey-1.23 at iona.labri.fr; Sun, 25 Dec 2005 13:06:07 CET Received: from s-utl01-dcpop.stsn.net (s-utl01-dcpop.stsn.net [72.255.0.201]) by iona.labri.fr (Postfix) with SMTP id DC7BC101765 for <strandh(a)labri.fr>; Sun, 25 Dec 2005 13:06:07 +0100 (CET) Received: from s-utl01-dcpop.stsn.net ([127.0.0.1]) by s-utl01-dcpop.stsn.net (SMSSMTP 4.1.2.20) with SMTP id M2005122506505622450 for <strandh(a)labri.fr>; Sun, 25 Dec 2005 06:50:56 -0500 Received: from [10.57.103.119] ([10.57.103.119]) by s-utl01-dcpop.stsn.net for strandh(a)labri.fr; Sun, 25 Dec 2005 06:50:55 -0500 Message-ID: <43AE87A9.8050908(a)alum.mit.edu> User-Agent: Mozilla Thunderbird 1.0.2 (Windows/20050317) X-Accept-Language: en-us, en MIME-Version: 1.0 References: <AAFDB8BBFB0D1D47BC52CB46BA499B3E154E0E(a)hqexch1.cmgt.corp> In-Reply-To: <AAFDB8BBFB0D1D47BC52CB46BA499B3E154E0E(a)hqexch1.cmgt.corp> Content-Type: text/plain; charset=ISO-8859-1; format=flowed X-Virus-Scanned: amavisd-new at u-bordeaux1.fr From: Dennis Doughty <doughty(a)alum.mit.edu> To: strandh(a)labri.fr Subject: Re: permission to update your CLIM article Date: Sun, 25 Dec 2005 06:51:05 -0500 Hi Robert, Sorry for the delay in getting back to you. I'm no longer at Pantero and it's only a coincidence that I ended up seeing this email. Absolutely you may have my permission to update the article. Dennis Doughty > From: *Robert Strandh* <strandh(a)labri.fr <mailto:strandh@labri.fr>> > Date: Dec 17, 2005 4:37 PM > Subject: permission to update your CLIM article > To: dennis.doughty(a)pantero.com <mailto:dennis.doughty@pantero.com> > > Dear Dennis Doughty, > > I am one of the original authors of McCLIM, the free implementation of > CLIM that we started writing in 2000 and which is now quite usable. > One of the things we lack at the moment to spread the use of CLIM is a > collection of simple examples on typical usage. Your CLIM article has > some very good ones, but it was apparently written for CLIM 1, and the > examples do not necessarily run unmodified on a CLIM 2 > implementation. > > Clemens Fruhwirth has suggested updating the examples of your article, > but for that, he needs the permission of all the authors. He has > already obtained the permission from your co-authors, so we need a > permission from you as well in order to go ahead. Clemens would > naturally accept a refusal on your part, and is willing to write a > similar article from scratch, updated for CLIM 2, but that would be > unnecessary work, should you agree to let him update yours. > > We therefore kindly ask for your permission to update the article, or > at least a clear message indicating that you do not give us such a > permission. I am sure you are very busy like the rest of us, but I > would very much appreciate this effort on your part. > > Thanks in advance, > -- > Robert Strandh > > --------------------------------------------------------------------- > Greenspun's Tenth Rule of Programming: any sufficiently complicated C > or Fortran program contains an ad hoc informally-specified bug-ridden > slow implementation of half of Common Lisp. > --------------------------------------------------------------------- > --U9PbTyCujO Content-Type: text/plain; charset=us-ascii Content-Description: .signature Content-Transfer-Encoding: 7bit -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. --------------------------------------------------------------------- --U9PbTyCujO-- \

1 0

[mcclim-cvs] CVS mcclim/Apps/Listener
by afuchs 22 Mar '06

22 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv31467/Apps/Listener Modified Files: listener.lisp Log Message: Apply Douglas Crosher's patch fixing the listener for CMUCL: * Revert function 'dynamic-space-usage to 'dynamic-usage. --- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2006/03/15 22:56:54 1.23 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2006/03/22 09:14:30 1.24 @@ -78,7 +78,7 @@ #-(or allegro cmu scl) (getenv "USER") "luser")) ; sorry.. (sitename (machine-instance)) - (memusage #+(or cmu scl) (lisp::dynamic-space-usage) + (memusage #+(or cmu scl) (lisp::dynamic-usage) #+sbcl (sb-kernel:dynamic-usage) #+lispworks (getf (system:room-values) :total-allocated) #+openmcl (+ (ccl::%usedbytes) (ccl::%freebytes))

1 0

[mcclim-cvs] CVS mcclim/Doc/Guided-Tour
by rgoldman 21 Mar '06

21 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Doc/Guided-Tour In directory clnet:/tmp/cvs-serv23388 Modified Files: guided-tour.tex Log Message: Minor wording changes and typo fixes to the middle of the document. --- /project/mcclim/cvsroot/mcclim/Doc/Guided-Tour/guided-tour.tex 2006/03/16 15:50:20 1.3 +++ /project/mcclim/cvsroot/mcclim/Doc/Guided-Tour/guided-tour.tex 2006/03/21 15:00:24 1.4 @@ -991,7 +991,7 @@ \subsection{A simple drawing application} -We move on to a simple drawing application that draws +We move on to a simple application that draws lines and inserts text interactively. Our simple drawing program defines commands for various drawing operations and binds specific input events to these commands. @@ -1005,6 +1005,11 @@ multiple layouts with this option. We define two simple layouts, \code{default-layout} and \code{alternative}. +% I was confused by the discussion of layouts here. Looking at Figure +% 4, I do not see an alternative layout, and the default-default in +% the listing looks odd to me. Is this the remainder of a discussion +% that was deleted or an extension yet to be written? [2006/03/19:rpg] + \begin{figure*}[t] \lstset{style=framestyle} \lstinputlisting{draw-frame-commands} @@ -1048,8 +1053,18 @@ static user interfaces use this mixin. Note that \mcclim{} is sensitive to the order of the superclasses.\footnote{All stream classes like \class{standard-extended-input-stream} must be listed before -\class{basic-pane}. Otherwise, there are no stream handling facilities -available.} +\class{basic-pane}. Otherwise, no stream handling facilities +will be available.} + +% The above footnote refers to what looks like a very big potential +% ``gotcha'' for the beginning McCLIM programmer. Suggestion: promote +% this out of the footnote into body text as a main body paragraph +% here. That paragraph should explain (1) why is it that putting +% basic-pane before standard-extended-input-stream will cause stream +% handling facilities to be crushed and (2) what exactly are the +% implications of not having stream handling facilities. The phrase +% ``stream handling'' hasn't been defined, and it's not obvious what +% these facilities are. [2006/03/19:rpg] For \class{draw-pane}, the \method{handle-repaint} method shown in \figurename~\ref{fig-draw-handlerepaint} is straightforward. It @@ -1085,41 +1100,61 @@ conveniently. The interactor pane can be used to invoke one of three commands, either by typing the complete command including all its parameters or by typing only the command name, then a dialog queries -the user for the missing command argument. Clicking on the menu bar -entries is also possible. Also in this case, the user is queried for -the missing arguments. +the user for the missing command argument(s). Clicking on the menu bar +entries is another way to invoke commands. When commands are invoked +through the menu bar, the user will be queried for the missing +argument(s) in the same way as if a command had been typed into the +interactor pane. +% also possible. Also in this case, the user is queried for +% the missing arguments. But drawing by typing coordinates is not convenient. Therefore, we attach these commands to other user interactions. Figure -\ref{fig-draw-interfacing} defines input methods for pointer button -presses as well as key presses on the draw pane. Both handlers invoke -the respective tracking function that uses \macro{tracking-pointer} to +\ref{fig-draw-interfacing} defines input methods (methods for +\code{handle-event}) for pointer button +presses as well as key presses on the draw pane. +Each handler invokes a tracking function (\code{track-line-drawing} and +\code{track-text-drawing}) that uses \macro{tracking-pointer} to bypass the regular input distribution channels and to dispatch events to user defined handlers. - -For \class{pointer-button-press-event}, the input loop manages a -``rubber-banding'' line. The \keyword{:pointer-motion} is invoked +% old text: [2006/03/19:rpg] +% Both handlers invoke +% the respective tracking function that uses \macro{tracking-pointer} to +% bypass the regular input distribution channels and to dispatch events +% to user defined handlers. + +For \class{pointer-button-press-event}, which is used to draw lines, +the input loop manages a +``rubber-banding'' line. % +% what is pointer-motion here? Is it an event? And it's not really +% the event that's invoked, to be absolutely clear. The event is +% signaled, and the tracking-pointer macro provides a handler for that +% event. So it is the code associated with :pointer-motion that is +% invoked... I wasn't confident enough in my understanding of the +% precise organization of the (Mc)CLIM architecture to venture a +% rewrite, but there should be a clarification here. [2006/03/19:rpg] +The \keyword{:pointer-motion} is invoked whenever the mouse pointer is moved by the user. The code attached to -\keyword{:pointer-motion} clears line already drawn and draws a new +\keyword{:pointer-motion} clears the previously-drawn line and draws a new line with the new pointer position. It can easily undraw the old line by the using the special ink \constant{+flipping-ink+}. When the user confirms the line by releasing the pointer button, a command to the application is synthesized via \method{execute-frame-command} supplying all required parameters. -Similarly, we provide such an input facility for text input. Whenever +We provide a similar input facility for text input. Whenever the user hits a key in the draw-pane, the respective \method{handle-event} calls \method{track-text-drawing} which attaches -the character entered to the mouse pointer. Similarly to the -rubber-banding line, the user can move the around this character while +the character entered to the mouse pointer. As with the +rubber-banding line, the user can move the displayed string around while he is free to append additional string characters by additional key presses. He can confirm the text position with a mouse click causing a -command to be dispatched to the application frame adding the text to +command to be dispatched to the application frame that will add the text to the application frame permanently. As each of these methods invoke \code{execute-frame-command} passing -in a special command invocation form, this naturally leads to code -separation of how a command is invoked (menu-bar click, click on +in a special command invocation form, this naturally leads to a +separation between the code that specifies how a command is invoked (menu-bar click, click on draw-pane or typing in the interactor pane) and the code for command execution (code bodies of \method{define-command}).

1 0

[mcclim-cvs] CVS mcclim/Experimental/freetype
by crhodes 20 Mar '06

20 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype In directory clnet:/tmp/cvs-serv8331 Removed Files: xrender.asd xrender.lisp xrender.system Log Message: Remove xrender files; bug your CLX vendor for xrender instead. (Available at least at <http://common-lisp.net/~crhodes/clx> anyway)

1 0