window_gui Function

private function window_gui(self, font, size) result(g)

The window's GUI panels (vkf_gui), made on first use: with font (a font file name or path, as labels'; default DejaVu Sans) of size window units (default 15), which apply then. Not valid unless open.

Type Bound

WindowProxy

Arguments

Type IntentOptional Attributes Name
class(WindowProxy), intent(in) :: self
character(len=*), intent(in), optional :: font

file name or path (default DejaVu Sans)
real(kind=wp), intent(in), optional :: size

window units (default 15)

Return Value type(Gui)


Calls

proc~~window_gui~~CallsGraph proc~window_gui WindowProxy%window_gui interface~vkf_viewer_gui vkf_viewer_gui proc~window_gui->interface~vkf_viewer_gui proc~find_font find_font proc~window_gui->proc~find_font proc~is_open WindowProxy%is_open proc~window_gui->proc~is_open proc~find_in_dirs find_in_dirs proc~find_font->proc~find_in_dirs

Source Code

    function window_gui(self, font, size) result(g)
        class(WindowProxy), intent(in) :: self
        character(len=*), intent(in), optional :: font      !! file name or path (default DejaVu Sans)
        real(wp), intent(in), optional :: size              !! window units (default 15)
        type(Gui) :: g
        character(len=:), allocatable :: path
        real(c_double) :: s
        if (.not. self%is_open()) return
        path = find_font(default_font)
        if (present(font)) path = find_font(font)
        s = 15.0_c_double
        if (present(size)) s = size
        g%handle = vkf_viewer_gui(self%viewer_, path, len(path, kind=c_int), s)
    end function window_gui