From 4eae92a6056eb0942d5c0287c6d72b90f9e3d4a1 Mon Sep 17 00:00:00 2001 From: Dmitry Karasik Date: Fri, 15 Nov 2024 21:00:36 +0100 Subject: [PATCH] document readonly items --- Prima/DetailedList.pm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/Prima/DetailedList.pm b/Prima/DetailedList.pm index 07980a35..18daf689 100644 --- a/Prima/DetailedList.pm +++ b/Prima/DetailedList.pm @@ -60,7 +60,8 @@ sub init $self-> {header} = bless { maxWidth => 0, }, q\Prima::DetailList::DummyHeader\; - $self-> {$_} = 0 for qw( mainColumn multiColumn vertical); + $self-> {$_} = 0 for qw(mainColumn multiColumn ); + $self-> {$_} = 1 for qw(vertical); %profile = $self-> SUPER::init( %profile); my $hh = $self-> {headerInitHeight}; @@ -104,6 +105,8 @@ sub setup_indents $_[0]-> {indents}-> [ 3] += $_[0]-> {headerInitHeight}; } +sub multiColumn {($#_)?($_[1]?$_[0]-> raise_ro('multiColumn'):0):$_[0]-> {multiColumn}} +sub vertical {($#_)?($_[1]?0:$_[0]-> raise_ro('vertical')):$_[0]-> {vertical}} sub set_v_scroll { @@ -565,7 +568,6 @@ If 1, vertical grid lines between columns are drawn with C. Default value: 0 - =item headerClass Assigns the header class. @@ -604,6 +606,14 @@ corresponding column. Default value: 0 +=item multiColumn 0 + +Read-only property inherited from List + +=item vertical 0 + +Read-only property inherited from List + =back =head2 Methods