[cells-devel] Celtk: Window is small despite given height and width

[Frank Goenninger]

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