October 2007 - cells-devel - mailman3.common-lisp.net

[cells-devel] porting to cells3
by Andy Chambers 06 Nov '07

06 Nov '07

On 10/29/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > > I think you cannot "upgrade" Cells-Gtk, I think you have to make a giant > leap for guikind and call it Cells-Gtk3 (or 4, I actually forget if I am > at Cells3 or 4, the good thing being I do not think about Cells anymore > (tho every 4-8 months I run into a solid bug (another reason to, um, > upgrade))). Cells-Gtk3 will be an interestingly big job since I /think/ > you will be getting into a user-queue handler that knows about Gtk, but > as did Cells-Gtk Classic you can start by mimicking Celtk. I knew it wouldn't just be a case of moving the asd files around but perhaps I was still underestimating the task. Here's the problems I've come accross so far. 1) def-c-output seems to be called defobserver now. Is there any semantic differences between the two? 2) make-instance 'family now requires an :fm-parent My approach until now has been to update the cells that cells-gtk uses, then load-system, fix errors, load-system.... I'm just communicating this in case it elicits a nugget of insight from someone that might have attempted a similar task before. Cheers, Andy

2 1

[cells-devel] Re: [cells-gtk-devel] Re: Hacking the gtk-ffi
by Ken Tilton 29 Oct '07

29 Oct '07

Andy Chambers wrote: > On 10/29/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > >>Andy Chambers wrote: >> >>>On 10/29/07, Andy Chambers <achambers.home(a)googlemail.com> wrote: > > >>>OK. I think I know why its not working. The ffi call never gets made >>>because cells only uses it if either the new or old value is not nil. >> >>Properties are propagated from the Lisp model to Gtk by "observers" on a >>slot. Celtk and Cells-Gtk generate these observers as part of the >>macroexpansion of the def<i forget> macro to which it seems you >>correctly added the slot. It should not matter that the value (as you >>imply) never changes, because Cells understands that an initial >>propagation is necessary so observers and observed start out in synch. >> >>You can check that you see an observer in the macroexpansion, then that >>that is being called. If not, I would have a concern that Cells-Gtk has >>not been upgraded to use the latest version of Cells, because I have a >>faint recollection that possibly older versions do not propagate a nil >>initial value. I would be shocked if it did not propagate a non-nil >>value, so one thing you might try as a sanity check is to specify a >>non-nil just to see if anything fires. > > > The observer is being created in the macro-expansion. That's how I knew to > add the ffi definition (how cool is it that the software knew what function it > needed to call before I did :-)). > > My immediate problem is fixed by overriding the generated observer to always > propagate the value so I think you're spot on about cells-gtk not > using the latest cells but I'm starting to have some fun now and feel > a lot more confident about trying to upgrade. You mean upgrade Cells-Gtk to the latest Cells? Interestingly, one of the things I did in later versions was first to handle propagation by posting tasks to a fifo queue (so we do not go recursively deeper on propagation, which can make debugging harder) and then to allow specification of a user handler for processing the queue. I did the latter because Tk (not Gtk) can be a little sensitive to the order in which things happen and a user queue handler allows me to tag all messages to Tk with some keyword or other which then gets used by the queue handler to order tasks to kep Tk happy. I do not know if Cells-Gtk has the same issues, or if they reach the application user of Cells-Gtk itself, but there it is. The latest Cells also put the whole thing on a much solider foundation correctness-wise, at the expense of a little loss in transparency. The "correctness gap" was interesting in how few problems it caused, but I always knew the gap was there and when I undertook RoboCup that application definitely broke for those reasons, so Cells got fixed. I think you cannot "upgrade" Cells-Gtk, I think you have to make a giant leap for guikind and call it Cells-Gtk3 (or 4, I actually forget if I am at Cells3 or 4, the good thing being I do not think about Cells anymore (tho every 4-8 months I run into a solid bug (another reason to, um, upgrade))). Cells-Gtk3 will be an interestingly big job since I /think/ you will be getting into a user-queue handler that knows about Gtk, but as did Cells-Gtk Classic you can start by mimicking Celtk. kt

1 0

[cells-devel] "How would you like to have your ad on 2 Million Websites ?"
by BlogBlaster＠common-lisp.net 29 Oct '07

29 Oct '07

1 0

[cells-devel] Hacking the gtk-ffi
by Andy Chambers 29 Oct '07

29 Oct '07

Hi, What are all the things you need to do to add support for a property on a widget. I'm trying to add the "headers-visible" property to the tree-view widget. Here is what I did.... - added the symbol headers-visible to the gtk-slots list in the widget specfication - added the form below to "def-gtk-lib-functions" - made an app with a listbox using that option (gtk-tree-view-set-headers-visible :void ((tree-view :pointer) (visible :gtk-boolean))) I ran the app with debug on but didn't see any calls to the c function. Is there something else you need to do? Any general tips on debugging cells/gtk apps are also welcome. Cheers, Andy

