summaryrefslogtreecommitdiffstats
path: root/library/demos/widget
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2010-01-20 23:43:50 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2010-01-20 23:43:50 (GMT)
commit8653f8ec25290721bc6fac2a9c68bbff0a4c4eb3 (patch)
tree57e880fe1efd95782a3cb841debb5d8e410fd021 /library/demos/widget
parent545af346b6b7f4d2e3c1bfa931e01202c6c7808d (diff)
downloadtk-8653f8ec25290721bc6fac2a9c68bbff0a4c4eb3.zip
tk-8653f8ec25290721bc6fac2a9c68bbff0a4c4eb3.tar.gz
tk-8653f8ec25290721bc6fac2a9c68bbff0a4c4eb3.tar.bz2
TIP #359: Extended window manager hints support for X11.
Diffstat (limited to 'library/demos/widget')
-rw-r--r--library/demos/widget4
1 files changed, 3 insertions, 1 deletions
diff --git a/library/demos/widget b/library/demos/widget
index 8fefbbd..5acba79 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -10,7 +10,7 @@ exec wish "$0" "$@"
# separate ".tcl" files is this directory, which are sourced by this script as
# needed.
#
-# RCS: @(#) $Id: widget,v 1.51.2.2 2009/12/10 11:44:07 dkf Exp $
+# RCS: @(#) $Id: widget,v 1.51.2.3 2010/01/20 23:43:51 patthoyts Exp $
package require Tcl 8.5
package require Tk 8.5
@@ -473,6 +473,7 @@ proc positionWindow w {
proc showVars {w args} {
catch {destroy $w}
toplevel $w
+ if {[tk windowingsystem] eq "x11"} {wm attributes $w -type dialog}
wm title $w [mc "Variable values"]
set b [ttk::frame $w.frame]
@@ -574,6 +575,7 @@ proc showCode w {
set top .code
if {![winfo exists $top]} {
toplevel $top
+ if {[tk windowingsystem] eq "x11"} {wm attributes $top -type dialog}
set t [frame $top.f]
set text [text $t.text -font fixedFont -height 24 -wrap word \