]> git.zerfleddert.de Git - micropolis/blame - res/whead.tcl
projects / micropolis / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
shrink game window to fit on screen if necessary
[micropolis] / res / whead.tcl
CommitLineData
6a5fa4e0
MG		 1# Window: Head (global controls & menus), 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.
61global HeadWindows
62set n [Unique]
63set win .head$n
64
65catch "destroy $win"
66if {[catch "toplevel $win -screen $display"]} {
67 puts stderr "Couldn't open X11 display \"$display\"."
68 set win ""
69 return ""
70}
71
72global HeadPanelWidth
73global HeadPanelHeight
74global MapPanelWidth
75global MapPanelHeight
76global NoticePanelWidth
77global NoticePanelHeight
78
79set visual [winfo screenvisual $win]
80set depth [winfo screendepth $win]
2b896476
MG		 81set screenwidth [winfo screenwidth $win]
82set screenheight [winfo screenheight $win]
da740e09
MG		 83set initialwidth 1200
84set initialheight 900
85
86if {$screenwidth < $initialwidth} {
87 set initialwidth $screenwidth
88}
89
90if {$screenheight < $initialheight} {
91 set initialheight $screenheight
92}
93
6a5fa4e0
MG		 94
95if {!(("$visual" == "pseudocolor") ||
96 ("$visual" == "truecolor") ||
97 (("$visual" == "staticgray") &&
98 ($depth == 1)))} {
99 catch "destroy $win"
100 puts stderr "Micropolis can't find an appropriate visual on display \"$display\"."
101 set win ""
102 return ""
103}
104
105set HeadWindows [linsert $HeadWindows 0 $win]
106
107SetHelp $win Head
108
109LinkWindow $win.head $win
110LinkWindow $win.editor {}
111LinkWindow $win.map {}
112LinkWindow $win.graph {}
113LinkWindow $win.budget {}
114LinkWindow $win.evaluation {}
115LinkWindow $win.splash {}
116LinkWindow $win.scenario {}
117LinkWindow $win.file {}
118LinkWindow $win.config {}
119LinkWindow $win.notice {}
120LinkWindow $win.ask {}
121
122tk_bindForTraversal $win
123bind $win <F10> {tk_firstMenu %W}
124bind $win <Mod2-Key> {tk_traverseToMenu %W %A}
125
126wm title $win "Micropolis Controls"
127wm iconname $win {Micropolis Controls}
da740e09 128wm geometry $win ${initialwidth}x${initialheight}+0+0
6a5fa4e0
MG		 129#wm positionfrom $win user
130wm withdraw $win
e7d465f2
MG		 131wm maxsize $win $screenwidth $screenheight
132wm minsize $win 100 100
6a5fa4e0
MG		 133wm protocol $win delete "DeleteHeadWindow $win ;"
134wm fullscreen $win on
135
136global $win.postedMenu
137global $win.Sound
138
139frame $win.col1
140tk_bindForTraversal $win.col1
141
142LinkWindow $win.col1 $win.col1
143
144frame $win.col1.w1\
145 -width $HeadPanelWidth\
146 -height $HeadPanelHeight
147tk_bindForTraversal $win.col1.w1
148
149frame $win.col1.w1.f1\
150 -borderwidth 1\
151 -relief raised
152tk_bindForTraversal $win.col1.w1.f1
153bind $win.col1.w1.f1 <F10> {tk_firstMenu %W}
154bind $win.col1.w1.f1 <Mod2-Key> {tk_traverseToMenu %W %A}
155
156SetHelp $win.col1.w1.f1.micropolis Head.MicropolisMenu
157
158menubutton $win.col1.w1.f1.micropolis\
159 -menu $win.col1.w1.f1.micropolis.m\
160 -text {Micropolis}\
161 -font [Font $win Medium]\
162 -variable $win.postedMenu
163tk_bindForTraversal $win.col1.w1.f1.micropolis
164bind $win.col1.w1.f1.micropolis <F10> {tk_firstMenu %W}
165bind $win.col1.w1.f1.micropolis <Mod2-Key> {tk_traverseToMenu %W %A}
166
167tk_menus $win $win.col1.w1.f1.micropolis
168
169menu $win.col1.w1.f1.micropolis.m\
170 -font [Font $win Medium]
171tk_bindForTraversal $win.col1.w1.f1.micropolis.m
172bind $win.col1.w1.f1.micropolis.m <F10> {tk_firstMenu %W}
173bind $win.col1.w1.f1.micropolis.m <Mod2-Key> {tk_traverseToMenu %W %A}
174 $win.col1.w1.f1.micropolis.m add command\
175 -label {About...}\
176 -command "UIShowPicture 300"
177 $win.col1.w1.f1.micropolis.m add command\
178 -label {Save City}\
179 -command "UISaveCity $win"
180 $win.col1.w1.f1.micropolis.m add command\
181 -label {Save City as...}\
182 -command "UISaveCityAs $win"
183 if {[sim MultiPlayerMode]} {
184 $win.col1.w1.f1.micropolis.m add command\
185 -label {Add Player...}\
186 -command "UIShowPlayer $win"
187 }
188 $win.col1.w1.f1.micropolis.m add command\
189 -label {Choose City!}\
190 -command "UISelectCity $win"
191 $win.col1.w1.f1.micropolis.m add command\
192 -label {Quit Playing!}\
193 -command "UIQuit $win"
194
195SetHelp $win.col1.w1.f1.options Head.OptionsMenu
196
197menubutton $win.col1.w1.f1.options\
198 -menu $win.col1.w1.f1.options.m\
199 -text {Options}\
200 -font [Font $win Medium]\
201 -variable $win.postedMenu
202tk_bindForTraversal $win.col1.w1.f1.options
203bind $win.col1.w1.f1.options <F10> {tk_firstMenu %W}
204bind $win.col1.w1.f1.options <Mod2-Key> {tk_traverseToMenu %W %A}
205
206tk_menus $win $win.col1.w1.f1.options
207
208menu $win.col1.w1.f1.options.m\
209 -font [Font $win Medium]
210tk_bindForTraversal $win.col1.w1.f1.options.m
211bind $win.col1.w1.f1.options.m <F10> {tk_firstMenu %W}
212bind $win.col1.w1.f1.options.m <Mod2-Key> {tk_traverseToMenu %W %A}
213 $win.col1.w1.f1.options.m add checkbutton\
214 -label {Auto Budget}\
215 -variable AutoBudget\
216 -command {sim AutoBudget $AutoBudget}
217 $win.col1.w1.f1.options.m add checkbutton\
218 -label {Auto Bulldoze}\
219 -variable AutoBulldoze\
220 -command {sim AutoBulldoze $AutoBulldoze}
221 $win.col1.w1.f1.options.m add checkbutton\
222 -label {Disasters}\
223 -variable Disasters\
224 -command {sim Disasters $Disasters}
225 $win.col1.w1.f1.options.m add checkbutton\
226 -label {Sound}\
227 -variable Sound\
228 -command {sim Sound $Sound}
229 $win.col1.w1.f1.options.m add checkbutton\
230 -label {Animation}\
231 -variable DoAnimation\
232 -command {sim DoAnimation $DoAnimation}
233 $win.col1.w1.f1.options.m add checkbutton\
234 -label {Messages}\
235 -variable DoMessages\
236 -command {sim DoMessages $DoMessages}
237 $win.col1.w1.f1.options.m add checkbutton\
238 -label {Notices}\
239 -variable DoNotices\
240 -command {sim DoNotices $DoNotices}
241
242SetHelp $win.col1.w1.f1.disasters Head.DisastersMenu
243
244menubutton $win.col1.w1.f1.disasters\
245 -menu $win.col1.w1.f1.disasters.m\
246 -text {Disasters}\
247 -font [Font $win Medium]\
248 -variable $win.postedMenu
249tk_bindForTraversal $win.col1.w1.f1.disasters
250bind $win.col1.w1.f1.disasters <F10> {tk_firstMenu %W}
251bind $win.col1.w1.f1.disasters <Mod2-Key> {tk_traverseToMenu %W %A}
252
253tk_menus $win $win.col1.w1.f1.disasters
254
255menu $win.col1.w1.f1.disasters.m\
256 -font [Font $win Medium]
257tk_bindForTraversal $win.col1.w1.f1.disasters.m
258bind $win.col1.w1.f1.disasters.m <F10> {tk_firstMenu %W}
259bind $win.col1.w1.f1.disasters.m <Mod2-Key> {tk_traverseToMenu %W %A}
260 $win.col1.w1.f1.disasters.m add command\
261 -label {Monster}\
262 -command "UIDisaster $win \"UIMakeMonster\" \"release a monster?\""
263 $win.col1.w1.f1.disasters.m add command\
264 -label {Fire}\
265 -command "UIDisaster $win \"sim MakeFire\" \"start a fire?\""
266 $win.col1.w1.f1.disasters.m add command\
267 -label {Flood}\
268 -command "UIDisaster $win \"sim MakeFlood\" \"bring on a flood?\""
269 $win.col1.w1.f1.disasters.m add command\
270 -label {Meltdown}\
271 -command "UIDisaster $win \"sim MakeMeltdown\" \"have a nuclear meltdown?\""
272 $win.col1.w1.f1.disasters.m add command\
273 -label {Tornado}\
274 -command "UIDisaster $win \"sim MakeTornado\" \"spin up a tornado?\""
275 $win.col1.w1.f1.disasters.m add command\
276 -label {Earthquake}\
277 -command "UIDisaster $win \"sim MakeEarthquake\" \"cause an earthquake?\""
278
279SetHelp $win.col1.w1.f1.priority Head.PriorityMenu
280
281menubutton $win.col1.w1.f1.priority\
282 -menu $win.col1.w1.f1.priority.m\
283 -text {Priority}\
284 -font [Font $win Medium]\
285 -variable $win.postedMenu
286tk_bindForTraversal $win.col1.w1.f1.priority
287bind $win.col1.w1.f1.priority <F10> {tk_firstMenu %W}
288bind $win.col1.w1.f1.priority <Mod2-Key> {tk_traverseToMenu %W %A}
289
290tk_menus $win $win.col1.w1.f1.priority
291
292menu $win.col1.w1.f1.priority.m\
293 -font [Font $win Medium]
294tk_bindForTraversal $win.col1.w1.f1.priority.m
295bind $win.col1.w1.f1.priority.m <F10> {tk_firstMenu %W}
296bind $win.col1.w1.f1.priority.m <Mod2-Key> {tk_traverseToMenu %W %A}
297 $win.col1.w1.f1.priority.m add radiobutton\
298 -label {Super Fast}\
299 -command {SetPriority 4}\
300 -value {4}\
301 -variable Priority
302 $win.col1.w1.f1.priority.m add radiobutton\
303 -label {Fast}\
304 -command {SetPriority 3}\
305 -value {3}\
306 -variable Priority
307 $win.col1.w1.f1.priority.m add radiobutton\
308 -label {Normal}\
309 -command {SetPriority 2}\
310 -value {2}\
311 -variable Priority
312 $win.col1.w1.f1.priority.m add radiobutton\
313 -label {Slow}\
314 -command {SetPriority 1}\
315 -value {1}\
316 -variable Priority
317 $win.col1.w1.f1.priority.m add radiobutton\
318 -label {Super Slow}\
319 -command {SetPriority 0}\
320 -value {0}\
321 -variable Priority
322
323SetHelp $win.col1.w1.f1.windows Head.WindowsMenu
324
325menubutton $win.col1.w1.f1.windows\
326 -menu $win.col1.w1.f1.windows.m\
327 -text {Windows}\
328 -font [Font $win Medium]\
329 -variable $win.postedMenu
330tk_bindForTraversal $win.col1.w1.f1.windows
331bind $win.col1.w1.f1.windows <F10> {tk_firstMenu %W}
332bind $win.col1.w1.f1.windows <Mod2-Key> {tk_traverseToMenu %W %A}
333
334tk_menus $win $win.col1.w1.f1.windows
335
336menu $win.col1.w1.f1.windows.m\
337 -font [Font $win Medium]
338tk_bindForTraversal $win.col1.w1.f1.windows.m
339bind $win.col1.w1.f1.windows.m <F10> {tk_firstMenu %W}
340bind $win.col1.w1.f1.windows.m <Mod2-Key> {tk_traverseToMenu %W %A}
341 $win.col1.w1.f1.windows.m add command\
342 -label {Budget}\
343 -command "UIShowBudgetAndWait"
344 $win.col1.w1.f1.windows.m add command\
345 -label {Evaluation}\
346 -command "ShowEvaluationOf $win"
347 $win.col1.w1.f1.windows.m add command\
348 -label {Graph}\
349 -command "ShowGraphOf $win"
350 #$win.col1.w1.f1.windows.m add command\
351 # -label {Map}\
352 # -command "ShowMapOf $win"
353 #$win.col1.w1.f1.windows.m add command\
354 # -label {Editor}\
355 # -command "ShowEditorOf $win"
356 #$win.col1.w1.f1.windows.m add command\
357 # -label {Frob}\
358 # -command "ShowFrobOf $win"
359 #$win.col1.w1.f1.windows.m add command\
360 # -label {New Map}\
361 # -command "NewMapOf $win"
362 #$win.col1.w1.f1.windows.m add command\
363 # -label {New Editor}\
364 # -command "NewEditorOf $win"
365
366LinkWindow $win.m0 $win.col1.w1.f1.micropolis.m
367LinkWindow $win.m1 $win.col1.w1.f1.options.m
368LinkWindow $win.m2 $win.col1.w1.f1.disasters.m
369LinkWindow $win.m3 $win.col1.w1.f1.priority.m
370LinkWindow $win.m4 $win.col1.w1.f1.windows.m
371
372LinkWindow $win.b0 $win.col1.w1.f1.micropolis
373LinkWindow $win.b1 $win.col1.w1.f1.options
374LinkWindow $win.b2 $win.col1.w1.f1.disasters
375LinkWindow $win.b3 $win.col1.w1.f1.priority
376LinkWindow $win.b4 $win.col1.w1.f1.windows
377
378pack append $win.col1.w1.f1\
379 $win.col1.w1.f1.micropolis {left frame nw} \
380 $win.col1.w1.f1.options {left frame nw} \
381 $win.col1.w1.f1.disasters {left frame nw} \
382 $win.col1.w1.f1.priority {left frame nw} \
383 $win.col1.w1.f1.windows {left frame nw}
384
385frame $win.col1.w1.f2\
386 -background #BFBFBF \
387 -borderwidth 1\
388 -relief raised
389
390frame $win.col1.w1.f2.f1\
391 -background #BFBFBF \
392 -borderwidth 1\
393 -relief flat
394
395frame $win.col1.w1.f2.f1.frame \
396 -background #BFBFBF \
397 -borderwidth 0\
398 -relief flat
399
400canvas $win.col1.w1.f2.f1.frame.demand\
401 -scrollincrement 0 \
402 -borderwidth 0 \
403 -background #BFBFBF \
404 -width 80 -height 55
405LinkWindow $win.demand $win.col1.w1.f2.f1.frame.demand
406$win.col1.w1.f2.f1.frame.demand create bitmap 41 4 \
407 -tags picture \
408 -bitmap "@images/demandg.xpm" \
409 -anchor nw
410$win.col1.w1.f2.f1.frame.demand create rectangle -10 -10 1 1 \
411 -tags r \
412 -fill [Color $win #00ff00 #000000]
413$win.col1.w1.f2.f1.frame.demand create rectangle -10 -10 1 1 \
414 -tags c \
415 -fill [Color $win #0000ff #000000]
416$win.col1.w1.f2.f1.frame.demand create rectangle -10 -10 1 1 \
417 -tags i \
418 -fill [Color $win #ffff00 #000000]
419$win.col1.w1.f2.f1.frame.demand create bitmap 0 4 \
420 -tags micropolis \
421 -bitmap "@images/micropoliss.xpm" \
422 -anchor nw
423
424$win.col1.w1.f2.f1.frame.demand bind micropolis <1> {TogglePause}
425$win.col1.w1.f2.f1.frame.demand bind micropolis <2> {TogglePause}
426$win.col1.w1.f2.f1.frame.demand bind micropolis <3> {TogglePause}
427$win.col1.w1.f2.f1.frame.demand bind picture <1> "ToggleEvaluationOf $win"
428$win.col1.w1.f2.f1.frame.demand bind picture <2> "ToggleEvaluationOf $win"
429$win.col1.w1.f2.f1.frame.demand bind picture <3> "ToggleEvaluationOf $win"
430$win.col1.w1.f2.f1.frame.demand bind r <1> "ToggleEvaluationOf $win"
431$win.col1.w1.f2.f1.frame.demand bind r <2> "ToggleEvaluationOf $win"
432$win.col1.w1.f2.f1.frame.demand bind r <3> "ToggleEvaluationOf $win"
433$win.col1.w1.f2.f1.frame.demand bind c <1> "ToggleEvaluationOf $win"
434$win.col1.w1.f2.f1.frame.demand bind c <2> "ToggleEvaluationOf $win"
435$win.col1.w1.f2.f1.frame.demand bind c <3> "ToggleEvaluationOf $win"
436$win.col1.w1.f2.f1.frame.demand bind i <1> "ToggleEvaluationOf $win"
437$win.col1.w1.f2.f1.frame.demand bind i <2> "ToggleEvaluationOf $win"
438$win.col1.w1.f2.f1.frame.demand bind i <3> "ToggleEvaluationOf $win"
439
440SetHelp $win.col1.w1.f2.f1.frame.demand Head.Demand
441
442frame $win.col1.w1.f2.f1.frame.graphframe \
443 -background #BFBFBF \
444 -borderwidth 1\
445 -relief sunken
446
447graphview $win.col1.w1.f2.f1.frame.graphframe.graph\
448 -background #BFBFBF \
449 -font [Font $win Tiny]
450$win.col1.w1.f2.f1.frame.graphframe.graph Range 10
451$win.col1.w1.f2.f1.frame.graphframe.graph Mask 7
452LinkWindow $win.graphview $win.col1.w1.f2.f1.frame.graphframe.graph
453bind $win.col1.w1.f2.f1.frame.graphframe.graph <ButtonPress> "ToggleGraphOf $win"
454
455
456SetHelp $win.col1.w1.f2.f1.frame.graphframe.graph Head.Graph
457
458pack append $win.col1.w1.f2.f1.frame.graphframe \
459 $win.col1.w1.f2.f1.frame.graphframe.graph {left expand fill}
460
461pack append $win.col1.w1.f2.f1.frame \
462 $win.col1.w1.f2.f1.frame.demand {left frame sw padx 4} \
463 $win.col1.w1.f2.f1.frame.graphframe {right frame center expand fill}
464
465frame $win.col1.w1.f2.f1.info\
466 -background #BFBFBF \
467 -borderwidth 1\
468 -relief flat
469
470dateview $win.col1.w1.f2.f1.info.date\
471 -background #BFBFBF \
472 -width 20 \
473 -font [Font $win Medium]
474LinkWindow $win.date $win.col1.w1.f2.f1.info.date
475
476SetHelp $win.col1.w1.f2.f1.info.date Head.Date
477
478label $win.col1.w1.f2.f1.info.fundslabel\
479 -background #BFBFBF \
480 -relief flat\
481 -font [Font $win Medium]\
482 -text {}\
483 -anchor w\
484 -width 20
485LinkWindow $win.funds $win.col1.w1.f2.f1.info.fundslabel
486bind $win.col1.w1.f2.f1.info.fundslabel <ButtonPress> "UIShowBudgetAndWait"
487
488SetHelp $win.col1.w1.f2.f1.info.fundslabel Head.Funds
489
490label $win.col1.w1.f2.f1.info.rate\
491 -background #BFBFBF \
492 -relief flat\
493 -font [Font $win Medium]\
494 -text {Tax Rate: 7%} \
495 -anchor w\
496 -width 20
497LinkWindow $win.taxlabel $win.col1.w1.f2.f1.info.rate
498bind $win.col1.w1.f2.f1.info.rate <ButtonPress> "UIShowBudgetAndWait"
499
500
501scale $win.col1.w1.f2.f1.info.scale\
502 -background #BFBFBF \
503 -command {SetTaxRate}\
504 -orient horizontal\
505 -showvalue false\
506 -font [Font $win Medium]\
507 -sliderlength 15\
508 -to 20
509$win.col1.w1.f2.f1.info.scale set 7
510LinkWindow $win.taxrate $win.col1.w1.f2.f1.info.scale
511
512
513pack append $win.col1.w1.f2.f1.info \
514 $win.col1.w1.f2.f1.info.date {top frame nw} \
515 $win.col1.w1.f2.f1.info.fundslabel {top frame nw} \
516 $win.col1.w1.f2.f1.info.rate {top frame nw} \
517 $win.col1.w1.f2.f1.info.scale {top frame nw fill expand}
518
519pack append $win.col1.w1.f2.f1 \
520 $win.col1.w1.f2.f1.frame {left frame nw expand fill} \
521 $win.col1.w1.f2.f1.info {left frame nw}
522
523frame $win.col1.w1.f2.f2\
524 -borderwidth 1 \
525 -relief flat
526tk_bindForTraversal $win.col1.w1.f2.f2
527bind $win.col1.w1.f2.f2 <F10> {tk_firstMenu %W}
528bind $win.col1.w1.f2.f2 <Mod2-Key> {tk_traverseToMenu %W %A}
529
530SetHelp $win.col1.w1.f2.f2 Head.Log
531
532scrollbar $win.col1.w1.f2.f2.scroll\
533 -command "$win.col1.w1.f2.f2.text yview" \
534 -borderwidth 1
535
536SetHelp $win.col1.w1.f2.f2.scroll Head.Scrollbar
537
538text $win.col1.w1.f2.f2.text \
539 -yscroll "$win.col1.w1.f2.f2.scroll set" \
540 -borderwidth 1 \
541 -relief sunken \
542 -wrap word \
543 -state disabled \
544 -height 5 \
545 -font [Font $win Text]
546LinkWindow $win.text $win.col1.w1.f2.f2.text
547
548$win.col1.w1.f2.f2.text tag configure status \
549 -font [Font $win Message]
550
551$win.col1.w1.f2.f2.text tag configure message \
552 -font [Font $win Message] \
553 -foreground #ffffff \
554 -background #3f3f3f
555
556$win.col1.w1.f2.f2.text tag configure alert \
557 -font [Font $win Alert] \
558 -foreground [Color $win #ff3f3f #000000]
559
560pack append $win.col1.w1.f2.f2 \
561 $win.col1.w1.f2.f2.scroll {left frame center filly} \
562 $win.col1.w1.f2.f2.text {right frame center fill expand}
563
564if {[sim MultiPlayerMode]} {
565 frame $win.col1.w1.f2.f3 \
566 -borderwidth 1 \
567 -relief flat
568 tk_bindForTraversal $win.col1.w1.f2.f3
569 bind $win.col1.w1.f2.f3 <F10> {tk_firstMenu %W}
570 bind $win.col1.w1.f2.f3 <Mod2-Key> {tk_traverseToMenu %W %A}
571
572 button $win.col1.w1.f2.f3.chat \
573 -font [Font $win Large] \
574 -relief flat \
575 -text {Chat:}
576 LinkWindow $win.chat $win.col1.w1.f2.f3.chat
577 bind $win.col1.w1.f2.f3.chat <1> {ChatDown %W}
578 bind $win.col1.w1.f2.f3.chat <ButtonRelease-1> {ChatUp %W}
579
580 SetHelp $win.col1.w1.f2.f3.chat Head.Chat
581
582 entry $win.col1.w1.f2.f3.entry \
583 -relief sunken\
584 -text {}\
585 -foreground #ffffff\
586 -background #4f4f4f\
587 -textvariable $win.col1.w1.f2.f3.entry.value\
588 -font [Font $win Message]
589 global $win.col1.w1.f2.f3.entry.value
590 set $win.col1.w1.f2.f3.entry.value ""
591 tk_bindForTraversal $win.col1.w1.f2.f3.entry
592 bind $win.col1.w1.f2.f3.entry <F10> {tk_firstMenu %W}
593 bind $win.col1.w1.f2.f3.entry <Mod2-Key> {tk_traverseToMenu %W %A}
594 bind $win.col1.w1.f2.f3.entry <Return> "DoEnterMessage %W %W.value"
595 bind $win.col1.w1.f2.f3.entry <Escape> "DoEvalMessage %W %W.value"
596 bind $win.col1.w1.f2.f3.entry <Any-Enter> {focus %W}
597 LinkWindow $win.entry $win.col1.w1.f2.f3.entry
598
599 SetHelp $win.col1.w1.f2.f3.entry Head.Entry
600}
601
602frame $win.col1.w2
603tk_bindForTraversal $win.col1.w2
604
605LinkWindow $win.w2 $win.col1.w2
606
607frame $win.col1.w3
608tk_bindForTraversal $win.col1.w3
609
610LinkWindow $win.w3 $win.col1.w3
611
612frame $win.col2
613tk_bindForTraversal $win.col2
614
615LinkWindow $win.col2 $win.col2
616
617#frame $win.col2.x1 -width 400 -height 400
618#tk_bindForTraversal $win.col2.x1
619
620#LinkWindow $win.x1 $win.col2.x1
621
622#frame $win.col2.x2
623#tk_bindForTraversal $win.col2.x2
624
625#LinkWindow $win.x2 $win.col2.x2
626
627#frame $win.col2.x3
628#tk_bindForTraversal $win.col2.x3
629
630#LinkWindow $win.x3 $win.col2.x3
631
632#frame $win.col2.x4
633#tk_bindForTraversal $win.col2.x4
634
635#LinkWindow $win.x4 $win.col2.x4
636
637if {[sim MultiPlayerMode]} {
638
639 pack append $win.col1.w1.f2.f3 \
640 $win.col1.w1.f2.f3.chat {left frame center padx 4} \
641 $win.col1.w1.f2.f3.entry {left frame center fillx expand padx 4}
642
643 pack append $win.col1.w1.f2 \
644 $win.col1.w1.f2.f1 {top frame center fillx} \
645 $win.col1.w1.f2.f2 {top frame center expand fill} \
646 $win.col1.w1.f2.f3 {top frame center fillx}
647
648} else {
649
650 pack append $win.col1.w1.f2 \
651 $win.col1.w1.f2.f1 {top frame center fillx} \
652 $win.col1.w1.f2.f2 {top frame center expand fill}
653
654}
655
656pack append $win.col1.w1\
657 $win.col1.w1.f1 {top frame center fillx} \
658 $win.col1.w1.f2 {top frame center expand fill}
659
660#pack append $win\
661# $win.col1 {left frame center filly} \
662# $win.col2 {left frame center expand fill}
663
664place configure $win.col1\
665 -x 0\
666 -y 0\
667 -width $HeadPanelWidth\
d3724d6d 668 -relheight 1.0
6a5fa4e0
MG		 669
670pack append $win.col1\
671 $win.col1.w1 {top frame nw fillx} \
672 $win.col1.w2 {top frame nw fillx} \
673 $win.col1.w3 {bottom frame sw fillx}
674
675#place configure $win.col1.w1\
676# -x 0\
677# -y 0\
678# -width $HeadPanelWidth\
679# -height $HeadPanelHeight
680
681#place configure $win.col1.w2\
682# -x 0\
683# -y $HeadPanelHeight\
684# -width $MapPanelWidth\
685# -height $MapPanelHeight
686
687#place configure $win.col1.w3\
688# -x 0\
689# -y [expr "$HeadPanelHeight + $MapPanelHeight"]\
690# -width $NoticePanelWidth\
691# -height [expr "$screenheight - ($HeadPanelHeight + $MapPanelHeight)"]
692
693place configure $win.col2\
694 -x [expr "$HeadPanelWidth + 5"]\
695 -y 0\
2b896476 696 -relheight 1.0\
cac78bde
MG		 697 -width [expr "($screenwidth - $HeadPanelWidth) - 5"]
698
699proc resizeeditor {win width} {
700 global HeadPanelWidth
701
702 place configure $win.col2\
703 -width [expr "($width - $HeadPanelWidth) - 5"]
704}
705
706bind $win <Configure> "resizeeditor $win %w"
6a5fa4e0
MG		 707
708#pack append $win.col2\
709# $win.col2.x1 {top frame nw fillx} \
710# $win.col2.x2 {top frame nw fillx} \
711# $win.col2.x3 {top frame nw expand fill} \
712# $win.col2.x4 {top frame nw fillx}
713
714SetupSoundServer $win
715
716InitHead $win
717InitHeadMenus $win
718
719update idletasks
Micropolis
Impressum, Datenschutz