Import maxgui.drivers

Extern "win32"
   Function SetParent(Child:Int,Parent:Int) = "SetParent@8"
End Extern


Global Parent:TGadget = CreateWindow("Hauptfenster",0,0,500,500,Null,WINDOW_TITLEBAR|WINDOW_CENTER)
Global Child:TGadget = CreateWindow("Kind",0,0,200,200,Null,WINDOW_TITLEBAR)
WindowInWindow(Child,Parent)

Repeat
   Select WaitEvent()
      Case EVENT_WINDOWCLOSE
         Select EventSource()
            Case Parent
               End
               
            Case Child
               Notify("Nicht schließen :)")
               
         End Select
   End Select
Forever


Function WindowInWindow(Child:TGadget,Parent:TGadget)
   SetParent(QueryGadget(Child,QUERY_HWND),QueryGadget(Parent,QUERY_HWND))
End Function

Function SetGadgetParent(Child:TGadget,Parent:TGadget)
   SetParent(QueryGadget(Child,QUERY_HWND),QueryGadget(Parent,QUERY_HWND))
   Child._setparent(Parent )
End Function