TOPIC:

method PreInit(oWindow,iCtlID,oServer,uExtra)
	//Put your PreInit additions here
	if lNewPermessi
		self:EndWindow()
    else
	    lNewPermessi = true
    endif
return NIL

method QueryClose(oEvent)
	local lAllowClose as logic
	lAllowClose := super:QueryClose(oEvent)
	lNewPermessi = false
return lAllowClose

IF !CheckOpenChildWindow(#SomeWindow,FALSE,TRUE,FALSE)   // See this function below
// do something
endif

FUNCTION IC2GetAppObject()
//#s Returns application object and thus gives access to 'global' variables from any place 28-2-2003
RETURN GetAppObject()

oSomeWindow := SomeWindow(SELF,,oMyDBF,{""} 
AddChildWindow( oSomeWindow)

FUNCTION AddChildWindow(oChild) 
//#s Source: SSA. Adds window to array array

IF ALen(IC2GetAppObject ():aOpenWindows) == 0
	IC2GetAppObject ():aOpenWindows := {}
ENDIF	
AAdd( IC2GetAppObject ():aOpenWindows, oChild )
RETURN NIL

DeleteChildWindow(SELF)

FUNCTION DeleteChildWindow(oChild AS OBJECT) AS LOGIC PASCAL
//#s Source: SSA. removes window from array
	
LOCAL nChild	AS DWORD
LOCAL dwIndex	AS DWORD

LOCAL oObject	AS OBJECT
nChild := 0
FOR dwIndex := 1 UPTO ALen (IC2GetAppObject():aOpenWindows)
	oObject := IC2GetAppObject ():aOpenWindows[dwIndex]
	IF oObject <> NULL_OBJECT
		IF oChild:Handle() == oObject:Handle()
			nChild := dwIndex
			EXIT
		ENDIF
	ENDIF
NEXT

IF nChild > 0
	IC2GetAppObject():aOpenWindows[nChild] := NULL_OBJECT
ENDIF
RETURN TRUE

FUNCTION  CheckOpenChildWindow( sObject AS SYMBOL,lClose AS LOGIC ,lFocus AS LOGIC ,lReturnWindow AS LOGIC) AS USUAL PASCAL // CLASS Window	// IC2DW
//#s Checks if sObject is open 6-7-2001
//#s
//#x
//#l Paramater lClose: if true, close window as well 8-1-2003 lReturnWindow (element of aChildWindows) instead of true/false 2-7-2008
//#l
//#l
//#l
//#p sObject=symbolic name of datawindow lClose= true if we want to close the window lfocus=true if we want to select the window  lReturnWindow =return array element nr instead of logic 
//#p
//#r false if not, true if open or array element number of aChildWindows when lReturnWindow is true
//#e
//#e
LOCAL NI AS DWORD
LOCAL nWindow AS DWORD
LOCAL lFound AS LOGIC
LOCAL oObject AS OBJECT

nWindow:=0																// Default: window not found 19-7-2008
lFound:=FALSE															// Default: not open 5-2-2009

FOR NI:= 1 UPTO ALen(IC2GetAppObject ():aOpenWindows)
	oObject := IC2GetAppObject ():aOpenWindows [NI]
	IF oObject <> NULL_OBJECT
		IF IsInstanceOf (oObject,sObject)
			lFound:=TRUE
			nWindow:=NI														// Assign to LATEST window
			IF lClose
				oObject:ENDwindow()											// Instead of close Close()
				IC2GetAppObject ():aOpenWindows [NI] := NULL_OBJECT
			ENDIF
			IF lFocus
				oObject:SetFocus()											//Show current window 17-8-2007
			ENDIF	
		ENDIF
	ENDIF
NEXT
IF lReturnWindow
	RETURN nWindow
ELSE
	RETURN lFound
ENDIF

RETURN lFound

method PermessiWindow() class StandardShellWindow
if lNewPermessi
  InfoMessage{ self, "Permessi", "la finestra è già aperta" }:Show()
else
  PermessiWindow{ self }:Show()
endif

method Show(kStyle) Class YourWindow

    if !lNewPermessi	 
	    lNewPermessi = true
            Super:Show(kStyle)
    endif
return self

FUNCTION  CheckOpenChildWindow( sObject AS SYMBOL,lClose AS LOGIC ,lFocus AS LOGIC ,lReturnWindow AS LOGIC) AS USUAL PASCAL