STRAWBERRY PROLOG: Membuat Menubar dan Pindah Window Baru

masih melanjutkan posting sebelumnya, di posting ini saya akan menjelaskan tentang pembuatan menubar, membuat window baru dan pindah ke window baru tersebut. menubar adalah sekumpulan menu yang terdapat di bagian atas window. biasanya berupa File, About, dan Help.
seperti sebelumnya, buat file baru dengan cara file > new > pilih strawberry prolog, ketikan program berikut terlebih dahulu untuk membuat window pertama

?- window(G_window1, _, window1(_),"ini window pertama",100,200,300,400).

lalu dilanjutkan dengan code berikut untuk membuat menu bar

window1(init):-
    menu( pop_up, _, _, menu_file(_), "&File"),
      menu( normal, _, _, menu_about(_), "&About"),
      menu( right, _, _, menu_exit(_), "&Exit").

seperti penjelasan sebelumnya,

• (init) berfungsi untuk mengeksekusi pertama kali saat program dijalankan. pada code di atas, kita akan membuat 3 menubar diantaranya File, About dan Exit. perbedaanya pada pop_up, normal, dan right.
• pop_up berarti memiliki akan memiliki submenu di bawahnya
• normal berarti seperti button biasa, bedanya ini adalah menubar
• right berarti menubar yang dibuat ada di sebelah kanan.

lihat output dari code di atas

karena ada menu pop_up pada fungsi menu_file, maka kita akan membuat submenu terlebih dahulu. ketikan code berikut melanjutkan code sebelumnya untuk membuat submenu.

menu_file(init):-
    menu(normal, _, _, menu_submenu(_), "&Submenu dari File"),
    menu(separator, _, _, fail(_), _),
    menu(normal, _, _, menu_gantiWindow(_), "&pindah window").

di atas ada 3 menu, tapi yang akan tampil hanya 2 menu karena menu kedua hanya bersifat sebagai separator (pemisah) antara submenu pertama dan submenu kedua. outputnya seperti ini



untuk membuat fungsi dari submenu dari file sama seperti membuat fungsi dari button biasa. ketikan code berikut melanjutkan code sebelumnya

menu_submenu(press):-
    message("judul", "halo saya submenu file", i).

• menu_submenu adalah nama dari submenu yang pertama yang telah dibuat di atas. (press) berarti ketika tombol menu_submenu ditekan, maka akan mengeksekusi program di bawahnya. tombol tersebut akan menampilkan messagebox.

menu_gantiWindow(press):-
    close_window(G_window1),
    window(G_window2, _, window2(_), "ini window kedua", 200,300,400,450).

• sama seperti di atas penjelasannya, bedanya tombol submenu pindah window ini bertugas untuk menutup window G_window1 (close_window(G_window1)) dan akan menampilkan G_window2.

menu_about(press):-
    message("biodata","nama : Arick\n\nLABTI GUNADARMA",i).

menu_exit(press):-
    close_window(_).

penjelasan sama seperti di atas :)
output dari keseluruhan program sebagai berikut