kivitendo/SL/Helper/UserPreferences/PositionsScrollbar.pm @ 59626ee2
| 8946fe2d | Bernd Bleßmann | package SL::Helper::UserPreferences::PositionsScrollbar;
|
|
use strict;
|
|||
use parent qw(Rose::Object);
|
|||
use Carp;
|
|||
use List::MoreUtils qw(none);
|
|||
use SL::Helper::UserPreferences;
|
|||
use Rose::Object::MakeMethods::Generic (
|
|||
'scalar --get_set_init' => [ qw(user_prefs) ],
|
|||
);
|
|||
sub get_height {
|
|||
my $value = $_[0]->user_prefs->get('height');
|
|||
return !defined($value) ? 25 : $value;
|
|||
}
|
|||
sub store_height {
|
|||
$_[0]->user_prefs->store('height', $_[1]);
|
|||
}
|
|||
sub init_user_prefs {
|
|||
SL::Helper::UserPreferences->new(
|
|||
namespace => $_[0]->namespace,
|
|||
)
|
|||
}
|
|||
# read only stuff
|
|||
sub namespace { 'PositionsScrollbar' }
|
|||
sub version { 1 }
|
|||
1;
|
|||
__END__
|
|||
=pod
|
|||
=encoding utf-8
|
|||
=head1 NAME
|
|||
SL::Helper::UserPreferences::PositionsScrollbar - preferences intended
|
|||
to store user settings for displaying a scrollbar for the postions area
|
|||
of document forms (it's height).
|
|||
=head1 SYNOPSIS
|
|||
use SL::Helper::UserPreferences::PositionsScrollbar;
|
|||
my $prefs = SL::Helper::UserPreferences::PositionsScrollbar->new();
|
|||
$prefs->store_height(75);
|
|||
my $value = $prefs->get_height;
|
|||
=head1 DESCRIPTION
|
|||
This module manages storing the height for displaying the scrollbar in the
|
|||
positions area in forms (new order controller).
|
|||
=head1 BUGS
|
|||
None yet :)
|
|||
=head1 AUTHOR
|
|||
Bernd Bleßmann E<lt>bernd@kivitendo-premium.deE<gt>
|
|||
=cut
|