--------------Boundary-00=_47AKL0O9P7PCRF0FZO34
Content-Type: text/plain;
  charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

On Friday 25 October 2002 04:13 pm, Norton, Chris wrote:
> Ned this is sweet!  :-)
>
> Thanks for jumping right on that.  I hope G=F6ran integrates this fix
> right away.
>
> G=F6ran & Daniel, I like the improvements you made today too.  Thank
> you!

Actually, I also added clickable email fields, and suppressed empty=20
ones. Try the attached.

--=20
Ned Konz
http://bike-nomad.com
GPG key ID: BEEA7EFE

--------------Boundary-00=_47AKL0O9P7PCRF0FZO34
Content-Type: text/x-squeak-changeset;
  charset="iso-8859-1";
  name="SMFullDescFix-nk.2.cs"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment; filename="SMFullDescFix-nk.2.cs"

'From Squeak3.2 of 11 July 2002 [latest update: #4956] on 25 October 2002=
 at 12:03:42 pm'!=0D"Change Set:=09=09SMFullDescFix-nk=0DDate:=09=09=0925=
 October 2002=0DAuthor:=09=09=09Ned Konz=0D=0DThis suppresses empty field=
s; also adds clickable links for author and registrant emails.=0D=0DThe S=
MCard>>sendMailTo: should probably be moved somewhere else, as it is a UI=
 function.=0D"!=0D=0D=0D!SMCard methodsFor: 'accessing' stamp: 'nk 10/25/=
2002 12:03'!=0DfullDescription=0D=09"Return a full textual description of=
 the package."=0D=09| s tab |=0D=09s _ TextStream=0D=09=09=09=09on: (Text=
 new: 400).=0D=09tab _ String with: Character tab.=0D=09self=0D=09=09desc=
