1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
# -*- perl -*-
#
# Copyright (C) 2012-2021 Alexis Bienvenüe <paamc@passoire.fr>
#
# This file is part of Auto-Multiple-Choice
#
# Auto-Multiple-Choice is free software: you can redistribute it
# and/or modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation, either version 2 of
# the License, or (at your option) any later version.
#
# Auto-Multiple-Choice is distributed in the hope that it will be
# useful, but WITHOUT ANY WARRANTY; without even the implied warranty
# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Auto-Multiple-Choice. If not, see
# <http://www.gnu.org/licenses/>.
use warnings;
use 5.012;
package AMC::Gui::WindowSize;
sub constraints {
my ( $x0, $dx, $dxmax ) = @_;
my $over = $$x0 + $$dx - $dxmax;
if ( $over > 0 ) {
if ( $over > $$x0 ) {
$$x0 = 0;
$$dx = $dxmax;
} else {
$$x0 -= $over;
}
}
}
sub size_monitor {
my ( $window, $options ) = @_;
if ( $options->{config} ) {
if ( $options->{config}->get( $options->{key} ) =~
/^([0-9]+)x([0-9]+)(?:\+([0-9]+)\+([0-9]+))?$/ )
{
my $target_w = $1;
my $target_h = $2;
my $x = $3;
$x = 0 if ( !defined($x) );
my $y = $4;
$y = 0 if ( !defined($y) );
my $screen = $window->get_screen();
my $max_w = $screen->get_width;
my $max_h = $screen->get_height;
constraints( \$x, \$target_w, $max_w );
constraints( \$y, \$target_h, $max_h );
$window->move( $x, $y );
$window->resize( $target_w, $target_h );
}
$window->signal_connect(
'configure-event' => \&AMC::Gui::WindowSize::resize,
$options
);
}
}
sub resize {
my ( $window, $event, $options ) = @_;
if ( $options->{config} && $event->type eq 'configure' ) {
my $dims = join( 'x', $window->get_size );
my $pos = join( '+', $window->get_position );
$options->{config}->set( $options->{key}, $dims . "+" . $pos );
}
0;
}
1;
|
