[micropolis] / res / wscen_older.tcl

# Window: Scenarios, for Unix Micropolis.
#
# Micropolis, Unix Version.  This game was released for the Unix platform
# in or about 1990 and has been modified for inclusion in the One Laptop
# Per Child program.  Copyright (C) 1989 - 2007 Electronic Arts Inc.  If
# you need assistance with this program, you may contact:
#   http://wiki.laptop.org/go/Micropolis  or email  micropolis@laptop.org.
# 
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or (at
# your option) any later version.
# 
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.  You should have received a
# copy of the GNU General Public License along with this program.  If
# not, see <http://www.gnu.org/licenses/>.
# 
#             ADDITIONAL TERMS per GNU GPL Section 7
# 
# No trademark or publicity rights are granted.  This license does NOT
# give you any right, title or interest in the trademark SimCity or any
# other Electronic Arts trademark.  You may not distribute any
# modification of this program using the trademark SimCity or claim any
# affliation or association with Electronic Arts Inc. or its employees.
# 
# Any propagation or conveyance of this program must include this
# copyright notice and these terms.
# 
# If you convey this program (or any modifications of it) and assume
# contractual liability for the program to recipients of it, you agree
# to indemnify Electronic Arts for any liability that those contractual
# assumptions impose on Electronic Arts.
# 
# You may not misrepresent the origins of this program; modified
# versions of the program must be marked as such and not identified as
# the original program.
# 
# This disclaimer supplements the one included in the General Public
# License.  TO THE FULLEST EXTENT PERMISSIBLE UNDER APPLICABLE LAW, THIS
# PROGRAM IS PROVIDED TO YOU "AS IS," WITH ALL FAULTS, WITHOUT WARRANTY
# OF ANY KIND, AND YOUR USE IS AT YOUR SOLE RISK.  THE ENTIRE RISK OF
# SATISFACTORY QUALITY AND PERFORMANCE RESIDES WITH YOU.  ELECTRONIC ARTS
# DISCLAIMS ANY AND ALL EXPRESS, IMPLIED OR STATUTORY WARRANTIES,
# INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY, SATISFACTORY QUALITY,
# FITNESS FOR A PARTICULAR PURPOSE, NONINFRINGEMENT OF THIRD PARTY
# RIGHTS, AND WARRANTIES (IF ANY) ARISING FROM A COURSE OF DEALING,
# USAGE, OR TRADE PRACTICE.  ELECTRONIC ARTS DOES NOT WARRANT AGAINST
# INTERFERENCE WITH YOUR ENJOYMENT OF THE PROGRAM; THAT THE PROGRAM WILL
# MEET YOUR REQUIREMENTS; THAT OPERATION OF THE PROGRAM WILL BE
# UNINTERRUPTED OR ERROR-FREE, OR THAT THE PROGRAM WILL BE COMPATIBLE
# WITH THIRD PARTY SOFTWARE OR THAT ANY ERRORS IN THE PROGRAM WILL BE
# CORRECTED.  NO ORAL OR WRITTEN ADVICE PROVIDED BY ELECTRONIC ARTS OR
# ANY AUTHORIZED REPRESENTATIVE SHALL CREATE A WARRANTY.  SOME
# JURISDICTIONS DO NOT ALLOW THE EXCLUSION OF OR LIMITATIONS ON IMPLIED
# WARRANTIES OR THE LIMITATIONS ON THE APPLICABLE STATUTORY RIGHTS OF A
# CONSUMER, SO SOME OR ALL OF THE ABOVE EXCLUSIONS AND LIMITATIONS MAY
# NOT APPLY TO YOU.
#
global ScenarioWindows
set n [Unique]
set parent [WindowLink $head.col2]
set win $parent.scenario$n
set ScenarioWindows [linsert $ScenarioWindows 0 $win]

global ScenarioPanelWidth
global ScenarioPanelHeight

LinkWindow $head.scenario $win
LinkWindow $win.head $head
LinkWindow $win.parent $parent

catch "destroy $win"
frame $win \
  -width $ScenarioPanelWidth \
  -height $ScenarioPanelHeight

SetHelp $win Scenario

frame $win.scen\
  -borderwidth 0 -geometry 100x280

label $win.scen.micropolis\
  -bitmap "@images/micropolisl.xpm" \
  -font [Font $win Medium]

button $win.scen.newcity\
  -command "UIGenerateNewCity" \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/scncty.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.newcity Scenario.NewCity

button $win.scen.loadcity\
  -command "UILoadCity $head" \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/sclcty.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.loadcity Scenario.LoadCity

button $win.scen.dullsville\
  -command {UILoadScenario 1} \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/scdull.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.dullsville Scenario.Dullsville

button $win.scen.sanfrancisco\
  -command {UILoadScenario 2} \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/scsfo.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.sanfrancisco Scenario.SanFran

button $win.scen.hamburg\
  -command {UILoadScenario 3} \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/scham.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.hamburg Scenario.Hamburg

button $win.scen.bern\
  -command {UILoadScenario 4} \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/scbern.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.bern Scenario.Bern

button $win.scen.tokyo\
  -command {UILoadScenario 5} \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/sctkyo.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.tokyo Scenario.Tokyo

button $win.scen.rio\
  -command {UILoadScenario 8} \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/scrio.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.rio Scenario.Rio

button $win.scen.boston\
  -command {UILoadScenario 7} \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/scbos.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.boston Scenario.Boston

button $win.scen.detroit\
  -command {UILoadScenario 6} \
  -relief flat \
  -borderwidth 0 \
  -bitmap "@images/scdet.xpm" \
  -font [Font $win Medium]

SetHelp $win.scen.detroit Scenario.Detroit

message $win.scen.labeldullville\
  -aspect 1500\
  -font [Font $win Small] \
  -justify center \
  -text {Dullsville 1900
Boredom}

SetHelp $win.scen.labeldullville Scenario.Dullsville

message $win.scen.labelsanfrancisco\
  -aspect 1500\
  -font [Font $win Small] \
  -justify center \
  -text {San Francisco 1906
Earthquake}

SetHelp $win.scen.labelsanfrancisco Scenario.SanFran

message $win.scen.labelhamburg\
  -aspect 1500\
  -font [Font $win Small] \
  -justify center \
  -text {Hamburg 1944
Bombing}

SetHelp $win.scen.labelhamburg Scenario.Hamburg

message $win.scen.labelbern\
  -aspect 1500\
  -font [Font $win Small] \
  -justify center \
  -text {Bern 1965
Traffic}

SetHelp $win.scen.labelbern Scenario.Bern

message $win.scen.labeltokyo\
  -aspect 1500\
  -font [Font $win Small] \
  -justify center \
  -text {Tokyo 1957
Monster Attack}

SetHelp $win.scen.labeltokyo Scenario.Tokyo

message $win.scen.labelrio\
  -aspect 1500\
  -font [Font $win Small] \
  -justify center \
  -text {Rio de Janeiro 2047
Coastal Flooding}

SetHelp $win.scen.labelrio Scenario.Rio

message $win.scen.labelboston\
  -aspect 1500\
  -font [Font $win Small] \
  -justify center \
  -text {Boston 2010
Nuclear Meltdown}

SetHelp $win.scen.labelboston Scenario.Boston

message $win.scen.labeldetroit\
  -aspect 1500\
  -font [Font $win Small] \
  -justify center \
  -text {Detroit 1972
Crime}

SetHelp $win.scen.labeldetroit Scenario.Detroit

4lace $win.scen.micropolis -anchor n -x 205 -y 25
place $win.scen.newcity -x 20 -y 10
place $win.scen.loadcity -x 320 -y 10
place $win.scen.dullsville -x 20 -y 80
place $win.scen.sanfrancisco -x 120 -y 80
place $win.scen.hamburg -x 220 -y 80
place $win.scen.bern -x 320 -y 80
place $win.scen.tokyo -x 20 -y 180
place $win.scen.rio -x 120 -y 180
place $win.scen.boston -x 220 -y 180
place $win.scen.detroit -x 320 -y 180
place $win.scen.labeldullville -anchor n -x 54 -y 140
place $win.scen.labelsanfrancisco -anchor n -x 154 -y 140
place $win.scen.labelhamburg -anchor n -x 254 -y 140
place $win.scen.labelbern -anchor n -x 354 -y 140
place $win.scen.labeltokyo -anchor n -x 54 -y 240
place $win.scen.labelrio -anchor n -x 154 -y 240
place $win.scen.labelboston -anchor n -x 254 -y 240
place $win.scen.labeldetroit -anchor n -x 354 -y 240

BindSimButton $win.scen.newcity
BindSimButton $win.scen.loadcity
BindSimButton $win.scen.dullsville
BindSimButton $win.scen.sanfrancisco
BindSimButton $win.scen.hamburg
BindSimButton $win.scen.bern
BindSimButton $win.scen.tokyo
BindSimButton $win.scen.rio
BindSimButton $win.scen.boston
BindSimButton $win.scen.detroit

frame $win.name \
  -borderwidth 2\
  -relief flat

SetHelp $win.name Scenario.Name

label $win.name.namelabel \
  -text {City Name:} \
  -font [Font $win Text]

entry $win.name.cityname \
  -text {}\
  -textvariable CityName \
  -font [Font $win Text] \
  -width 50
bind $win.name.cityname <Return> "DoEnterCityName $win"
bind $win.name.cityname <Any-Enter> {focus %W}
LinkWindow $win.cityname $win.name.cityname

pack append $win.name \
  $win.name.namelabel	{left frame e}\
  $win.name.cityname	{left frame e}

frame $win.level \
  -borderwidth 2\
  -relief flat

SetHelp $win.level Scenario.Level

label $win.level.levellabel \
  -text {Game Level:} \
  -font [Font $win Text]

frame $win.level.radio \
  -borderwidth 0\
  -relief flat

radiobutton $win.level.radio.easy \
  -text "Easy" -variable GameLevel -value 0 \
  -command "DoSetGameLevel 0" \
  -font [Font $win Large]

radiobutton $win.level.radio.medium \
  -text "Medium" -variable GameLevel -value 1 \
  -command "DoSetGameLevel 1" \
  -font [Font $win Large]

radiobutton $win.level.radio.hard \
  -text "Hard" -variable GameLevel -value 2 \
  -command "DoSetGameLevel 2" \
  -font [Font $win Large]

pack append $win.level.radio \
  $win.level.radio.easy		{top frame e expand fillx}\
  $win.level.radio.medium	{top frame e expand fillx}\
  $win.level.radio.hard		{top frame e expand fillx}

frame $win.level.label \
  -borderwidth 0\
  -relief flat

label $win.level.label.easylabel \
  -text {Initial Funds: $20,000} \
  -font [Font $win Large] \
  -anchor w

label $win.level.label.mediumlabel \
  -text {Initial Funds: $10,000} \
  -font [Font $win Large] \
  -anchor w

label $win.level.label.hardlabel \
  -text {Initial Funds: $5,000} \
  -font [Font $win Large] \
  -anchor w

pack append $win.level.label \
  $win.level.label.easylabel		{top frame e expand fillx} \
  $win.level.label.mediumlabel		{top frame e expand fillx} \
  $win.level.label.hardlabel		{top frame e expand fillx}

pack append $win.level \
   $win.level.levellabel		{left frame ne} \
   $win.level.radio			{left frame ne} \
   $win.level.label			{left frame ne expand fillx}

frame $win.buttons \
  -borderwidth 0\
  -relief flat -borderwidth 2

button $win.buttons.previous \
  -text {Previous Map}\
  -font [Font $win Large]\
  -command "PrevHistory"\
  -relief raised \
  -width 20
LinkWindow $win.previous $win.buttons.previous

SetHelp $win.buttons.previous Scenario.Previous

frame $win.buttons.voteframe \
  -borderwidth 0 \
  -relief raised
LinkWindow $win.voteframe $win.buttons.voteframe

SetHelp $win.buttons.voteframe Scenario.Use

button $win.buttons.voteframe.vote \
  -font [Font $win Large]\
  -text {    Use This Map    }\
  -command "DoVote $win UseThisMap UIUseThisMap {}"\
  -relief raised \
  -borderwidth 1\
  -width 20
LinkWindow $win.vote $win.buttons.voteframe.vote

pack append $win.buttons.voteframe\
  $win.buttons.voteframe.vote	{top frame center}

BindVotingButton $win $win.buttons.voteframe.vote UseThisMap

button $win.buttons.next \
  -font [Font $win Large]\
  -text {Next Map}\
  -command "NextHistory"\
  -width 20
LinkWindow $win.next $win.buttons.next

SetHelp $win.buttons.next Scenario.Next

pack append $win.buttons\
  $win.buttons.previous		{left frame nw}\
  $win.buttons.voteframe	{left frame nw}\
  $win.buttons.next		{left frame nw}

pack append $win\
  $win.scen			{top frame center fillx}\
  $win.buttons			{top frame center fillx}\
  $win.name			{top frame center fillx}\
  $win.level			{top frame center fillx}\

#place configure $win -x 0 -y 0 -width $ScenarioPanelWidth -height $ScenarioPanelHeight

InitScenario $win

update idletasks
Commit	Line	Data
6a5fa4e0 MG	1	# Window: Scenarios, for Unix Micropolis.
	2	#
	3	# Micropolis, Unix Version. This game was released for the Unix platform
	4	# in or about 1990 and has been modified for inclusion in the One Laptop
	5	# Per Child program. Copyright (C) 1989 - 2007 Electronic Arts Inc. If
	6	# you need assistance with this program, you may contact:
	7	# http://wiki.laptop.org/go/Micropolis or email micropolis@laptop.org.
	8	#
	9	# This program is free software: you can redistribute it and/or modify
	10	# it under the terms of the GNU General Public License as published by
	11	# the Free Software Foundation, either version 3 of the License, or (at
	12	# your option) any later version.
	13	#
	14	# This program is distributed in the hope that it will be useful, but
	15	# WITHOUT ANY WARRANTY; without even the implied warranty of
	16	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	17	# General Public License for more details. You should have received a
	18	# copy of the GNU General Public License along with this program. If
	19	# not, see <http://www.gnu.org/licenses/>.
	20	#
	21	# ADDITIONAL TERMS per GNU GPL Section 7
	22	#
	23	# No trademark or publicity rights are granted. This license does NOT
	24	# give you any right, title or interest in the trademark SimCity or any
	25	# other Electronic Arts trademark. You may not distribute any
	26	# modification of this program using the trademark SimCity or claim any
	27	# affliation or association with Electronic Arts Inc. or its employees.
	28	#
	29	# Any propagation or conveyance of this program must include this
	30	# copyright notice and these terms.
	31	#
	32	# If you convey this program (or any modifications of it) and assume
	33	# contractual liability for the program to recipients of it, you agree
	34	# to indemnify Electronic Arts for any liability that those contractual
	35	# assumptions impose on Electronic Arts.
	36	#
	37	# You may not misrepresent the origins of this program; modified
	38	# versions of the program must be marked as such and not identified as
	39	# the original program.
	40	#
	41	# This disclaimer supplements the one included in the General Public
	42	# License. TO THE FULLEST EXTENT PERMISSIBLE UNDER APPLICABLE LAW, THIS
	43	# PROGRAM IS PROVIDED TO YOU "AS IS," WITH ALL FAULTS, WITHOUT WARRANTY
	44	# OF ANY KIND, AND YOUR USE IS AT YOUR SOLE RISK. THE ENTIRE RISK OF
	45	# SATISFACTORY QUALITY AND PERFORMANCE RESIDES WITH YOU. ELECTRONIC ARTS
	46	# DISCLAIMS ANY AND ALL EXPRESS, IMPLIED OR STATUTORY WARRANTIES,
	47	# INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY, SATISFACTORY QUALITY,
	48	# FITNESS FOR A PARTICULAR PURPOSE, NONINFRINGEMENT OF THIRD PARTY
	49	# RIGHTS, AND WARRANTIES (IF ANY) ARISING FROM A COURSE OF DEALING,
	50	# USAGE, OR TRADE PRACTICE. ELECTRONIC ARTS DOES NOT WARRANT AGAINST
	51	# INTERFERENCE WITH YOUR ENJOYMENT OF THE PROGRAM; THAT THE PROGRAM WILL
	52	# MEET YOUR REQUIREMENTS; THAT OPERATION OF THE PROGRAM WILL BE
	53	# UNINTERRUPTED OR ERROR-FREE, OR THAT THE PROGRAM WILL BE COMPATIBLE
	54	# WITH THIRD PARTY SOFTWARE OR THAT ANY ERRORS IN THE PROGRAM WILL BE
	55	# CORRECTED. NO ORAL OR WRITTEN ADVICE PROVIDED BY ELECTRONIC ARTS OR
	56	# ANY AUTHORIZED REPRESENTATIVE SHALL CREATE A WARRANTY. SOME
	57	# JURISDICTIONS DO NOT ALLOW THE EXCLUSION OF OR LIMITATIONS ON IMPLIED
	58	# WARRANTIES OR THE LIMITATIONS ON THE APPLICABLE STATUTORY RIGHTS OF A
	59	# CONSUMER, SO SOME OR ALL OF THE ABOVE EXCLUSIONS AND LIMITATIONS MAY
	60	# NOT APPLY TO YOU.
	61	#
	62	global ScenarioWindows
	63	set n [Unique]
	64	set parent [WindowLink $head.col2]
65	set win $parent.scenario$n
66	set ScenarioWindows [linsert $ScenarioWindows 0 $win]
67
68	global ScenarioPanelWidth
69	global ScenarioPanelHeight
70
71	LinkWindow $head.scenario $win
72	LinkWindow $win.head $head
73	LinkWindow $win.parent $parent
74
75	catch "destroy $win"
76	frame $win \
77	-width $ScenarioPanelWidth \
78	-height $ScenarioPanelHeight
79
80	SetHelp $win Scenario
81
82	frame $win.scen\
83	-borderwidth 0 -geometry 100x280
84
85	label $win.scen.micropolis\
86	-bitmap "@images/micropolisl.xpm" \
87	-font [Font $win Medium]
88
89	button $win.scen.newcity\
90	-command "UIGenerateNewCity" \
91	-relief flat \
92	-borderwidth 0 \
93	-bitmap "@images/scncty.xpm" \
94	-font [Font $win Medium]
95
96	SetHelp $win.scen.newcity Scenario.NewCity
97
98	button $win.scen.loadcity\
99	-command "UILoadCity $head" \
100	-relief flat \
101	-borderwidth 0 \
102	-bitmap "@images/sclcty.xpm" \
103	-font [Font $win Medium]
104
105	SetHelp $win.scen.loadcity Scenario.LoadCity
106
107	button $win.scen.dullsville\
108	-command {UILoadScenario 1} \
109	-relief flat \
110	-borderwidth 0 \
111	-bitmap "@images/scdull.xpm" \
112	-font [Font $win Medium]
113
114	SetHelp $win.scen.dullsville Scenario.Dullsville
115
116	button $win.scen.sanfrancisco\
117	-command {UILoadScenario 2} \
118	-relief flat \
119	-borderwidth 0 \
120	-bitmap "@images/scsfo.xpm" \
121	-font [Font $win Medium]
122
123	SetHelp $win.scen.sanfrancisco Scenario.SanFran
124
125	button $win.scen.hamburg\
126	-command {UILoadScenario 3} \
127	-relief flat \
128	-borderwidth 0 \
129	-bitmap "@images/scham.xpm" \
130	-font [Font $win Medium]
131
132	SetHelp $win.scen.hamburg Scenario.Hamburg
133
134	button $win.scen.bern\
135	-command {UILoadScenario 4} \
136	-relief flat \
137	-borderwidth 0 \
138	-bitmap "@images/scbern.xpm" \
139	-font [Font $win Medium]
140
141	SetHelp $win.scen.bern Scenario.Bern
142
143	button $win.scen.tokyo\
144	-command {UILoadScenario 5} \
145	-relief flat \
146	-borderwidth 0 \
147	-bitmap "@images/sctkyo.xpm" \
148	-font [Font $win Medium]
149
150	SetHelp $win.scen.tokyo Scenario.Tokyo
151
152	button $win.scen.rio\
153	-command {UILoadScenario 8} \
154	-relief flat \
155	-borderwidth 0 \
156	-bitmap "@images/scrio.xpm" \
157	-font [Font $win Medium]
158
159	SetHelp $win.scen.rio Scenario.Rio
160
161	button $win.scen.boston\
162	-command {UILoadScenario 7} \
163	-relief flat \
164	-borderwidth 0 \
165	-bitmap "@images/scbos.xpm" \
166	-font [Font $win Medium]
167
168	SetHelp $win.scen.boston Scenario.Boston
169
170	button $win.scen.detroit\
171	-command {UILoadScenario 6} \
172	-relief flat \
173	-borderwidth 0 \
174	-bitmap "@images/scdet.xpm" \
175	-font [Font $win Medium]
176
177	SetHelp $win.scen.detroit Scenario.Detroit
178
179	message $win.scen.labeldullville\
180	-aspect 1500\
181	-font [Font $win Small] \
182	-justify center \
183	-text {Dullsville 1900
184	Boredom}
185
186	SetHelp $win.scen.labeldullville Scenario.Dullsville
187
188	message $win.scen.labelsanfrancisco\
189	-aspect 1500\
190	-font [Font $win Small] \
191	-justify center \
192	-text {San Francisco 1906
193	Earthquake}
194
195	SetHelp $win.scen.labelsanfrancisco Scenario.SanFran
196
197	message $win.scen.labelhamburg\
198	-aspect 1500\
199	-font [Font $win Small] \
200	-justify center \
201	-text {Hamburg 1944
202	Bombing}
203
204	SetHelp $win.scen.labelhamburg Scenario.Hamburg
205
206	message $win.scen.labelbern\
207	-aspect 1500\
208	-font [Font $win Small] \
209	-justify center \
210	-text {Bern 1965
211	Traffic}
212
213	SetHelp $win.scen.labelbern Scenario.Bern
214
215	message $win.scen.labeltokyo\
216	-aspect 1500\
217	-font [Font $win Small] \
218	-justify center \
219	-text {Tokyo 1957
220	Monster Attack}
221
222	SetHelp $win.scen.labeltokyo Scenario.Tokyo
223
224	message $win.scen.labelrio\
225	-aspect 1500\
226	-font [Font $win Small] \
227	-justify center \
228	-text {Rio de Janeiro 2047
229	Coastal Flooding}
230
231	SetHelp $win.scen.labelrio Scenario.Rio
232
233	message $win.scen.labelboston\
234	-aspect 1500\
235	-font [Font $win Small] \
236	-justify center \
237	-text {Boston 2010
238	Nuclear Meltdown}
239
240	SetHelp $win.scen.labelboston Scenario.Boston
241
242	message $win.scen.labeldetroit\
243	-aspect 1500\
244	-font [Font $win Small] \
245	-justify center \
246	-text {Detroit 1972
247	Crime}
248
249	SetHelp $win.scen.labeldetroit Scenario.Detroit
250
251	4lace $win.scen.micropolis -anchor n -x 205 -y 25
252	place $win.scen.newcity -x 20 -y 10
253	place $win.scen.loadcity -x 320 -y 10
254	place $win.scen.dullsville -x 20 -y 80
255	place $win.scen.sanfrancisco -x 120 -y 80
256	place $win.scen.hamburg -x 220 -y 80
257	place $win.scen.bern -x 320 -y 80
258	place $win.scen.tokyo -x 20 -y 180
259	place $win.scen.rio -x 120 -y 180
260	place $win.scen.boston -x 220 -y 180
261	place $win.scen.detroit -x 320 -y 180
262	place $win.scen.labeldullville -anchor n -x 54 -y 140
263	place $win.scen.labelsanfrancisco -anchor n -x 154 -y 140
264	place $win.scen.labelhamburg -anchor n -x 254 -y 140
265	place $win.scen.labelbern -anchor n -x 354 -y 140
266	place $win.scen.labeltokyo -anchor n -x 54 -y 240
267	place $win.scen.labelrio -anchor n -x 154 -y 240
268	place $win.scen.labelboston -anchor n -x 254 -y 240
269	place $win.scen.labeldetroit -anchor n -x 354 -y 240
270
271	BindSimButton $win.scen.newcity
272	BindSimButton $win.scen.loadcity
273	BindSimButton $win.scen.dullsville
274	BindSimButton $win.scen.sanfrancisco
275	BindSimButton $win.scen.hamburg
276	BindSimButton $win.scen.bern
277	BindSimButton $win.scen.tokyo
278	BindSimButton $win.scen.rio
279	BindSimButton $win.scen.boston
280	BindSimButton $win.scen.detroit
281
282	frame $win.name \
283	-borderwidth 2\
284	-relief flat
285
286	SetHelp $win.name Scenario.Name
287
288	label $win.name.namelabel \
289	-text {City Name:} \
290	-font [Font $win Text]
291
292	entry $win.name.cityname \
293	-text {}\
294	-textvariable CityName \
295	-font [Font $win Text] \
296	-width 50
297	bind $win.name.cityname <Return> "DoEnterCityName $win"
298	bind $win.name.cityname <Any-Enter> {focus %W}
299	LinkWindow $win.cityname $win.name.cityname
300
301	pack append $win.name \
302	$win.name.namelabel {left frame e}\
303	$win.name.cityname {left frame e}
304
305	frame $win.level \
306	-borderwidth 2\
307	-relief flat
308
309	SetHelp $win.level Scenario.Level
310
311	label $win.level.levellabel \
312	-text {Game Level:} \
313	-font [Font $win Text]
314
315	frame $win.level.radio \
316	-borderwidth 0\
317	-relief flat
318
319	radiobutton $win.level.radio.easy \
320	-text "Easy" -variable GameLevel -value 0 \
321	-command "DoSetGameLevel 0" \
322	-font [Font $win Large]
323
324	radiobutton $win.level.radio.medium \
325	-text "Medium" -variable GameLevel -value 1 \
326	-command "DoSetGameLevel 1" \
327	-font [Font $win Large]
328
329	radiobutton $win.level.radio.hard \
330	-text "Hard" -variable GameLevel -value 2 \
331	-command "DoSetGameLevel 2" \
332	-font [Font $win Large]
333
334	pack append $win.level.radio \
335	$win.level.radio.easy {top frame e expand fillx}\
336	$win.level.radio.medium {top frame e expand fillx}\
337	$win.level.radio.hard {top frame e expand fillx}
338
339	frame $win.level.label \
340	-borderwidth 0\
341	-relief flat
342
343	label $win.level.label.easylabel \
344	-text {Initial Funds: $20,000} \
345	-font [Font $win Large] \
346	-anchor w
347
348	label $win.level.label.mediumlabel \
349	-text {Initial Funds: $10,000} \
350	-font [Font $win Large] \
351	-anchor w
352
353	label $win.level.label.hardlabel \
354	-text {Initial Funds: $5,000} \
355	-font [Font $win Large] \
356	-anchor w
357
358	pack append $win.level.label \
359	$win.level.label.easylabel {top frame e expand fillx} \
360	$win.level.label.mediumlabel {top frame e expand fillx} \
361	$win.level.label.hardlabel {top frame e expand fillx}
362
363	pack append $win.level \
364	$win.level.levellabel {left frame ne} \
365	$win.level.radio {left frame ne} \
366	$win.level.label {left frame ne expand fillx}
367
368	frame $win.buttons \
369	-borderwidth 0\
370	-relief flat -borderwidth 2
371
372	button $win.buttons.previous \
373	-text {Previous Map}\
374	-font [Font $win Large]\
375	-command "PrevHistory"\
376	-relief raised \
377	-width 20
378	LinkWindow $win.previous $win.buttons.previous
379
380	SetHelp $win.buttons.previous Scenario.Previous
381
382	frame $win.buttons.voteframe \
383	-borderwidth 0 \
384	-relief raised
385	LinkWindow $win.voteframe $win.buttons.voteframe
386
387	SetHelp $win.buttons.voteframe Scenario.Use
388
389	button $win.buttons.voteframe.vote \
390	-font [Font $win Large]\
391	-text { Use This Map }\
392	-command "DoVote $win UseThisMap UIUseThisMap {}"\
393	-relief raised \
394	-borderwidth 1\
395	-width 20
396	LinkWindow $win.vote $win.buttons.voteframe.vote
397
398	pack append $win.buttons.voteframe\
399	$win.buttons.voteframe.vote {top frame center}
400
401	BindVotingButton $win $win.buttons.voteframe.vote UseThisMap
402
403	button $win.buttons.next \
404	-font [Font $win Large]\
405	-text {Next Map}\
406	-command "NextHistory"\
407	-width 20
408	LinkWindow $win.next $win.buttons.next
409
410	SetHelp $win.buttons.next Scenario.Next
411
412	pack append $win.buttons\
413	$win.buttons.previous {left frame nw}\
414	$win.buttons.voteframe {left frame nw}\
415	$win.buttons.next {left frame nw}
416
417	pack append $win\
418	$win.scen {top frame center fillx}\
419	$win.buttons {top frame center fillx}\
420	$win.name {top frame center fillx}\
421	$win.level {top frame center fillx}\
422
423	#place configure $win -x 0 -y 0 -width $ScenarioPanelWidth -height $ScenarioPanelHeight
424
425	InitScenario $win
426
427	update idletasks