From: James Ingham <jingham@cygnus.com>
To: insight@sourceware.cygnus.com
Subject: Patch: raise BEFORE deiconify is better on XFree...
Date: Fri, 10 Mar 2000 15:38:00 -0000 [thread overview]
Message-ID: <14537.34815.828024.187076@leda.cygnus.com> (raw)
Hi, all...
I have applied the following patch. For some oddball reason, doing
wm deiconify .
raise .
causes the window to come up half baked, and then there is a long
pause before it finished drawing itself. Doint
raise .
wm deiconify .
is much better looking. This is not the case on Sun's X Server, or
the HP-UX one... I haven't looked into what is going on, but this
patch makes things look better.
Enjoy,
Jim
Index: util.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/util.tcl,v
retrieving revision 1.1.1.1
diff -p -r1.1.1.1 util.tcl
*** util.tcl 2000/02/07 00:19:42 1.1.1.1
--- util.tcl 2000/03/10 23:33:56
***************
*** 30,37 ****
# A helper procedure to keep a window on top.
proc keep_raised {top} {
if {[winfo exists $top]} {
- wm deiconify $top
raise $top
after 1000 [info level 0]
}
}
--- 30,37 ----
# A helper procedure to keep a window on top.
proc keep_raised {top} {
if {[winfo exists $top]} {
raise $top
+ wm deiconify $top
after 1000 [info level 0]
}
}
Index: managedwin.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/managedwin.itb,v
retrieving revision 1.1.1.1
diff -p -r1.1.1.1 managedwin.itb
*** managedwin.itb 2000/02/07 00:19:42 1.1.1.1
--- managedwin.itb 2000/03/10 23:33:56
*************** body ManagedWin::reveal {} {
*** 31,43 ****
update idletasks
set top [winfo toplevel [namespace tail $this]]
wm deiconify $top
# I don't understand this next line and no one commented it, so it's gone.
#focus -force [focus -lastfor $top]
focus $top
- raise $top
}
body ManagedWin::restart {} {
--- 31,43 ----
update idletasks
set top [winfo toplevel [namespace tail $this]]
+ raise $top
wm deiconify $top
# I don't understand this next line and no one commented it, so it's gone.
#focus -force [focus -lastfor $top]
focus $top
}
body ManagedWin::restart {} {
reply other threads:[~2000-03-10 15:38 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=14537.34815.828024.187076@leda.cygnus.com \
--to=jingham@cygnus.com \
--cc=insight@sourceware.cygnus.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).