show less event history on small screens

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 ScenarioDescWidth 280
 set ScenarioDescHeight 285
 set ScenarioDescFont Large

+set EventLines 5

 
 set screenwidth [winfo screenwidth .]
 set screenheight [winfo screenheight .]
 
 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 ScenarioDescHeight 210
        set ScenarioDescFont Tiny
        set ScenarioButtons $ScenarioButtons600x450

+       set EventLines 2

 }
 
 # Disabled until we handle mouse events on the map itself.
 }
 
 # Disabled until we handle mouse events on the map itself.

diff --git a/res/whead.tcl b/res/whead.tcl
index 5432324df52a1ec7becd98fd66f4cbd9cac89e80..2f568f117ee8b295189b861d2c7fd2aedd6e740d 100644 (file)
--- a/res/whead.tcl
+++ b/res/whead.tcl
@@ -544,13 +544,15 @@ scrollbar $win.col1.w1.f2.f2.scroll\
 
 SetHelp $win.col1.w1.f2.f2.scroll Head.Scrollbar
 
 
 SetHelp $win.col1.w1.f2.f2.scroll Head.Scrollbar
 

+global EventLines
+

 text $win.col1.w1.f2.f2.text \
   -yscroll "$win.col1.w1.f2.f2.scroll set" \
   -borderwidth 1 \
   -relief sunken \
   -wrap word \
   -state disabled \
 text $win.col1.w1.f2.f2.text \
   -yscroll "$win.col1.w1.f2.f2.scroll set" \
   -borderwidth 1 \
   -relief sunken \
   -wrap word \
   -state disabled \

-  -height 5 \
+  -height $EventLines \

   -font [Font $win Text]
 LinkWindow $win.text $win.col1.w1.f2.f2.text
 
   -font [Font $win Text]
 LinkWindow $win.text $win.col1.w1.f2.f2.text