cells-devel

cells-devel@common-lisp.net

567 discussions

Start a nNew thread

[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

[cells-devel] Feed Blaster puts your ad right to the screens of millions in 15 Minutes !
by Feed＠common-lisp.net 14 Oct '07

14 Oct '07

1 0

[cells-devel] Interesting cells issue, synapses to the rescue
by Ken Tilton 11 Oct '07

11 Oct '07

Events are always a problem for a Cells-driven model, which being declarative is more of a steady-state paradigm: each cell rule is authored in the midset of "if the rest of the world is such and such, then I am so-and-so". What I have been seleing as a general solution to the event problem is: (c? (case (^event) (this (derive-this self)) (otherwise .cache))) ..where .cache is my current value. ie, as far as this rule is concerned, any event other than 'this means nothing to me and I wish I did not even have to worry about it. The problem I ran into is that my derive-this returned some other model instance, and as other events ignored by this rule transpired, that model instance ceased to be. So the slot in question now held a dead instance and returned it when the slot got queried. This happened in turn because models are cells-mediated and normally when the instance ceased to be some dependency would have kicked off the above rule and it would have returned nil or some new instance, but... ...when some event other than 'this came through, the rule ran and the cell ended up dependent only on the event cell. Rules depend only on the things they touched in their last invocation, and when some other event comes through the only cell touched is the event cell. uh-oh. What is needed is a cells-aware way of saying I /really/ do not want to know about other events, and that is the kind of thing I use synapses for. A synapse is like an flet or labels function, a cell internal to a rule. I have not bundled up the new synapse to look all clever so a lot of wiring shows but in the end it will just be something like: (c? (case (f-find (^event) '(this that)) (this ...) (that ...))) ...and the rule will fire only when the event is thos or that, meaning any/all dependencies established during the processing of this or that will stay around until another event this or that occurs. kt

1 0

[cells-devel] Post your ads where people read them!!!
by Feed＠common-lisp.net 24 Sep '07

24 Sep '07

1 0

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

22 Sep '07

1 0

← Newer
1
...
20
21
22
23
24
25
26
...
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