You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
106 lines
3.6 KiB
Tcl
106 lines
3.6 KiB
Tcl
15 years ago
|
# Modal dialog class for GDBtk.
|
||
|
|
# Copyright (C) 1998, 1999 Cygnus Solutions
|
||
|
|
#
|
||
|
|
# This program is free software; you can redistribute it and/or modify it
|
||
|
|
# under the terms of the GNU General Public License (GPL) as published by
|
||
|
|
# the Free Software Foundation; either version 2 of the License, or (at
|
||
|
|
# your option) any later version.
|
||
|
|
#
|
||
|
|
# This program is distributed in the hope that it will be useful,
|
||
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
# GNU General Public License for more details.
|
||
|
|
|
||
|
|
|
||
|
|
# ----------------------------------------------------------------------
|
||
|
|
# Implements the post and unpost behavior of a Modal Dialog.
|
||
|
|
#
|
||
|
|
# For now the point behind this is to control calling
|
||
|
|
# ide_grab_support. If you call disable all the windows of an
|
||
|
|
# application but one, destroy that window, THEN re-enable the
|
||
|
|
# windows, Windows brings the last enabled window in the last
|
||
|
|
# active application to the foreground (Doh!).
|
||
|
|
#
|
||
|
|
# ----------------------------------------------------------------------
|
||
|
|
|
||
|
|
itcl::class ModalDialog {
|
||
|
|
# This is the variable we vwait on when the dialog is posted.
|
||
|
|
# It is set to 1 in the unpost method, and to -1 in the destructor.
|
||
|
|
|
||
|
|
private variable unpost_notification 0
|
||
|
|
|
||
|
|
destructor {
|
||
|
|
debug " UNPOST $this"
|
||
|
|
set unpost_notification -1
|
||
|
|
}
|
||
|
|
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
# METHOD: unpost - unposts the dialog box...
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
public method unpost {} {
|
||
|
|
after idle [list set [scope unpost_notification] 1]
|
||
|
|
}
|
||
|
|
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
# METHOD: cancel - This just unposts the dialog box...
|
||
|
|
# If you want to programatically cancel a dialog
|
||
|
|
# selection, for instance if the app is going away
|
||
|
|
# use this rather than unpost. That way a sub-class
|
||
|
|
# that actually has to do some work can override it.
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
public method cancel {} {
|
||
|
|
ModalDialog::unpost
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
# METHOD: post - posts the dialog box...
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
public method post {{on_top 0} {expire 0}} {
|
||
|
|
|
||
|
|
debug "POST $this"
|
||
|
|
set top [winfo toplevel [namespace tail $this]]
|
||
|
|
wm protocol $top WM_DELETE_WINDOW [code $this cancel]
|
||
|
|
|
||
|
|
if {$on_top} {
|
||
|
|
after 500 keep_raised $top
|
||
|
|
}
|
||
|
|
|
||
|
|
ide_grab_support disable_except $top
|
||
|
|
focus $top
|
||
|
|
grab set $top
|
||
|
|
|
||
|
|
if {$expire > 0} {
|
||
|
|
set afterID [after $expire [code $this cancel]]
|
||
|
|
}
|
||
|
|
|
||
|
|
vwait [scope unpost_notification]
|
||
|
|
|
||
|
|
if {$afterID != ""} {
|
||
|
|
after cancel $afterID
|
||
|
|
set afterID ""
|
||
|
|
}
|
||
|
|
|
||
|
|
grab release $top
|
||
|
|
|
||
|
|
# Enable all the windows in the application BEFORE
|
||
|
|
# you destroy this one, or Windows will bring another
|
||
|
|
# app to the foreground.
|
||
|
|
|
||
|
|
ide_grab_support enable_all
|
||
|
|
|
||
|
|
# We can get here either by someone calling unpost (if an OK button
|
||
|
|
# is clicked or whatever), or by someone destroying the dialog (for
|
||
|
|
# instance by using the Window Manager.) Only delete the object if
|
||
|
|
# we are not already in the process of doing this.
|
||
|
|
|
||
|
|
if {$unpost_notification == 1} {
|
||
|
|
::delete object $this
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
public variable expire -1 ;# If this is set to a number > 0, the
|
||
|
|
# dialog will time out after this interval.
|
||
|
|
private variable afterID ""; # The id for the expiration after event.
|
||
|
|
}
|