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
_______________________________________________
cells-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-devel
