Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Issue #154: Set window style using `#beToolWindow` jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 19 Jul 2017 09:42:32 +0200
branchjv
changeset 17619 edb119820fcb
parent 17534 09e8dae2dfab
child 17697 dc99c6992dc3
Issue #154: Set window style using `#beToolWindow` to indicate that the minirunner window is kind of support tool rather than some X11 specific code (which does not work on Windows of course) See https://swing.fit.cvut.cz/projects/stx-jv/ticket/154
Tools__TestRunnerMini.st file | annotate | diff | comparison | revisions 
--- a/Tools__TestRunnerMini.st	Fri Jun 16 13:07:11 2017 +0100
+++ b/Tools__TestRunnerMini.st	Wed Jul 19 09:42:32 2017 +0200
@@ -578,26 +578,16 @@
 !
 
 pin
-    | runner screen |
+    | runner |
 
     runner := TestRunnerMini new.
     runner resultHolder value: resultHolder value copy.
 
     runner allButOpen.
-
-    screen := Screen current.
-    (screen notNil and:[ screen platformName == #X11 ]) ifTrue:[ 
-        "/ Use EWMH hint to tell the WM that the window is
-        "/ a sort of floating tool so WM can decorate it according to
-        "/ DE standards.
-        runner window id isNil ifTrue:[ 
-            runner window create.
-        ].
-        screen setWindowType:#'_NET_WM_WINDOW_TYPE_UTILITY' in:runner window id.      
-    ].        
+    runner window beToolWindow.
     runner open.
 
-    "Modified: / 23-09-2014 / 12:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-07-2017 / 08:53:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 run
hg/stx-libtool