![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wmap.tcl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Micropolis - Activity] / micropolis / res|
Return to wmap.tcl CVS log | Up to [Micropolis - Activity] / micropolis / res |
1.1 ! root 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 [email protected]. ! 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 MapWindows ! 62: set n [Unique] ! 63: set parent [WindowLink $head.w2] ! 64: set win $parent.map$n ! 65: set MapWindows [linsert $MapWindows 0 $win] ! 66: ! 67: global MapState.$win ! 68: set MapState.$win 0 ! 69: ! 70: LinkWindow $head.map $win ! 71: LinkWindow $win.head $head ! 72: LinkWindow $win.parent $parent ! 73: LinkWindow $win.top $win ! 74: ! 75: catch "destroy $win" ! 76: frame $win ! 77: ! 78: SetHelp $win Map ! 79: ! 80: bind $win <Visibility> {[WindowLink %W.view] Visible [string compare %s FullyObscured]} ! 81: bind $win <Map> {[WindowLink %W.view] Visible 1} ! 82: bind $win <Unmap> {[WindowLink %W.view] Visible 0} ! 83: ! 84: frame $win.centerframe\ ! 85: -borderwidth 1\ ! 86: -relief sunken ! 87: ! 88: SetHelp $win.centerframe Map.View ! 89: ! 90: mapview $win.centerframe.view\ ! 91: -font [Font $win Large] ! 92: $win.centerframe.view size [expr "[sim WorldX] * 3"] [expr "[sim WorldY] * 3"] ! 93: ! 94: LinkWindow $win.view $win.centerframe.view ! 95: LinkWindow $win.centerframe.view.pallet $win.topframe ! 96: LinkWindow $win.centerframe.view.win $win ! 97: ! 98: bind $win.centerframe.view <1> {MapPanDown %W %x %y} ! 99: bind $win.centerframe.view <B1-Motion> {MapPanDrag %W %x %y} ! 100: bind $win.centerframe.view <ButtonRelease-1> {MapPanUp %W %x %y} ! 101: ! 102: bind $win.centerframe.view <2> {MapPanDown %W %x %y} ! 103: bind $win.centerframe.view <B2-Motion> {MapPanDrag %W %x %y} ! 104: bind $win.centerframe.view <ButtonRelease-2> {MapPanUp %W %x %y} ! 105: ! 106: bind $win.centerframe.view <3> {MapPanDown %W %x %y} ! 107: bind $win.centerframe.view <B3-Motion> {MapPanDrag %W %x %y} ! 108: bind $win.centerframe.view <ButtonRelease-3> {MapPanUp %W %x %y} ! 109: ! 110: pack append $win.centerframe\ ! 111: $win.centerframe.view {top frame center expand} ! 112: ! 113: frame $win.topframe\ ! 114: -borderwidth 1\ ! 115: -relief raised ! 116: ! 117: menubutton $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 ! 124: LinkWindow $win.zones $win.topframe.zones ! 125: tk_bindForTraversal $win.topframe.zones ! 126: bind $win.topframe.zones <F10> {tk_firstMenu %W} ! 127: bind $win.topframe.zones <Mod2-Key> {tk_traverseToMenu %W %A} ! 128: tk_menus $win $win.topframe.zones ! 129: ! 130: SetHelp $win.topframe.zones Map.Zones ! 131: ! 132: menu $win.topframe.zones.m\ ! 133: -font [Font $win Medium] ! 134: tk_bindForTraversal $win.topframe.zones.m ! 135: bind $win.topframe.zones.m <F10> {tk_firstMenu %W} ! 136: bind $win.topframe.zones.m <Mod2-Key> {tk_traverseToMenu %W %A} ! 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: ! 169: menubutton $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 ! 176: LinkWindow $win.overlays $win.topframe.overlays ! 177: tk_bindForTraversal $win.topframe.overlays ! 178: bind $win.topframe.overlays <F10> {tk_firstMenu %W} ! 179: bind $win.topframe.overlays <Mod2-Key> {tk_traverseToMenu %W %A} ! 180: tk_menus $win $win.topframe.overlays ! 181: ! 182: SetHelp $win.topframe.overlays Map.Overlays ! 183: ! 184: menu $win.topframe.overlays.m\ ! 185: -font [Font $win Medium] ! 186: tk_bindForTraversal $win.topframe.overlays.m ! 187: bind $win.topframe.overlays.m <F10> {tk_firstMenu %W} ! 188: bind $win.topframe.overlays.m <Mod2-Key> {tk_traverseToMenu %W %A} ! 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: ! 235: label $win.topframe.legend\ ! 236: -bitmap "@images/legendn.xpm" \ ! 237: -font [Font $win Medium] ! 238: LinkWindow $win.legend $win.topframe.legend ! 239: ! 240: pack append $win.topframe\ ! 241: $win.topframe.zones {left frame nw} \ ! 242: $win.topframe.overlays {left frame nw} \ ! 243: $win.topframe.legend {right frame ne} ! 244: ! 245: pack append $win\ ! 246: $win.topframe {top frame center fillx} \ ! 247: $win.centerframe {top frame center fill} ! 248: ! 249: pack append $parent\ ! 250: $win {top frame nw expand fill} ! 251: ! 252: InitMap $win ! 253: ! 254: update idletasks
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.