Resizing Windows in AppGraphics

Hi Jeff,

I would like to add a file/open menu to main window of resize (just as an example of the potential use of the open file dialog).

I've successfully added 'File/saveimage',  'File/open', and 'File/quit' sub-menus to the window.

The File/saveimage and File/quit options work just fine, but the File/open dlgopenfile() option causes the system to 'hang-up'.

Do you have any suggestions on the proper use and way to add a file open dlgopenfile() menu to a main window?

Below is the code of your resize program with my revisions labeled to add menu options.

I look forward to any suggestions you or others may have to resolve this issue.

Frank

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
appprogram resizing
use appgraphics
implicit none

    integer::myscreen
    integer::mybutton
    logical::quit

    !--------------Added-------------------------------------\/
    integer::root_menu, file_menu, item_temp
    !--------------------------------------------------------/\

    myscreen = initwindow(320, 240, closeflag=.TRUE.)
    mybutton = createbutton(270, 210, 40, 20, "Close", handle_button)

    !--------------Added-------------------------------------\/
    root_menu = addmenu("", MENU_FOR_WINDOW)
    file_menu = addmenu("File", root_menu)

    item_temp = addmenuitem("Save Screenshot...", file_menu, savescreen)
    item_temp = addmenuitem("Open", file_menu, openfile)
    item_temp = addmenuitem("Quit", file_menu, quitwndo)
    !--------------------------------------------------------/\

    quit = .FALSE.

    call enableresize(handle_resize)

    do while(.NOT. quit)
        call draw_window()
        call loop()
    end do

    call closewindow(myscreen)

    contains

    subroutine draw_window()
    use appgraphics
    implicit none
        integer::w,h

        integer::tw
        character(100)::info

        w = getmaxx()
        h = getmaxy()

        call setbuttonposition(mybutton, w-50, h-30, 40, 20)

        write(info, '(A5,1X,I5,A1,I5)') "Size:", w, "x", h

        call setviewport(0, 0, w, 40, .FALSE.)
        call clearviewport()
        tw = textwidth(trim(info))
        call outtextxy( (w/2-tw/2), 5, trim(info))

    end subroutine draw_window

    subroutine handle_button()
    use appgraphics, only: stopidle
    implicit none

        quit = .TRUE.
        call stopidle()

    end subroutine handle_button

    subroutine handle_resize()
    use appgraphics
    implicit none

        call stopidle()

    end subroutine handle_resize

    !--------------Added-------------------------------------\/
    subroutine openfile()
        USE appgraphics, ONLY: dlgopenfile
        implicit none

        CHARACTER(255)  :: input_file_name

        !   Appgraphics function dlgopenfile (filename, maskdesc, mask, title)
        input_file_name= repeat(' ', 255)

        IF( dlgopenfile( &
            input_file_name, 'Data', '*.raw', 'Enter data file') ) THEN

            Print *, "You've selected "//trim(input_file_name)
        ELSE
            Print *, "No file was selected"
        END IF

        input_file_name = TRIM(input_file_name)

    end subroutine openfile

    subroutine savescreen()
        use appgraphics, only: writeimagefile
        implicit none

        ! This call will open a file dialog since we haven't
        ! specified a filename
        call writeimagefile()

    end subroutine savescreen

    subroutine quitwndo()
        use appgraphics, only: stopidle
        implicit none

        quit = .TRUE.
        call stopidle()

    end subroutine quitwndo
    !--------------------------------------------------------/\
end program resizing
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Jeff,

A somewhat related issue is how to maintain an active instance of a window containing menus when selecting a sub-menu (e.g., 'Run') callback to run a related routine in another module requiring several loops.  I only seem to succeed if I close the main window after selecting the added menu 'run' option and then I must re-load the window when the active routine ends. 
Is there a way to retain a visual instance of the main window on the screen while running other routines in the background such that the results of the background run to a subroutine can then be populated in the main window?

I've also tried making the main window 'recursive' but each time a callback subroutine is selected to run and returns to the main window, another instance of the main window appears.  As a results of multiple runs, several main windows populate the screen.  I have not found a way to remove the 'older' instances of the main window after each run.  Is there a way to close ALL windows but the active one?  Closewindow seems to close everything.  And Closegraph() doesn't appear to be recognized by Appgraphics. 

It may be that I just don't fully understand the complete functionality of Appgraphics, or perhaps there are other commands that could be added to the package to make it more functional.

I must say that I fully appreciate the work you put into developing this graphic library and look forward to future developments.

Frank

As a quick update, the addmenuitem function works properly. There was an issue with enablemenuitem in the library that has since been fixed.