equal
deleted
inserted
replaced
576 "Modified: / 03-12-2012 / 14:02:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
576 "Modified: / 03-12-2012 / 14:02:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
577 "Modified: / 18-02-2016 / 16:49:14 / cg" |
577 "Modified: / 18-02-2016 / 16:49:14 / cg" |
578 ! |
578 ! |
579 |
579 |
580 pin |
580 pin |
581 | runner screen | |
581 | runner | |
582 |
582 |
583 runner := TestRunnerMini new. |
583 runner := TestRunnerMini new. |
584 runner resultHolder value: resultHolder value copy. |
584 runner resultHolder value: resultHolder value copy. |
585 |
585 |
586 runner allButOpen. |
586 runner allButOpen. |
587 |
587 runner window beToolWindow. |
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 ]. |
|
598 runner open. |
588 runner open. |
599 |
589 |
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>" |
601 ! |
591 ! |
602 |
592 |
603 run |
593 run |
604 |suite| |
594 |suite| |
605 |
595 |