neingeist
/
arduinisten
Archived
1
0
Fork 0
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.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.

106 lines
3.6 KiB
Tcl

# 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.
}