Anonymous user
GUI/Maximum window dimensions: Difference between revisions
→{{header|Perl}}
(Added BBC BASIC) |
|||
Line 207:
<lang Mathematica>Differences@Transpose@SystemInformation["Devices"][[1, 2, 1, 1, 2]]
->{{1260, 951}}</lang>
=={{header|Perl}}==
<lang Perl>
use strict;
use warnings;
use Tk;
sub get_size {
my $mw = MainWindow->new();
return ($mw->maxsize);
}
</lang>
get_size returns (1425,870) here.
=={{header|PicoLisp}}==
|