PortAuthority

@font-face
	{font-family:Courier;
	panose-1:0 0 0 0 0 0 0 0 0 0;}
@font-face
	{font-family:Wingdings;
	panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face






	{font-family:"Cambria Math";
	panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
	{font-family:Calibri;
	panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
	{font-family:Cambria;
	panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
	{font-family:Tahoma;
	panose-1:2 11 6 4 3 5 4 4 2 4;}






 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{margin-top:0in;
	margin-right:0in;
	margin-bottom:10.0pt;
	margin-left:0in;
	line-height:115%;

normal'><span class=Heading1Char><span style='font-size:14.0pt;font-family:
Helvetica;color:black'>&nbsp;</span></span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span class=Heading1Char><span style='font-size:14.0pt;font-family:
Helvetica;color:black'>PortAuthority User Help</span></span></p>


<p class=MsoTocHeading><span style='font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoToc1><a

href="#_Toc15290243"><span style='font-family:Helvetica;color:black'>PortAuthority
User Help</span><span style='font-family:Helvetica;color:black;display:none;
text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>1</span></a></p>


<p class=MsoToc1><a href="#_Toc15290244"><span style='font-family:Helvetica;
color:black'>Overview of PortAuthority</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>1</span></a></p>


<p class=MsoToc1><a href="#_Toc15290245"><span style='font-family:Helvetica;
color:black'>The Overview Menu</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>1</span></a></p>


<p class=MsoToc2><a href="#_Toc15290246"><span style='font-family:Helvetica;
color:black'>Running MacPorts from the Command Line</span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>. </span><span

style='font-family:Helvetica;color:black;display:none;text-decoration:none'>1</span></a></p>


<p class=MsoToc2><a href="#_Toc15290247"><span style='font-family:Helvetica;
color:black'>Learning More About MacPorts</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>1</span></a></p>


<p class=MsoToc2><a href="#_Toc15290248"><span style='font-family:Helvetica;
color:black'>Getting Help with MacPorts</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>1</span></a></p>


<p class=MsoToc1><a href="#_Toc15290249"><span style='font-family:Helvetica;
color:black'>Getting Started with PortAuthority</span><span style='font-family:
Helvetica;color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>1</span></a></p>


<p class=MsoToc1><a href="#_Toc15290250"><span style='font-family:Helvetica;
color:black'>PortAuthority's Interface</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>2</span></a></p>


<p class=MsoToc1><a href="#_Toc15290251"><span style='font-family:Helvetica;
color:black'>The Installations Menu</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>2</span></a></p>


<p class=MsoToc1><a href="#_Toc15290252"><span style='font-family:Helvetica;
color:black'>The Information Menu</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>2</span></a></p>


<p class=MsoToc1><a href="#_Toc15290253"><span style='font-family:Helvetica;
color:black'>The MacPorts Menu</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>2</span></a></p>


<p class=MsoToc1><a href="#_Toc15290254"><span style='font-family:Helvetica;
color:black'>The Preferences Menu</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>2</span></a></p>


<p class=MsoToc1><a href="#_Toc15290255"><span style='font-family:Helvetica;
color:black'>The Window Menu</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>2</span></a></p>


<p class=MsoToc1><a href="#_Toc15290256"><span style='font-family:Helvetica;
color:black'>Scriptability and Services</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>3</span></a></p>


<p class=MsoToc1><a href="#_Toc15290257"><span style='font-family:Helvetica;
color:black'>Updates and Serial Number</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'> </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>3</span></a></p>


<p class=MsoToc1><a href="#_Toc15290258"><span style='font-family:Helvetica;
color:black'>The Help Menu</span><span style='font-family:Helvetica;color:black;
display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>3</span></a></p>


<p class=MsoToc1><a href="#_Toc15290259"><span style='font-family:Helvetica;
color:black'>Acknowledgments</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>3</span></a></p>


<p class=MsoToc1><a href="#_Toc15290260"><span style='font-family:Helvetica;
color:black'>PortAuthority Version History</span><span style='font-family:Helvetica;
color:black;display:none;text-decoration:none'>. </span><span
style='font-family:Helvetica;color:black;display:none;text-decoration:none'>3</span></a></p>


<p class=MsoNormal><span style='font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290244"></a><a name="_Toc15289256"><span style='font-family:
Helvetica;color:black'>Overview of PortAuthority</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>PortAuthority
provides a graphical user interface for the MacPorts software management system

itself.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>MacPorts
(</span><a href="http://www.macports.org"><span style='font-size:10.0pt;
font-family:Helvetica;color:black'>http://www.macports.org</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>) is a system that
streamlines the installation of open-source, Unix-based software on Mac OS X.
Unlike software that you purchase for your Mac, which is usually fully
integrated with your Mac and can be installed and removed via drag-and-drop,
Unix-based software must usually be built from source code. Furthermore, most
Unix-based software requires the installation of a complex chain of
interrelated components before it will function. (Native Mac software also has
these kinds of dependencies, but they are handled for end users by Apple as
part of Mac OS X and users do not have to worry about them.) The goal of
MacPorts is to make the process of installing Unix-based software as simple as
typing a few commands in Terminal, or by clicking a couple of buttons in a GUI
application; MacPorts will download, build and install not only the program you
specify, but all of the additional components that program requires to run as
well.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290245"></a><a name="_Toc15289257"><span style='font-family:
Helvetica;color:black'>The Overview Menu</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Before
installing MacPorts, make sure you have Apple's Developer Tools and X11
environment installed on your system. Both are essential for compiling Unix
software, and MacPorts will not function properly without them. You can find
these items on your Mac OS X installation CD.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
easiest way to get started with MacPorts is to download a disk image from the
main MacPorts site. Additional information can be found at </span><a
href="http://www.macports.org/install.php"><span style='font-size:10.0pt;
font-family:Helvetica;color:black'>http://www.macports.org/install.php</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h2><a name="_Toc15290246"></a><a name="_Toc15289258"><span style='font-family:
Helvetica;color:black'>Running MacPorts from the Command Line</span></a></h2>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>It is
useful to have an understanding of the basic MacPorts commands. PortAuthority

want detailed output from the port command, add "-v" when running the
program: port -v install name.If you want even more detailed, debugging output,
add &quot;-d&quot;: port -d install name.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h2><a name="_Toc15290247"></a><a name="_Toc15289259"><span style='font-family:
Helvetica;color:black'>Learning More About MacPorts</span></a></h2>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>In
addition to the resources listed above, a comprehensive guide to MacPorts is

available at </span><a href="http://guide.macports.org"><span style='font-size:
10.0pt;font-family:Helvetica;color:black'>http://guide.macports.org</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>. This manual
includes extensive documentation on installing and using MacPorts, as well as
information on contributing your own software package to MacPorts for others to
use.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h2><a name="_Toc15290248"></a><a name="_Toc15289260"><span style='font-family:
Helvetica;color:black'>Getting Help with MacPorts</span></a></h2>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>MacPorts
provides several mailing lists that can assist you with specific problems. The
mailing lists for general MacPorts issues is the MacPorts user mailing list at </span><a

href="http://lists.macosforge.org/mailman/listinfo/macports-users"><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>http://lists.macosforge.org/mailman/listinfo/macports-users</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>. Additional mailing
lists are also available at </span><a href="http://www.macports.org"><span

style='font-size:10.0pt;font-family:Helvetica;color:black'>http://www.macports.org</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>If you
have problems installing a particular MacPorts package with PortAuthority, try
running the relevant commands above in Terminal. If you get the same results,
chances are the issue is with MacPorts rather than PortAuthority, and posting a
query to the above mailing list will probably help you solve the problem.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290249"></a><a name="_Toc15289261"><span style='font-family:
Helvetica;color:black'>Getting Started with PortAuthority</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Before
using PortAuthority, you must install MacPorts itself. See </span><a
href="http://www.macports.org"><span style='font-size:10.0pt;font-family:Helvetica'>http://www.macports.org</span></a></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'> for
more information about getting started with MacPorts.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>To

download PortAuthority, go to http://www.codebykevin.com/portauthority.html.


You can install the application anywhere on your machine. The downloadable
version is a 30-day demo; if you like PortAuthority, you can purchase a license

that will allow you to run it past the 30-day trial limit.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290250"></a><a name="_Toc15289262"><span style='font-family:
Helvetica;color:black'>PortAuthority's Interface</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
PortAuthority interface provides a rich overview of information about MacPorts
programs on your system.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
main table, at the top of the window, provides a complete list of available

PortAuthority runs.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
toolbar provides access to commonly-used commands. A popup menu that is available
when the mouse is over the table display provides access to additional
commands.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290251"></a><a name="_Toc15289263"><span style='font-family:
Helvetica;color:black'>The Installations Menu</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>This
section provides management of the MacPorts programs themselves. You can

normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Many
port operations require an administrator password, which can be typed into the
standard system authorization dialog.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290252"></a><a name="_Toc15289264"><span style='font-family:
Helvetica;color:black'>The Information Menu</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>This
provides detailed data on specific ports. You can see a general overview of a
port, view its dependencies and variants, and more. The commands and their
keyboard shortcuts are as follows:</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoListParagraphCxSpFirst style='margin-top:0in;margin-right:0in;
margin-bottom:0in;margin-left:42.0pt;margin-bottom:.0001pt;text-indent:-.25in;
line-height:normal'><span style='font-size:10.0pt;font-family:Symbol;

</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Port
Dependencies: Lists other programs that must be installed with the port if it
is to function properly.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290253"></a><a name="_Toc15289265"><span style='font-family:
Helvetica;color:black'>The MacPorts Menu</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>This
provides management of the underlying MacPorts infrastructure. The commands and
their keyboard shortcuts are as follows:</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoListParagraphCxSpFirst style='margin-top:0in;margin-right:0in;
margin-bottom:0in;margin-left:42.0pt;margin-bottom:.0001pt;text-indent:-.25in;
line-height:normal'><span style='font-size:10.0pt;font-family:Symbol;
color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Update
MacPorts: Command-U. Updates underlying MacPorts infrastructure and package
descriptions.</span></p>

<p class=MsoListParagraphCxSpLast style='margin-top:0in;margin-right:0in;
margin-bottom:0in;margin-left:42.0pt;margin-bottom:.0001pt;text-indent:-.25in;
line-height:normal'><span style='font-size:10.0pt;font-family:Symbol;
color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Add
Port Descriptions: Adds new or updated port descriptions only; does not update
MacPorts infrastructure.</span></p>

<h1><a name="_Toc15290254"></a><a name="_Toc15289266"><span style='font-family:

Helvetica;color:black'>The Preferences Menu</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>PortAuthority
lets you set several preference items from the &quot;preferences&quot; menu.

normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>PortAuthority
also allows you to configure the font and point size of the text display, to
enhance its readability to your specifications.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290255"></a><a name="_Toc15289267"><span style='font-family:
Helvetica;color:black'>The Window Menu</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
window menu manages the various display windows of PortAuthority. It can
minimize the selected window, or bring all application windows to the front.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290256"></a><a name="_Toc15289268"><span style='font-family:
Helvetica;color:black'>Scriptability and Services</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>PortAuthority
offers extensive AppleScript support. The following commands can be called via

menu. To call another application's service--for instance, to display a domain
in Safari--simply highlight the text in PortAuthority and then select the
appropriate item from the Services menu.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290257"></a><a name="_Toc15289269"><span style='font-family:
Helvetica;color:black'>Updates and Serial Number</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>To
check for updates to PortAuthority, select the &quot;Check for Updates&quot;

normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>To
enter or check your serial number, select the &quot;License&quot; item in the
application menu.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>


<h1><a name="_Toc15290258"></a><a name="_Toc15289270"><span style='font-family:
Helvetica;color:black'>The Help Menu</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>This
allows you to access PortAuthority user documentation in HTML (the document you
are reading now). The menu also includes links to the Code by Kevin website.
The menu also allows you to contact the developer directly.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>For
help with MacPorts itself, extensive documentation and user mailing lists are
available at the MacPorts website: </span><a href="http://www.macports.org"><span

style='font-size:10.0pt;font-family:Helvetica;color:black'>http://www.macports.org</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>.</span></p>

<h1><a name="_Toc15290259"></a><a name="_Toc15289271"><span style='font-family:
Helvetica;color:black'>Acknowledgments</span></a></h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
following open-source technologies have gone into the development of
PortAuthority:</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoListParagraphCxSpFirst style='margin-bottom:0in;margin-bottom:.0001pt;
text-indent:-.25in;line-height:normal'><span style='font-size:10.0pt;
font-family:Symbol;color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
Tcl/Tk GUI toolkit. Website: </span><a href="http://www.tcl-lang.org"><span

style='font-size:10.0pt;font-family:Helvetica;color:black'>http://www.tcl-lang.org</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>; license: </span><a

href="http://www.tcl-lang.org/software/tcltk/license.html"><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>http://www.tcl-lang.org/software/tcltk/license.html</span></a></p>

<p class=MsoListParagraphCxSpMiddle style='margin-bottom:0in;margin-bottom:
.0001pt;text-indent:-.25in;line-height:normal'><span style='font-size:10.0pt;
font-family:Symbol;color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
tcllib and tklib libraries for Tcl/Tk. Website and license: </span><a
href="http://tcllib.sourceforge.net"><span style='font-size:10.0pt;font-family:
Helvetica;color:black'>http://tcllib.sourceforge.net</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>.</span></p>

<p class=MsoListParagraphCxSpMiddle style='margin-bottom:0in;margin-bottom:
.0001pt;text-indent:-.25in;line-height:normal'><span style='font-size:10.0pt;
font-family:Symbol;color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
MacPorts software management system. Website and license: http://www.macports.org.</span></p>


<p class=MsoListParagraphCxSpMiddle style='margin-bottom:0in;margin-bottom:
.0001pt;text-indent:-.25in;line-height:normal'><span style='font-size:10.0pt;
font-family:Symbol;color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
cocoaprint package for native printing. Website and license: </span><a
href="http://www.codebykevin.com"><span style='font-size:10.0pt;font-family:
Helvetica;color:black'>http://www.codebykevin.com</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>.</span></p>

<p class=MsoListParagraphCxSpMiddle style='margin-bottom:0in;margin-bottom:
.0001pt;text-indent:-.25in;line-height:normal'><span style='font-size:10.0pt;
font-family:Symbol;color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>App
icon from the Nuvola icon set by David Vignoni. Website: </span><a

href="https://commons.wikimedia.org/wiki/Category:Nuvola_icons"><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>https://commons.wikimedia.org/wiki/Category:Nuvola_icons</span></a><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>. License: </span><a
href="https://www.gnu.org/licenses/lgpl-3.0.html"><span style='font-size:10.0pt;
font-family:Helvetica;color:black'>https://www.gnu.org/licenses/lgpl-3.0.html</span></a></p>

<p class=MsoListParagraphCxSpLast style='margin-bottom:0in;margin-bottom:.0001pt;
text-indent:-.25in;line-height:normal'><span style='font-size:10.0pt;
font-family:Symbol;color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Icons
from Picol icon set. Website and license: </span><a href="http://www.picol.org"><span




style='font-size:10.0pt;font-family:Helvetica;color:black'>http://www.picol.org</span></a></p>





<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>




<h1><a name="_Toc15290260"></a><a name="_Toc15289272"><span style='font-family:





Helvetica;color:black'>PortAuthority Version History</span></a></h1>






<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>9.0
(September 1, 2019)</span></p>

</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Minor
bug fixes.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>7.8 (December
1, 2017):</span></p>

<p class=MsoListParagraph style='margin-top:0in;margin-right:0in;margin-bottom:
0in;margin-left:42.0pt;margin-bottom:.0001pt;text-indent:-.25in;line-height:
normal'><span style='font-size:10.0pt;font-family:Symbol;color:black'>·<span
style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>UI enhancements.</span></p>

No longer crashes when saving file or accessing help menu.</span></p>

<p class=MsoListParagraphCxSpMiddle style='margin-top:0in;margin-right:0in;
margin-bottom:0in;margin-left:42.0pt;margin-bottom:.0001pt;text-indent:-.25in;
line-height:normal'><span style='font-size:10.0pt;font-family:Symbol;
color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Additional
UI enhancements: Native notebook tabs; toolbar now toggles visibility via window
toolbutton.</span></p>

<p class=MsoListParagraphCxSpMiddle style='margin-top:0in;margin-right:0in;
margin-bottom:0in;margin-left:42.0pt;margin-bottom:.0001pt;text-indent:-.25in;
line-height:normal'><span style='font-size:10.0pt;font-family:Symbol;
color:black'>·<span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Dock
icon now bounces when long-running tasks completed.</span></p>

style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>Initial commercial
release.</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<h1>License</h1>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'> </span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>The
MIT License (MIT)</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>PortAuthority
source code: </span><a
href="https://www.codebykevin.com/fossil.cgi/portauthority/"><span
style='font-size:10.0pt;font-family:Helvetica;color:black'>https://www.codebykevin.com/fossil.cgi/portauthority/</span></a></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>Copyright
(c) 2019 WordTech Communications LLC</span></p>

normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>&nbsp;</span></p>

<p class=MsoNormal style='margin-bottom:0in;margin-bottom:.0001pt;line-height:
normal'><span style='font-size:10.0pt;font-family:Helvetica;color:black'>THE
SOFTWARE IS PROVIDED &quot;AS IS&quot;, WITHOUT WARRANTY OF ANY KIND, EXPRESS
OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
MERCHANTABILITY,FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO
EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES
OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
DEALINGS IN THE SOFTWARE.</span></p>


<p class=MsoNormal><span style='font-family:Helvetica;color:black'>&nbsp;</span></p>

</div>

</body>

</html>

  package ifneeded portauthority 9.0 [list source [file join $dir portauthority.tcl]]

    #create menu bar
    menu .mb

    #apple menu
    menu .mb.apple
    .mb.apple add command -label "About PortAuthority" -command tkAboutDialog
    .mb.apple add command -label "License" -command regproc::getReg
    .mb.apple add command -label "Check for Updates" -command "softwareupdate::checkVersion $appname::name $appname::version"
    .mb.apple add separator
    .mb add cascade -label "PortAuthority" -menu .mb.apple


    #overview menu
    menu .mb.overview -tearoff -0

}


#handle program shutdown via command-q
proc  ::tk::mac::Quit {} {
    savePref
    destroy .preferences
    exit
}


#"about application" command
proc tkAboutDialog {} {
    aboutWindow
}


proc aboutWindow {} {
    tk_messageBox -parent . -icon info -title "About PortAuthority" -message "PortAuthority: GUI for MacPorts" -detail "Version 9.0\n(c)2019 WordTech Communications LLC"

}


#initialization routines on startup
proc startUp {} {

    if {![file exists $datadir/portauthority.rc]} {
	checkPref
    }    
    
    if { [file exists  $datadir/portauthority.rc]} {
	catch [list source $datadir/portauthority.rc ] 
	appname::setAppName PortAuthority 9.0
	softwareupdate::setVersion $appname::name $appname::version
	machelp::setAppName $appname::name $appname::version
	checkMacPorts
	drawGUI
	setPref
	bgGetAllPorts
	catch {toggleCopyText}
	after 1000
	setAllPortsSelection
	.t.left.tree item Ports -open true
    }

    after 50 
    regproc::readLic $appname::name $appname::version
    
    
}

proc changeImagesDark {} {

    foreach item [image names]  {
	if {[image type $item] eq "bitmap"} {
	    $item configure -foreground white

package provide portauthority 9.0

source [file join [file dirname [info script]] portauthority-main.tcl]

# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# by a "package unknown" script.  It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands.  When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.

package ifneeded regproc 1.5 [list source [file join $dir regproc.tcl]]

#regproc.tcl  routines to register serial numbers

#Copyright 2015 WordTech Communications LLC

#MIT license

package provide regproc 1.5
package require http
package require xplat


image create bitmap _unlock -data  {
 
#define xbm_security_closed_32_width 32
#define xbm_security_closed_32_height 32

	variable library [file dirname [info script]]
    }
    variable datadir
    variable expired
    set expired 0


    #set the 30-day clock for application/version
    proc setClock {} {
	variable datadir 
	variable appname
	variable appversion
	variable appstore
	puts "datadir is $datadir"

	set launchTime [clock seconds]
	set saveTime [open $datadir/$appname$appversion.dat w]
	puts $saveTime $launchTime
	close $saveTime
    }

    #read the time set
    proc readClock {} {
	variable datadir 
	variable appstatus 
	variable expstatus 
	variable appname
	variable appversion
	variable appstore
	variable expired

	set curTime [clock seconds]
	set oldTime [read [open $datadir/$appname$appversion.dat r]]
	set expDate [clock scan "30 days" -base $oldTime]
	if {$curTime < $expDate } {
	    set expired 0
	    regproc::makePitch	
	} else {
	    set expired 1
	    regproc::expiredPitch
	}
    }
    
    #check to see if a time has been set
    proc checkClock {} {
	variable datadir 
	variable appname
	variable appversion
	variable appstore
	variable expired

	if {[file exists $datadir/.$appname$appversion.rc]} {
	    
	    catch "file rename $datadir/.$appname$appversion.rc $datadir/$appname$appversion.dat"
	    regproc::readClock
	    return
	}

	if  {![file exists  $datadir/$appname$appversion.dat]} {
	    regproc::setClock 
	    regproc::readClock
	} else {
	    regproc::readClock
	}
    }

    #dialog before demo has expired
    proc makePitch {} {
	variable version 
	variable appname
	variable appstore
	variable licensetitle
	set licensetitle "Purchase $appname"

	toplevel .purchase
	regproc::makeModal .purchase
	wm title .purchase $licensetitle
	wm resizable .purchase 0 0

	wm withdraw .purchase
	wm transient .purchase .

	wm protocol .purchase WM_DELETE_WINDOW {}

	ttk::frame .purchase.top -padding 10
	pack .purchase.top -side top -fill both -expand yes
	ttk::label .purchase.top.label -text "You are currently using a demo of $appname. This version will give you the chance to try \n$appname free of charge for 30 days. Would you like to buy $appname now?" -image _unlock -compound left -anchor n 

	pack .purchase.top.label  -side top -fill x -expand yes

	ttk::frame .purchase.bottom -padding 5
	pack .purchase.bottom -side bottom -fill both -expand yes

	ttk::frame .purchase.bottom.upper
	pack .purchase.bottom.upper -side top -fill both -expand no


	ttk::frame .purchase.bottom.lower -padding 5
	pack .purchase.bottom.lower -side bottom -fill both -expand no

	ttk::button .purchase.bottom.lower.install -text "Purchase" -default active -command "xplat::launch  http://www.codebykevin.com/$appname.html; regproc::getReg; destroy .purchase"
	ttk::button .purchase.bottom.lower.cancel -text "Cancel" -command " destroy .purchase; raise ."
	pack  .purchase.bottom.lower.install .purchase.bottom.lower.cancel  -side right -fill both -expand no
	
	::tk::PlaceWindow .purchase widget .

	wm deiconify .purchase
	focus .purchase.bottom.lower.install

	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .purchase -notify 1]

	    bind all <FocusIn> [list  wm attributes . -notify 0]
	}

    }

    #dialog after demo has expired
    proc expiredPitch {} {
	variable version 
	variable appname
	variable appstore
	variable expired
	variable licensetitle

	set licensetitle "Purchase $appname"

	toplevel .expired
	regproc::makeModal .expired
	wm title .expired $licensetitle
	wm resizable .expired 0 0



	wm withdraw .expired
	wm transient .expired .

	wm protocol .expired WM_DELETE_WINDOW {}

	ttk::frame .expired.top -padding 10
	pack .expired.top -side top -fill both -expand yes
	ttk::label .expired.top.label -text "This demo of $appname is now expired. Would you like to buy $appname now?" -image _unlock -compound left -anchor n 

	pack .expired.top.label  -side top -fill x -expand yes

	ttk::frame .expired.bottom -padding 5
	pack .expired.bottom -side bottom -fill both -expand yes

	ttk::frame .expired.bottom.upper
	pack .expired.bottom.upper -side top -fill both -expand no


	ttk::frame .expired.bottom.lower -padding 5
	pack .expired.bottom.lower -side bottom -fill both -expand no

	ttk::button .expired.bottom.lower.install -text "Purchase" -default active -command "xplat::launch http://www.codebykevin.com/$appname.html; regproc::getReg; destroy .expired"
	ttk::button .expired.bottom.lower.cancel -text "Cancel" -command " destroy .expired; exit"
	pack  .expired.bottom.lower.install .expired.bottom.lower.cancel  -side right -fill both -expand no
	
	::tk::PlaceWindow .expired widget .

	wm deiconify .expired
	focus .expired.bottom.lower.install

	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .expired -notify 1]

	    bind all <FocusIn> [list  wm attributes . -notify 0]
	}
    }

    #check for license, validate if found, set demo pitch if not found
    proc readLic {application version} {

	variable serial 
	variable datadir
	variable appname
	variable appversion
	variable appstore

	set appname $application
	set appversion $version

	set datadir [xplat::appconfig $appname]

	if {[file exists $datadir/.lic] } {
	    file rename $datadir/.lic $datadir/lic.dat
	}

	if {[file exists $datadir/lic.dat]} {
	    
	    set licnum [open $datadir/lic.dat r]
	    set serial [read $licnum]
	    close $licnum
	    return
	} else {
	    set serial "Demo"
	    regproc::checkClock
	    
	}
    }


    #write license to file
    proc setLic {} {
	variable serial
	variable serialbase
	variable datadir
	variable appname
	variable regwindow
	variable appstore
	variable expired

	if {$serial == ""} {
	    tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. The application will exit now." -parent .number
	    exit
	}

	set count 20000

	for {set i 1} {$i < $count} {incr i 1} {

	    lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]]
	}
	

	set output [lsearch  -inline $serialbase $serial]
	puts $serial
	puts $output
	
	if {$output >= 0} {
	    cd $datadir
	    set lic [open $datadir/lic.dat w]
	    puts $lic "$serial"
	    close $lic
		grab release .number
	    tk_messageBox -icon info -title "Thank You" -message "Thank You" -detail "Thank you for registering $appname." -parent .number
	    destroy .number
	    #display window that was hidden
	    catch {wm deiconify .}

	} else {
	    if {$expired == 1} {
		grab release .number
		tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. The application will exit now." -parent .number
		exit
	    }
	    grab release .number
	    tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. Please try again." -parent .number
	    regproc::getReg
	}
    }



    #generate license numbers
    proc genList {application} {

	variable appname
	variable regwindow
	variable appstore

	set appname $application

	set count 20000

	for {set i 1} {$i < $count} {incr i 1} {

	    lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]]
	}


	if [file exists  $::env(HOME)/[list $appname]-list] {
	    file delete  $::env(HOME)/[list $appname]-list
	}

	foreach item $serialbase {
	    split $item\n
	    set keylist [open $::env(HOME)/[list $appname]-list a]
	    puts $keylist $item
	    close $keylist
	}
    }

    #dialog to input registration number from demo prompt
    proc getReg {} {


	variable serial
	variable regwindow
	variable appstore
	variable expired
	variable appname
	variable licensetitle

	set licensetitle "License" 

	catch {destroy .number}
	toplevel .number
	wm title .number $licensetitle
	regproc::makeModal .number
	wm resizable .number 0 0

	wm withdraw .number
	wm transient .number .
    

	wm protocol .number WM_DELETE_WINDOW {}

	ttk::frame .number.top -padding 10
	pack .number.top -side top -fill both -expand yes

	
	ttk::label .number.top.label -text "Please enter your serial number for $appname\nin the field below:" -image _check -compound left -anchor n -padding 10
	pack .number.top.label -side top -fill both -expand yes

	ttk::entry .number.top.entry -textvariable [namespace current]::serial
	pack .number.top.entry -side bottom -fill both -expand yes

	ttk::frame .number.bottom -padding 5
	pack .number.bottom -side bottom -fill both -expand yes

	ttk::frame .number.bottom.upper
	pack .number.bottom.upper -side top -fill both -expand no


	ttk::frame .number.bottom.lower -padding 5
	pack .number.bottom.lower -side bottom -fill both -expand no

	bind .number <Return> {grab release .number; regproc::setLic;  raise .}
	ttk::button .number.bottom.lower.install -text "Register" -default active -command {grab release .number; regproc::setLic; raise .}
	ttk::button .number.bottom.lower.cancel -text "Cancel" -command "grab release .number; regproc::exitIfExpired; destroy .number; raise ."
	pack  .number.bottom.lower.install .number.bottom.lower.cancel  -side right -fill both -expand no
	
	::tk::PlaceWindow .number widget .

	wm deiconify .number
	focus .number.bottom.lower.install
	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .number -notify 1]
	    bind all <FocusIn>  [list  wm attributes . -notify 0]
	}
    }

    proc exitIfExpired {} {

	variable expired
	if {$expired == 1} {
	    exit
	} 

    }

    proc makeModal {w} {

	variable licensetitle
	if {[tk windowingsystem] eq "aqua" } {
	    destroy $w; toplevel $w;  tk::unsupported::MacWindowStyle style $w  modal; wm title $w $licensetitle
	}
	if {[tk windowingsystem] eq "win32"} {

package ifneeded tls 1.6.7     "[list source [file join $dir tls.tcl]] ;      [list tls::initlib $dir libtls1.6.7.dylib]"

#
# Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com> 
#
# $Header: /cvsroot/tls/tls/tls.tcl,v 1.14 2015/07/07 17:16:03 andreas_kupries Exp $
#
namespace eval tls {
    variable logcmd tclLog
    variable debug 0
 
    # Default flags passed to tls::import
    variable defaults {}

    # Maps UID to Server Socket
    variable srvmap
    variable srvuid 0

    # Over-ride this if you are using a different socket command
    variable socketCmd
    if {![info exists socketCmd]} {
        set socketCmd [info command ::socket]
    }
}

proc tls::initlib {dir dll} {
    # Package index cd's into the package directory for loading.
    # Irrelevant to unixoids, but for Windows this enables the OS to find
    # the dependent DLL's in the CWD, where they may be.
    set cwd [pwd]
    catch {cd $dir}
    if {[string equal $::tcl_platform(platform) "windows"] &&
	![string equal [lindex [file system $dir] 0] "native"]} {
	# If it is a wrapped executable running on windows, the openssl
	# dlls must be copied out of the virtual filesystem to the disk
	# where Windows will find them when resolving the dependency in
	# the tls dll. We choose to make them siblings of the executable.
	package require starkit
	set dst [file nativename [file dirname $starkit::topdir]]
	foreach sdll [glob -nocomplain -directory $dir -tails *eay32.dll] {
	    catch {file delete -force            $dst/$sdll}
	    catch {file copy   -force $dir/$sdll $dst/$sdll}
	}
    }
    set res [catch {uplevel #0 [list load [file join [pwd] $dll]]} err]
    catch {cd $cwd}
    if {$res} {
	namespace eval [namespace parent] {namespace delete tls}
	return -code $res $err
    }
    rename tls::initlib {}
}

#
# Backwards compatibility, also used to set the default
# context options
#
proc tls::init {args} {
    variable defaults

    set defaults $args
}
#
# Helper function - behaves exactly as the native socket command.
#
proc tls::socket {args} {
    variable socketCmd
    variable defaults
    set idx [lsearch $args -server]
    if {$idx != -1} {
	set server 1
	set callback [lindex $args [expr {$idx+1}]]
	set args [lreplace $args $idx [expr {$idx+1}]]

	set usage "wrong # args: should be \"tls::socket -server command ?options? port\""
	set options "-cadir, -cafile, -certfile, -cipher, -command, -dhparams, -keyfile, -myaddr, -password, -request, -require, -servername, -ssl2, -ssl3, -tls1, -tls1.1 or -tls1.2"
    } else {
	set server 0

	set usage "wrong # args: should be \"tls::socket ?options? host port\""
	set options "-async, -cadir, -cafile, -certfile, -cipher, -command, -dhparams, -keyfile, -myaddr, -myport, -password, -request, -require, -servername, -ssl2, -ssl3, -tls1, -tls1.1 or -tls1.2"
    }
    set argc [llength $args]
    set sopts {}
    set iopts [concat [list -server $server] $defaults]	;# Import options

    for {set idx 0} {$idx < $argc} {incr idx} {
	set arg [lindex $args $idx]
	switch -glob -- $server,$arg {
	    0,-async	{lappend sopts $arg}
	    0,-myport	-
	    *,-type	-
	    *,-myaddr	{lappend sopts $arg [lindex $args [incr idx]]}
	    *,-cadir	-
	    *,-cafile	-
	    *,-certfile	-
	    *,-cipher	-
	    *,-command	-
	    *,-dhparams -
	    *,-keyfile	-
	    *,-password	-
	    *,-request	-
	    *,-require	-
            *,-servername -
	    *,-ssl2	-
	    *,-ssl3	-
	    *,-tls1	-
	    *,-tls1.1	-
	    *,-tls1.2	{lappend iopts $arg [lindex $args [incr idx]]}
	    -*		{return -code error "bad option \"$arg\": must be one of $options"}
	    default	{break}
	}
    }
    if {$server} {
	if {($idx + 1) != $argc} {
	    return -code error $usage
	}
	set uid [incr ::tls::srvuid]

	set port [lindex $args [expr {$argc-1}]]
	lappend sopts $port
	#set sopts [linsert $sopts 0 -server $callback]
	set sopts [linsert $sopts 0 -server [list tls::_accept $iopts $callback]]
	#set sopts [linsert $sopts 0 -server [list tls::_accept $uid $callback]]
    } else {
	if {($idx + 2) != $argc} {
	    return -code error $usage
	}
	set host [lindex $args [expr {$argc-2}]]
	set port [lindex $args [expr {$argc-1}]]
	lappend sopts $host $port
    }
    #
    # Create TCP/IP socket
    #
    set chan [eval $socketCmd $sopts]
    if {!$server && [catch {
	#
	# Push SSL layer onto socket
	#
	eval [list tls::import] $chan $iopts
    } err]} {
	set info ${::errorInfo}
	catch {close $chan}
	return -code error -errorinfo $info $err
    }
    return $chan
}

# tls::_accept --
#
#   This is the actual accept that TLS sockets use, which then calls
#   the callback registered by tls::socket.
#
# Arguments:
#   iopts	tls::import opts
#   callback	server callback to invoke
#   chan	socket channel to accept/deny
#   ipaddr	calling IP address
#   port	calling port
#
# Results:
#   Returns an error if the callback throws one.
#
proc tls::_accept { iopts callback chan ipaddr port } {
    log 2 [list tls::_accept $iopts $callback $chan $ipaddr $port]

    set chan [eval [list tls::import $chan] $iopts]

    lappend callback $chan $ipaddr $port
    if {[catch {
	uplevel #0 $callback
    } err]} {
	log 1 "tls::_accept error: ${::errorInfo}"
	close $chan
	error $err $::errorInfo $::errorCode
    } else {
	log 2 "tls::_accept - called \"$callback\" succeeded"
    }
}
#
# Sample callback for hooking: -
#
# error
# verify
# info
#
proc tls::callback {option args} {
    variable debug

    #log 2 [concat $option $args]

    switch -- $option {
	"error"	{
	    foreach {chan msg} $args break

	    log 0 "TLS/$chan: error: $msg"
	}
	"verify"	{
	    # poor man's lassign
	    foreach {chan depth cert rc err} $args break

	    array set c $cert

	    if {$rc != "1"} {
		log 1 "TLS/$chan: verify/$depth: Bad Cert: $err (rc = $rc)"
	    } else {
		log 2 "TLS/$chan: verify/$depth: $c(subject)"
	    }
	    if {$debug > 0} {
		return 1;	# FORCE OK
	    } else {
		return $rc
	    }
	}
	"info"	{
	    # poor man's lassign
	    foreach {chan major minor state msg} $args break

	    if {$msg != ""} {
		append state ": $msg"
	    }
	    # For tracing
	    upvar #0 tls::$chan cb
	    set cb($major) $minor

	    log 2 "TLS/$chan: $major/$minor: $state"
	}
	default	{
	    return -code error "bad option \"$option\":\
		    must be one of error, info, or verify"
	}
    }
}

proc tls::xhandshake {chan} {
    upvar #0 tls::$chan cb

    if {[info exists cb(handshake)] && \
	$cb(handshake) == "done"} {
	return 1
    }
    while {1} {
	vwait tls::${chan}(handshake)
	if {![info exists cb(handshake)]} {
	    return 0
	}
	if {$cb(handshake) == "done"} {
	    return 1
	}
    }
}

proc tls::password {} {
    log 0 "TLS/Password: did you forget to set your passwd!"
    # Return the worlds best kept secret password.
    return "secret"
}

proc tls::log {level msg} {
    variable debug
    variable logcmd

    if {$level > $debug || $logcmd == ""} {
	return
    }
    set cmd $logcmd
    lappend cmd $msg
    uplevel #0 $cmd
}