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

Re: [cells-devel] Celtk: Button as kid of a canvas ...
by Ken Tilton 31 Dec '06

31 Dec '06

Frank Goenninger wrote: > > Hm - I think it's actually a problem of Celtk - it (oh, I shouldn't > use "it" - it's not Lispy enough ;-) not being complete in terms of > providing a Window as a container for arbitrary objects in a canvas. I saw that capability (widget in canvas) mentioned, just never had occasion to use it so it never got Celtk-ized. And at this point you may really have to fork Celtk to take it forward in re use of Tk widgets since I am concentrating on Cello for widgets. Maybe pick a new name and start a c-l.net project? > > ACL 8.0 - on Mac. Sh*t - this is a case where Slime really sucks. And > Franz, too: I've been asking for the full IDE on OS X for years now! <g> Given the number of Powerbooks I see at Lisp conferences, they might be missing an opportunity. But, hey, stop whining, how hard would it be to whip up a find-definitions dialog using Celtk? I once did a killer inspector using Cello. Do the classic incremental thing, just get ACL to pop up a list of definitions using as much standard mop as possible. Costanza has done some work on a portable MOP, maybe contrib to that as you go (since moppery will be needed to replicate the ACL IDE). Needless to say, a Slime-killer is something I would love to do just to piss off the Yobbos, and if I end up switching to LW for enough work it might just happen. Not yet, tho. kt kt

2 1

Re: [cells-devel] Celtk: Button as kid of a canvas ...
by Frank Goenninger 31 Dec '06

31 Dec '06

Thanks, Thomas. That did the trick. Frank Am 29.12.2006 um 14:16 schrieb Thomas F. Burdick: > In Ltk, you'd do this by creating a canvas-window item on the canvas, > then packing your button into that. So the button is a child of a > child of the canvas. I'm guessing you can achieve the same effect in > Celtk by making a canvas-window in the kids of the canvas, and your > button in its kids. > > On 12/28/06, Frank Goenninger <frgo(a)mac.com> wrote: >> Hi all: >> >> being too lazy for searching in the code of Celtk I wonder if there >> is a way to have a button as a kid of a canvas - same of for an entry >> widget ... >> >> I figure that the kid would be configured differently compared to >> being a kid of a frame... >> >> Anyone done that before? >> >> Thx for any pointers... >> >> Best wishes - Frank >> >> _______________________________________________ >> cells-devel site list >> cells-devel(a)common-lisp.net >> http://common-lisp.net/mailman/listinfo/cells-devel >>

2 2

[cells-devel] Re: Celtk: Button as kid of a canvas ...
by Thomas F. Burdick 31 Dec '06

31 Dec '06

On 12/31/06, Ken Tilton <kentilton(a)gmail.com> wrote: > > Am 29.12.2006 um 14:16 schrieb Thomas F. Burdick: > > > >> In Ltk, you'd do this by creating a canvas-window item on the canvas, > >> then packing your button into that. So the button is a child of a > >> child of the canvas. I'm guessing you can achieve the same effect in > >> Celtk by making a canvas-window in the kids of the canvas, and your > >> button in its kids. > > Weird, right? Is this a Tk issue? A Cells issue? An issue arising out of > the Lisp API to Tk? Follow the bouncing API.... It's a Tk thing -- canvasses are their own weird little world where you manually place canvas-items instead of letting a layout manager place widgets. canvas-windows just bridge the gap. You could automatically make the canvas-window if you try to place a widget in a canvas, but it seems like it might just make things uglier.

1 0

[cells-devel] Celtk: Why can I place a label but not a rectangle with :parent-x and :parent-y ?
by Frank Goenninger 30 Dec '06

30 Dec '06

Hi all you Celtk users: In my quest to design a beautiful GUI for my app I try to place my widgets in the app window. Therefore I try the following (part of Celtk-based code): (defmodel app-window (window) () (:default-initargs :width (c-in 1000) :height (c-in 600) :kids (c? (the-kids (mk-rectangle :tk-fill "grey" :height 100 :width 200 :parent-y 100 :parent-x 100))))) ... which results in an error saying :PARENT-Y :PARENT-X :HEIGHT are invalid initargs to make-instance of class #<STANDARD-CLASS CTK:RECTANGLE>. The valid initargs are :DISABLEDWIDTH :ACTIVEWIDTH :WIDTH :TAGS :STATE :DISABLEDSTIPPLE :ACTIVESTIPPLE :STIPPLE :DISABLEDOUTLINESTIPPLE :ACTIVEOUTLINESTIPPLE :OUTLINESTIPPLE :DISABLEDOUTLINE :ACTIVEOUTLINE :OUTLINE :OFFSET :DISABLEDFILL :ACTIVEFILL :TK-FILL :DASHOFFSET :DISABLEDDASH :ACTIVEDASH :DASH :DECORATIONS :COORDS :COORDS-TWEAK :L-COORDS :ID-NO :USER-ERRORS :ON-KEY-UP :ON-KEY-DOWN :ON-COMMAND :TIMERS :TK-CLASS :MD-NAME :ID :VALUE :AWAKEN-ON-INIT-P :FM-PARENT. [Condition of type PROGRAM-ERROR] Hm - now, that means I can't really say I want a specific height for a rectangle?! Also, I can't place this rectangle... Trying this with a label works Ok. How can that be? Any pointers really appreciated. Frank

