Ticket #154: libtool_fix_1_of_1_rev_edb119820fcb_Issue__154__Set_window_style_using___beToolWindow_.patch

File libtool_fix_1_of_1_rev_edb119820fcb_Issue__154__Set_window_style_using___beToolWindow_.patch, 1.5 KB (added by jan vrany, 7 years ago)

  • Tools__TestRunnerMini.st 

    # HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1500450152 -7200
#      Wed Jul 19 09:42:32 2017 +0200
# Branch jv
# Node ID edb119820fcbc8bc012751266d0f4583ea883dad
# Parent  09e8dae2dfabb6b746a5da8be1756d349eb94191
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

diff -r 09e8dae2dfab -r edb119820fcb Tools__TestRunnerMini.st
    a b  
    578578!
    579579
    580580pin
    581     | runner screen |
     581    | runner |
    582582
    583583    runner := TestRunnerMini new.
    584584    runner resultHolder value: resultHolder value copy.
    585585
    586586    runner allButOpen.
    587 
    588     screen := Screen current.
    589     (screen notNil and:[ screen platformName == #X11 ]) ifTrue:[
    590         "/ Use EWMH hint to tell the WM that the window is
    591         "/ a sort of floating tool so WM can decorate it according to
    592         "/ DE standards.
    593         runner window id isNil ifTrue:[
    594             runner window create.
    595         ].
    596         screen setWindowType:#'_NET_WM_WINDOW_TYPE_UTILITY' in:runner window id.     
    597     ].       
     587    runner window beToolWindow.
    598588    runner open.
    599589
    600     "Modified: / 23-09-2014 / 12:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     590    "Modified: / 19-07-2017 / 08:53:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    601591!
    602592
    603593run