ribe: name=0D=09=09withBoldLabel: 'Name:' , tab , tab=0D=09=09on: s.=0D=09=
summary isEmptyOrNil=0D=09=09ifFalse: [self=0D=09=09=09=09describe: summa=
ry=0D=09=09=09=09withBoldLabel: 'Summary:' , tab=0D=09=09=09=09on: s].=0D=
=09author isEmptyOrNil=0D=09=09ifFalse: [s=0D=09=09=09=09withAttribute: T=
extEmphasis bold=0D=09=09=09=09do: [s nextPutAll: 'Author:'];=0D=09=09=09=
=09 tab;=0D=09=09=09=09 tab.=0D=09=09=09s=0D=09=09=09=09withAttribute: (P=
luggableTextAttribute=0D=09=09=09=09=09=09evalBlock: [self sendMailTo: au=
thor])=0D=09=09=09=09do: [s nextPutAll: author];=0D=09=09=09=09 cr].=0D=09=
registrator isEmptyOrNil=0D=09=09ifFalse: [s=0D=09=09=09=09withAttribute:=
 TextEmphasis bold=0D=09=09=09=09do: [s nextPutAll: 'Registrant:'];=0D=09=
=09=09=09 tab.=0D=09=09=09s=0D=09=09=09=09withAttribute: (PluggableTextAt=
tribute=0D=09=09=09=09=09=09evalBlock: [self sendMailTo: registrator])=0D=
=09=09=09=09do: [s nextPutAll: self registratorEmail ];=0D=09=09=09=09 cr=
].=0D=09categories isEmptyOrNil=0D=09=09ifFalse: [s cr;=0D=09=09=09=09wit=
hAttribute: TextEmphasis bold=0D=09=09=09=09do: [s nextPutAll: 'Categorie=
s: ']; cr.=0D=09=09=09self=0D=09=09=09=09categoriesDo: [:c | s tab;=0D=09=
=09=09=09=09=09withAttribute: TextEmphasis italic=0D=09=09=09=09=09=09do:=
 [s nextPutAll: c name]; nextPutAll: ' - ' , c summary; cr].=0D=09=09=09s=
 cr].=0D=09currentVersion isEmptyOrNil=0D=09=09ifTrue: [self=0D=09=09=09=09=
describe: self smartVersion=0D=09=09=09=09withBoldLabel: 'Calculated vers=
ion: '=0D=09=09=09=09on: s]=0D=09=09ifFalse: [self=0D=09=09=09=09describe=
: currentVersion=0D=09=09=09=09withBoldLabel: 'Current version: '=0D=09=09=
=09=09on: s].=0D=09versionComment isEmptyOrNil=0D=09=09ifFalse: [s cr;=0D=
=09=09=09=09withAttribute: TextEmphasis bold=0D=09=09=09=09do: [s nextPut=
All: 'Version Comment:'].=0D=09=09=09s cr.=0D=09=09=09s=0D=09=09=09=09wit=
hAttribute: (TextIndent tabs: 1)=0D=09=09=09=09do: [s nextPutAll: version=
Comment].=0D=09=09=09s cr; cr].=0D=09url isEmptyOrNil=0D=09=09ifFalse: [s=
=0D=09=09=09=09withAttribute: TextEmphasis bold=0D=09=09=09=09do: [s next=
PutAll: 'Homepage:']; tab;=0D=09=09=09=09=0D=09=09=09=09withAttribute: (T=
extURL new url: url)=0D=09=09=09=09do: [s nextPutAll: url];=0D=09=09=09=09=
 cr].=0D=09downloadUrl isEmptyOrNil=0D=09=09ifFalse: [s=0D=09=09=09=09wit=
hAttribute: TextEmphasis bold=0D=09=09=09=09do: [s nextPutAll: 'Download:=
']; tab;=0D=09=09=09=09=0D=09=09=09=09withAttribute: (TextURL new url: do=
wnloadUrl)=0D=09=09=09=09do: [s nextPutAll: downloadUrl];=0D=09=09=09=09 =
cr].=0D=09description isEmptyOrNil=0D=09=09ifFalse: [s cr.=0D=09=09=09s=0D=
=09=09=09=09withAttribute: TextEmphasis bold=0D=09=09=09=09do: [s nextPut=
All: 'Description:'].=0D=09=09=09s cr.=0D=09=09=09s=0D=09=09=09=09withAtt=
ribute: (TextIndent tabs: 1)=0D=09=09=09=09do: [s nextPutAll: description=
].=0D=09=09=09s cr; cr].=0D=09modulePath isEmptyOrNil=0D=09=09ifFalse: [s=
elf=0D=09=09=09=09describe: modulePath=0D=09=09=09=09withBoldLabel: 'Modu=
le path: '=0D=09=09=09=09on: s].=0D=09moduleVersion isEmptyOrNil=0D=09=09=
ifFalse: [self=0D=09=09=09=09describe: moduleVersion=0D=09=09=09=09withBo=
ldLabel: 'Module version: '=0D=09=09=09=09on: s].=0D=09moduleTag isEmptyO=
rNil=0D=09=09ifFalse: [self=0D=09=09=09=09describe: moduleTag=0D=09=09=09=
=09withBoldLabel: 'Module tag: '=0D=09=09=09=09on: s].=0D=09^ s contents =
isoToSqueak! !=0D=0D!SMCard methodsFor: 'accessing' stamp: 'nk 10/25/2002=
 10:43'!=0DsendMailTo: recipient=0D=09| usingCeleste userName server mess=
ageStream versionString |=0D=0D=09versionString _ currentVersion.=0D=09ve=
rsionString isEmptyOrNil ifTrue: [ versionString _ self smartVersion ].=0D=
=0D=09usingCeleste _ (Smalltalk includesKey: #Celeste) and: [Celeste isSm=
tpServerSet].=0D=09usingCeleste=0D=09=09ifTrue: [server _ Celeste smtpSer=
ver.=0D=09=09=09=09userName _ Celeste userName.]=0D=09=09ifFalse: [server=
 _  FillInTheBlank request: 'What is your mail server for outgoing mail?'=
=2E=0D=09=09=09=09userName _ FillInTheBlank request: 'What is your email =
address?'].=0D=0D=09messageStream _ WriteStream on: (String new: 1500).=0D=
=09messageStream nextPutAll: 'From: '; nextPutAll: userName; cr;=0D=09=09=
nextPutAll: 'To: '; nextPutAll: recipient; cr;=0D=09=09nextPutAll: 'Subje=
ct: '; nextPutAll: self name; space; nextPutAll: versionString; cr.=0D=0D=
=09usingCeleste ifTrue:=0D=09=09=09[CelesteComposition=0D=09=09=09=09open=
ForCeleste: Celeste current =0D=09=09=09=09initialText: messageStream con=
tents]=0D=09=09ifFalse:=0D=09=09=09[AdHocComposition =0D=09=09=09=09openF=
orCeleste: server=0D=09=09=09=09initialText: messageStream contents].! !=0D=
=0D
--------------Boundary-00=_47AKL0O9P7PCRF0FZO34--