headers
Frank Goenninger | 2 Jan 2007 23:20
Picon

Celtk: Window is small despite given height and width

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 -
(Continue reading)

Permalink | Reply | 0 comments |
headers
Dmitri Hrapof | 3 Jan 2007 15:20
Picon

Happy New Year, and where is CVS?

Thanks,
Dmitri
Permalink | Reply | 0 comments |
headers
Thomas F. Burdick | 3 Jan 2007 16:03
Picon

Fwd: Happy New Year, and where is CVS?

---------- Forwarded message ----------
From: Thomas F. Burdick <tburdick <at> gmail.com>
Date: Jan 3, 2007 4:02 PM
Subject: Re: [cells-devel] Happy New Year, and where is CVS?
To: Dmitri Hrapof <hrapof <at> common-lisp.ru>
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
Permalink | Reply | 0 comments |
headers
Frank Goenninger | 3 Jan 2007 16:54
Picon

Celtk: Making a widget or an item invisible - how?

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
Permalink | Reply | 0 comments |
headers
Frank Goenninger | 6 Jan 2007 23:09
Picon

Celtk: background not getting set/sent for entry widget

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
Permalink | Reply | 2 comments |
headers
Frank Goenninger | 6 Jan 2007 23:49
Picon

Re: Celtk: background not getting set/sent for entry widget

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 ??

...
(Continue reading)

Permalink | Reply | 1 comment |
headers
Frank Goenninger | 6 Jan 2007 23:56
Picon

Re: Celtk: background not getting set/sent for entry widget: SOLVED !

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...
(Continue reading)

Permalink | Reply | 0 comments |
headers
Frank Goenninger | 9 Jan 2007 19:03
Picon

Celtk: Separating placing from instantiation of widgets

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
(Continue reading)

Permalink | Reply | 0 comments |

Gmane