From: Richard W.M. Jones <rjones@redhat.com>
Date: Fri, 16 Nov 2018 11:57:18 +0000 (+0000)
Subject: nbdview: Add -topmost attribute.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=07a206f4eea11c1e55523c4aa7a8a8d62273dd99;p=libguestfs-talks.git

nbdview: Add -topmost attribute.
---

diff --git a/2019-fosdem/nbdview/nbdraid.tcl b/2019-fosdem/nbdview/nbdraid.tcl
index a6dada1..f594f29 100755
--- a/2019-fosdem/nbdview/nbdraid.tcl
+++ b/2019-fosdem/nbdview/nbdraid.tcl
@@ -111,6 +111,7 @@ for { set i 1 } { $i <= $N } { incr i } {
 }
 
 # Set up the window.
+wm attributes . -topmost 1
 wm title . "nbdraid"
 wm resizable . false false
 
diff --git a/2019-fosdem/nbdview/nbdview.tcl b/2019-fosdem/nbdview/nbdview.tcl
index 9e41014..0e87690 100755
--- a/2019-fosdem/nbdview/nbdview.tcl
+++ b/2019-fosdem/nbdview/nbdview.tcl
@@ -77,6 +77,7 @@ set h [nbdcanvas .f.c $logfile $size $blocksize $width $scale]
 pack .f.c -anchor center -expand 0 -fill none
 
 # Set up the window.
+wm attributes . -topmost 1
 wm title . "nbdview $logfile"
 wm resizable . false false