From fcb8cc8ff7b5d4558619e559fc8c45e7f1cd509f Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Sat, 23 Jan 2010 21:22:17 +0000 Subject: [PATCH] Make use of the extended window manager hints from tip 359 on unix for all dialog windows --- ChangeLog | 5 +++++ tkcon.tcl | 9 +++++++++ 2 files changed, 14 insertions(+) diff --git a/ChangeLog b/ChangeLog index 56327bc..cd69beb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2010-01-23 Pat Thoyts + + * tkcon.tcl: Make use of the extended window manager hints from + tip 359 on unix for all the dialog windows. + 2009-04-24 Jeff Hobbs * tkcon.tcl: override 8.5 [chan puts|gets]. [Bug 1876707] diff --git a/tkcon.tcl b/tkcon.tcl index 8ca5115..11ffc73 100755 --- a/tkcon.tcl +++ b/tkcon.tcl @@ -1377,6 +1377,7 @@ proc ::tkcon::About {} { wm withdraw $w wm transient $w $PRIV(root) wm group $w $PRIV(root) + catch {wm attributes $w -type dialog} wm title $w "About tkcon v$PRIV(version)" wm resizable $w 0 0 button $w.b -text Dismiss -command [list wm withdraw $w] @@ -1710,6 +1711,7 @@ proc ::tkcon::InterpPkgs {app type} { wm title $t "$app Packages" wm transient $t $PRIV(root) wm group $t $PRIV(root) + catch {wm attributes $t -type dialog} bind $t [list destroy $t] label $t.ll -text "Loadable:" -anchor w @@ -1934,6 +1936,7 @@ proc ::tkcon::NamespacesList {names} { set f $PRIV(base).namespaces catch {destroy $f} toplevel $f + catch {wm attributes $f -type dialog} listbox $f.names -width 30 -height 15 -selectmode single \ -yscrollcommand [list $f.scrollv set] \ -xscrollcommand [list $f.scrollh set] \ @@ -2005,6 +2008,7 @@ proc ::tkcon::FindBox {w {str {}}} { if {![winfo exists $base]} { toplevel $base wm withdraw $base + catch {wm attributes $base -type dialog} wm title $base "tkcon Find" pack [frame $base.f] -fill x -expand 1 @@ -2276,6 +2280,7 @@ proc ::tkcon::NewSocket {} { if {![winfo exists $t]} { toplevel $t wm withdraw $t + catch {wm attributes $t -type dialog} wm title $t "tkcon Create Socket" label $t.lhost -text "Host: " entry $t.host -width 16 -takefocus 1 @@ -2614,6 +2619,7 @@ proc ::tkcon::MainInit {} { if {![winfo exists $t]} { toplevel $t wm withdraw $t + catch {wm attributes $t -type dialog} wm title $t "tkcon Attach to Display" label $t.gets -text "New Display: " entry $t.data -width 32 @@ -2717,6 +2723,7 @@ proc ::tkcon::MainInit {} { $w.text delete 1.0 end } else { toplevel $w + catch {wm attributes $w -type dialog} frame $w.btn scrollbar $w.sy -command [list $w.text yview] text $w.text -yscrollcommand [list $w.sy set] -height 12 \ @@ -3453,6 +3460,7 @@ proc tkcon {cmd args} { if {![winfo exists $t]} { toplevel $t wm withdraw $t + catch {wm attributes $t -type dialog} wm title $t "tkcon gets stdin request" label $t.gets -text "\"gets stdin\" request:" text $t.data -width 32 -height 5 -wrap none \ @@ -6080,6 +6088,7 @@ proc ::tkcon::RetrieveAuthentication {} { } set dlg [toplevel .auth] + catch {wm attributes $dlg -type dialog} wm title $dlg "Authenticating Proxy Configuration" set f1 [frame ${dlg}.f1] set f2 [frame ${dlg}.f2] -- 2.23.0