functionis_shownpure
pure logical function is_shown(list, item)
True if item and everything that holds it are shown.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| list | type(entity_list_t) | in | the entities | |
| item | integer | in | the entity |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| is_shown | logical |
Source
Show the code
pure logical function is_shown(list, item)
type(entity_list_t), intent(in) :: list !! the entities
integer, intent(in) :: item !! the entity
integer :: k
is_shown = .true.
k = item
do while (k > 0)
if (.not. list%box(k)%e%visible) is_shown = .false.
k = list%box(k)%e%parent
end do
end function is_shown