;Einbindung der benötigten Dateien
Include "ACMEHeader.bb"

;Setzen des Grafikmodus
Graphics3D 640,480,16,2

;Events löschen
WB3D_FlushEvents

While Not QUIT = 1

  ;zeichnet das Menü
  WB3D_UpdateWindowMenu(mainWnd) 
 
  ;es wird auf ein Event in der Nachrichtenschlange gewartet
  event = WB3D_WaitEvent()

  ;Ruft die Nachrichtenverwaltung auf
  MessageHandler(event)

Wend

WB3D_EndGUI()

;Bindet die benötigte WinBlitz Stildatei ein
Include "WB3DStyles.bb"

;Konstanten für das menü
Const ME_DATA      = 1
Const ME_EDIT       = 2
Const ME_DATAP1  = 3

;Erstellen der Applikation
Global hWnd   = WB3D_InitializeGUI(SystemProperty("AppHWnd"),100,100,500,500)
Global QUIT   = 0   ;Flag, welcher prüft ob die Hauptschleife verlassen werden soll

;Das Hauptfenster wird erstellt
Global mainWnd = WB3D_CreateWindow("MainWindow",200,200,500,500,0,0)

;Das Programmenü wird erstellt
Global WndMenu    = WB3D_WindowMenu(mainWnd)
Global meData     = WB3D_CreateMenu("Datei",ME_DATA,WndMenu,0)
Global meEdit     = WB3D_CreateMenu("Bearbeiten",ME_EDIT,WndMenu,0)
Global meDataP1   = WB3D_CreateMenu("Neue Karte erstellen...",ME_DATAP1,meData,0)

;Diese Funktion entspricht dem Messagehandler der WinAPI und ist dazu da
;alle Event zu verwalten die im Fenster aufkommen

Function MessageHandler(event)

 Select event

    Case WB3D_EVENT_WINDOW_CLOSE

      window = WB3D_EventSource()

       Select window
 
         Case hWnd

           QUIT = 1

         Case mainWnd

           QUIT = 1

       End Select

  End Select

End Function