From Instant at common-lisp.net Sat Aug 4 23:57:26 2007 From: Instant at common-lisp.net (Instant at common-lisp.net) Date: 04 Aug 2007 16:57:26 -0700 Subject: [cells-devel] Get 1000's of Highly Targeted visitors to your web site or affiliate web site overnight Message-ID: <20070804165721.A40CD8C4F0555099@from.header.has.no.domain> An HTML attachment was scrubbed... URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: instantbooster.htm Type: application/octet-stream Size: 486 bytes Desc: not available URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: Unsubscribe email.txt Type: application/octet-stream Size: 25 bytes Desc: not available URL: From Hit-Booster at common-lisp.net Thu Aug 9 01:36:30 2007 From: Hit-Booster at common-lisp.net (Hit-Booster at common-lisp.net) Date: 08 Aug 2007 18:36:30 -0700 Subject: [cells-devel] No Matter what you are selling - Hit-Booster will send targeted visitors to your website! Message-ID: <20070808111756.B1FB4601A8@common-lisp.net> New Break-through Automation Technology WILL Pull in hordes of Within 15 minutes you will have your own website traffic generator that will bring in an ever increasing amount of hits to your websites! Automatically This software is perfect for bringing real traffic to your site... even if... it's an affiliate link where you have no control over the website content! Using my automated program I have developed, just insert your url... ...choose a category... ...have HIT-BOOSTER send thousands of targeted visitors to your site. Let me tell you what Hit-Booster can do for you ...Hit-Booster will start sending hits to your website instantly at $0 cost to you! ...No matter what you are selling or offering - HIT BOOSTER will pull in hordes of potential customers to your website or affiliate website! ...sets this up completely for you on Auto-Pilot! ...Use it for all of your websites - there is no limit . ...Receive my personal support and email address with your purchase so I can help you to succeed! ...your web site will quickly achieve Ultra High Link Popularity on the Major Search Engines ...you'll get 1000's of Highly Targeted visitors to your web site or affiliate web site overnight ...many are getting more Customers and Sales than they can handle For Full Details please download the attached .html file Unsubscribe Please read the attached .txt file -------------- next part -------------- A non-text attachment was scrubbed... Name: hitbooster.htm Type: application/octet-stream Size: 390 bytes Desc: not available URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: Unsubscribe email.txt Type: application/octet-stream Size: 25 bytes Desc: not available URL: From BlogBlaster at common-lisp.net Fri Aug 10 12:11:26 2007 From: BlogBlaster at common-lisp.net (BlogBlaster at common-lisp.net) Date: 10 Aug 2007 05:11:26 -0700 Subject: [cells-devel] How would you like 2 Million Sites linking to your ad ? Message-ID: <20070810051126.6350FC482666FD1B@from.header.has.no.domain> An HTML attachment was scrubbed... URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: blogblaster.htm Type: application/octet-stream Size: 441 bytes Desc: not available URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: Unsubscribe email.txt Type: application/octet-stream Size: 25 bytes Desc: not available URL: From Hit-Booster at common-lisp.net Mon Aug 13 13:42:15 2007 From: Hit-Booster at common-lisp.net (Hit-Booster at common-lisp.net) Date: 13 Aug 2007 06:42:15 -0700 Subject: [cells-devel] No Matter what you are selling - Hit-Booster will send targeted visitors to your website! Message-ID: <20070812232334.3BF377061@common-lisp.net> New Break-through Automation Technology WILL Pull in hordes of Within 15 minutes you will have your own website traffic generator that will bring in an ever increasing amount of hits to your websites! Automatically This software is perfect for bringing real traffic to your site... even if... it's an affiliate link where you have no control over the website content! Using my automated program I have developed, just insert your url... ...choose a category... ...have HIT-BOOSTER send thousands of targeted visitors to your site. Let me tell you what Hit-Booster can do for you ...Hit-Booster will start sending hits to your website instantly at $0 cost to you! ...No matter what you are selling or offering - HIT BOOSTER will pull in hordes of potential customers to your website or affiliate website! ...sets this up completely for you on Auto-Pilot! ...Use it for all of your websites - there is no limit . ...Receive my personal support and email address with your purchase so I can help you to succeed! ...your web site will quickly achieve Ultra High Link Popularity on the Major Search Engines ...you'll get 1000's of Highly Targeted visitors to your web site or affiliate web site overnight ...many are getting more Customers and Sales than they can handle For Full Details please download the attached .html file Unsubscribe Please read the attached .txt file -------------- next part -------------- A non-text attachment was scrubbed... Name: hitbooster.htm Type: application/octet-stream Size: 390 bytes Desc: not available URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: Unsubscribe email.txt Type: application/octet-stream Size: 25 bytes Desc: not available URL: From achambers.home at googlemail.com Fri Aug 17 14:06:56 2007 From: achambers.home at googlemail.com (Andy Chambers) Date: Fri, 17 Aug 2007 15:06:56 +0100 Subject: [cells-devel] restarting celtk Message-ID: Hi, When something goes wrong in a celtk program, how do you go about cleaning all the tcl stuff up and starting again? I tried doing (tk-format-now "exit") but that causes my slime to lose its connection with sbcl. I'm not sure whether this means that this action is causing sbcl itself to crash but that is a possibility. Is there some lisp function I can call to reset the tcl interface. Cheers, Andy From kennytilton at optonline.net Fri Aug 17 14:43:58 2007 From: kennytilton at optonline.net (Ken Tilton) Date: Fri, 17 Aug 2007 10:43:58 -0400 Subject: [cells-devel] restarting celtk In-Reply-To: References: Message-ID: <46C5B42E.8000101@optonline.net> Andy Chambers wrote: > Hi, > > When something goes wrong in a celtk program, how do you go about > cleaning all the tcl stuff up and starting again? I do not have a problem with Celtk as it stands (meaning "now that I have figured out the delicate choreography of messages arising when a TK window closes and setup Celtk internals to bow out gracefully"). So a specific error/situation/scenario needs to be delineated. > > I tried doing > > (tk-format-now "exit") The end of the world as we know it. That, in my case, would bring down the IDE as well, since my app and IDE run in one Lisp process. In the case of Emacs you "just" lose the entire Lisp session. > > but that causes my slime to lose its connection with sbcl. I'm not > sure whether this means that this action is causing sbcl itself to > crash but that is a possibility. Is there some lisp function I can > call to reset the tcl interface. Nothing special is needed. The window closes and the callback event handler eventually runs out of messages (or the tight loop polling for events exits -- forget the architecture because it has been years literally since I had to look at it. The question then becomes, "What goes wrong if you do /not/ call the TCL 'exit'?". Then we fix that. It might be a Slime thing requiring some new work, I never use that and even if I work in LW I am still in the same process. hth, kt From Instant at common-lisp.net Sat Aug 18 21:51:08 2007 From: Instant at common-lisp.net (Instant at common-lisp.net) Date: 18 Aug 2007 14:51:08 -0700 Subject: [cells-devel] Get 1000's of Highly Targeted visitors to your web site or affiliate web site overnight Message-ID: <20070818145108.B29CC14C32009C9C@from.header.has.no.domain> An HTML attachment was scrubbed... URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: instantbooster.htm Type: application/octet-stream Size: 486 bytes Desc: not available URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: Unsubscribe email.txt Type: application/octet-stream Size: 25 bytes Desc: not available URL: From achambers.home at googlemail.com Sat Aug 18 23:29:02 2007 From: achambers.home at googlemail.com (Andy Chambers) Date: Sun, 19 Aug 2007 00:29:02 +0100 Subject: [cells-devel] Where do you keep the models? Message-ID: Where should you keep the data in a celtk app. I tried doing the following... (defmodel app (window) ((my-model :initform nil :initarg :model :accessor my-model)) (:default-initargs :kids (c? (the-kids (mk-row (:packing (c?pack-self)) (mk-popup-menubutton :id :view-selector :initial-value (c? (first (^entry-values))) :entry-values (c? '(codelists items item-groups forms events))) (mk-text-widget :id :display :value (c? (if *odm* (case (selection (fm^ :view-selector)) (codelists (codelists *odm*)) (items (items *odm*)) (t (xml *odm*))))))))))) ...but I couldn't work out how to access my-model from the text widget's (c? ...). What you see above is what I changed it to in order to make it access the global *odm* variable which is elsewhere set to be a normal cells instance. Is there a way to keep it all in the app? I'd like to make it so that my-model is set by the result of a file-open dialog. Cheers, Andy From Instant at common-lisp.net Mon Aug 20 00:46:21 2007 From: Instant at common-lisp.net (Instant at common-lisp.net) Date: 19 Aug 2007 17:46:21 -0700 Subject: [cells-devel] Get 1000's of Highly Targeted visitors to your web site or affiliate web site overnight Message-ID: <20070819174620.59697A0677AA4BD0@from.header.has.no.domain> An HTML attachment was scrubbed... URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: InstantBooster.pdf Type: application/octet-stream Size: 2520 bytes Desc: not available URL: From kennytilton at optonline.net Sun Aug 19 15:00:14 2007 From: kennytilton at optonline.net (Ken Tilton) Date: Sun, 19 Aug 2007 11:00:14 -0400 Subject: [cells-devel] Where do you keep the models? In-Reply-To: References: Message-ID: <46C85AFE.1020807@optonline.net> Andy Chambers wrote: > Where should you keep the data in a celtk app. I tried doing the following... > > (defmodel app (window) > ((my-model :initform nil :initarg :model :accessor my-model)) > (:default-initargs > :kids (c? (the-kids > (mk-row (:packing (c?pack-self)) > (mk-popup-menubutton > :id :view-selector > :initial-value (c? (first (^entry-values))) > :entry-values (c? '(codelists items item-groups forms events))) > (mk-text-widget > :id :display > :value (c? (if *odm* > (case (selection (fm^ :view-selector)) > (codelists > (codelists *odm*)) > (items > (items *odm*)) > (t (xml *odm*))))))))))) > > > ...but I couldn't work out how to access my-model from the text > widget's (c? ...). As long as you are using my Family class you have a name/typespace to work with, meaning various utilities prefixed "fm-" which navigate parent/kids to find things by name or type. In your case, (my-model (upper self app)) or more succinctly since self is so common, (my-model (u^ app)). Poke around fm-utilities for more such. You can also search for things by name: (my-model (fm-other app)) If you do not want to use my Family class, just do something of your own which similarly effectively creates a namespace your own custom code is responsible for navigating. cheers, ken From MAILER-DAEMON at common-lisp.net Mon Aug 20 04:44:18 2007 From: MAILER-DAEMON at common-lisp.net (Mail Delivery Subsystem) Date: Mon, 20 Aug 2007 01:44:18 -0300 Subject: [cells-devel] Returned mail: see transcript for details Message-ID: <200708200444.l7K4iIZb023662@server.pratacargas.com.br> The original message was received at Mon, 20 Aug 2007 01:43:46 -0300 from [124.106.120.225] ----- The following addresses had permanent fatal errors ----- (reason: Can't create output) (reason: Can't create output) (reason: Can't create output) ----- Transcript of session follows ----- 550 5.0.0 ... Can't create output 550 5.0.0 ... Can't create output 550 5.0.0 ... Can't create output -------------- next part -------------- An embedded message was scrubbed... From: "Julia" Subject: maybe it's the best time Date: Mon, 20 Aug 2007 07:39:36 +0300 Size: 1718 URL: From BlogBlaster at common-lisp.net Wed Aug 22 04:15:29 2007 From: BlogBlaster at common-lisp.net (BlogBlaster at common-lisp.net) Date: 21 Aug 2007 21:15:29 -0700 Subject: [cells-devel] "How would you like to have your ad on 2 Million Websites ?" Message-ID: <20070821211529.33F60146E3C3A2E2@from.header.has.no.domain> An HTML attachment was scrubbed... URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: blogblaster.htm Type: application/octet-stream Size: 441 bytes Desc: not available URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: Unsubscribe email.txt Type: application/octet-stream Size: 25 bytes Desc: not available URL: From frgo at mac.com Wed Aug 29 19:35:05 2007 From: frgo at mac.com (Frank Goenninger) Date: Wed, 29 Aug 2007 21:35:05 +0200 Subject: [cells-devel] Problem with defmd and dependency ... Message-ID: Hi Kenny (and all on the list): I have a simple defmd: (defmd gnc-point () (x (c-in 0)) (y (c-in 0)) (z (c-in 0)) (foreign-ptr (c_? (let ((ptr (or (^foreign-ptr) (fgn-alloc 'glInt 3 :gnc-point)))) (when ptr (setf (eltgli ptr 0) (^x)) (setf (eltgli ptr 1) (^y)) (setf (eltgli ptr 2) (^z))) ptr)))) This is a model for a point ( x | y | z ) and a foreign object pointer. The pointer shall be set to a an FFI memory pointer (via CFFI) when the instance is created. Also, the elements of the memory array (which is 3 glInt, this being three OpenGL Integers) shall be updated when any of the coordinates x y z is changed... I get x, y, and z updated but the foreign-ptr remains NIL ... What am I doing wrong ??? Thx! Frank -------------- next part -------------- A non-text attachment was scrubbed... Name: PGP.sig Type: application/pgp-signature Size: 833 bytes Desc: not available URL: From frgo at mac.com Wed Aug 29 19:50:00 2007 From: frgo at mac.com (Frank Goenninger) Date: Wed, 29 Aug 2007 21:50:00 +0200 Subject: [cells-devel] Problem with defmd and dependency ... In-Reply-To: References: Message-ID: <832C4F2E-5538-42BE-931D-142EB0ADC8E9@mac.com> Correct problem case: I defined the foreign-ptr cell as lazy (as :until-asked) for a reason ... -> 0> 7612 calculating cell ~a appears in call stack: ~a dirty=0/ foreign-ptr/gnc-point0] dirty=0/foreign-ptr/gnc-point0] (dirty=0/foreign-ptr/gnc-point0]) ... landing in a (break) ... Ok. So I am basically looking for an idiom on how to avoid the circularity. I sense there is a simple solution but ... Oh my. It's been a long day ;-) Frank Am 29.08.2007 um 21:35 schrieb Frank Goenninger: > * PGP Signed: 08/29/07 at 21:35:14 > > Hi Kenny (and all on the list): > > I have a simple defmd: > > (defmd gnc-point () > (x (c-in 0)) > (y (c-in 0)) > (z (c-in 0)) > (foreign-ptr (c_? (let ((ptr (or (^foreign-ptr) (fgn-alloc 'glInt > 3 :gnc-point)))) > (when ptr > (setf (eltgli ptr 0) (^x)) > (setf (eltgli ptr 1) (^y)) > (setf (eltgli ptr 2) (^z))) > ptr)))) > > > This is a model for a point ( x | y | z ) and a foreign object > pointer. The pointer shall be set to a an FFI memory pointer (via > CFFI) when the instance is created. Also, the elements of the > memory array (which is 3 glInt, this being three OpenGL Integers) > shall be updated when any of the coordinates x y z is changed... > > I get x, y, and z updated but the foreign-ptr remains NIL ... What > am I doing wrong ??? > > Thx! > > Frank > > > * Frank Goenninger > * 0xED320F02:0x05AE0907 > _______________________________________________ > cells-devel site list > cells-devel at common-lisp.net > http://common-lisp.net/mailman/listinfo/cells-devel > > > * PGP Signed: 08/29/07 at 21:35:14 > * text/plain body > * Frank Goenninger > * 0xED320F02:0x05AE0907 -------------- next part -------------- A non-text attachment was scrubbed... Name: PGP.sig Type: application/pgp-signature Size: 833 bytes Desc: not available URL: From frgo at mac.com Wed Aug 29 20:16:03 2007 From: frgo at mac.com (Frank Goenninger) Date: Wed, 29 Aug 2007 22:16:03 +0200 Subject: [cells-devel] SOLVED: Problem with defmd and dependency ... In-Reply-To: <832C4F2E-5538-42BE-931D-142EB0ADC8E9@mac.com> References: <832C4F2E-5538-42BE-931D-142EB0ADC8E9@mac.com> Message-ID: <136E9D6D-E3D5-4D20-8633-EFA30672B393@mac.com> Solved: (defmd gnc-point () (x (c-in 0)) (y (c-in 0)) (z (c-in 0)) (foreign-ptr (c-in (fgn-alloc 'glInt 3 :gnc-point)))) (defobserver x ((self gnc-point)) (with-integrity (:change self) (let ((ptr (^foreign-ptr))) (if ptr (setf (eltgli ptr 0) (^x)) (error "OBSERVER X OF ~S: FOREIGN-PTR is NIL (Foreign memory not available)" self))))) (defobserver y ((self gnc-point)) (with-integrity (:change self) (let ((ptr (^foreign-ptr))) (if ptr (setf (eltgli ptr 1) (^y)) (error "OBSERVER Y OF ~S: FOREIGN-PTR is NIL (Foreign memory not available)" self))))) (defobserver z ((self gnc-point)) (with-integrity (:change self) (let ((ptr (^foreign-ptr))) (if ptr (setf (eltgli ptr 2) (^z)) (error "OBSERVER Z OF ~S: FOREIGN-PTR is NIL (Foreign memory not available)" self))))) ... A bit more complex but works ;-) Frank Am 29.08.2007 um 21:50 schrieb Frank Goenninger: > * PGP Signed: 08/29/07 at 21:50:08 > > Correct problem case: > > I defined the foreign-ptr cell as lazy (as :until-asked) for a > reason ... -> > > 0> 7612 calculating cell ~a appears in call stack: ~a dirty=0/ > foreign-ptr/gnc-point0] dirty=0/foreign-ptr/gnc-point0] > (dirty=0/foreign-ptr/gnc-point0]) > > ... landing in a (break) ... > > Ok. So I am basically looking for an idiom on how to avoid the > circularity. I sense there is a simple solution but ... > > Oh my. It's been a long day ;-) > > Frank > > > Am 29.08.2007 um 21:35 schrieb Frank Goenninger: > >> > Old Signed: 08/29/07 at 21:35:14 >> >> Hi Kenny (and all on the list): >> >> I have a simple defmd: >> >> (defmd gnc-point () >> (x (c-in 0)) >> (y (c-in 0)) >> (z (c-in 0)) >> (foreign-ptr (c_? (let ((ptr (or (^foreign-ptr) (fgn-alloc 'glInt >> 3 :gnc-point)))) >> (when ptr >> (setf (eltgli ptr 0) (^x)) >> (setf (eltgli ptr 1) (^y)) >> (setf (eltgli ptr 2) (^z))) >> ptr)))) >> >> >> This is a model for a point ( x | y | z ) and a foreign object >> pointer. The pointer shall be set to a an FFI memory pointer (via >> CFFI) when the instance is created. Also, the elements of the >> memory array (which is 3 glInt, this being three OpenGL Integers) >> shall be updated when any of the coordinates x y z is changed... >> >> I get x, y, and z updated but the foreign-ptr remains NIL ... >> What am I doing wrong ??? >> >> Thx! >> >> Frank >> >> >> * Frank Goenninger >> * 0xED320F02:0x05AE0907 >> _______________________________________________ >> cells-devel site list >> cells-devel at common-lisp.net >> http://common-lisp.net/mailman/listinfo/cells-devel >> >> >> > Old Signed: 08/29/07 at 21:35:14 >> * text/plain body >> * Frank Goenninger >> * 0xED320F02:0x05AE0907 > > > * Frank Goenninger > * 0xED320F02:0x05AE0907 > _______________________________________________ > cells-devel site list > cells-devel at common-lisp.net > http://common-lisp.net/mailman/listinfo/cells-devel > > > * PGP Signed: 08/29/07 at 21:50:08 > * text/plain body > * Frank Goenninger > * 0xED320F02:0x05AE0907 -------------- next part -------------- A non-text attachment was scrubbed... Name: PGP.sig Type: application/pgp-signature Size: 833 bytes Desc: not available URL: From kennytilton at optonline.net Thu Aug 30 13:03:45 2007 From: kennytilton at optonline.net (Ken Tilton) Date: Thu, 30 Aug 2007 09:03:45 -0400 Subject: [cells-devel] Problem with defmd and dependency ... In-Reply-To: References: Message-ID: <46D6C031.5080501@optonline.net> Frank Goenninger wrote: > Hi Kenny (and all on the list): > > I have a simple defmd: > > (defmd gnc-point () > (x (c-in 0)) > (y (c-in 0)) > (z (c-in 0)) > (foreign-ptr (c_? (let ((ptr (or (^foreign-ptr) (fgn-alloc 'glInt 3 > :gnc-point)))) > (when ptr > (setf (eltgli ptr 0) (^x)) > (setf (eltgli ptr 1) (^y)) > (setf (eltgli ptr 2) (^z))) > ptr)))) > > > This is a model for a point ( x | y | z ) and a foreign object pointer. > The pointer shall be set to a an FFI memory pointer (via CFFI) when the > instance is created. Also, the elements of the memory array (which is 3 > glInt, this being three OpenGL Integers) shall be updated when any of > the coordinates x y z is changed... > > I get x, y, and z updated but the foreign-ptr remains NIL ... What am > I doing wrong ??? Sorry, I was out for the day at the US Open Tennis tournament. I am just going to throw notes over the wall cuz no time to dig... Cells debugging issue: pretty sure you can turn on some global such as *c-debug* to have been warned earlier about referencing the cell in its own rule. I might even have made it a parameter to cells-reset. To do what you are trying to do, use (I think) the .cache symbol-macro (or is it .cache.?): (or .cache. (let ((ptr )) (assert (and (^x)(^y)(^z))) (setf eo x e1 y e2 z))) Something like that. hth, kt From kennytilton at optonline.net Thu Aug 30 13:10:03 2007 From: kennytilton at optonline.net (Ken Tilton) Date: Thu, 30 Aug 2007 09:10:03 -0400 Subject: [cells-devel] Problem with defmd and dependency ... In-Reply-To: <832C4F2E-5538-42BE-931D-142EB0ADC8E9@mac.com> References: <832C4F2E-5538-42BE-931D-142EB0ADC8E9@mac.com> Message-ID: <46D6C1AB.80602@optonline.net> Frank Goenninger wrote: > Correct problem case: > > I defined the foreign-ptr cell as lazy (as :until-asked) for a reason > ... -> Lazy is one good step if you have confidence a slot will not get read (asked) until its dependencies will be in place. > > 0> 7612 calculating cell ~a appears in call stack: ~a dirty=0/ > foreign-ptr/gnc-point0] dirty=0/foreign-ptr/gnc-point0] > (dirty=0/foreign-ptr/gnc-point0]) > > ... landing in a (break) ... > > Ok. So I am basically looking for an idiom on how to avoid the > circularity. I sense there is a simple solution .cache or .cache., I forget. :) kt