2 2

[cells-devel] How to get free quality visitors to your website?
by Hit-Booster＠common-lisp.net 27 Oct '07

27 Oct '07

1 0

[cells-devel] multiselect listbox
by Andy Chambers 26 Oct '07

26 Oct '07

Hi, I tried to hack at the scrolled-list definition to make it support multi-select lists but it didn't seem to work. Is there something else you have to change to get this working? (deftk scrolled-list (row-mixin frame-selector) ((list-item-keys :initarg :list-item-keys :accessor list-item-keys :initform nil) (list-item-factory :initarg :list-item-factory :accessor list-item-factory :initform nil) (list-height :initarg :list-height :accessor list-height :initform nil) (selectmode :initarg :selectmode :accessor selectmode :initform nil)) (:default-initargs :list-height (c? (max 1 (length (^list-item-keys)))) :kids-packing nil :kids (c? (the-kids (mk-listbox :id :list-me :kids (c? (the-kids (mapcar (list-item-factory .parent) (list-item-keys .parent)))) --> :selectmode (c? (selectmode .parent)) <-- :tkfont '(courier 9) :state (c? (if (enabled .parent) 'normal 'disabled)) :takefocus (c? (if (enabled .parent) 1 0)) :height (c? (list-height .parent)) :packing (c? (format nil "pack ~a -side left -fill both -expand 1" (^path))) :yscrollcommand (c? (when (enabled .parent) (format nil "~a set" (path (nsib)))))) (mk-scrollbar :id :vscroll :packing (c?pack-self "-side right -fill y") :command (c? (format nil "~a yview" (path (psib))))))))) Cheers, Andy

1 0

[cells-devel] How to get free quality visitors to your website?
by Hit-Booster＠common-lisp.net 25 Oct '07

25 Oct '07

1 0

[cells-devel] How would you like an extra $500 - $1000 a week with 15 minutes of your time ?
by Income＠common-lisp.net 21 Oct '07

21 Oct '07

1 0

[cells-devel] Can you afford to lose 300, 000 potential customers per year ?
by Instant＠common-lisp.net 18 Oct '07

18 Oct '07

1 0

[cells-devel] PATCH: cells_2.0 clisp support tweak
by Martin Dengler 16 Oct '07

16 Oct '07

Hi, I'm using clisp 2.41[1] and had to comment out three lines of (seems like now-unnecessary) code to get cells to asdf-install:install; here is a patch against the released version (the CVS repo links on the cells website are broken, and I couldn't guess any valid ones). It's tiny, so probably has already been fixed better in CVS, but JIC/FWIW: --- detritus.lisp~ 2005-05-02 20:37:22.000000000 +0100 +++ detritus.lisp 2007-10-16 05:39:00.000000000 +0100 @@ -26,9 +26,9 @@ `(let ((*dbg* t)) ,@body)) -#+clisp -(defun slot-definition-name (slot) - (clos::slotdef-name slot)) +;#+clisp +;(defun slot-definition-name (slot) +; (clos::slotdef-name slot)) ;;;(defmethod class-slot-named ((classname symbol) slotname) ;;; (class-slot-named (find-class classname) slotname)) --- defpackage.lisp~ 2005-05-02 20:36:31.000000000 +0100 +++ defpackage.lisp 2007-10-16 05:39:06.000000000 +0100 @@ -41,6 +41,6 @@ #:make-fifo-queue #:fifo-add #:fifo-empty #:fifo-pop #:mapfifo #-mcl #:true - #+clisp #:slot-definition-name +; #+clisp #:slot-definition-name #+(and mcl (not openmcl-partial-mop)) #:class-slots )) Martin PS - For the record, I also had the problem mentioned here: http://www.interactivecode.com/googles-summer-code-17/cells-under-lispworks… with asdf-install. I can install cl-ppcre and some other packages fine, but not cells. asdf-install isn't putting the symlink to the .asd file in the correct directory, so I'm having to add the cells_2.0 download directory to *central-registry* explicitly. 1. Full version info for clisp: $ /usr/bin/clisp --version GNU CLISP 2.41 (2006-10-13) (built on hammer3.fedora.redhat.com) Software: GNU C 4.1.1 20061011 (Red Hat 4.1.1-30) gcc -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -O -DUNICODE -DDYNAMIC_FFI -I. -x none libcharset.a libavcall.a libcallback.a /usr/lib64/libreadline.so -Wl,-rpath -Wl,/usr/lib64 -ltermcap -ldl -L/usr/lib64 -lsigsegv -R/usr/lib64 -L/usr/lib64 SAFETY=0 TYPECODES WIDE GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY libsigsegv 2.4 libreadline 5.1 Features: (READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 UNIX) C Modules: (clisp i18n syscalls regexp readline) Installation directory: /usr/lib64/clisp/ User language: ENGLISH Machine: X86_64 (X86_64) cree.xades.com [127.0.0.1]

1 0