]> cvs.zerfleddert.de Git - micropolis/blame - res/wmap.tcl
XINCLUDE: use /usr/X11R6/include everywhere
[micropolis] / res / wmap.tcl
CommitLineData
6a5fa4e0
MG
1# Windows: Maps, 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 MapWindows
62set n [Unique]
63set parent [WindowLink $head.w2]
64set win $parent.map$n
65set MapWindows [linsert $MapWindows 0 $win]
66
67global MapState.$win
68set MapState.$win 0
69
70LinkWindow $head.map $win
71LinkWindow $win.head $head
72LinkWindow $win.parent $parent
73LinkWindow $win.top $win
74
75catch "destroy $win"
76frame $win
77
78SetHelp $win Map
79
80bind $win <Visibility> {[WindowLink %W.view] Visible [string compare %s FullyObscured]}
81bind $win <Map> {[WindowLink %W.view] Visible 1}
82bind $win <Unmap> {[WindowLink %W.view] Visible 0}
83
84frame $win.centerframe\
85 -borderwidth 1\
86 -relief sunken
87
88SetHelp $win.centerframe Map.View
89
90mapview $win.centerframe.view\
91 -font [Font $win Large]
92$win.centerframe.view size [expr "[sim WorldX] * 3"] [expr "[sim WorldY] * 3"]
93
94LinkWindow $win.view $win.centerframe.view
95LinkWindow $win.centerframe.view.pallet $win.topframe
96LinkWindow $win.centerframe.view.win $win
97
98bind $win.centerframe.view <1> {MapPanDown %W %x %y}
99bind $win.centerframe.view <B1-Motion> {MapPanDrag %W %x %y}
100bind $win.centerframe.view <ButtonRelease-1> {MapPanUp %W %x %y}
101
102bind $win.centerframe.view <2> {MapPanDown %W %x %y}
103bind $win.centerframe.view <B2-Motion> {MapPanDrag %W %x %y}
104bind $win.centerframe.view <ButtonRelease-2> {MapPanUp %W %x %y}
105
106bind $win.centerframe.view <3> {MapPanDown %W %x %y}
107bind $win.centerframe.view <B3-Motion> {MapPanDrag %W %x %y}
108bind $win.centerframe.view <ButtonRelease-3> {MapPanUp %W %x %y}
109
110pack append $win.centerframe\
111 $win.centerframe.view {top frame center expand}
112
113frame $win.topframe\
114 -borderwidth 1\
115 -relief raised
116
117menubutton $win.topframe.zones\
118 -menu $win.topframe.zones.m\
119 -text {Zones}\
120 -font [Font $win Medium]\
121 -variable $win.postedMenu\
122 -borderwidth 1\
123 -relief flat
124LinkWindow $win.zones $win.topframe.zones
125tk_bindForTraversal $win.topframe.zones
126bind $win.topframe.zones <F10> {tk_firstMenu %W}
a0e770d2 127bind $win.topframe.zones <Alt-Key> {tk_traverseToMenu %W %A}
6a5fa4e0
MG
128tk_menus $win $win.topframe.zones
129
130SetHelp $win.topframe.zones Map.Zones
131
132menu $win.topframe.zones.m\
133 -font [Font $win Medium]
134tk_bindForTraversal $win.topframe.zones.m
135bind $win.topframe.zones.m <F10> {tk_firstMenu %W}
a0e770d2 136bind $win.topframe.zones.m <Alt-Key> {tk_traverseToMenu %W %A}
6a5fa4e0
MG
137 $win.topframe.zones.m add radiobutton\
138 -label {All}\
139 -variable MapState.$win\
140 -value 0\
141 -command "SetMapState $win 0"
142 $win.topframe.zones.m add radiobutton\
143 -label {Residential}\
144 -variable MapState.$win\
145 -value 1\
146 -command "SetMapState $win 1"
147 $win.topframe.zones.m add radiobutton\
148 -label {Commercial}\
149 -variable MapState.$win\
150 -value 2\
151 -command "SetMapState $win 2"
152 $win.topframe.zones.m add radiobutton\
153 -label {Industrial}\
154 -variable MapState.$win\
155 -value 3\
156 -command "SetMapState $win 3"
157 $win.topframe.zones.m add radiobutton\
158 -label {Transportation}\
159 -variable MapState.$win\
160 -value 5\
161 -command "SetMapState $win 5"
162 # Disabled dynamic filter for now.
163 #$win.topframe.zones.m add radiobutton\
164 # -label {Dynamic}\
165 # -variable MapState.$win\
166 # -value 14\
167 # -command "SetMapState $win 14"
168
169menubutton $win.topframe.overlays\
170 -menu $win.topframe.overlays.m\
171 -text {Overlays}\
172 -font [Font $win Medium]\
173 -variable $win.postedMenu\
174 -borderwidth 1\
175 -relief flat
176LinkWindow $win.overlays $win.topframe.overlays
177tk_bindForTraversal $win.topframe.overlays
178bind $win.topframe.overlays <F10> {tk_firstMenu %W}
a0e770d2 179bind $win.topframe.overlays <Alt-Key> {tk_traverseToMenu %W %A}
6a5fa4e0
MG
180tk_menus $win $win.topframe.overlays
181
182SetHelp $win.topframe.overlays Map.Overlays
183
184menu $win.topframe.overlays.m\
185 -font [Font $win Medium]
186tk_bindForTraversal $win.topframe.overlays.m
187bind $win.topframe.overlays.m <F10> {tk_firstMenu %W}
a0e770d2 188bind $win.topframe.overlays.m <Alt-Key> {tk_traverseToMenu %W %A}
6a5fa4e0
MG
189 $win.topframe.overlays.m add radiobutton\
190 -label {Population Density}\
191 -variable MapState.$win\
192 -value 6\
193 -command "SetMapState $win 6"
194 $win.topframe.overlays.m add radiobutton\
195 -label {Rate of Growth}\
196 -variable MapState.$win\
197 -value 7\
198 -command "SetMapState $win 7"
199 $win.topframe.overlays.m add radiobutton\
200 -label {Land Value}\
201 -variable MapState.$win\
202 -value 11\
203 -command "SetMapState $win 11"
204 $win.topframe.overlays.m add radiobutton\
205 -label {Crime Rate}\
206 -variable MapState.$win\
207 -value 10\
208 -command "SetMapState $win 10"
209 $win.topframe.overlays.m add radiobutton\
210 -label {Pollution Density}\
211 -variable MapState.$win\
212 -value 9\
213 -command "SetMapState $win 9"
214 $win.topframe.overlays.m add radiobutton\
215 -label {Traffic Density}\
216 -variable MapState.$win\
217 -value 8\
218 -command "SetMapState $win 8"
219 $win.topframe.overlays.m add radiobutton\
220 -label {Power Grid}\
221 -variable MapState.$win\
222 -value 4\
223 -command "SetMapState $win 4"
224 $win.topframe.overlays.m add radiobutton\
225 -label {Fire Coverage}\
226 -variable MapState.$win\
227 -value 12\
228 -command "SetMapState $win 12"
229 $win.topframe.overlays.m add radiobutton\
230 -label {Police Coverage}\
231 -variable MapState.$win\
232 -value 13\
233 -command "SetMapState $win 13"
234
af0a54e3
MG
235button $win.topframe.hide\
236 -text {Hide Map}\
237 -font [Font $win Medium]\
238 -borderwidth 1\
239 -command "HideMap $win" \
240 -relief flat
241LinkWindow $win.hide $win.topframe.hide
242tk_bindForTraversal $win.topframe.hide
243
244proc HideMap {win} {
245 pack unpack $win.centerframe
246 $win.topframe.hide configure \
247 -text {Show Map}\
248 -command "ShowMap $win"
249}
250
251proc ShowMap {win} {
252 pack append $win\
253 $win.centerframe {top frame center fill}
254 $win.topframe.hide configure \
255 -text {Hide Map}\
256 -command "HideMap $win"
257}
258
6a5fa4e0
MG
259label $win.topframe.legend\
260 -bitmap "@images/legendn.xpm" \
261 -font [Font $win Medium]
262LinkWindow $win.legend $win.topframe.legend
263
264pack append $win.topframe\
265 $win.topframe.zones {left frame nw} \
266 $win.topframe.overlays {left frame nw} \
af0a54e3 267 $win.topframe.hide {left frame nw} \
6a5fa4e0
MG
268 $win.topframe.legend {right frame ne}
269
270pack append $win\
271 $win.topframe {top frame center fillx} \
272 $win.centerframe {top frame center fill}
273
274pack append $parent\
275 $win {top frame nw expand fill}
276
277InitMap $win
278
279update idletasks
Impressum, Datenschutz