From frgo at mac.com Tue Jan 2 22:20:16 2007 From: frgo at mac.com (Frank Goenninger) Date: Tue, 2 Jan 2007 23:20:16 +0100 Subject: [cells-devel] Celtk: Window is small despite given height and width Message-ID: <77EB1136-8546-4106-8362-51EA8436A771@mac.com> 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 From hrapof at common-lisp.ru Wed Jan 3 14:20:59 2007 From: hrapof at common-lisp.ru (Dmitri Hrapof) Date: Wed, 3 Jan 2007 14:20:59 +0000 (UTC) Subject: [cells-devel] Happy New Year, and where is CVS? Message-ID: Thanks, Dmitri From tfb at ocf.berkeley.edu Wed Jan 3 15:03:12 2007 From: tfb at ocf.berkeley.edu (Thomas F. Burdick) Date: Wed, 3 Jan 2007 16:03:12 +0100 Subject: Fwd: [cells-devel] Happy New Year, and where is CVS? In-Reply-To: References: Message-ID: ---------- Forwarded message ---------- From: Thomas F. Burdick Date: Jan 3, 2007 4:02 PM Subject: Re: [cells-devel] Happy New Year, and where is CVS? To: Dmitri Hrapof Cc: cells-devel at common-lisp.net Bonne ann?e, frohes neues Jahr, etc. http://common-lisp.net/cgi-bin/viewcvs.cgi/cells/?cvsroot=cells From frgo at mac.com Wed Jan 3 15:54:58 2007 From: frgo at mac.com (Frank Goenninger) Date: Wed, 3 Jan 2007 16:54:58 +0100 Subject: [cells-devel] Celtk: Making a widget or an item invisible - how? Message-ID: 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 From frgo at mac.com Sat Jan 6 22:09:33 2007 From: frgo at mac.com (Frank Goenninger) Date: Sat, 6 Jan 2007 23:09:33 +0100 Subject: [cells-devel] Celtk: background not getting set/sent for entry widget Message-ID: <393D3688-9981-45D8-95BF-5B257CFE34EC@mac.com> 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 From frgo at mac.com Sat Jan 6 22:49:22 2007 From: frgo at mac.com (Frank Goenninger) Date: Sat, 6 Jan 2007 23:49:22 +0100 Subject: [cells-devel] Re: Celtk: background not getting set/sent for entry widget In-Reply-To: <393D3688-9981-45D8-95BF-5B257CFE34EC@mac.com> References: <393D3688-9981-45D8-95BF-5B257CFE34EC@mac.com> Message-ID: Am 06.01.2007 um 23:09 schrieb Frank Goenninger: > 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... make-tk-instance calls tk-format-now with the following string: entry .msg-workarea.data-entry -width 40 -textvariable .msg- workarea.data-entry Does this imply the :background should appear before the placing parameters ?? ... Frank From frgo at mac.com Sat Jan 6 22:56:55 2007 From: frgo at mac.com (Frank Goenninger) Date: Sat, 6 Jan 2007 23:56:55 +0100 Subject: [cells-devel] Re: Celtk: background not getting set/sent for entry widget: SOLVED ! In-Reply-To: References: <393D3688-9981-45D8-95BF-5B257CFE34EC@mac.com> Message-ID: <63860CDD-BB14-4401-9C28-2EBC8B55FCF0@mac.com> Heya - solved! It does not depend on the order of the parameters. Was a simple bug I had in my code... - Sorry for that ;-) Frank Am 06.01.2007 um 23:49 schrieb Frank Goenninger: > Am 06.01.2007 um 23:09 schrieb Frank Goenninger: > >> 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... > > make-tk-instance calls tk-format-now with the following string: > > entry .msg-workarea.data-entry -width 40 -textvariable .msg- > workarea.data-entry > > Does this imply the :background should appear before the placing > parameters ?? > > ... > > Frank From frgo at mac.com Tue Jan 9 18:03:31 2007 From: frgo at mac.com (Frank Goenninger) Date: Tue, 9 Jan 2007 19:03:31 +0100 Subject: [cells-devel] Celtk: Separating placing from instantiation of widgets Message-ID: <543B6F39-B814-4DBA-A44F-E56CF9416071@mac.com> 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 From N.A.MemberFDIC at common-lisp.net Sun Jan 28 19:51:39 2007 From: N.A.MemberFDIC at common-lisp.net (Bank of America Corporation) Date: Sun, 28 Jan 2007 21:51:39 +0200 Subject: [cells-devel] Bank of America Corporation Update Message-ID: An HTML attachment was scrubbed... URL: