Import "" 
	PB_Object_GetThreadMemory(obj)	 
	PB_Gadget_Globals 
EndImport 
 
Procedure GetCurrentGadgetList() 
	Protected winObj  
	winObj  = PB_Object_GetThreadMemory(PB_Gadget_Globals) 
	ProcedureReturn PeekL(winObj) 
EndProcedure 
 
 
;''' TEST ''' 
 
Procedure Test() 
    
	hWnd = OpenWindow(0,#PB_Ignore,#PB_Ignore,320,280,"leer",#WS_OVERLAPPEDWINDOW) 
		 
	ImageGadget(0,20,20,150,150,0,#PB_Image_Border) 
		 
	Debug GetCurrentGadgetList() 
	 
	Repeat 
	 event = WaitWindowEvent() 
 
	Until event = #PB_Event_CloseWindow	 
    
EndProcedure:Test()