Visualizer window always on top.
authorplugd <plugd@thelambdalab.xyz>
Sat, 28 Dec 2019 13:16:43 +0000 (00:16 +1100)
committerplugd <plugd@thelambdalab.xyz>
Sat, 28 Dec 2019 13:16:43 +0000 (00:16 +1100)
visualizer.scm

index 8215202..3a914e2 100644 (file)
@@ -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))