show less event history on small screens

[micropolis] / res / whead.tcl

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
 
+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 \
-  -height 5 \
+  -height $EventLines \
   -font [Font $win Text]
 LinkWindow $win.text $win.col1.w1.f2.f2.text