This is the mail archive of the
insight@sourceware.cygnus.com
mailing list for the Insight project.
Re: modal dialog boxes
- To: Nicholas_Karagas at cirilium dot com
- Subject: Re: modal dialog boxes
- From: Keith Seitz <kseitz at firetalk dot com>
- Date: Wed, 21 Jun 2000 08:40:24 -0700
- CC: insight at sourceware dot cygnus dot com
- Organization: Firetalk Communications, Inc
- References: <OF3F41C3B0.646A4016-ON07256904.00765580@cirilium.com>
Nicholas_Karagas@cirilium.com wrote:
>
> Hello again...
>
> This time my problem is with modal dialog boxes (modal.tcl). How can I
> pass the on_top parameter to the post method of ModalDialog? For instance,
> I want the ignorable warning message dialog boxes (warning.tcl) to always
> pop to the top, or else they can get covered by another Insight window, and
> there's problems (this is all under NT, btw). I tried making the "after
> 500 keep_raised $top" in ModalDialog::post unconditional, and this works
> great for the warning dialogs, but it breaks the combo boxes in the target
> selection dialog box (and probably numerous other places). Can anyone
> help?
>
Ummm... You mean you want to ModalDialog::post to execute the "after 500
keep_raised $top" stuff?? Tcl has default values, just like C++.
ModalDialog::post is declared as:
class ModalDialog {
public method post {{on_top 0}} {}
}
This is the same as the following in C++:
class ModalDialog
{
public:
void post (bool on_top = false};
};
It works, the same way, to:
set dialog [MyDialog <arguments>]
$dialog post 1; # on_top is 1
$dialog post; # on_top defaults to 0
Keith