SimplyFortran调用appGraphics问题

vvt

这俩函数需要你自己写。写俩空白的就好了。

[Fortran] 纯文本查看 复制代码

program main
use appgraphics
implicit none
    integer::myscreen
    integer :: root_menu,file_menu,item

    interface
        subroutine quit()
        end subroutine quit
    end interface
    interface
        subroutine save()
        end subroutine save
    end interface

    myscreen = initwindow(800, 600, closeflag=.TRUE.)
    root_menu = addmenu("", MENU_FOR_WINDOW)
    file_menu = addmenu("File", root_menu)
    item = addmenuitem("Save", file_menu, save)
    item = addmenuitem("Quit", file_menu, quit)
    call loop()
    call closewindow(myscreen)
end program main

  Subroutine quit()
    stop
  End Subroutine quit

  Subroutine save()

  End Subroutine save