How to close window.

BlitzMax Forums/MaxGUI Module/How to close window.

Keith Gilbert

(Posted 2009) [#1]

Hi,
I have 2 windows in my application.
I want to only one window on some operation.
Im using the END keyword , it is closing the entire application.
What needs to be done to achieve this?

REDi	(Posted 2009) [#2]

HideGadget or FreeGadget?

Brucey

(Posted 2009) [#3]

Probably something like FreeGadget(window).

Where "window" is the reference to the window gadget you want to close.

You can also HideGadget(window), if you don't want to completely delete it, using ShowGadget(window) later to show it again.

<Edit> Like what REDi said.

jsp	(Posted 2009) [#4]

Some code to play with:


Import MaxGui.Drivers

Global	Window3:TGadget
Global	Window2:TGadget
Global	Window1:TGadget

Window3:TGadget = CreateWindow:TGadget("Window3",292,303,324,124,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
	Local Button3:TGadget = CreateButton:TGadget("Show windows",100,49,125,23,Window3:TGadget,BUTTON_PUSH)
	Local Button4:TGadget = CreateButton:TGadget("End",241,94,75,23,Window3:TGadget,BUTTON_PUSH)
Window2:TGadget = CreateWindow:TGadget("Window2",464,92,254,132,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
	Local Button2:TGadget = CreateButton:TGadget("Show windows",65,53,125,23,Window2:TGadget,BUTTON_PUSH)
Window1:TGadget = CreateWindow:TGadget("Window1",173,92,261,136,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
	Local Button1:TGadget = CreateButton:TGadget("Show windows",68,55,125,23,Window1:TGadget,BUTTON_PUSH)

Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Select EventSource()
				Case Window3	Window3_WC( Window3:TGadget )
				Case Window2	Window2_WC( Window2:TGadget )
				Case Window1	Window1_WC( Window1:TGadget )
			End Select

		Case EVENT_GADGETACTION
			Select EventSource()
				Case Button1	Button1_GA( Button1:TGadget )
				Case Button2	Button2_GA( Button2:TGadget )
				Case Button3	Button3_GA( Button3:TGadget )
				Case Button4	Button4_GA( Button4:TGadget )
			End Select

	End Select
Forever

Function Window3_WC( Window:TGadget )
	DebugLog "Window Window3 wants to be closed"

	HideGadget( Window )
End Function

Function Window2_WC( Window:TGadget )
	DebugLog "Window Window2 wants to be closed"

	HideGadget( Window )
End Function

Function Window1_WC( Window:TGadget )
	DebugLog "Window Window1 wants to be closed"

	HideGadget( Window )
End Function

Function Button1_GA( Button:TGadget )
	DebugLog "Button Button1 was pressed"
	ShowGadget( Window1 )
	ShowGadget( Window2 )
	ShowGadget( Window3 )
End Function

Function Button2_GA( Button:TGadget )
	DebugLog "Button Button2 was pressed"
	ShowGadget( Window1 )
	ShowGadget( Window2 )
	ShowGadget( Window3 )
End Function

Function Button3_GA( Button:TGadget )
	DebugLog "Button Button3 was pressed"
	ShowGadget( Window1 )
	ShowGadget( Window2 )
	ShowGadget( Window3 )
End Function

Function Button4_GA( Button:TGadget )
	DebugLog "Button Button4 was pressed"
	End
End Function