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