Constructors

Sample code to create and use a special structure in AppleScript mostly unknown as “constructor”…

• Some of the features defined in the “constructor” maybe available only to OS X or special email clients (?), but this is simple source-code and can be adaptated

OS version: Any

(*

This is sample code to create and use a "constructor".
A constructor is, basically, a handler which returns
an object when invoked, which owns its own properties
and methods (as defined in the constructor).

You don't need constructors by default, but they can be
useful for organization purposes (as far as I understand'em),
or under certain special circumstances.

*)

--> input name and email address to create three new "folks"
set Joe to makeFolk("Joe Morton", "joe@morton.com")
set Jerry to makeFolk("Jerry Bloom", "jerry@bloom.net")
set Cassy to makeFolk("Cassy Black", "cassy@black.org")

--> test the various methods available for "folks"
tell Jerry to newEmail()
tell Cassy to makeClipping()
tell Joe to composeTestEmail()

to makeFolk(x, y) --> the "constructor"
	script blankFolk
		property |name| : x
		property email : y
		to formatData()
			|name| & " <" & email & ">"
		end formatData
		to composeTestEmail()
			"Subject: test" & return & ¬
				"To: " & formatData() & return & ¬
				"From: [email]foo@test.bar[/email]
MIME-version: 1.0
Content-type: text/plain; charset=x-mac-roman
Content-transfer-encoding: quoted-printable

This is a test!!!"
		end composeTestEmail
		to newEmail()
			open location "mailto:" & formatData()
		end newEmail
		to makeClipping()
			tell application "Finder" to ¬
				make new internet location file at desktop to ("mailto:" & email) with properties {name:|name|}
		end makeClipping
	end script
end makeFolk

property |version| : 1.0
property author : "Pescados Software · PescadosWeb.com"
property |date| : date "jueves, 10 junio 2004 14:35:24"
property license : "freeware, open-source"