X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=2019-fosdem%2Fnbdview%2Fnbdraid.tcl;h=95f0441b35bd41444d9e84892b65d417ec517d0d;hb=d6aea7661a009340d9b45e882d0c842b0204a0c6;hp=a6dada11d40c334847e10f008c423b381b4ca344;hpb=c8eecc14765a5457f775b7575cf16d088d90b67e;p=libguestfs-talks.git

diff --git a/2019-fosdem/nbdview/nbdraid.tcl b/2019-fosdem/nbdview/nbdraid.tcl
index a6dada1..95f0441 100755
--- a/2019-fosdem/nbdview/nbdraid.tcl
+++ b/2019-fosdem/nbdview/nbdraid.tcl
@@ -37,7 +37,14 @@ source "nbdcanvas.tcl"
 
 set blocksize 4096
 set width 128
-set scale 2
+
+# For 1024x768 and 1280x1024 use scale 1
+# For larger screens use scale 2
+if { [winfo screenheight .] > 1024 } {
+    set scale 2
+} else {
+    set scale 1
+}
 
 # This list is used to store all the RAID handles.
 set handles {}
@@ -111,6 +118,7 @@ for { set i 1 } { $i <= $N } { incr i } {
 }
 
 # Set up the window.
+wm attributes . -topmost 1
 wm title . "nbdraid"
 wm resizable . false false