X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=visualizer.scm;h=3a914e2fc15896d8019cd4adb7403ce10e9bb5d4;hp=8215202cbf8090467d162fa0d0c345508cc2e801;hb=fc74ea10adf5074f3464e08552a5fbd540c0243d;hpb=7290d31ea915ea868ca34857e62fea9133db33f8

diff --git a/visualizer.scm b/visualizer.scm
index 8215202..3a914e2 100644
--- a/visualizer.scm
+++ b/visualizer.scm
@@ -19,6 +19,7 @@
           (lambda ()
             (apply print args))))
       (wish% "wm title . \"MARS Visualizer\"")
+      (wish% "wm attributes . -topmost true")
       (wish% "frame .fb -borderwidth 10")
       (wish% "pack .fb -side top")
       (let loop ((remaining-palette palette))