Re: set-part-color

[bill@cambridge.apple.com (Bill St. Clair)]

>Does anyone know how to change the background color of an editable-text-dialog-item? 
>
>
>(set-part-color an-editable-text-dialog-item :body *black-color*) does not work.

The enclosed patch will fix this for MCL 2.0b1p3. It will NOT work
correctly in an unpatched MCL 2.0b1.


(This file must be converted with BinHex 4.0)

:'QCbC@3YBQ&MDbeMEfa[FLe`BA4MD#jQBA0X!%C"8da$3d`b!!!!!"GB!!!!!#Z
Ar`!!!3!!!!`!!"G-rb*68`!!!J!!!"i&(L!"$Bi$3d0-"L9038056`38(a85!!!
!!!J$6UebE#!m!!!!!#2!!!J!!&K26R8!"J%B!!cr'!!##6&$3d`lF'&dBfKPFb"
`Eh0d)$)Z-')a1QCbC@3YBQ&MDbeMEfa[FLe`BA4MD#jXDA0`$3-!!"SU6%p"4%P
14be'58a&,90299*$45e'58a&+J38(a85!!!!!!J$6UebE#!m!!!!!(J%@%p1q3!
3!!!!"J%B!"!"'!!##30$3d`0!`!!#e0&9#e3380,38G&""3I5d!!!!!!#!01VA*
X,3`Y$#!Z!!3JI!!)!!"1VA#8)#i!$#"m!!J!!%kYF*3L2!!!!!!J2!!!!!"i#%k
X!!!L2!!!!!!J2!!!!!"i#%kX!!!J2!!!!!"f!8lYG&3!$J%B!"`"'!!Q!4J!,!%
B!$3"+!!i!4J!2J%B!%B"+!"+!4J!#B`5+PG"8NiY58BY8N9%48C*6N8UM"NU9d&
56Le*4Le5484&4NP145e,49*148`U&"rjh3!!!J!L!dkYFR`Y#bd&*R`!%!!!)'i
!$#Jm!)!!!8kYF)ai!%k6,3"i!%k6,3"i!%k6,3"i!%k6+J!Y2!!!!!!Y,J!%,5i
!'(J)6Ue`2#d&,6`!!!!!,6`!!!!!,5i!&(J-6Ue`2(J)6Ue`2(J)6Ue`2#dm!!!
!!#)Z!"3J2!!!!!"1VA#i6Ueb6#d!,6`!!!!!,38Y2!!!!!!Y2!!!!!!Y2!!!!!!
Y,J!XH""1VA!mH!a1VA!m,6`!!!!!,6`!!!!!,6VrbLd&,6`!!!!!,5i!,#dZ!#a
i#%kYF$`Y1[qi,6`!!!!!,6VrZLdZ!$ai%%kYF$ai$%kYF$ai$%kYG#JL!#!Z!#K
1VA#i6Ue`Y#d!,6VrI#d&,6VrILdkrmBY1[q#,5i!1(J36Ue`2(J-6Ue`2(J-6Ue
`2(J36Ued+#)!)!`N(NcZ##!!'(J3)(`!%!!!6Ze`$!!!!!#-3J!+!4J!0J%B!%`
"'!"5!4J!EJ%B!(J"'!#)!4J!N!!"'!#@!4J!R!%B!,)"'!#i!4J![J%*!-3"'!$
B!3N!h!%B!1)"#3%-!3N"%J%*!4B"#3%D!3N"5!%B!9!!'!!AMBi,3dp068p1,8a
*8e!'4d918eP0$3-!!`4-493U$3-!!`0"6N5-%5T$6da28Le"9N&*6%&#6%8UM!4
56%98$if1"dY&@9G28N3)8NG#3dp-6e)5$3-!!`4A5%91$!a549&959*&,94539!
0MJ988N&38`eI4d983N&$5d026%p5$3-!"`039&+0!`!$$P919dP14#e38Np8480
8M3-!!`938Np(6J`)9dP85#e54d)0!`!*$9p54d*#380,3dp-6e+0!`!$"8a*8e3
U$!pA594),8*"3dXY3dp-6e)3!!%*AR0PG(-JBQ&MDf0[E'pb)'C[FL"NGA*KG'P
[EL"[CL"LEf4j,JdJ)%4[CA0Z*h3JFf9d)'0[E'pb)'PQ)'j[)'0[E'pb)(&eD@0
VC(*KGb"[FL"MEfa[FL"TFb"ZD@`+!!%8(k@8!!!#!!!$6UebI#"Z!!3S2!#!!!&
1VA#-H!"1Z3!3!!!Y!(J!6VN!%!!!,3"i!%kj!"!!!#d!,6`!!!!!,5i!"#dZ!"K
i#%kYG#K1VA*-,3!Y2!!!!!!L,J!8)$`!!!!!6Ue`Z#d!)Li!&#!m!!!!!%kYF,J
Y!(J)6Ue`2#dm!!!!!#dZ!"3Y,J!J,5i!)(J36Ue`2#dm!!!!!#)m!!!!!#!Z!#4
1VA#i,3!Y1[r5,5i!)#3Z!#`L,J!S)$`!!!!!H"41Z3!3!!!Y!(J-6Ue`2(J36Ue
d+#)!)!`N(RJ3)(Vrj%lYF!`!!!!!!"B"'!!J!4J!+J%B!$)"'!"-!4J!9J%B!'B
"'!"i!4J!N!!"'!#@!4J!TJ%*!,B"'!#q!4J!fJ%*!1!!'!!2!`!%!`!%!`!%$3-
!!`0-493$!!B2!`!)%Jm$!!J5M!p6493Y9%9B9#e$6da28P-$!!S$!!X2$3-!!`&
8%J-!$)`39dP85#e849K8,8026%p58a!!!4)+!!%$!!i%&"qZQ3!!!!!U!dkYFQ`
Y#bCm!"!!!#d-,3`J,J!%)(`!#!!!6Ue`P#!Z!!`JI!!)!!"1VA#8)$`!!!!!6Ue
a,#dm!!!!!#dYr[Ki#%kYG#JL!#!-*$`!!!!!H!a1Nb!krq*1VA*-)J!J$#3m!!!
!!(J-6T-Y1[r-,5hqq(J)6Ued+#)!)!`N2!!!!!"i$%k6)$VrX%kYFN`L!#!-*$`
!!!!!H!a1Nb!krjT1VA*-)J!J2!!!!!!N2!!!!!"i$%k6)$`!!!!!6Ueb6#)!)$`
!!!!!*$`!!!!!H!`J5dkYFD`QGN!JGJ&1lA4F$%!!#!%B!"B"'!!N!4J!,J%B!$J
"'!"-!4J!9J%*!')"'!"X!3N!IJ%B!)J"#3#8!4J!RJ%*!+J"'!#Z!4J!Z!%B!-3
"'!$+!4J!%J`+*84&4Ne&9%K24!-!!3-!!K3Ir`%$p3!!!`3L!dkYF33!$!!%51B
()#`Z!"JU,J!8)(`!#!!!6Ue`[,R!Cc+jlJ!3CcC`$%kYFE`J4NkYF3`[5!!%6Ue
`9+S8F!a1VA'm)%91VA%-,dJ!"%kYF&5U&5!-60i%i#aI6R9`$%kYFE`J4NkYF3`
[5!!%6Ue`9+SCF!a1VA'm)%91VA%-,dJ!"%kYF&5U'L)Z!"`J2!!!!!"i#%kj!"!
!!#`!ZF"RF(!`6Ue`e#i))%G1VA%-,`JJ"RJ%6VN!%!!!)&rQJ$#!)%G1VA%-,`J
J"RJ%6VN!%!!!)&rQJ$&!!!)J4dkYF3`[##!'H!41Z3!3!!!JAqD!-8!!"(!-6Ue
a[#"(6Uea$#p)!!41VA"8UK3J$%kYFF3L,J!F)$`!!!!!H!K1Z3!3!!!U!,R!C`$
r+R!`6Ue`e#4))%T1VA%-,`JJ"AJ%6VN!%!!!)&rQJ$#!)%T1VA%-,`JJ"AJ%6VN
!%!!!)&rQJ$&!!!)J5NkYF3`[##!&H!41Z3!3!!!JAqD!-8!!"(!-6Uea[#"+6Ue
a$#p)!!41VA"8UK8J$%kYFF4J!2ki!!!!!25%!"B"'!#3!!%B!*J"'!#L!!F!Z!%
B!0!"'!$U!4J"'!%B!5!"'!%U!!-"3J%B!9S"'!&d!4J"RJ!$!D!!'!!2!`!&$3-
!"`4849K8M!T339*8,8026%p5M!P$6da28Le5485-#d026%p5,8G54891M!T$6da
28Le#6&9&M3-!"`4#6d4C!`!2!`!3!`!4!`!5!`!0$""'8N9%,84*38a24be*9%9
0&"p'2r3!!J!!!dkYFR`Y,2pJ)"Ci"%kj!"!!!#b!)#i!#(J%6VN!%!!!ZF"R-#d
m!!!!!#dZ!!3Y,J!3H!a1VA3J,3JL,J!-)"Ci##"m!"!!!%kYFDa1VA(%6Ze`A#!
-,&p1G3!!!!!!$J%B!"`"'!!N!!F!*J%B!%3"'!"D!"J!"S`E*8026P-Y68&(58-
Y6N9B9#e0494)6d3Y39*(M"9%58&-6dFY594&65e&6N&#6%9%,9!8(jQ,!!3!!!J
$6UebI#d@F$"1VA$8,3K`-%kYF03Y##3Z!!JL,J!%)"Ci$%kj!"!!!%Kk!!K1VA%
)B"SY,J!-*#i!$#)Z!!JJ$&a!H""1Z3!3!!"1G5!Z!!ai"%kj!"!!!#d!6Ue`X#!
@H!41Z3!3!!#`VJ!3CdBY,J!3)(S!#%kYG$`L13!)!!!J,J!-H!K1Z3!3!!#j`'B
))qi!$!!)!!!N,J!3)Li!)#!-H!a1Z3!3!!"1VA#B,%PB6Q!#)!a1VA4%)#i!&(J
%)(`!%!!!6UeaV%kYG%a1VA(%6Ueaa%lYF&`!*!%B!$)!"`"'!4J!9!%B!'3"'!"
Z!!F!G!%*!(`"'!#)!4J!N!!!"`#8rKJ!TJ%B!-)"'!!0!`!0!`!0$!Y@589A,9G
*6N429``63e958N919#e,49NY5%&14%a&8S`1+P&95898483Y9NP&9bS-$eC*49F
Y3dp19%&*6P-Y8!-!&J`A8d98,8098P*&6P3Y5d9C,8K"6N4-49+-%59$38a-,8j
&@&3Y68985%p%M"C$38a-,9G*9%JY4Np$990&4#e@589A$"K@589A,80-580,,89
@48j8,8K"6N4-49)8(cJbm!!"!!!$6UebG#!@H!41Z3!3!!#j`'BX,6`!!!!!,5i
!"(J)6Ued)#d))Li!"#!@H!JJI!!3!!"1VA'X6Ueaa%lYF&`J$#aI6R8!!!!!!!S
"'!!5!!F!&!%B!#i"'!"%!"J!"B`19NP&9be498P&9%9%,9!8(fKJ!!)!!!J$6Ue
bG#d@F$"1VA$8,3K`-%kYF03Y##3Z!!JL,J!%)"Ci$%kj!"!!!%Kk!!K1VA%)B"S
Y,J!-*#i!$#)Z!!JJ$&a!H""1Z3!3!!"1G5!Z!!ai"%kj!"!!!(J%6VN!%!!!F!a
1VA'm)#i!$(J%6VN!%!!!H!41Z3!3!!!J3%kYF3`[5!!%6Ue`9+Kj)!a1VA4%6Ue
aa%kYFF3XAdje!#3"'!!b!!F!4J%B!&3"'!"F!4J!EJ%B!(B"'!!(!`!0!`!0M!4
'8N9$$"*'8N9$,84539FY3dp19%919&--$PC*49FY3dp19%&*6N95$""@589A,80
-59!Y8N9(58p1!`!BM"*@589A,84539FY3dp19%919&-8(c8`p!!#!!!$6UebI#d
Xrf!J&RJ%6VN!%!!!,)!Y2!!!!!!Y,J!%,5i!%(J-6Ued)#d))Li!$#!@H!JJI!!
3!!"1VA'X6Ueaa%lYF&`!!!!!!!i"'!!@!4J!0!%B!%3!'!!%!`!8&"p(3J!%!!!
)!dkYFR`Y&R!`6Ue`e#d)F$"1VA$8,3JN,J!))Li!"#!@H!a1Z3!3!!")HJ!)6Ue
a#'!D,5i!$#3Z!!`L,J!))!aF3(J36VN!%!!!6R8J,J!3H!3JI!!3!!"1VA'X6Ue
d6%kYFF41VA(%6Ze`A!!N!4J!-J!(!%B"'!"8!4J!"!-!$3-!$3-!&`-!'!`@9NP
&9be,49NY49C&6P3Y5%&14%a&8K3I46h`!!%!!!01VA*d)"Ci"%kj!"!!!,R!CMS
J&RJ%6VN!%!!!ZF"R,#dm!!!!!#dZ!!4i#%kYG#!Y##)Z!!3J&RJ))(`!%!!!6Ue
aV%kYFF41lA"F)!`XAdje!!!!!!!+!4J!%J!(!"J"'!!J!!F!)J%B!$`"'!"5!"J
!"`-!'3`%9e"88K3IQ)N!!J!!#!01VA*d,4C`-%kYF03Y#(!`6Ue`e#d)*#i!##)
Z!!3J&RJ-6VN!%!!!5(S!#%kYF3KJ'LdZ!!`N,J!-)Li!##!-A%"i%%kj!"!!!%j
e)#i!$(J%6VN!%!!!H!41Z3!3!!!J,J!-H!41Z3!3!!"i"%kj!"!!!#d!)Li!%#!
m!!!!!(J)6VN!%!!!X*CR1#dZ!"!N,J!%)KBJ1[rNH!a1Z3!3!!"B6L!Z!""i"#"
m!"!!!%kYFDa1VA4-6Ueaa%kYFF41lA"F)!a1VA4%6Ueaa%kYFF3XAdje!#3"'!!
b!!F!4J%B!&3"'!"F!4J!D!%B!(!"'!"m!4J!K!%B!)`!"`#B!3N!RJ%B!+`"'!!
0!`!0!`!0!`!DM!Y'8N9$,9934%&843`,4P*&4#e#98C'49)-$8*94NC&8Le06d4
$6P3-$8&$9%P26Le06d4$6P3-#&C*49FY4d98$3i%8d984Je$3d`k1PC*49FY4d9
8$"*%58&-6dFY594&65e"3e4*6di$!"J-#dC5483Y99"%394&$id$!!F&38C849)
5&"mS*2!!!3J!!dkYFV3Y2!!!!!!Y,J!-H!K1VA3J,3JL,J!-)"Ci##"m!"!!!%k
YFDa1VA(%6Ze`A!!!!!!!"J%B!#!"'!!`!"J!!a3I6NJ!!J!!#!01VA*d,4C`-%k
YF03Y#(!`6Ue`e#d)*#i!##)Z!!3J&RJ-6VN!%!!!5(S!#%kYF3KJ'LdZ!!`N,J!
-)Li!##!-A%"i%%kj!"!!!%je)#i!$(J%6VN!%!!!H!3JI!!3!!"1VA'X6Ued6%k
YFF41VA(%6Ze`A!!N!4J!-J!(!%B"'!"8!4J!A!%B!!8$!!d$!!d$!"S$!"`$!"J
-%e0&9#e648a&3e4*6diY8N&14d8-(d*"8dP$,89%594"3Na&,94&@&3Y4%P"6%p
(,8P848d2!`!G%K3Ir`*Er`)rm!!"!#B$6UebF%MQ"c!X!#!'H!41Z3!3!!!Y!#!
'H!41Z3!3!!!Y!#)')$`!!!!!H!K1Z3!3!!!Y!("!6Ue`e#S))$`!!!#3!%kYF03
Y##"&6Uea$#!Z!!a1VA68))!J48kYF3`[##)Z!!`J,J!)H!K1Z3!3!!!JAdkYG03
K3!!%F!a1VA'm)&C1VA%-,dJ!"%kYF&5SQ,RZ!!4R!!,b)(`!#!!!6Ue`[#C!)(`
!#!!!6Ue`[#d!F""1VA'm)%Y1VA%-,dJ!##"&6Uea$#p)!!41VA"8U0p`%%kYFE`
J48kYF3`[5!!)2hcrr3!'2hcrr3!%6Ue`9+LTF""1VA'm)&C1VA%-,dJ!##"&6Ue
a$#p)!!41VA"8U0p`&%kYFE`J9NkYF3`[5!!-)%Y1VA%-,dJ!##",6Uea$#p)!!4
1VA"8U1C`#%kYFEa1VA"8U*iL"L!m!!!!!(J)6VN!%!!!,J!JI!!)!!"1VA#mZF"
R"#d(B!)Y$(!`6Ue`e#d)ZHi!"'F@F!a1VA'm)&C1VA%-,dJ!"%kYF&5U'8Kk!!K
1VA%)B##jlJ!)CaK`$%kYFE`JEJ!%6Uea$#p)!!41VA"8UK41GERZ!!4RFR!`6Ue
`e#d))&C1VA%-,`JJ"hJ%6VN!%!!!)&rQJ$#!)&C1VA%-,`JJ"hJ%6VN!%!!!)&r
QJ$&!!!)J9NkYF3`[##!(H!41Z3!3!!!JAqD!-8!!"(!-6Uea[#"@6Uea$#p)!!4
1VA"8UK3J$&K16Ueaa#)')$`!!!!!H!K1Z3!3!!!N3#"kra41VA#mZF"R"#d+B!)
Y$(!`6Ue`e#d)ZHi!"'F@F!a1VA'm)&C1VA%-,dJ!"%kYF&5U'NKk!!K1VA%)B##
jlJ!)CaK`$%kYFE`JEJ!%6Uea$#p)!!41VA"8UK91GERZ!!4RFR!`6Ue`e#d))&C
1VA%-,`JJ#RJ%6VN!%!!!)&rQJ$#!)&C1VA%-,`JJ#RJ%6VN!%!!!)&rQJ$&!!!)
J9NkYF3`[##!+H!41Z3!3!!!JAqD!-8!!"(!-6Uea[#"@6Uea$#p)!!41VA"8UK8
J$&K16Ueaa(!-6Uea[#",6Uea$#p)!!41VA"8U04`$%kYFE`J48kYF3`[5!!%6Ue
`9+LK)!a1VA4%@%j1VA(%@%j1VA4%@%j1VA(%@%j`%%kYFE`J48kYF3`[5!!)2h`
!!3!'2h`!!3!%6Ue`9+LT@%iJ"RJ%6VN!%!!!ZF"Q5(!-6Uea[#"m!!J!!%kYF,`
J3%kYF3`[5!!%6Ue`9+LGF!T1VA'm2h`!#`!%6Ue`9+LFF!a1VA'm)%91VA%-,dJ
!"%kYF&5SSR!-6Uea[#"@6Uea$#p)!!41VA"8U*NJ$%kYFF41VA(%,&p-lJcJrqa
1G3!!!!$m3!!3!4J!(!%B!#B"'!!Z!4J!E!%B!*B!!`#D!4J!TJ%B!8`"'!&8!4J
"A!%B!F)!"`(B!4J"m!%B!JS"'!)i!4J#3!%B!NJ"#3+X!!F#`J%B!YS"'!,d!4J
$MJ%B!jB!"`1H!4J%#!!B!"S-$9C*49FY8%p6594*6di-#9C*49FY8dPD43`-4&*
"9be2994-58j&$3-!!`T66%p8,9C"6&9&$!T"4%3Y8%p*6P46$!SU9%908#e54di
U$!`U9%908#e54diY-LS0!`!("8C538e&!`!2!`!&!`!3!`!4!`!5!`!6!`!2!`!
3!`!4!`!5!`!9$!iU4e*"@5e3394849*1+J-!'rpfc!!!: