March 2008 - cells-devel - mailman3.common-lisp.net

[cells-devel] celtk cleaning - cg package
by Andy Chambers 12 Mar '08

12 Mar '08

For those of us unfortunate enough to be doing lisp for free ;-) ..in run.lisp (run-window) #+allegro (CG:kill-splash-screen) I'm assuming here that cg is only found on allegro. Is that the case?

1 0

[cells-devel] celtk cleaning - foreign libraries
by Andy Chambers 12 Mar '08

12 Mar '08

I modified the foreign library packages as follows to make it work on my machine. In a previous email, someone said it worked best (at least for cello) with tcl 8.5 so we might as well make that explicit on unix. (define-foreign-library Tcl (:darwin (:framework "Tcl")) (:windows (:or "Tcl85.dll")) (:unix (:or "libtcl8.5.so" "libtcl.so")) (t (:default "libtcl"))) (define-foreign-library Tk (:darwin (:framework "Tk")) (:windows (:or "Tk85.dll")) (:unix (:or "libtk8.5.so" "libtk.so")) (t (:default "libtk"))) (define-foreign-library Tile ;(:darwin (:framework "Tk")) (:windows (:or "tile078.dll")) (:unix (:or "libtk8.5.so" "libtk.so")) (t (:default "libtk")))

1 0

[cells-devel] celtk cleaning - slot-value-observe
by Andy Chambers 12 Mar '08

12 Mar '08

Hi Kenny, So I'm cleaning up my celtk stuff so I've got a list of wee things that cause problems when asdf installing it that I'll submit patches for over the next few days. Here's the first... slot-value-observe seems to take an extra parameter now so I've adjusted my version to the following. Is this ok to be checked in? (defmethod slot-value-observe progn (slot-name (self tk-object) new-value old-value old-value-boundp cell) (declare (ignorable old-value cell)) (when old-value-boundp ;; initial propagation to Tk happens during make-tk-instance (bwhen (tco (tk-config-option self slot-name)) ;; (get slot-name 'tk-config-option)) (tk-configure self (string tco) (or new-value "")))))

1 0