1 0

[cells-devel] Celtk: Button as kid of a canvas ...
by Frank Goenninger 28 Dec '06

28 Dec '06

Hi all: being too lazy for searching in the code of Celtk I wonder if there is a way to have a button as a kid of a canvas - same of for an entry widget ... I figure that the kid would be configured differently compared to being a kid of a frame... Anyone done that before? Thx for any pointers... Best wishes - Frank

1 0

Re: [cells-devel] CVS: Missing file variables.lisp ?!
by Attila Lendvai 13 Dec '06

13 Dec '06

ok, bring it back on list then. there are useful infos in these mails... (or not :) > We? Parallel project? You and Thomas? C4? Other_________? > > Is it open source? Has it changed much/been rewritten from scratch? What > are you using it for, if you can say? oh, i tought you heard about it, its at: http://common-lisp.net/project/computed-class/ it's rewritten from scratch. has a little different nomenclature, but i'm planning to rename "computed-state" to "cell" after talking with the others, to bring the two projects closer. of course you're welcome to contribute/use/join the list/etc... > I do not mind at all. Keeps you yobbo rugrats out of my hair. :) And NIH hehe :) > is certainly my guiding light in software development... I can write my > own as fast as I can learn someone else's nonsense, and then it does > /exactly/ what I want and I know it cold and I can change it and.... well, i'm not that NIH-oriented, a well written lib can be useful, but i agree that *sometimes* it's worth rolling your own. hm, now that i'm thinking about it, we've ended up not using clsql and cells... maybe i do have NIH, i'm just not aware of it... :) but i do try first with the existing libs. we had a headache with cells that some internal state got corrupted and from then we had to reload the lib to make it work again. all this in the middle of a big rewrite. then the next day we rolled a prototype that in a few hours that was doing all we needed (we need a simple engine cells-wise, but full clos integration on the other hand). we use it for keeping computed state (for caching purposes) in sync with the declared state inside the model. "the model" is an UML-like data model integrated with CLOS. you write something like UML (semantically) and get a working app with persistency and a web gui. we is a small startup, working on http://common-lisp.net/project/cl-wdim/ if you don't mind we may bring this back to the list. but i didn't want to shamelessly advertise the project on the cells list... -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronstället)

1 0

[Fwd: Re: [cells-devel] CVS: Missing file variables.lisp ?!]
by Ken Tilton 13 Dec '06

13 Dec '06

