On Sunday 22 April 2001 22:56, Karl Ramberg wrote:
> I saw you were looking for a mailTo button which added the proper heading.
> I don't thik you can acomplish that without coding:-)
> Here is a snippet of what you appoxomatly need:
>
> messageStrm nextPutAll: 'From: ';
> 			 nextPutAll: Celeste userName;
> 			 cr;
> 			 nextPutAll: 'To: ';
> 			 nextPutAll: (self submorphNamed:'e-mail address' text string );
> "This I have
>  not tested:-). You have to name the textmorph that contain the e-mail
> adress accoring to submorphNamed. With a little luck it works."
> 			 cr;
> 			 nextPutAll: 'Subject: '.
> CelesteComposition
> 		openForCeleste: Celeste current
> 		initialText: messageStrm contents.

Depending on what your email address submorph is (i.e. a TextMorph, etc.), 
you could just do this:

 ('mailto:', ((self submorphNamed: 'e-mail address' ) contents string )) 
asUrl activate

-- 
Ned Konz
currently: Stanwood, WA
email:     ned at bike-nomad.com
homepage:  http://bike-nomad.com