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

[cells-devel] Bank of America Corporation Update
by Bank of America Corporation 28 Jan '07

28 Jan '07

1 0

[cells-devel] Celtk: Separating placing from instantiation of widgets
by Frank Goenninger 09 Jan '07

09 Jan '07

Dear Celtikers: (or how do we call Celtk users ;-) In the quest of generating a dynamic GUI for my sweet little app I encountered the need to separate widget instance creation from making them actually appear... Celtk does handle widget appearance as a side effekt of creating an instance - at least I understand the Celtk mechanism as such. Now there's a couple of solutions of that I can imagine - each requiring a change to deeper Celtk mechanisms like adding a new slot "visiblep" to the widget class and then preventing placing, packing, and/or gridding when that slot is nil ... Too much low level stuff - I wonder if there's another solution ?! I have: (defmodel tibrv-console (window) ((active-workarea :accessor active-workarea :initform (c-in nil) :initarg :active-workarea) (workareas :accessor workareas :initform (c-in nil) :initarg :workareas)) (:default-initargs :id :tibrv-console :title$ (conc$ "*** G&C::TIBCO Rendezvous Console - " *tibrv- console-version* " ***") :width (c-in 800) :height (c-in 605) :workareas (c? (the-kids (make-kid 'msg-workarea) ;; These two families should not (make-kid 'listener- workarea))) ;; appear upon creation :kids (c? (the-kids (main-menubar) (application-view self) (header-view self) (tool-header-view self) )))) (defmodel workarea (tibrv-model ctk::frame) ((visiblep :accessor visiblep :initform (c- in :unplaced) :initarg :visiblep) (title :accessor title :initform (c-in nil) :initarg :title) (required-field-color :accessor required-field-color :initform (c-in nil) :initarg :required-field-color)) (:default-initargs :id (gensym "WORKAREA-") :required-field-color (c-in "#f0d5da"))) (defobserver visiblep ((self workarea)) (if (or (not new-value) (eql new-value :unplaced)) (hide self) (unhide self))) (defmethod hide (self) (when self (dolist (kid (kids self)) (when kid (hide kid))) (when (eql (type-of self) 'ctk::widget) (tk-format '(:fini self) "place forget ~a" (path self))) (tk-format '(:fini self) "update idletasks"))) (defmethod unhide (self) (when (and self (eql (type-of self) 'ctk::widget)) (tk-format '(:fini self) "place configure ~a -x ~a -y ~a" (^path) (ctk::^parent-x) (ctk::^parent-y)) (dolist (kid (kids self)) (when kid (unhide kid))) (tk-format '(:fini self) "update idletasks"))) Hiding and unhiding works OK when called directly for a workarea object.. So that part is solved already... Any ideas really appreciated. Frank

1 0

[cells-devel] Celtk: background not getting set/sent for entry widget
by Frank Goenninger 06 Jan '07

06 Jan '07

Me again - Hi! When creating an entry widget as (mk-entry :id :data-entry :width 40 :parent-x 65 :parent-y 115 :background (c_? (required-field-color (fm-parent self)))) where the background depends on the value of the parent's required- field-color slot I never get any background color set. No, the dependency does not cause this - I get the same effect when directly specifying a color ... I then tried to narrow this down and found out that Celtk never passes the background option to Tk via tk-format-now... Any help appreciated ... (Yes, ahem, I know that this lies somewhere in the deftk macro, Kenny .. Or am I wrong here? ;-) Thx! Frank

1 2

[cells-devel] Celtk: Making a widget or an item invisible - how?
by Frank Goenninger 03 Jan '07

03 Jan '07

Hi again - I have the following model: (defmodel workarea (ctk::widget ctk::window) ((visiblep :accessor visiblep :initform (c- in :undefined) :initarg :visiblep)) (:default-initargs :id (gensym "WORKAREA-"))) This workarea is meant to work as a manager for kids that will be displayed if visiblep (yeah, it's not visible-p ;-) is t and will be invisible when visiblep is nil. Question now is how that can be done... Via an observer that walks all kids and configures them as invisible? If so, then I have the following questions: 1. Tk-related: How to configure arbitrary objects as invisible ? 2. Cells-related: How to walk a family object's kids to call a function with the paths of the kids ? Thx! Frank

1 0

Fwd: [cells-devel] Happy New Year, and where is CVS?
by Thomas F. Burdick 03 Jan '07

03 Jan '07

---------- Forwarded message ---------- From: Thomas F. Burdick <tburdick(a)gmail.com> Date: Jan 3, 2007 4:02 PM Subject: Re: [cells-devel] Happy New Year, and where is CVS? To: Dmitri Hrapof <hrapof(a)common-lisp.ru> Cc: cells-devel(a)common-lisp.net Bonne année, frohes neues Jahr, etc. http://common-lisp.net/cgi-bin/viewcvs.cgi/cells/?cvsroot=cells

1 0

[cells-devel] Happy New Year, and where is CVS?
by Dmitri Hrapof 03 Jan '07

03 Jan '07

Thanks, Dmitri

1 0

[cells-devel] Celtk: Window is small despite given height and width
by Frank Goenninger 02 Jan '07

02 Jan '07

Hi - me again ;-) Anybody seen this: I am having a Celtk-based window and am giving height and width upon definition: (defmodel tibrv-console (window) () (:default-initargs :id :tibrv-console :title$ (conc$ "*** G&C::TIBCO Rendezvous Console - " *tibrv- console-version* " ***") :width (c-in 1200) :height (c-in 600) :kids (c? (the-kids ...........) All the kids are using direct placing as geometry control. This results in having only a small window despite the given height and width. Just looking for a solution other than this one: (defmethod initialize-instance :after ((self tibrv-console) &key &allow-other-keys) (tk-format '(:pre-make-tk self) "wm geometry ~A ~Ax~A" (^path) (^width) (^height))) Am I missing something ? All the best - Frank

1 0