Attila Lendvai wrote: >> After someone asked on c.l.l I spent a day on making a defparameter a >> Cell. The test worked but then I think I tried it live and it failed and >> I decided I better get back to work on Algebra (but apparently never >> took it out of my LPR). > > > while making a clet in computed-class i've also played with the idea > of a cell in a defparameter, but i couldn't come up with anything > without symbol-macrolet. i think that can't be done transparently with > standard common lisp constructs. I just added variables.lisp to CVS just so folks can find it, and at the same time modified cells.lpr /not/ to show it. From there, the macro: (defmacro def-c-variable (v-name cell &key ephemeral owning unchanged-if) (declare (ignore unchanged-if)) (let ((c 'whathef)) ;;(gensym))) `(progn (eval-when (:compile-toplevel :load-toplevel) (define-symbol-macro ,v-name (c-variable-accessor ',v-name)) (setf (md-slot-cell-type 'null ',v-name) (when ,ephemeral :ephemeral)) (when ,owning (setf (md-slot-owning 'null ',v-name) t))) (eval-when (:load-toplevel) (let ((,c ,cell)) (md-install-cell nil ',v-name ,c) (awaken-cell ,c))) ',v-name))) So this: (def-c-variable *kenny* (c-in nil)) Expands to this: (progn (eval-when (:compile-toplevel :load-toplevel) (define-symbol-macro *kenny* (c-variable-accessor '*kenny*)) (setf (md-slot-cell-type 'null '*kenny*) (when nil :ephemeral)) (when nil (setf (md-slot-owning 'null '*kenny*) t))) (eval-when (:load-toplevel) (let ((whathef (c-in nil))) (md-install-cell nil '*kenny* whathef) (awaken-cell whathef))) '*kenny*) Obviously still experimental. :) ken

1 0

[cells-devel] CVS: Missing file variables.lisp ?!
by Frank Goenninger 13 Dec '06

13 Dec '06

Hi Kenny, I just updated Cells from CVS and found a file "variables.lisp" mentioned in the ACL project file ("cells.lpr"). This is not to be found in the ASDF project file cells.asd. As I think the .asd and the .lpr should be equal in meaning I think you introduced variables.lisp recently but just did not check it into CVS. Or am I wrong? Thx for info. Cheers, Frank

3 2

[cells-devel] Celtk: Error "Slot CTK::PACKING is missing from ..."
by Frank Goenninger 11 Dec '06

11 Dec '06

Hi all: Another Celtk challenge for me: The slot CTK::PACKING is missing from the object SENDREQUEST-PUBLISH-RB-GROUP of class #<STANDARD-CLASS CTK::MENU-RADIO-GROUP> during operation SLOT-VALUE [Condition of type PROGRAM-ERROR] is resulting from this piece of code: (mk-row () (mk-stack () (mk-menu-radio-group :id :sendrequest-publish-rb-group :selection (c-in nil) :kids (c? (the-kids (mk-menu-entry-radiobutton :label "Request/Reply" :value :request/reply) (mk-menu-entry-radiobutton :label "Publish" :value :publish) )))) (mk-stack () (mk-row () (mk-label :text "Timeout: " :width 10) (mk-entry :id :timeout-entry :width 6) (mk-label :text "s"))) menu-radio-group inherits from menu-entry which inherits from tk-object. I can't locate the source of this error ... Thanks for any hints! Best, Frank

2 1

[cells-devel] Celtk: strange error for mk-entry after CVS update ...
by Frank Goenninger 10 Dec '06

10 Dec '06

Hi Kenny, after doing an update (yes, I risked it) from CVS I get the following error: :MD-VALUE is an invalid initarg to make-instance of class #<STANDARD-CLASS CTK:ENTRY>. The valid initargs are :WIDTH :VALIDATECOMMAND :VALIDATE :STATE :SHOW :READONLYBACKGROUND :INVALIDCOMMAND :XSCROLLCOMMAND :TEXTVARIABLE :TAKEFOCUS :SELECTFOREGROUND :SELECTBORDERWIDTH :SELECTBACKGROUND :RELIEF :JUSTIFY :INSERTWIDTH :INSERTONTIME :INSERTOFFTIME :INSERTBORDERWIDTH :INSERTBACKGROUND :HIGHLIGHTTHICKNESS :HIGHLIGHTCOLOR :HIGHLIGHTBACKGROUND :FOREGROUND :TKFONT :EXPORTSELECTION :DISABLEDBACKGROUND :DISABLEDFOREGROUND :CURSOR :BORDERWIDTH :BACKGROUND :TEXT :SELECTOR :IMAGE-FILES :MENUS :EVENT-HANDLER :ENABLED :RELY :RELX :PARENT-Y :PARENT-X :GRIDDING :PACKING :PATH :KIDS :KID-SLOTS :USER-ERRORS :ON-KEY-UP :ON-KEY-DOWN :ON-COMMAND :TIMERS :TK-CLASS :MD-NAME :ID :VALUE :AWAKEN-ON-INIT-P :FM-PARENT. [Condition of type PROGRAM-ERROR] I haven't changed my rather simple code: (defmodel tibrv-console (window) () (:default-initargs :id :tibrv-console :title$ "*** GT::TIBCO Rendezvous Console - X.01.00 ***" :kids (c? (the-kids ;;(main-menubar) (mk-stack (:packing (c?pack-self)) (mk-row () (mk-stack () (mk-label :text "FIELD") (mk-row () (mk-label :text "Name: " :width 8) (mk-entry :id :name-entry :width 28 :md-value (c-in "frgo")) (mk-button-ex ( "Add Null Field" (format t "~%*** Button ADD NULL pressed.") )) (mk-button-ex ( "Add Field" (format t "~%*** Button ADD FIELD pressed.") ))) (mk-row () (mk-label :text "Type: " :width 8) (mk-entry :id :type-entry :width 28) (mk-button-ex ( "Set to Null" (format t "~%*** Button SET NULL pressed."))) (mk-button-ex ( "Update Field" (format t "~%*** Button UPDATE FIELD pressed.")))) (mk-row () (mk-label :text "Data: " :width 8) (mk-entry :id :data-entry :width 40) (mk-button-ex ( "Remove Field" (format t "~%*** Button REMOVE FIELD pressed.")))) ))))))) Does that ring a bell? Any ideas? Thx! Frank

1 1