#!/usr/local/bin/wish -f

# Set path variables (auto_path is needed for 'RunCommand'
#                     and 'guipath' is needed for 'execGUI')
set guipath $env(GUIDIR)
set auto_path "$guipath $auto_path"

# Set standard GUI formatting options
setoptions

# Set attributes of top level window
wm title . "About McIDAS-Lite"
wm geometry . +648+0
wm resizable . no no

# Create main frame
frame .aboutFrame \
   -relief raised \
   -borderwidth 3
pack .aboutFrame

# Create raised frame
frame .aboutFrame.raisedFrame \
   -relief raised \
   -borderwidth 3
pack .aboutFrame.raisedFrame \
   -padx 5 \
   -pady 5

# Create canvas 
canvas .aboutFrame.raisedFrame.canvas \
   -height 330 \
   -width 300 \
   -background white \
   -relief sunken \
   -borderwidth 2
pack .aboutFrame.raisedFrame.canvas \
   -side left \
   -expand yes \
   -fill both

# Create header
set headerFont [font create \
		   -family courier \
		   -size 14 \
		   -weight bold]

.aboutFrame.raisedFrame.canvas create text 150 30 \
   -anchor c \
   -text "McIDAS-Lite" \
   -font $headerFont

# Add SSEC logo

   set ssec_logo [image create photo -data \
   {
R0lGODlhUABsAPcAABMeCS4jCRgwLS40IyJENDNEMCtRPDlUOAQnWQg3ZBIzWSc7UR9HWClQ
VTVKVTNbVgo1cRA8cRg5bxRBdR8+bxpIcRhOeyFKdylGbyVOdy9IbjVObyZSeCtYczlSczNc
dFEvAlA7E0pFJWNMIkdQO0RhRVpRN2JgQUJMYT1eYUhXYlZeWz9qakpsaVtrZF93aXpJCopW
DHpSH3phMptbCK1jCJ1kEpprJ3RsR4d0RX51Unp7aZt8RqCMVZeOaqmXZyVShCtXhjVafzFi
jEJWezxfgDtngzlrkkhfgk9igEJxhk1wgUZpllBsjUh3kkh3nlluhFN+g2J7hXCAhFR3mFJ7
pVx7lmh+lViIl2SMmW6Njm+QnFyJp2eOp3GKqWuZrn6Ki32QoHiboYScnHWWrX+crXehs3+m
r4+VjKCei4yYpZ2loIihsIirsZGpsaCuqYCtvoqxwpSuvZG7x5yqt5y1uZy5wZnAzKWyt62x
taW5waq6wKa/ya3ByqDKzqLO2bVvDL1rCL9xDs5zELV7EMN+ENJ7ENCNENOGFMmOMemnEN+o
J7eYX7qiYr2naMimYLuidMale7mtd8awcc6vbc61c8a1e86te9axa9K9b9O1eNa9c9a9e969
c97Gc+fGc7+qhNC9gd7Be+bIe7iwlLazqsC8qdvHnLW9vbW9xrXGxr29wb3GvcHGwcbKxtnO
vq3Gzq3G1q3Ozq3O1q3W1rXGzrXOzrXO1rXW1r3Gzr3G1r3Ozr3O1r3W1sjM0NjTzq3O3q3W
3q3e3rXW3rXW57Xe3r3W3r3e3sbW1srS2s7O3s7W1s7W3tbW1tbW3tbW563e57Xe57Xe77ni
563n77nn67rs8bn3/8be3sbe587e3tLe4tbe587n587s7Mr3+97b2Ofe1ufe3t7e5+fn1ufn
3t7n5+fn597n7+fn797v7+fv7+fv99b39+f399b//+/n3u/n5+/v5+/v7+/v9+/37+/39+//
//fv7/f37/f39/f3//f////39///9////yH5BAEAAP8ALAAAAABQAGwAAAj+AP8JHEiwoMGD
CBMqXMjwoLx4+hpKnEix4j94OWbsiGixo8eKkGKAALAG38eTKA/q40FjJIAT41LKRAkvBg0Z
JgAAWAFvpk+L+nLQoJEDzICd4H4qlfiDho0Z+NDodLG0qsJwTmmsgjdlqjyrYAmurGGDx694
O3Su4RgWLCgaZH3IGycCwIA0bcO+ugHIxg1T/3zpHBAvr1V8jGoIsiH335oAAETkYciOnT5t
xjLjMnZLc+devdBZZtfWlA1ANW68+hcVsglfCNeh66YZVyxZtmPdkhUrFixZxm73uqWNmzm2
SsPxuLG4h8B0aV/GHLhOG2bbue/UuXPbD6w5fmL+zdquHdatzsaQcauqjxENQjVmfP2XB3IA
VwL1qeOW2dgdWN7Fckd4scxxxhltyDGHLHe4wYcst9jW2S3qkabULzbUQAgNpOzzjz471CUC
OOhwgwsuwPj2x3dkZEFGG114wQUZZsRhxyx39GGHHHb4sZssfQBJITfrIJfSDzYQAsgNzQi0
TykiBOACMrH40UeBbZxBBhZINEFFjf/dgUswuAwD4Bxy+KGHmnPU0YeafPChSjIWygQPI4AA
QkMaHOkDRghS7HZHG1maQYaXZsABhx13DFrHH2VGw+AWUUTBRRZdlCEHkLLoUUcdt6iyTp0o
7VXIIDckZY45yQCDzB3+ZdAohhkHRkEGLHdwQQUVWZgxCyx/BBNLMMLAUscZVDThBYJZ3rFF
GXUQuoc2RnqEGCCFABIJf5kFA6MXYnzBhaFZsJBFG3C0kQWmd8wRxyyzBBNMMcQOI0scUWxA
wANNaFeGG57WUQsy+lRrkamC3FDKMNHAWsWyZnBhxaVNLNFCClJkEcUW98YxR5ZabKEFHOIt
GkcbUVhxrhgv3tKHm3wgk0xhJ90ZiJI+DPPHF16A2wYZu36RxRAGGECAAS1oEccWccRxhxgt
GNAAAeZqnMUXc/DBrBhllMGdp57SQS1KoNgwCCE5nJGFF2R4YUYXWFABt8YlHFD3C1qYQaj+
HG3YXfTfDRggAAMsUGGFGG24cUYTTZBxix1t1OFGG8ygZE4MhAxSwwhQcCGjGFg0UYUTJTxQ
wuklsNCC2mLgHcUBRT/AQuAMFN1ABx80camLSxhhRh99ZBmGFnQk5RE72qBhQyGLzcCruE0c
0YQSKaBewgtfiCGMH1OU0MIDD7SABa2qP9BA+B9YwXgRQgjRhBVs4NpGGFZIEYYb83SkT3Bz
6ACIIIS4gQsaNz0lGIEJR2DBC6Iwsiw1TQwHgF0W5gCHOQhDCyl4QOwK1wQnCOECTcACxLyQ
BTFYIQlQ0AIe8lcRdtzLC1CwgSAQAYgTIEEJRzCCEYrgBC5U0A/+cdDCC1rwArtFMAp/2Nkc
ojEHFhgAfASoALi64D4nZAAD7aOCGGBIBCSIAQx4MFhCglMGKxgOB5lbjAuQIL0j+HAWf5iF
E0z3gtO1oHRRyEIS7/AHOPzhDB14AAOimIUgFIEDGbiAIimAASSQwYREIIIHwhCG6TRkHTAK
HRXiMIUkFYIQM0DCEJrQBT8kMQ5Z+EDgWsCCEkTBlXDwwxzm8IdcYeELQ4iAAhiQuyFQIAIU
oMAFMKAACFBACEUgAgYwoIEwTCEMJmlIMqjQpV3NIQszEEQhCkEDBziBCncgVjC4MARBVk+D
dYvCGWjxhzmY4QtH+JITJpAABjRgAmX+EAIFONA+CCggARLQgBAwIAEKLMALYUiCL8RIEHV4
AQlF6FIwvmAEFyQJEYUYgRn+MIxg5IoDFQjpBBpwABawoFLtmsOlhnCBkHopCBfogAQuIAEJ
VIAKZzCCPylQUGZi4Ap4CIMHwAAbheijD00QwgcyQIU2IKF9MljeIACxA53FoQocGMIXMsAA
BQwhC3EQRgWFMYcnIJADTHhCBpgAhy80AQ5cwIARyHAGWn3BAxgoAkEpcIXI3cINSdCAFGiG
EG1c4alFKAIZmBCE9nlgBoDA6A3eAIcnBKECQcjABCwQBDMEwxrW4KM7pUcFIGQgCByIQAaE
wIUvSIEBirz+FBX0yU+CYoAMtTCGLeoABQ0QYRUK6QMRIto+I2RgtUhgQguYgwhC4CB6QrAA
EC4wASos8RrtsMY1/KAFFgTBCFRIbe0YgIAEYKACClCAAdKbAAXMNEE7coNuatEHPoQBBUQI
A2ELMo8sKBW1H/wAE7AwhMaeILKIuIEHQlqBX1bhuu14xzuqMYsoEDEKT6An7RJQXgRg9gIs
EIICGsAAKwzKc1lggxw8tQc9gCEJSXAGQrhBhs5BlKZFoAITLtC+LNygEIgQhAx+GYEJuHEO
1WiHkqvRizIQUQyVKt0BHvDPBCQAAgm4QBEuwIEipEBpxvBDG6xQBjtALgtXYAP+HaRABDUc
hB18WJt/MbDPJpiBS981AxpqAGQbFEABRT5CF+6QZP+wwQteDh8LPpA68GGWCe3LQI4996I7
GCMYt4iFmWERvCtEEgpQIEISokmQePghDFgownEpYOc7xMEJTqjCHdQQAyAXQgYD2KwRuGCH
bLQDGVxUphAe0IEMPCAFBhyCEuAQh8oaoQtxuI2whAEMWchiFsDgTBbCkAUioMAD3xaHQdZR
hzIggQMQzUAXouFRM9ByDl1wAIIJIQPNBoEJv+tFH/ZwBQwo0wMcaGkEGJACI5hUDNGYRRzc
9odqFAMX3IFUHaLdC2PUwQpC1QAGHIACNxeEG3dI6gX+1jWFNUwiDaR4wxi0gAWYyoAQksXB
FHCwAx+kARWsmAISfPuCF7gACi5oQQtcsIIVvGAHa1gDGOYwDWMMo6N3ANcY0LCGNPwAEmlI
gwtUsAAoJKHNyGFHL7yARQzsIA2U4AEOcsAIR1CiB1OgABMcYANEJKIRjujBDHLwg0c8QhJg
uAIddsCDH1DiEZNoRA5ywIMcNKIRj3AED2zBMGPQYhZccIEPftAIHjQ+Bz1gBCUm4QMfXAEK
athvPPqQhQs4wAeaeMQIBmACFJQgB5yYxAkY8IQLnIARl5D9AFLggADMwBKayIEa/CQCEVDi
EpvIQfNNIAIThCAHlWCElYT+gYs++sARltB7AAbQAgGEIAA8mMQofuAGVeChqAJZhx2akIEd
WEIUPRjAGHb2BSo0QvcfIEpSYAnRFwI0oARDMARIYHguIAX6gA7JkAqOwAnJdw3UcA3W0Ecr
UHh4gCN+UAdoQAnhpwLBgAUFAAVZAAEqMAA8MAo+UAe5kAfw9w/moAeORAqaMAk54AAUJC5D
gAM/gAO5cwawh38xgAgwgEVFIAKOoANNgAfqYA90wAiboAk6YA3BEA1JNAdaoAOMoAV2MAfD
MAZUOAkFoAVRgGwucAHpJQAmIAqQUAe7gAp7MBD6gAxOFQY+sAmTMAMvcAez8EGXpQMn8AFk
sAX+e8gJPWADhyAIAxAEjaQDO5Bft9ANyMAInMAJVxgNDTMHZSAGJzADZSALw6AKP1CFOWAx
BuAADPAAC4AACCAAA6AJkKAHqpAKa5EftkAGVmAFPlAJosADLeAGTkABEHBeD1AAVqAEZOAD
k7AJi6gIgzBkF5ABKMBxvEIcVKiJ1tBWbsU1B1AAuDANxXACjjAJnCACRyM4GPMABFAAsngC
OLAGfLAHufghqbAEGYAEpICOk4ADZ8ABAIUBESAEBTYEWgB7o8cDh3AINbSPH4QBE2AFXmAF
j1AJm7ADXSA9QWABRSB0RVAFRQAFmGgJjIAFJUAAH2AADCAAAPCOBED+TM2EB2uQCn3iBlDg
bzsAfjmIAyjwT8KkSBlQARnQAo5wCZUwCTyQCIggAypATUNQXBDVCJ6gCWDwBE0wBEUwBBrw
A1MgBBmABSvwjIlHAEoQBQtgBX5gBy1AAAIgAB6gAhqQQs80HfqgB1nASB+wA5TAh5tACT7g
Ag4AAYo0ARlgARigA5PwjDn4A4lAAhfQWEEQBAmIAc+4CVMgdC1ABC2wA5MwBUlQBFKAA7kn
CjoABw7QAlKgmi5TBy3QAAtABHMJY1NQOR+iBkiQV4xkAjrQCYw5CY6gArBVARcATBRgAjyg
CZWgnIm3AiwABBaQAQVmmZmQg5NwCYtJgJr+MAVGkAIvcAKhsAmcgAMPkARLsAQPACpxYAx0
kAICsHMLsAEocAXLkB9yQAQUgJ8XwFMi8AMYOQmUwAmMsAAYkAAVUGT11J+bwIeUMAqQ4ABC
kFkcoAGPwAmbMAPU13wh0JtT0EpTcAKigI4zMDhuyQK3sAdb0A4GAAAeMAAEgF9EAAW2qQ9u
oEy2BVAcdgDfNwmaQAk5wADGNAHEuZ8LUAA84Ag5aAk+UARGYEhCUKGbIAXfhgIaoAEF8AM7
EAQb8AKkWQma+DFZAI8tIAdn8AAC4JYBIIsOQARSYDw0SgQRSQEI8E8FpQA4sJi5RwIRIAEJ
kAFFRpwREAAmAKD+i/kCTNBlRdAIoqAJWiAEToAERiAEGgB3H3AA35l7nJADXJACTkQALsoC
U5ACUFAAA0CqBZAEUkBqdZAEHhBMF1BeVpZlDOCMmtAJM/BPEFABElBkReYAMJADnaAJm4AD
pTUEHvAIwooDZrWsHyACKmAEB7ADJXAJnGCSH8ACSWA+BOACBEAGa1aqBzAAAzBUpDYOYDCX
OzAAS8BTfBoBRfYI4okDCIABPrAARHagF2ACNuAI4qkDFQCWGiAJomAJOsAFT7ArTYBhTfAE
jGYAOHCOkyAADRAFTrYAYLAFbNA91DcDLooCYUAQ6CAFI/kDI+AAilScxZkAj9AJF7r+ABoA
CSZAAQeaABFQAQwAA4rKCTOwAAMlAfCqCcq6sLuyK0xQApCgmv3ZlznQAKejQWXwAmXglkbq
CCTgAA5ABwRhDmw2BZDAA4NDmO1DASqbeyMQUD/AAwtQswcaUguQszNAAwRKAc84nk+AlbtS
BcmiAz+gAi9QACMwCch3AAQwuA4QdA0griOgCZYwBlegArlAEOygBRuQBM44AgIQlBeQAA4g
rD8wAApAAT7ACSQgAELqrhOAAn25iLdWpcgKtFj5TXhLBS5AekjQAmKwAjnQmCsQNSmAAgcg
AAXQn5VgCWoABkSwDB4yELnwAZS7CZ3AAwQABEfQUj8gogL+4E890An4xwASAAEW4AA9ALgz
cAiKAAg/CaU/0AFD4ARHoARKMJab4ANQ4AF1MAUhwAOhMAk90JYRVAAvQAI98JeQkAQqAAWk
JhDoEFgrYHj6y3h89wg6IAICUF4KoAI/wAj6qwM6wHf6iwMyQL6J0ANIupiO8AiMAHmMgHgA
6gNNcEdlAAcb2HdKuXgZ8X+N0AM6EJfKYBDx0AT4uQA4sMFX9wMYKgALUExV5gEigANAyAg/
kAMkUAAOYAKCoAiLkBE6wMRZrMFBrMFZPAVUgLFakCBoQAImsHaQ4AiOsHbUFwIEsKbGIxZn
UKXMpAELYLUOcMT2KrYIUFAcwAD+FMBxtueyAqUBN4AIinAITtkBHeABLFAEHvCRKqMxYoBi
YfApsjAGRGcCnEx94Uiq8ZkElkQQ3MCqGoACy6RxBSVMcNq9ALVlXKYBSLBaioRMKBAIipDI
JftU6BapyAQF0+MFctBtSNAFdgALbvACYBBBIlACIlAABUACLIACKLAGCKEPCZUEkqpxrZpX
/JRUHMCnM3VMqkYBGRCAkaoBI0C+5TsCHpBcRcA4yXUEXSLPSNAlKPACdQAGLnACdXMAIkAC
IvACYRB4TYIQuxAGZxAGV7AEkExn8YwEhpQFSQVMfqxIS3XPO6QBMZDLDmkCUtlBFRNRjMM4
TkAEBVD+AmDQOqcjAgB9AC4wBWqwBsCVEOPgBnRwC3rQi/fsARmgAUHwAUWwBZCTVBgwTDzG
YwrIBMZFAjaQy4rglCUt0kl1z/XcwtF8OiTQv8+smlOABqiADkalCmpgC7CwBeqTbkfdBAby
H7PAJRGKWELARuwjBEkwA4isCIUwAyzgJYyjPr2oPkYgag4A0CYQrgAtrksgBVIABqiwCgwl
EOawBXqwB3vgBUtAkWiWVESAK3VwbWdARR/QPvJsBABXBCjAiLlsAyRABEvABCpzBe/TBMn0
AR5AAsp8AC3gAAMgiyUAalMwBcqwX9e8CmKgBpKzNm1QBluA2Y4EC7AQL7j+4gVKcEj17ASR
XAQqAFm5XAgxoALvs229uARWzQIq4AJlsANC5wAGILgtgEJSsAZxvBDrwAZhwAZ7MGZhIAZX
UJFk4AawcBuNcguw0AZO0AQHJAVU8KhKgAQsEANPvQiAMANWsAViYOFZAGPkTQQkUAIu0HNg
MAUhft5SENyQPRHm8AZswAd4sAVbkAUVXpFnAN2x0Ad3cMx3sDZR4AS5wwL1zAUv8HKKgAg2
sAJQwATv4wVNsDZSUNgdPgIkMAaeMtNaAAVS8AbzMRHrgAeqkN9g4AVXgHFnQF8Q0gffMQe3
oCUwfs/0TE3vY1HkS28qUE0nhATqMwVFpNsE/Qb+eKDiYIAGanDQFKEPvlALtkAHK0dJWUDZ
u3EbssAHeqAddsAGZAAHPfM+u1IGXqADN5DINQQFgQ1jSJACK3ACB0ACIk5JwS3iarAKBzwR
d3gLqeAGY6AGZaAGYeAFdXAbZl4HfHMHfMAoLbY3dAAtbhAGMgAIi4AINHACVxDmwJwELlAC
HQ4GazAGzgQFrF4Ko2wRqaAKbmDrMy05YnAGeqAHdlAHcOAmZn4e1uYGV3IeHxgGMFAIjRgD
J4Dr7wMGS0ACBlACb3ALbwAGWgAGaqAGrCATu/AGB18Ga+DwbvAvbKAG5w4MvdAbu2FfXpAg
enAL9VgHOcCIDhkDO1D+0GMgBm5gP3WQCrsQ7mqABmiQB4J+EuuQCgevBrU+BnQQ8Z9SBx1/
HrdQC37gBlsQBkXvBi5j6G/wcodACDaAA2AQBjtf0GqwB6qACmugBmmgBnnwC5FNEeZA1m9g
i3xQB29w6z1PXy/jBvZd9JTkBrZwG/SlPIgQZDHwAmqAB2og02uwB6mACnq/Br4ADiw0E/Gw
C3uwCxSyW3qPB7bAB5yGB9Hy8GUQBidPB5LfYnkf8g1Jb6iAk2HwBn5/9XmwCvP9E+uwDMiw
C7mwC7Vwi/Vo6LZQC4ZeBzd/8Ccv7mUwBlPwcoQgCDRgAioABm+ACqmQB3mwBpDwC2GhD+v+
4Au9wPK1YNmoQPu1wAevrwe47wZvQOsHn3TcvwMQ/knNzvV5gAeokAY3EAOg8PUpMQ/j4Au7
sAursAd1gAdWbwupsAd8cPNrABB28qgh+MYNHoM+ZAgSBEiGDzVvVv1yJSPGjF//NG7k2NHj
R5D/4m1zpWpPnjx1cu1RZRJhHTwx27ypU+cNnT2r3uygAQgQjRFrwJnTmCNGjDQhlS4FqU/d
r1RRUdbJowqPVTy7dqlKpUorqlVcUeXJYSMQoBg+9m0EZ1FGPKZx5cYz50ssqpgxUe2Jipdv
1JOoBKe50dPGDFPwNOrrASMGKXxyJS/Vpy+eKrCqVgkWzDUVq5P+rPLsEQxumY8YNWrEkLFG
n0ZTbkmtnVybqbOoqlhFZbXqcypfHfHpSF1DhgxTGuWhvpjR9nPoH+HNiGGDRowc4DS+oi4D
0uvo4aObmkHDOgwfr/X5gAEjh3Px8SfrgySDxnUZq7bLaJ9U/n+50JnBIhpgGKEVjXTgb4bI
AHRQqTX4uw6918hrT78HM/RIH1L4Y601feDxYYQQGNTwxI30KcVDA5P7hb8RSEFxxvXa488E
fNYLAQYc4JrxRHN0GKG9EEwoxRQSY/wRRXh22DEEEEYgCwQQdpBnyRPhMQEEGKg8AQ0qR4AP
ywd/EYFKKkMIgEo0yNQQHzSgpDKANQM92MFNDeOJc046AwgBHTwzxOeEOukEAAAEA30QnzX6
DACAABpU9MFVCIXUhUmBTGOFHYLLVMN9xvHxU0UDAgA7
   }]

.aboutFrame.raisedFrame.canvas create image 70 100 \
   -image $ssec_logo \
   -anchor c

# Add text information

.aboutFrame.raisedFrame.canvas create text 200 75 \
   -anchor c \
   -text "University of Wisconsin"

.aboutFrame.raisedFrame.canvas create text 200 95 \
   -anchor c \
   -text "Space Science"

.aboutFrame.raisedFrame.canvas create text 200 110 \
   -anchor c \
   -text "and"

.aboutFrame.raisedFrame.canvas create text 200 125 \
   -anchor c \
   -text "Engineering Center"

.aboutFrame.raisedFrame.canvas create text 150 170 \
   -anchor c \
   -text "------------------------"

.aboutFrame.raisedFrame.canvas create text 30 195 \
   -anchor w \
   -text "Direct your comments/questions about"

.aboutFrame.raisedFrame.canvas create text 30 210 \
   -anchor w \
   -text "McIDAS-Lite to:"

.aboutFrame.raisedFrame.canvas create text 150 230 \
   -anchor c \
   -text "mcidaslite@ssec.wisc.edu."

.aboutFrame.raisedFrame.canvas create text 30 250 \
   -anchor nw \
   -text "For information about the full McIDAS-X"

.aboutFrame.raisedFrame.canvas create text 30 265\
   -anchor nw \
   -text "package including capabilities and"

.aboutFrame.raisedFrame.canvas create text 30 280 \
   -anchor nw \
   -text "purchasing costs please contact:"

.aboutFrame.raisedFrame.canvas create text 150 305 \
   -anchor c \
   -text "mug@ssec.wisc.edu."

.aboutFrame.raisedFrame.canvas create text 150 170 \
   -anchor c \
   -text "------------------------"

.aboutFrame.raisedFrame.canvas create text 30 195 \
   -anchor w \
   -text "Direct your comments/questions about"

.aboutFrame.raisedFrame.canvas create text 30 210 \
   -anchor w \
   -text "McIDAS-Lite to:"

.aboutFrame.raisedFrame.canvas create text 150 230 \
   -anchor c \
   -text "mcidaslite@ssec.wisc.edu."

.aboutFrame.raisedFrame.canvas create text 30 250 \
   -anchor nw \
   -text "For information about the full McIDAS-X"

.aboutFrame.raisedFrame.canvas create text 30 265\
   -anchor nw \
   -text "package including capabilities and"

.aboutFrame.raisedFrame.canvas create text 30 280 \
   -anchor nw \
   -text "purchasing costs please contact:"

.aboutFrame.raisedFrame.canvas create text 150 305 \
   -anchor c \
   -text "mug@ssec.wisc.edu."

# Create 'Dismiss' button
button .aboutFrame.dismiss \
   -text "Dismiss" \
   -command {exit}
pack .aboutFrame.dismiss \
   -pady 5