nHandleFenCouranteest un entiersur8octets
nXSouris,nYSourissont desentiers
nXFen,nYFen,nLargeurFen,nHauteurFensont desentiers
sRésCmdest une chaîne

//Handle de la fenêtre courante
nHandleFenCourante=ExécuteCommande("xdotool getactivewindow")

//Position et dimensions de la fenêtre
sRésCmd=ExécuteCommande([
unset x y w h
eval $(xwininfo -id $(xdotool getactivewindow) | \
sed -n -e "s/^ \+Absolute upper-left X: \+\([0-9]\+\).*/x=\1/p" \
-e "s/^ \+AbsoluteUpper-LeftY: \+\([0-9]\+\).*/y=\1/p" \
-e "s/^ \+Width: \+\([0-9]\+\).*/w=\1/p" \
-e "s/^ \+Height: \+\([0-9]\+\).*/h=\1/p" )
echo $x,$y,$w,$h
])
(nXFen, nYFen, nLargeurFen, nHauteurFen) = (ExtraitChaîne(sRésCmd,1,","), ExtraitChaîne(sRésCmd,2,","), ExtraitChaîne(sRésCmd,3,","), ExtraitChaîne(sRésCmd,4,","))

//Position de la souris par rapport à l'écran
sRésCmd= ExécuteCommande("eval $(xdotool getmouselocation--shell); echo $X,$Y")
(nXSouris,nYSouris) = (ExtraitChaîne(sRésCmd,1,","),ExtraitChaîne(sRésCmd,2,","))

LIB_Infos=""
LIB_Infos+= [RC] +"Handle de la fenêtre en cours : "+nHandleFenCourante
LIB_Infos+= [RC] +"Rectangle de la fenêtre : "+nXFen+","+nYFen+" -- "+nLargeurFen+"x"+nHauteurFen
LIB_Infos+= [RC] +"Position de la souris par rapport a l'écran : "+nXSouris+","+nYSouris
LIB_Infos+= [RC] +"Position de la souris par rapport a la fenêtre : "+(nXSouris-nXFen)+","+(nYSouris-nYFen)

PROCEDURE INTERNEExécuteCommande(sCommand)
sFicResest une chaîne=fRepExe()+[fSep]+"res.txt"
sFicCmdest une chaîne=fRepExe()+[fSep]+"cmd.sh"
fSupprime(sFicCmd)
fSupprime(sFicRes)

sCommand=ChaîneConstruit([
# save stdout and stderr to file descriptors 3 and 4, then redirect them to sFicRes
exec 3>&1 4>&2 >%1 2>&1

#Exécution de la commande passée en paramètre
%2

# restore stdout and stderr
exec 1>&3 2>&4
],sFicRes,sCommand)
fSauveTexte(sFicCmd,Remplace(sCommand,RC,Caract(10)))
SI PASLanceAppli("/bin/chmod +x "+sFicCmd,exeActif,exeBloquant)ALORS
dbgSortieStandard(ErreurInfo)
FIN
SI PASLanceAppli("/bin/bash "+sFicCmd,exeActif,exeBloquant)ALORS
dbgSortieStandard(ErreurInfo)
FIN
sContentest une chaîne=fChargeTexte(sFicRes)
fSupprime(sFicCmd)
fSupprime(sFicRes)
RENVOYERsContent
FIN