Movable modal dialogs

[Ranson <ranson@LANNION.cnet.fr>]

This is a quick hack for doing movable modal dialogs in MCL2.0.
Please put movable modal dialog support in the next version of MCL!
     Daniel.

(This file must be converted with BinHex 4.0)

:%Qe[GQ&LE'8YE@pNB@`ZE'PcF!"849K83d0--J#3"!a6!!!"Z3iL1j!%)%KKEQ4
XD@jR)'e[GQ&LE'8JE@pNB@`JC'PKE'pRFb"TEL"0B@0TER4[FfJJ3fpYE@pZ)%a
TFh!J-Li`$6Z3"#""GA4SEh)k)%4KEQPPE#"5B@jcEfi01j!%)%TeEQ8J-6JX)$%
j16)01j!%)&4SDA-JBfpNC5"TFb"TEL"dD'8JF(9LE'PM)'4[E@&TELiJ9A0P)'&
d)(P[GA)JEhGZ)(*TFfXZ$3dlN!3J6@pfB@*XC5"YEf4KE#"ND@&XEfGc)'&bC5"
K)(0dB@jNBA*N)'CPBA4eFQ8JEfBJ8hPcG'9Y)$F01j!%)&9ZC'9b)&0jFh4PE5!
f,#"jEh8JGfPXE#"SBACP)(4[)'GPG#"dD'8J9d4&4L"bCA0[GA*MC5"QFQpY)%4
88b"KEQ3JF'&cG'801j!%)'Pd)'PZ)(P[GA)JBA"`E'PMBA4TEfiZ)&P[G5"YBAN
JEQ9PC#"dEb"MD'&ZCf8JG'KP)("bEf0*4#"LC@a[Gbi0$6Z3"#""C'3JG'KP)'e
[GQ&LE'8JG(P`C5"dEb"96N423e9048j8483JB@aTFh30+(9ZE'9cFb!SBA0cEf-
J1Qe[GQ&LE'8YE@pNB@`YBQpi)'0ME$Sk+RGTEQ4[GbedHA"P,A"bEf0TC#eKE'P
cG#ST$5!J+("eFfJJ+'0[ER-J1Qe[GQ&LE'8YE@pNB@`YBQpi)#-NE@pfB@*XC84
#EhK3FQpM+5"MBf`k1LThD@jNEhFYG(P`C5e`FQpMD@3YB@aTFh3U+5N0$6Z3"#"
"EL"PGQ9ZG#"SEfpV)'CeEQ0dD@pZ$5KNC@CeEL"YEhCKBQaP,@e[C'&X,@9fC@j
dD'p[Db!S+3dJ)$Xl)%K"3dXKN!-J6R9VC5"dD'8JEQpbE@&X)'e[C'&X)'4TB@a
[Cb"PGQ9ZG'K[EfXJB@jN)(*PF'aKBf8JDA3JGfPdD#"[GA*cC@aQ$5!J+(0PG(%
J+Q9fC@jdD'p[DbSJ)bGYEhCKBQaP,@e[C'&X,@9fC@jdD'p[DbN0)#!SE@pfB@*
XC5eYEf4KE#ePGQ9ZG#eQD@adCA)J+'CbEfjd,AGTEQ4[GbQ3!`d01j!%)%pfCA*
bD@4P)(4SDA-JD@BJH@pe)'jPC@3JG'mJCQPXG'9b)'4TB@a[Cb"PGQ9ZG(-0+'4
PCQGPEQ9bD@-JE@pfB@*XC5eYEf4KE#ePGQ9ZG#eQD@adCA)J+(GTEQ4[GbNT$3d
SC'9QE@9dD'pN)'e[GQ&LE'8YE@pNB@`YCACPER3YCQPXG'9b)#JSGfPZC'ph)(G
TEQ4[GbNT$5!J+(GSC@iJ+$dJ+(*bC@BJ+Q0eFR*PER3YCACPER3U)$T&GQ9ZG&*
PBfpbC#jhD'&d+5!M*'e[GA0P4'phELN0)*!%1cXJ9f8JEfjXH5"QD@adCA)JE@p
eFf8JC'phEL"PGQ9ZG(-0)*!%+'aPG#!S+'0XD@0V9(P`C5"ZD@`T+(G`G()JEQP
X+5N0)*!'+(*XCA3J+#Kh)$T`EfPZG'9b+5N0)*!)+(0PG(%JBfaTBfY8HA"P)#J
MAdCTEQ4AD@jNEhFJ+(*bC@BJ+Q0eFR*PER3YCACPER3U)$T&GQ9ZG&*PBfpbC#j
hD'9bC5NJGbN0)*!1Gh"dFL!S*@GPG#e`G()JGbQ3!`dJN!BSEQpd)#K[FJdJN!`
l1b"3BA0c)'0XD@0VFb"TEL"NCA0V)'pb)'ePER8JBQ&b$5#3$#Jp)'0XD@0V9(P
`C5!M*'PZ4'9cDbNJ+$dJBfaTBfY8HA"P)#-ND@j0C@je3Q&b+3dJN!`l1b"3BA0
c)'&XE#"ME'PMDh-JD@iJG'KP)'CbEfjd)(GTEQ4[G`dJN!`SB@jN)#KZEh3J+#9
ZG@aX,A"dFLe`)(G`G()T+5!SCA&X)(G`G()J+(G`G()JGfPZC'ph+C!$$5#3$$X
l)&"KFh-JBfaTBfXJD@iJG'KP)'4bB@FJFQ9RD@pZ)'pQ)'pdD'9b)(GTEQ4[Gh-
JD@BJG'KP)'0[E@eKEQ3JDf9j)'Pc)'4[Gfi0)*!-+'&ZC#!S25"ME'PMDe4jF'8
J)b4TEN4bB@FT$5#3%5KZEh3J+(TPFQp`)#KXEfGKEQ3J+(*bC@BJ+Q0eFR*PER3
YCACPER3U)$T&GQ9ZG&*PBfpbC#jYEf4TCQPPFR-T)#-NBfeN5f9j+C!%$5#3$$X
l)%9XFf8JBQ9PF#"KEQ3JDfPXE#"dD'8JCACPER30)*!-+("bEfGZ)#JMAe0jFd*
PCA!J-5NJEQPX+C!'$3dlN!3J9'KP)'CeEQ0dD@pZ)(4SBA3JF'aKHA-JG'KP)'4
TB@a[CbiJ5A3JFQ9XD@9c)'pZ)'e[C'&X,@4TB@a[Cb"QEh)JG'KP)'4TFR4j)(G
[FQX01j!%)%PQ)(P[G5"ZC@9N)'%JCQPXG'9b,#"[GQ9bFQPNC5"YEhCKBQaP,@e
[C'&X,@9fC@jd,@CTE(4PFJdSC'9QCf9ZCA*TBb"YEhCKBQaP,@e[C'&X,@4TB@a
[Cb!SGfPZC'ph)#C[F(4TEfjKE#"ME'pcC5e[ELePH'Pd+5N0$5KNC@CYCA4SEf3
JE@pfB@*XC5eYEf4KE#eND@&XEfFJ+#KhD@jNEhFJGfPZC'ph+5!QEh"dD@pZB@`
J+'0XEh0P,@pZ,@9iDA3JG#NT$5!J+'e[C'&X,@4TB@a[Cb"hD@jNEhFJBfa[Ff8
YEfiYCAKTG#!M*fe[GQ&LE'8YE@pNB@`YCACPER4SEfpV+5N0N!-MI!dSC'9QG@i
JG'9cG#!S+3dJ)#KYEhCKBQaP,@e[C'&X,@4TB@a[C`dJN!-SE@&VC5eTER0dB@j
MC5!RC'PKE'pR$5#3"6TfD@9h,A"[FfPdD@pZ)$TMC@jdCA*PC#!kGQPPGbecDAT
P)#0!+$%`-#!a-$!T$5#3"6ThD@jNEhFYG'PdE'8J)P4PFh3L)$ThD@jNEhFYFfK
[Gb"ZD@`J1RGTEQ4[GbedHA"P)$TYEhCKBQaP,@e[C'&X,@*[H!dJN!8kGQPPGbe
cG@*fD@9hFb!SE'PcG#!SE@&VC5eND@&XEfFYDA4PE5!RC@4TG'&LE'8YG'9iG#e
ND@&XEfFYDA4PE5!M3#Ja-#!a-#NJ)d!S1$!J-M!T)#*8CAKd)LN0)*!D+'eKDf8
YC'PKE'pR,@PdC@dJ*f*eG(4[ELeND@&XEfFYDA4PE5!M3#Ja-#!d-#NJ)d!S1$!
J-M!T)#*$B@jMC@`L$5#3,#-R+'aKE@*NB5!SD5N0)*!`+'4PBfaKFQ8J+'PREQp
bC5"T+5N0)*!`+(*PG(9bELeQFQpY,@e[C'&X,@4TB@a[Cb!kBf&ZBf9X+C!$$5#
3'LKYB@YP,@4TB@a[CbeTG'9Y)#GLGA4dEfiYC'PKE'pR,@PdC@dJ)d!S-6!J0c!
T)#0!+$J`)$)`+5!L6dXL$5#3,#-R+'aKE@*NB5!SD5N0)*!`+'4PBfaKFQ8J+'P
REQpbC5"T+5N0)*!`+(*PG(9bELeQFQpY,@e[C'&X,@4TB@a[Cb!kEfXT+3dJN#`
kC'9QBA9XG#eLGA4dEfiJG#Q3"3em)`h4'3!!!3#3!`&R!*!$C`#3!e)!!$13"!#
3"$-c!!$rr`!!-c-!!-c-!!!c-`!!QCN5E@pfB@*XC5eYEf4KE#jXDA0`BJ)!N!0
849K83d0--J!!9%9B9%0$6$)!N"LQCJTX!!!-8`!!!ERrr`#3"-b3"!#3"-c-QCN
!N!6-c'CQ!*!%c-`c-`#3"-c-!*!'QCRrr`#3"*QCc-`!N!5CN!3!N!5CQ@CQ!*!
%QCNc-`#3"*QC!*!'CQErr`#3"'CQc-`!N!4QCTQC!*!%CT!%!*!%CQBc-`#3!`S
!!3!%#3!"!*!'#3!!"Ne[EQ&ME`#3!dJ!#8e[EQ&ME`#3'`B!#!!T!!-"+J(k!#N
!!`%U!IS!N"!"!*!$!3#3!`&R!*!$C`#3!e)!F"@J$0`!N!-F!&)!!8C5483!!3!
569"68J#3!bS!![rr!*!&F2cd!!2rr`#3!`i!F2cN!qhrr`#3!aX!F2e%&@N: