From fvides at dedaloingenieros.com Sun Dec 13 19:54:02 2009 From: fvides at dedaloingenieros.com (Francisco Vides =?UTF-8?B?RmVybsOhbmRleg==?=) Date: Sun, 13 Dec 2009 20:54:02 +0100 Subject: [cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl. References: <200812021918.25100.pcn@pogt.dk> Message-ID: Hi I've just installed cells for evaluation purposes, and been bitten for this very same problem. Maybe some nice comittin'? Thanks for this interesting project! Peder Chr. =?iso-8859-1?q?N=F8rgaard?= wrote: > Hello cells-devel list. > I am investigating cells and cells-gtk3 for a project that I am planning. > For a starter, I needed to get the software running on my Debian unstable > system. It needed a few patches that you may wish to take into your > development. > > The version of cells that I use is taken with > > cvs -z3 -d > :pserver:anonymous:anonymous at common-lisp.net:/project/cells/cvsroot co > cells > > That is the most actual one, yes? > > Well, the sbcl on Debian unstable (1.0.18) does not have nor need the EXCL > package. So it must be configured out: > > diff -u -r cells/defpackage.lisp cl/cells/defpackage.lisp > --- cells/defpackage.lisp 2008-10-12 03:21:07.000000000 +0200 > +++ MDM/cl/cells/defpackage.lisp 2008-11-28 20:08:38.000000000 +0100 > @@ -23,7 +23,7 @@ > (in-package :common-lisp-user) > > (defpackage :cells > - (:use #:common-lisp #:excl #:utils-kt) > + (:use #:common-lisp #-sbcl #:excl #:utils-kt) > (:import-from > ;; MOP > #+allegro #:excl > diff -u -r cells/utils-kt/defpackage.lisp > cl/cells/utils-kt/defpackage.lisp > --- cells/utils-kt/defpackage.lisp 2008-10-12 03:21:10.000000000 +0200 > +++ MDM/cl/cells/utils-kt/defpackage.lisp 2008-11-28 20:04:08.000000000 > +0100 @@ -35,7 +35,8 @@ > > (defpackage :utils-kt > (:nicknames #:ukt) > - (:use #:common-lisp #:excl > + (:use #:common-lisp > + #-sbcl #:excl > #+(or allegro lispworks clisp) #:clos > #+cmu #:mop > #+sbcl #:sb-mop > > > The sbcl does not have the MOP package - it is called SB-MOP. Much of the > code knows that already, but I had to patch one file: > > > diff -u -r cells/utils-kt/detritus.lisp cl/cells/utils-kt/detritus.lisp > --- cells/utils-kt/detritus.lisp 2008-10-12 03:21:10.000000000 +0200 > +++ MDM/cl/cells/utils-kt/detritus.lisp 2008-11-28 20:07:57.000000000 > +0100 @@ -33,7 +33,7 @@ > (let ((cc (find-class c))) > (when cc > (finalize-inheritance cc)) > - (mop::class-prototype cc))) > + (#+sbcl sb-mop:class-prototype #-sbcl mop::class-prototype cc))) > > > (defun brk (&rest args) > > > After that, I tried to run the test suite. Worked fine, except that > it is a little bit too Window'ish. I did this: > > diff -u -r cells/cells-test/test.lisp cl/cells/cells-test/test.lisp > --- cells/cells-test/test.lisp 2008-10-12 03:21:09.000000000 +0200 > +++ MDM/cl/cells/cells-test/test.lisp 2008-12-01 22:25:26.000000000 +0100 > @@ -69,7 +69,7 @@ > > > (defun test-cells () > - (dribble "c:/0algebra/cells-test.txt") > + (dribble "/tmp/cells-test.txt") > (progn ;prof:with-profiling (:type :time) > (time > (progn > > but that is not what you want to go in the main sources. Maybe something > based on the features - (dribble #+unix "/tmp/cells-test.txt" #-unix > "c:/0algebra/cells-test.txt") - or perhaps just a file name parameter to > TEST-CELLS with the above as the default value? > > Hope this is of a little help to you. I am sure to come back for > assistance for my project later. > > best regards > -- +----------------- | Francisco Vides Fern?ndez | Director t?cnico. | D?dalo Ingenieros http://www.dedaloingenieros.com/ | PGP: http://pgp.rediris.es:11371/pks/lookup?op=index&search=0xB1299C15 +------ From ramarren at gmail.com Mon Dec 14 09:47:58 2009 From: ramarren at gmail.com (Ramarren) Date: Mon, 14 Dec 2009 10:47:58 +0100 Subject: [cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl. In-Reply-To: References: <200812021918.25100.pcn@pogt.dk> Message-ID: 2009/12/13 Francisco Vides Fern?ndez : > Hi > > I've just installed cells for evaluation purposes, and been bitten for this > very same problem. > > Maybe some nice comittin'? > > Thanks for this interesting project! > Hello, I have some time ago created a repository on GitHub: http://github.com/Ramarren/cells with a collection of small fixes for Cells (and cells-gtk3 http://github.com/Ramarren/cells-gtk3 ). Unfortunately it haven't been merged into the main repository on common-lisp.net because maintainers are too busy with other things. Regards, Jakub Higersberger From frgo at me.com Mon Dec 14 09:44:13 2009 From: frgo at me.com (Frank Goenninger) Date: Mon, 14 Dec 2009 10:44:13 +0100 Subject: [cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl. In-Reply-To: References: <200812021918.25100.pcn@pogt.dk> Message-ID: <41D83C53-B0F4-4786-AC3B-4BC35A1D916C@me.com> Hi - try this one: http://github.com/Ramarren/cells Cheers Frank Am 13.12.2009 um 20:54 schrieb Francisco Vides Fern?ndez: > Hi > > I've just installed cells for evaluation purposes, and been bitten > for this > very same problem. > > Maybe some nice comittin'? > > Thanks for this interesting project! > > Peder Chr. =?iso-8859-1?q?N=F8rgaard?= wrote: > >> Hello cells-devel list. >> I am investigating cells and cells-gtk3 for a project that I am >> planning. >> For a starter, I needed to get the software running on my Debian >> unstable >> system. It needed a few patches that you may wish to take into your >> development. >> >> The version of cells that I use is taken with >> >> cvs -z3 -d >> :pserver:anonymous:anonymous at common-lisp.net:/project/cells/cvsroot >> co >> cells >> >> That is the most actual one, yes? >> >> Well, the sbcl on Debian unstable (1.0.18) does not have nor need >> the EXCL >> package. So it must be configured out: >> >> diff -u -r cells/defpackage.lisp cl/cells/defpackage.lisp >> --- cells/defpackage.lisp 2008-10-12 03:21:07.000000000 +0200 >> +++ MDM/cl/cells/defpackage.lisp 2008-11-28 20:08:38.000000000 +0100 >> @@ -23,7 +23,7 @@ >> (in-package :common-lisp-user) >> >> (defpackage :cells >> - (:use #:common-lisp #:excl #:utils-kt) >> + (:use #:common-lisp #-sbcl #:excl #:utils-kt) >> (:import-from >> ;; MOP >> #+allegro #:excl >> diff -u -r cells/utils-kt/defpackage.lisp >> cl/cells/utils-kt/defpackage.lisp >> --- cells/utils-kt/defpackage.lisp 2008-10-12 03:21:10.000000000 >> +0200 >> +++ MDM/cl/cells/utils-kt/defpackage.lisp 2008-11-28 >> 20:04:08.000000000 >> +0100 @@ -35,7 +35,8 @@ >> >> (defpackage :utils-kt >> (:nicknames #:ukt) >> - (:use #:common-lisp #:excl >> + (:use #:common-lisp >> + #-sbcl #:excl >> #+(or allegro lispworks clisp) #:clos >> #+cmu #:mop >> #+sbcl #:sb-mop >> >> >> The sbcl does not have the MOP package - it is called SB-MOP. Much >> of the >> code knows that already, but I had to patch one file: >> >> >> diff -u -r cells/utils-kt/detritus.lisp cl/cells/utils-kt/ >> detritus.lisp >> --- cells/utils-kt/detritus.lisp 2008-10-12 03:21:10.000000000 +0200 >> +++ MDM/cl/cells/utils-kt/detritus.lisp 2008-11-28 20:07:57.000000000 >> +0100 @@ -33,7 +33,7 @@ >> (let ((cc (find-class c))) >> (when cc >> (finalize-inheritance cc)) >> - (mop::class-prototype cc))) >> + (#+sbcl sb-mop:class-prototype #-sbcl mop::class-prototype cc))) >> >> >> (defun brk (&rest args) >> >> >> After that, I tried to run the test suite. Worked fine, except that >> it is a little bit too Window'ish. I did this: >> >> diff -u -r cells/cells-test/test.lisp cl/cells/cells-test/test.lisp >> --- cells/cells-test/test.lisp 2008-10-12 03:21:09.000000000 +0200 >> +++ MDM/cl/cells/cells-test/test.lisp 2008-12-01 22:25:26.000000000 >> +0100 >> @@ -69,7 +69,7 @@ >> >> >> (defun test-cells () >> - (dribble "c:/0algebra/cells-test.txt") >> + (dribble "/tmp/cells-test.txt") >> (progn ;prof:with-profiling (:type :time) >> (time >> (progn >> >> but that is not what you want to go in the main sources. Maybe >> something >> based on the features - (dribble #+unix "/tmp/cells-test.txt" #-unix >> "c:/0algebra/cells-test.txt") - or perhaps just a file name >> parameter to >> TEST-CELLS with the above as the default value? >> >> Hope this is of a little help to you. I am sure to come back for >> assistance for my project later. >> >> best regards >> > > -- > +----------------- > | Francisco Vides Fern?ndez > | Director t?cnico. > | D?dalo Ingenieros http://www.dedaloingenieros.com/ > | PGP: http://pgp.rediris.es:11371/pks/lookup?op=index&search=0xB1299C15 > +------ > > > _______________________________________________ > cells-devel site list > cells-devel at common-lisp.net > http://common-lisp.net/mailman/listinfo/cells-devel From peter.hildebrandt at gmail.com Mon Dec 14 10:47:47 2009 From: peter.hildebrandt at gmail.com (Peter Hildebrandt) Date: Mon, 14 Dec 2009 11:47:47 +0100 Subject: [cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl. In-Reply-To: References: <200812021918.25100.pcn@pogt.dk> Message-ID: <7758b2680912140247i767fedtf0944234be0cd118@mail.gmail.com> Jakub, thanks again for reminding me. To give you guys some background, my development laptop died about a year ago, and took most of my data with it along with my linux system. I've been using my work machine exclusively, but it is a Windows machine lacking the most essential things (SSH, CVS). Hence I wasn't able to push things forward. The good news is, I finally obtained a new laptop last week, and I am back in the game at last. Thus, thanks for reminding me. I will pull cells-gtk3 from your repository, run a few tests, and commit to common-lisp.net in time for Christmas. Thank you for covering for me :-) Cheers Peter On Mon, Dec 14, 2009 at 10:47 AM, Ramarren wrote: > 2009/12/13 Francisco Vides Fern?ndez : > > Hi > > > > I've just installed cells for evaluation purposes, and been bitten for > this > > very same problem. > > > > Maybe some nice comittin'? > > > > Thanks for this interesting project! > > > > Hello, > > I have some time ago created a repository on GitHub: > http://github.com/Ramarren/cells with a collection of small fixes for > Cells (and cells-gtk3 http://github.com/Ramarren/cells-gtk3 ). > Unfortunately it haven't been merged into the main repository on > common-lisp.net because maintainers are too busy with other things. > > Regards, > Jakub Higersberger > > _______________________________________________ > cells-devel site list > cells-devel at common-lisp.net > http://common-lisp.net/mailman/listinfo/cells-devel > -- Hi -- I'm Bill. This is Ted. We're from the future. -------------- next part -------------- An HTML attachment was scrubbed... URL: From achambers.home at googlemail.com Sat Dec 19 20:58:55 2009 From: achambers.home at googlemail.com (Andy Chambers) Date: Sat, 19 Dec 2009 20:58:55 +0000 Subject: [cells-devel] Scrollable celtk widgets Message-ID: One annoying limitation of tk widgets is that only text and canvas support the commands required for scrollbars. So I made the `mk-scrollee' macro. Used in conjunction with a new type of canvas item I created `window-item', we can wrap any tk window in a canvas so that it can be scrolled. I tried making :scroll-region a rule where the dimensions are derived from the wrapped window but got an assertion error in tk-create-event-handler-ex. Is that because it's trying to get the dimensions of a widget that's not been created yet? How could I get around this? As always, feel free to import this stuff into celtk/cello if you want. Cheers, Andy (deftk window-item (item) () (:tk-spec window -anchor -height -width -state -tags -window )) (defmacro mk-scrollee ((&key (height 500) (width 500)) &body body) "wraps any tk window inside a canvas so that it can be scrolled" `(make-kid 'canvas :scroll-region (list 0 0 ,width ,height) :gridding "-row 0 -column 0 -sticky news" :kids (c? (the-kids , at body (mk-window-item :coords (list 0 0) :window (c? (path (kid1 .parent))) :anchor 'nw :height (c? (height (kid1 .parent))) :width (c? (width (kid1 .parent)))))))) ;;; Usage (run-celtk-window 'window :kids (c? (the-kids (mk-scroller :packing (c?pack-self "-side top -fill both -expand 1") :canvas (c? (mk-scrollee (:height 1000 :width 500) (mk-stack () (loop for i from 0 to 30 collect (mk-label :text (format nil "hi ~a" i)))))))))) -- ---- Andy Chambers Formedix Ltd