/* Demo : Ouvrir un tiroir */

/* --- textes --- */
text_1 = "Tiens ? Pas de tiroir ? créez-en !"
text_2 = "Il n'y a pas grand chose dans ce tiroir ? Il est préférable"||'0A'x
text_2 = text_2||"qu'il y ait plus de 1 élément pour voir quelque chose !"||'0A'x
text_2 = text_2||"Ajoutez encore D'AUTRES TIROIRS et D'AUTRES OUTILS"

PARSE ARG pathdrw

M2Ipath = WORD(pathdrw,1)
newlook = WORD(pathdrw,2)

OPTIONS RESULTS
ADDRESS "M2IPort.Rexx"

LOCKUSER

EDMODE ON

OPENDRW STRIP(M2Ipath,'T',"/")||".D"
IF RC~=0 THEN DO
	MESSAGE text_1
	UNLOCKUSER
	EDMODE OFF
	EXIT
END


COUNT M2Ipath||"*"

IF RESULT<=1 & LASTPOS(newlook,'B')=0 & LASTPOS(newlook,'F')=0 & LASTPOS(newlook,'3')=0 THEN DO
	MESSAGE text_2
	UNLOCKUSER
	EDMODE OFF
	EXIT
END


IF LASTPOS(newlook,'H') THEN SET WLIST 0 STRIP(M2Ipath,'T',"/")
IF LASTPOS(newlook,'V') THEN SET WLIST 1 STRIP(M2Ipath,'T',"/")
IF LASTPOS(newlook,'T') THEN SET WLIST 2 STRIP(M2Ipath,'T',"/")

IF LASTPOS(newlook,'B') THEN SET LOCK 0 STRIP(M2Ipath,'T',"/")
IF LASTPOS(newlook,'F') THEN SET LOCK 2 STRIP(M2Ipath,'T',"/")
IF LASTPOS(newlook,'3') THEN SET LOCK 6 STRIP(M2Ipath,'T',"/")

IF LASTPOS(newlook,'C') THEN SET IPLACE 0 STRIP(M2Ipath,'T',"/")
IF LASTPOS(newlook,'U') THEN SET IPLACE 1 STRIP(M2Ipath,'T',"/")
IF LASTPOS(newlook,'D') THEN SET IPLACE 2 STRIP(M2Ipath,'T',"/")


REDRAW STRIP(M2Ipath,'T',"/")

UNLOCKUSER

EDMODE OFF

EXIT