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

Re: [cells-devel] Currently focused window
by Kenneth Tilton 12 Jul '09

12 Jul '09

Andy, Please search on :motionnotify. I see an example in the gears demo. I know that is OpenGL but I am pretty sure all the code you see in there in re event handling is generic to Tk, nothing about OpenGl. The nise thing about Tk via FFI is the control one gets from low-level access to the event stream. There are rare cases where I feel Tk did not expose enough via an API -- I remember vaguely something about key events, forcing me to code up a virtual event handler -- but as a rule the Tcl/Tk world is your oyster with an FFI based interface. Gotta run or I would offer more deets. kt Andy Chambers wrote: > On Sat, Jul 11, 2009 at 4:35 PM, Kenneth Tilton<kentilton(a)gmail.com> wrote: >> >> Andy Chambers wrote: >>> Hi, >>> >>> How would you get the currently focused window in celtk? (I'm trying >>> to write a help bubble >>> that pops up when someone pauses the mouse over a widget for a wee while). >> I do a lot of that, but... you are using vanilla Celtk, including Tk >> widgets? By currently focused window you mean... what, the Tk idea of the >> current widget? Or the Celtk idea thereof? Or did you mean the toplevel >> window? Or... > > Here's the context... > > (defmd root (window) > :kids (c? (the-kids > (mk-stack (:packing (c?pack-self)) > (mk-ui :aeyn) > (mk-ui :aeterm) > (mk-ui :aestdat)) > (mk-canvas > :height 200 > :background "#ffff99" > :kids (c? (the-kids > (mk-text-item > :coords (list 10 10) > :text "Help Text"))) > :parent-x 10 > :parent-y 20)))) > > mk-ui is a little utility I have that goes off to look for a "field" > definition and > knows how to convert that field into celtk objects. Currently, the canvas > slots are hard-coded but I'd like the position, size, and contents of this > object to change based on where the mouse is. So to answer your question, > I think it's Celtk's idea of the current widget that I need. > > The way I thought of doing it originally was to add a tk <<Pause>> event > and wait for that in the root window. The tcl attached below does this so > maybe it's just a case of adding this when the window first starts up. I > just wondered if there was a better way of doing it purely in celtk land. > > #!/usr/bin/env wish -f > > global items # For want of a better name > > # I chose Circulate because this is never generated by Tk itself > # and I only want to trigger these events myself because Tk doesn't > # know when to do it. > event add <<Pause>> <Circulate> > > bind all <Enter> { > global items > set id [ after 500 { event generate "%W" <<Pause>> } ] > set items("%W") $id > } > > bind all <Leave> { > global items > after cancel $items("%W") > unset items("%W") > } > > bind . <<Pause>> { > puts "A wee pause just happened on %W..." > } > > > > > > ------------------------------------------------------------------------ > > > No virus found in this incoming message. > Checked by AVG - www.avg.com > Version: 8.5.375 / Virus Database: 270.13.10/2231 - Release Date: 07/11/09 05:57:00 >

3 2

[cells-devel] Currently focused window
by Andy Chambers 11 Jul '09

11 Jul '09

Hi, How would you get the currently focused window in celtk? (I'm trying to write a help bubble that pops up when someone pauses the mouse over a widget for a wee while). Cheers, Andy -- ---- Andy Chambers Formedix Ltd

1 0

Re: [cells-devel] [cello-devel] Where can I see the screenshots and obtain a copy of Cello?
by Kenneth Tilton 10 Jul '09

10 Jul '09

The only thing I ever do any more is commit my latest source back to CVS. Frank Goenninger had a Cello make-over project going but I am not sure he released anything (or got far enough to do so or something). Web access: http://common-lisp.net/cgi-bin/viewcvs.cgi/?root=cello You can use CVS or just grab the tarball. I have been astonished by reports of people managaing to get the whole thing working unaided, so it is not impossible, just close to it. Not that you would be unaided, just ask and we happy few Cellists will help. I'll look around to see if I can find those screenshots. kt Adam Olsen wrote: > Hi, > > I'd like to use Cello, but unfortunately the FTP url mentioned on the > homepage leads to an empty directory > (ftp://common-lisp.net/pub/project/cello/) > > Can anyone help me out here? > > > > ------------------------------------------------------------------------ > > > No virus found in this incoming message. > Checked by AVG - www.avg.com > Version: 8.5.375 / Virus Database: 270.13.8/2227 - Release Date: 07/09/09 05:55:00 >

2 1

Re: [cells-devel] make-instance, initarg, c-in
by Bastian Müller 04 Jul '09

04 Jul '09

Ramarren schrieb: Hi, > It doesn't work because it was a bad idea anyway... I didn't pay > attention to the fact, that by the time an after method on > shared-initialize fires the model is already initiated into the cells > framework, so any changes at that point are too late. Fortunately it > is easy enough to get around with the power of CLOS: > > Again, I did not test this much, but it seems to work, especially > since it doesn't really touch anything inside Cells. I still think it > is not a very good idea, for reasons Kenny specified earlier. I tried it and after adding cells::model-object to the superclasses of the class that is using auto-cin-model everything worked very well. Thanks! I still don't get why it's a bad idea - it seems pretty handy. The user of the library won't have to care to provide c-in wrapped values as initargs, he doesn't need to care for the internals. I put the test in a gist on github: http://gist.github.com/140709 > As an aside, if it is not just amazing username coincidence, judging > by this paste http://paste.lisp.org/display/59172/ You tried to create > bindings for Clutter. If so, You might be interested in my attempt at > http://github.com/Ramarren/cffi-clutter/tree/master , which more or > less works, for some very low values of "works". Shows a moving > rectangle, anyway. Unfortunately, faced with the facts that moving > forward would require understanding enough of GObject to subclass its > objects and that I don't really need it that much, it is unlikely to > progress much further. Yeah, I tried to get a clutter binding, but unfortunately hadn't very much luck with it. I looked around and found your bindings on github and follow it, but didn't try it yet, because of lack of time and I'm not as far with my stuff to use it yet, but I'll sure do so. Thanks for the hint. kind regards, Bastian

2 1

[cells-devel] make-instance, initarg, c-in
by Bastian Müller 01 Jul '09

01 Jul '09

Hi, I'm currently using cells and it works very well, except one thing seems a little unhandy: When defining a model it's possible to use (c-in ..) as an initform to define a slot as a cell, but when instantiating a class you have to supply (c-in ...) instead the normal value, eg. (defmodel x () ((y :accessor y :initarg :y :initform (c-in nil)) ...)) (let ((test (make-instance 'x :y (c-in 1)))) (setf (y test) 2)) works, but instead sth like (let ((test (make-instance 'x :y 1))) (setf (y test) 2)) would be nice. I tried it with (defmethod initialize-instance ((self x) &rest rest) (loop for slot in rest by #'cddr do (let ((value (getf rest slot)) (name (intern (symbol-name slot)))) (setf (slot-value self name) (c-in value))))) but I just get: The slot CELLS::.CELLS is unbound in the object #<X {10032D5FC1}>. [Condition of type UNBOUND-SLOT] Is there any way to get this behavior? kind regards, Bastian

3 3

Re: [cells-devel] Cells & Clozure CL
by Kenneth Tilton 30 Jun '09

30 Jun '09

[I have taken the liberty of CCing cells-devel because it might be useful in the archive.] Neil Baylis wrote: > This cells.. is a good thing. Do you want to incorporate the changes I > made to make it work under Clozure CL? Nah, I am not really doing o/s any more. Thx, tho. > >>From what I've seen so far, it looks as though it fits with my > project, which is some kind of geometry/art tool for exploring > tilings, tessellations, symmetries, etc. > > The graphic objects will mainly be triangles and squares, and I'm > still figuring out how I want to model them. > > Take triangles: At first glance, it looks as though I would model a > triangle with a cell. I would have some way to initialize it, and then > slots to return attributes. E.g. if I specifed 3 sides, there would be > slots that returned the angles (lazily). Another slot might return the > area. That much I understand. > > But there are more ways to create a triangle. I could specify 3 sides, > or 2 sides and an angle, etc. I could also say "make it similar to > that triangle over there, but the same size as that square over there, > etc. So, it seems to me that each of those cases would require a > different defmodel, because they would have different initforms. Is > that right? No. One of the most powerful features of Cells is an accident: OO works now, because two instances of the same class can have different rules (or a non-rule literal or an input cell allowing conventional procedural code to alter a slot) for the same slot. This means more reuse for a class, because normally the variation you describe requires one to forever be creating new classes. The only question is whether you go crazy and have just one class (say, polygon) or strike a middle ground and have classes for triangle, quadrangle, etc. I guess it comes down to how much you want to get out of method specialization, which obviously calls for a different instance type. That said, I often create a class (a defmodel) just as a way of bundling up a bunch of rules. ie, They can as well be functions or macros with a make-instance 'polygon inside. I guess for debugging and inspecting specifically a different class can be of use. You prolly do want a defmodel triangle, but going for isosceles might be a point of dimishing return. > > Anyway, assume I have that sorted out. Then, I'll create a bunch of > instances of these classes. I'd start by putting one of them in the > middle of the canvas. Then attach others to it, as dependents.So, if I > then change a dimension on the original object, that change would have > to propagate to all the dependent objects so they resize themselves. > That part sounds like cells to me. > > The relationships will all be about geometry: coincident points, equal > angles, similar figures, parallel lines, intersections, etc. "This > triangle is rotated 45 degrees further than that one over there". And > so on. Maybe circles as well, tangents, secants, etc. That's a lot of > stuff right there. > > I've attached an image of the kind of thing I want to do. This one I > created in Inkscape, but the UI there is somewhat horrid and it's easy > for cumulative errors to creep in. But that was built up entirely from > small squares and triangles. It's a reproduction of a tile pattern I > saw in Sydney Australia when I went there earlier this year. Nice. > > I was thinking I wanted a full blown geometric constraint solver, but > I'm hoping that I don't need that. It's a lot of math and other > theory I want to avoid learning at the moment. Cells looks like it > might do the trick. I need to get more familiar with it though. Not sure where you need a solver, unless the idea is that you hope to specify just a few parameters and let a solver figure out a pattern that "works". Cells is not about that -- we specify all the rules and the Cells engine just sees to it that the rules run. If you need something non-deterministic I would use Screamer+ to work out the hard stuff and have cell rules mine the screamer results. > > > I also had a probably dumbass newbie question: Whenever I eval a > (defmodel..) I get compiler errors, such as: > > CELLS> (defmodel hello-cells () > ((num :accessor num :initarg :num :initform (c-in 0)) > (square-num :accessor square-num > :initform (c? (* (num self) (num self)))))) > ;Compiler warnings : > ; In an anonymous lambda form inside an anonymous lambda form inside > an anonymous lambda form: Undefined function NUM > ; In an anonymous lambda form inside an anonymous lambda form inside > an anonymous lambda form: Undefined function NUM > NIL > CELLS> > > I imagine there's some delcaration I need to invoke to make that not > happen. Any ideas? I actually see that from time to time, but rarely. There must be something wrong with my eval-whens internal to defmodel. You won't see those on subsequent iterations, so ignore them (or go crazy and debug defmodel). cheers, ken

3 2

[cells-devel] Cells & Clozure CL
by Neil Baylis 30 Jun '09

30 Jun '09

I guess I have to assume nobody is using Cells with CCL. I'm attempting to get it to work, but am a little out of my depth. To begin with, I had to add a couple of conditionals for ccl to get past initial errors. Then: ,load-system cells There is no package named "EXCL" . [Condition of type CCL::NO-SUCH-PACKAGE] I don't know what EXCL is, but I'm offered a restart to treat it as a nickname for "COMMON-LISP-USER", so I choose that: Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/Users/neil/.asdf-install-dir/site/cells/utils-kt/..."/7 ISO-8859-1) #x8D1F7CE>, near position 921, within " (mop::class-prot": Reference to unknown package "MOP". [Condition of type CCL::SIMPLE-READER-ERROR] <The above error is referring to line 36 of detritus.lisp> Any advice about how to proceed would be welcomed. I think I ought to begin by resolving the EXCL issue, but haven't had much luck finding such a package. Thanks, Neil Baylis []

2 2

[cells-devel] First time for me: Currrent DP not GE pulse x .... ?!?
by Frank Goenninger 29 Jun '09

29 Jun '09

Hi all Cells-users: It is the first time I get a Current DP 1 not GE pulse 4 of cell (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL> [Condition of type SIMPLE-ERROR] error. This code throws the error: (defun c-pulse-update (c key) (declare (ignorable key)) (unless (find key '(:valid-uninfluenced)) (trc nil "!!!!!!! c-pulse-update updating !!!!!!!!!!" *data-pulse- id* c key :prior-pulse (c-pulse c))) (assert (>= *data-pulse-id* (c-pulse c)) () "Current DP ~a not GE pulse ~a of cell ~a" *data-pulse-id* (c- pulse c) c) (setf (c-pulse c) *data-pulse-id*)) Backtrace: 0: (ERROR "Current DP ~a not GE pulse ~a of cell ~a" 1 4 (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL>) 1: (CELLS::C-PULSE-UPDATE (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL> :VALID-UNINFLUENCED) Locals: CELLS::C = (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL> CELLS::KEY = :VALID-UNINFLUENCED CELLS::C = (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL> #:|g38499| = #(0 NIL ..) 2: (CELLS::ENSURE-VALUE-IS-CURRENT (NIL . <vld>)<4:A ASCENDER/ HELVETICA = NIL> :C-READ NIL) 3: ((:INTERNAL CELLS::CELL-READ 0) NIL NIL) 4: (CELLS::CALL-WITH-INTEGRITY NIL NIL #<Closure (:INTERNAL CELLS::CELL-READ 0) @ #x10e6b8da> NIL) 5: (CELLS::CELL-READ (NIL . <vld>)<4:A ASCENDER/HELVETICA = NIL>) 6: (CELLS::MD-SLOT-VALUE HELVETICA CNX::ASCENDER) 7: ((METHOD CNX::ASCENDER (CNX::CELLO-FONT)) HELVETICA) 8: ((METHOD CNX::FONT-ASCENDER (CNX::CELLO-CONTROL)) FRGO-TEXT-1) Locals: CELLS:SELF = FRGO-TEXT-1 9: ((:INTERNAL (MOP:CLASS-DEFAULT-INITARGS CNX::CNX-TEXT :LT) 0) dirty<0:A LT/FRGO-TEXT-1 = NIL>) 10: (CELLS::CALCULATE-AND-LINK dirty<0:A LT/FRGO-TEXT-1 = NIL>) 11: ((FLET CELLS::CALCULATE-AND-SET CELLS::BODY)) 12: (CELLS::CALCULATE-AND-SET dirty<0:A LT/FRGO-TEXT-1 = NIL> :FN- AWAKEN-CELL NIL) 13: ((METHOD CELLS::AWAKEN-CELL (CELLS::C-RULED)) dirty<0:A LT/FRGO- TEXT-1 = NIL>) 14: ((METHOD CELLS:MD-AWAKEN (CELLS::MODEL-OBJECT)) FRGO-TEXT-1) 15: ((METHOD CELLS:MD-AWAKEN :AROUND (CELLS::MODEL-OBJECT)) FRGO- TEXT-1) 16: ((:INTERNAL (:EFFECTIVE-METHOD 1 NIL NIL T T) 0) FRGO-TEXT-1) 17: ((:INTERNAL (:INTERNAL (METHOD SHARED-INITIALIZE :AFTER #) 0) 0) :AWAKEN FRGO-TEXT-1) 18: (CELLS::JUST-DO-IT :AWAKEN) 19: (CELLS::FINISH-BUSINESS) 20: ((FLET CELLS::CALL-WITH-INTEGRITY CELLS::GO-GO)) 21: (CELLS::CALL-WITH-INTEGRITY NIL NIL #<Closure (:INTERNAL CTK:: %RUN-WINDOW 0) [CELLO-NX-TEST-MAIN-WINDOW] @ #x10dd0fea> NIL) 22: (CTK::%RUN-WINDOW) 23: (CTK::%DO-RUN-WINDOW) 24: (CTK:RUN-WINDOW CNX-TEST::CELLO-NX-TEST-MAIN-WINDOW) 25: (CNX-TEST:TEST-MAIN) Now - questions I have are: What does :valid-uninfluenced actually mean? Is the code above correct or should the assertion be inside the (unless ...) form? What is the logic behind? Thanks for helping ... Cheers Frank -- Frank Goenninger Cell: +49 175 4321058 E-Mail: frgo(a)me.com

2 4

[cells-devel] Cells & Clozure CL
by Neil Baylis 25 Jun '09

25 Jun '09

Hello, I'm wanting to look at cells for a new project I'm into, which will be using Clozure CL on Mac. Has anyone got cells working with Clozure CL and could provide me with pointers? (I want to use the Cocoa bridge, so SBCL will not work for me). Thanks, Neil Baylis -- http://www.pixpopuli.com

1 0

[cells-devel] Which cellsy lisp GUI?
by Tiarnan O'Corrain 24 Jun '09

24 Jun '09

Hi-- a question for the cognoscenti: which of the various Cells-based GUI toolkits is the easiest to pick up and use on an experimental project? I know there's a Cells/GTK mix, a Cell/Tk one which was getting a lot of discussion some time ago, and the sunlit uplands of Cello. Any recommendations? I have a simple GUI client in mind, nothing too fancy. regards Tiarnan -- difficile est saturam non scribere

4 7