How to Do ? Window without caption or title bar ?

[marten]

How can this be done under Windows ?

[nmongeau]

Here's a brief sample:

| noCaption |
noCaption := CwDesktopDialog for: nil.
"This removes the caption and changes the text"
noCaption
mwmDecorations: (noCaption mwmDecorations bitXor: MWMDECORTITLE) ;
messageString: 'I have no title bar...' ;
open.

Note that this opens a modal dialog, you'll have to invoke the debugger to break out of its dialog loop.

Normand

[marten]

Here's a brief sample:

| noCaption |
noCaption := CwDesktopDialog for: nil.
"This removes the caption and changes the text"
noCaption
mwmDecorations: (noCaption mwmDecorations bitXor: MWMDECORTITLE) ;
messageString: 'I have no title bar...' ;
open.

Note that this opens a modal dialog, you'll have to invoke the debugger to break out of its dialog loop.

Normand

Where is this class defined "CwDesktopDialog" ???

Marten

[nmongeau]

Oh sorry, that's a home-made class. But the principle is valid and works for any shell at the CommonWidget level.

Normand