Put TrainPanels in a ScrolledWindow so the UI is usable on small screens

[r2c2.git] / source / remote / remote.cpp

diff --git a/source/remote/remote.cpp b/source/remote/remote.cpp
index 830a06d05a2f3fc07eb624718629c45772a1f5aa..c53bddda1c2f08c4578b09cca3e05bf93c66ca5f 100644 (file)
--- a/source/remote/remote.cpp
+++ b/source/remote/remote.cpp
@@ -5,6 +5,7 @@ Copyright © 2009-2010  Mikkosoft Productions, Mikko Rasa
 Distributed under the GPL
 */
 
+#include <gtkmm/scrolledwindow.h>
 #include <gtkmm/separator.h>
 #include <msp/net/resolve.h>
 #include <msp/time/units.h>
@@ -38,8 +39,12 @@ Remote::Remote(int argc, char **argv):
        window.set_default_size(300, 200);
        window.set_border_width(5);
 
+       Gtk::ScrolledWindow *scroll = new Gtk::ScrolledWindow;
+       window.add(*manage(scroll));
+       scroll->set_policy(Gtk::POLICY_NEVER, Gtk::POLICY_AUTOMATIC);
+
        train_box = new Gtk::VBox(false, 5);
-       window.add(*manage(train_box));
+       scroll->add(*manage(train_box));
 
        window.show_all();
 }