cells-devel

cells-devel@common-lisp.net

567 discussions

[cells-devel] expander reinvigorated
by Andy Chambers 17 Mar '08

17 Mar '08

Hi Kenny, I never quite finished that expander stuff when I was doing it before. I ran into difficulties with the up/down icons but I think I know how to fix that now. However there seems to be another problem. If you try evaluate the test-window form at the bottom, every second time, you get "Tcl Error: out of stack space". I think there must be something that needs to be destroyed somewhere but none of the other composite widgets seem to have to do that. Any ideas? (defmodel expander (frame-stack) ((label :initarg :label :accessor label :initform (c-in nil)) (expansion :initarg :expansion :accessor expansion :initform nil) (expanded :initarg :expanded :accessor expanded :initform (c-in nil))) (:default-initargs :fm-parent (error "expander widget must have some kind of parent"))) (defmacro mk-expander ((&rest inits) &body body) `(make-instance 'expander ,@inits :fm-parent *parent* :expansion (c? (the-kids ,@body)) :expanded (c-in t) :kids (c? (the-kids (mk-button-ex ((^label) (setf (expanded (upper self expander)) (not (expanded (upper self expander)))))) (^expansion))) :kids-packing (c? (when (^kids) (if (^expanded) (format nil "pack~{ ~a~} -side top -anchor nw -padx ~a -pady ~a" (mapcar 'path (^kids)) (^padx) (^pady)) (format nil "pack forget~{ ~a~}" (mapcar 'path (cdr (^kids))))))))) (defmodel expander-test (window) () (:default-initargs :kids (c? (the-kids (mk-stack (:packing (c?pack-self)) (mk-expander (:label "hi") (mk-label :text "hi") (mk-label :text "ho"))))))) (test-window 'expander-test)

1 0

[cells-devel] False Start
by Andy Chambers 15 Mar '08

15 Mar '08

So that last one was a false start. After reading a little bit more about git and how it plays with cvs, I managed to create another project that keeps all the existing history and puts a nice user interface on it. The gitorious hosting seems a little more polished and a bit more newbie friendly (as befits a newbie friendly project). I would have used that one first had I known about it but only came accross it when looking for more info. Here's the url... http://gitorious.org/projects/celtk Kenny, you get the prize for the best commit / commit message ratio :-) -- Andy

2 1

[cells-devel] Newbie Friendly Fork of celtk
by Andy Chambers 15 Mar '08

15 Mar '08

Hi all, I've created a project for celtk development on repo.or.cz I'll keep the master branch as a mirror of the celtk in cells (I'll try to work out a way to automate this so it doesn't get out of sync). I've added another branch (linux) and committed the changes I sent a few days ago. The intention is that folks here just continue to work as they do. I take any changes and forward them (in an asdf-friendly way if applicable) to the git repo. Maybe I'll even add some function documentation. Its very much an experiment. I'm pretty new to git and getting a bit more familiar with celtk but I'd still say I'm a little wet behind the ears. Hopefully I can make it friendly enough that a few others will jump in and help me out. -- Andy Chambers

2 2

[cells-devel] RE:software market
by Angelica 15 Mar '08

15 Mar '08

1 0

[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

[cells-devel] Cells is a mature, stable extension to CLOS
by Matthew D.Swank 16 Feb '08

16 Feb '08

checkout latest cells cvs (require :cells) .... The variable UTILS-KT::CLOCK is unbound. [Condition of type UNBOUND-VARIABLE] followed by many more compilation errors. happens in sbcl and clisp on win32 wtf people. Matt

3 8

[cells-devel] cells3
by Peter Hildebrandt 27 Jan '08

27 Jan '08

I'm trying to get cells3 + Celtk up and running on sbcl/linux, and I found three issues: (i) in utils-kt/core.lisp, defmacro export!: sbcl does not like the export at compile time: `(eval-when (#-sbcl :compile-toplevel :load-toplevel :execute) (ii) in Celtk/run.lisp, defun run-window: (CG:kill-splash-screen) ---> CG is an unknown package for me. This is Allegro Common Graphics, I assume? I changed that to #+allegro (CG:... (iii) in Celtk/tk-interp.lisp, the names do not match the latest tcl/tk. Something with :or would work better: (define-foreign-library Tcl (:darwin (:framework "Tcl")) (:windows (:or "Tcl85.dll")) (:unix (:or "libtcl.so" "libtcl8.5.so.0" "libtcl8.5.so" "libtcl8.4.so.0" "libtcl8.5.so")) (t (:default "libtcl"))) (define-foreign-library Tk (:darwin (:framework "Tk")) (:windows (:or "Tk85.dll")) (:unix (:or "libtk.so" "libtk8.5.so.0" "libtk8.5.so" "libtk8.4.so.0" "libtk8.4.so")) (t (:default "libtk"))) (define-foreign-library Tile ;(:darwin (:framework "Tk")) (:windows (:or "tile078.dll")) (:unix (:or "libtk.so" "libtk8.5.so.0" "libtk8.5.so" "libtk8.4.so.0" "libtk8.4.so")) (t (:default "libtk"))) HTH someone, Peter

1 0

[cells-devel] CVS for Cells 2.0?
by David Lichteblau 27 Jan '08

27 Jan '08

Hi, is there an up-to-date CVS repository for Cells 2.0 (or whatever version of cells it is that I need for cells-gtk)? I was thinking about adding cells-gtk to clbuild, and we strongly prefer version-controlled methods like CVS/SVN/darcs/git over tarball downloads. Thanks, David

3 2

← Newer
1
...
16
17
18
19
20
21
22
...
57
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-devel