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