Hi all, Is it possible to display a capi:interface without decorations? I'm trying to get rid of the title bar but can't quite figure it out. Thanks, Sean. -- "My doctor says that I have a malformed public-duty gland and a natural deficiency in moral fibre," he muttered to himself, "and that I am therefore excused from saving Universes." - Life, the Universe, and Everything Douglas Adams.
Unable to parse email body. Email id is 3975
davef@lispworks.com writes: > > Is it possible to display a capi:interface without decorations? > > I'm trying to get rid of the title bar but can't quite > > figure it out. > > Try the undocumented CAPI:INTERFACE initarg :WINDOW-STYLES, like this: > > (capi:display (make-instance 'capi:interface > :best-width 200 > :best-height 200 > :title "Hi Sean" > :window-styles '(:borderless) > :x 20 > :y 20)) Thanks, That works great. Is there a list of the different window-styles somewhere that I can experiment with? Sean. -- "My doctor says that I have a malformed public-duty gland and a natural deficiency in moral fibre," he muttered to himself, "and that I am therefore excused from saving Universes." - Life, the Universe, and Everything Douglas Adams.
Le 9/06/05 15:22, « Sean Ross » <sdr@jhb.ucs.co.za> a écrit :
> davef@lispworks.com writes:
>
>>> Is it possible to display a capi:interface without decorations?
>>> I'm trying to get rid of the title bar but can't quite
>>> figure it out.
>>
>> Try the undocumented CAPI:INTERFACE initarg :WINDOW-STYLES, like this:
>>
>> (capi:display (make-instance 'capi:interface
>> :best-width 200
>> :best-height 200
>> :title "Hi Sean"
>> :window-styles '(:borderless)
>> :x 20
>> :y 20))
> Thanks,
> That works great.
>
> Is there a list of the different window-styles somewhere
> that I can experiment with?
>
> Sean.
Hi,
I got this from the Lispworks support, but I don't now if this list is
exhaustive. This is simply the way to do a toolbar - like the toolbar on the
Mac version of Lispworks.
:window-styles
'(:hides-on-deactivate
:borderless
:internal-borderless
:ignores-keyboard-input
:always-on-top
:movable-by-window-background)
About this question of "window-styles":
I'll be very interested to now if it's possible to choose witch buttons are
visible in the title bar (for instance to make a window with just a
close-box - like dialogs on Window XP).
I'll also be interested to find a solution to remove the resize rectangle
(or grow rectangle) on Mac (right-bottom corner of the window), or the
changes on the cursor when point on the border of a window on Windows XP
and, naturally, to remove the resize button on title bar.
(Maybe something like :window-styles '(:resizable nil) ?)
Finally, I'll also be very happy to find the solution to make something like
"tools palette" (floating window with a little title bar as, for instance,
the tools in Photoshop, Finale, or many other software). But, unfortunately,
I've heard from support that this functionality (the NSPanel on COCOA) is
not supported by Lispworks...
But, any info to do something equivalent are really welcome (maybe with the
borderless window and some resources ?)
Best
Denis
----------------------------------------------------
Denis Pousseur
34 Bd de Dixmude
1000 Bruxelles, Belgique
Mail : denis.pousseur@compositeurs.be
Website : http://compositeurs.be
----------------------------------------------------
On Jun 16, 2005, at 11:54 AM, Denis Pousseur wrote: > I'll also be interested to find a solution to remove the resize > rectangle > (or grow rectangle) on Mac (right-bottom corner of the window), or the > changes on the cursor when point on the border of a window on Windows > XP > and, naturally, to remove the resize button on title bar. > (Maybe something like :window-styles '(:resizable nil) ?) One way to remove the grow rectangle (and disable the zooom button) is just to make sure there are no adjustable objects in your interface. For example: (contain (make-instance 'text-input-pane :visible-min-width 100 :visible-max-width 100)) If :visible-max-width is nil, then you get the grow rectangle and enabled zoom button. John DeSoi, Ph.D. http://pgedit.com/ Power Tools for PostgreSQL
Le 16/06/05 19:03, « John DeSoi » <desoi@pgedit.com> a écrit : > One way to remove the grow rectangle (and disable the zooom button) is > just to make sure there are no adjustable objects in your interface. > For example: > > (contain (make-instance 'text-input-pane :visible-min-width 100 > :visible-max-width 100)) > > If :visible-max-width is nil, then you get the grow rectangle and > enabled zoom button. > > > > John DeSoi, Ph.D. > http://pgedit.com/ > Power Tools for PostgreSQL > > Well, this doesn't work on my systems : - Personal edition 3.3.0 on Mac OS 10.2.8. - Personal edition 3.3.7 on Windows XP Maybe a 3.4.5 new implementation ? ---------------------------------------------------- Denis Pousseur 34 Bd de Dixmude 1000 Bruxelles, Belgique Mail : denis.pousseur@compositeurs.be Website : http://compositeurs.be ----------------------------------------------------
On Jun 17, 2005, at 7:17 AM, Denis Pousseur wrote: > Maybe a 3.4.5 new implementation ? I'm using 4.4.5 which I think is the latest release. John DeSoi, Ph.D. http://pgedit.com/ Power Tools for PostgreSQL
Le 17/06/05 13:36, « John DeSoi » <desoi@pgedit.com> a écrit : > > On Jun 17, 2005, at 7:17 AM, Denis Pousseur wrote: > >> Maybe a 3.4.5 new implementation ? > > I'm using 4.4.5 which I think is the latest release. > > > John DeSoi, Ph.D. > http://pgedit.com/ > Power Tools for PostgreSQL Naturally, excuse my error : I'm using 4.3.0 on Mac and 4.3.7 on Windows. ---------------------------------------------------- Denis Pousseur 34 Bd de Dixmude 1000 Bruxelles, Belgique Mail : denis.pousseur@compositeurs.be Website : http://compositeurs.be ----------------------------------------------------
Unable to parse email body. Email id is 4033
Le 17/06/05 15:01, « davef@lispworks.com » <davef@lispworks.com> a écrit : > Definitely time to upgrade! The latest Personal Edition is available > at http://www.lispworks.com/downloads/ > > Disabling/removing those controls in fixed-size CAPI windows was > introduced in LispWorks 4.4. I will do it. Thanks to John and Dave for infos ---------------------------------------------------- Denis Pousseur 34 Bd de Dixmude 1000 Bruxelles, Belgique Mail : denis.pousseur@compositeurs.be Website : http://compositeurs.be ----------------------------------------------------