show less event history on small screens

[micropolis] / res / micropolis.tcl

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index a7a5de59be8f04a168a8162e6173e32d6d990a96..8c4c36a8420b021a6bf45746432eddcbb0b3794f 100644 (file)
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -262,6 +262,7 @@ set ScenarioDescY 170
 set ScenarioDescWidth 280
 set ScenarioDescHeight 285
 set ScenarioDescFont Large
+set EventLines 5
 
 set screenwidth [winfo screenwidth .]
 set screenheight [winfo screenheight .]
@@ -284,6 +285,7 @@ if {($screenwidth < $ScenarioPanelWidth) ||
        set ScenarioDescHeight 210
        set ScenarioDescFont Tiny
        set ScenarioButtons $ScenarioButtons600x450
+       set EventLines 2
 }
 
 # Disabled until we handle mouse events on the map itself.