X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/6a5fa4e03967ab980cdc7ef96a42400bc29b4414..bda0d2fef314d8d97c0372c7340f6fe4f3c6c371:/res/wscen.tcl

diff --git a/res/wscen.tcl b/res/wscen.tcl
index 7b2af7d..f27ec5f 100644
--- a/res/wscen.tcl
+++ b/res/wscen.tcl
@@ -75,9 +75,12 @@ if {[catch "toplevel $win -screen $display"]} {
   return ""
 }
 
+global ScenarioPanelWidth
+global ScenarioPanelHeight
+
 wm title $win "Micropolis Scenarios"
 wm iconname $win {Micropolis Scenarios}
-wm geometry $win 1200x900+0+0
+wm geometry $win ${ScenarioPanelWidth}x${ScenarioPanelHeight}+0+0
 wm withdraw $win
 wm protocol $win delete "DeleteScenarioWindow $win ;"
 wm fullscreen $win on
@@ -89,14 +92,16 @@ SetHelp $win Scenario
 canvas $win.canvas \
   -scrollincrement 0 \
   -borderwidth 0 \
-  -background #000000 \
-  -width 1200 -height 900
+  -background #BFBFBF \
+  -width $ScenarioPanelWidth -height $ScenarioPanelHeight
 LinkWindow $win.canvas $win.canvas
 LinkWindow $win.canvas.w $win
 
+global ScenarioBackground
+
 $win.canvas create bitmap 0 0 \
   -tags background  \
-  -bitmap "@images/background-micropolis.xpm" \
+  -bitmap $ScenarioBackground \
   -anchor nw
 
 $win.canvas bind background <ButtonPress> {HandleScenarioDown %W %x %y}
@@ -168,8 +173,16 @@ pack append $win.canvas.name \
   $win.canvas.name.cityname	{left frame e}
 
 place $win.canvas -x 0 -y 0
-place $win.canvas.view -x 534 -y 48
-place $win.canvas.name -x 530 -y 0
+
+global ScenarioMapX
+global ScenarioMapY
+if {$ScenarioMapX != -1} {
+	place $win.canvas.view -x $ScenarioMapX -y $ScenarioMapY
+}
+
+global ScenarioCityNameX
+global ScenarioCityNameY
+place $win.canvas.name -x $ScenarioCityNameX -y $ScenarioCityNameY
 
 InitScenario $win