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

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

diff --git a/source/remote/trainpanel.cpp b/source/remote/trainpanel.cpp
index cfe0c10fea9f609e8969acc9c8137dcedce3f655..7675b27f07e086c5ed6a258f2754598b9e4a2283 100644 (file)
--- a/source/remote/trainpanel.cpp
+++ b/source/remote/trainpanel.cpp
@@ -32,14 +32,14 @@ TrainPanel::TrainPanel(Remote &r, R2C2::Client &c, R2C2::NetTrain &t):
        Gtk::HBox *hbox = new Gtk::HBox(false, 5);
        vbox->add(*manage(hbox));
 
-       hbox->add(*manage(scl_speed = new Gtk::HScale));
+       hbox->pack_start(*manage(scl_speed = new Gtk::HScale), true, true);
        scl_speed->set_digits(0);
        scl_speed->set_range(0, 200);
        scl_speed->set_increments(5, 5);
        scl_speed->set_size_request(210, -1);
        scl_speed->signal_value_changed().connect(sigc::mem_fun(this, &TrainPanel::ui_speed_changed));
 
-       hbox->add(*manage(chk_reverse = new Gtk::CheckButton("Rev")));
+       hbox->pack_start(*manage(chk_reverse = new Gtk::CheckButton("Rev")), false, true);
        chk_reverse->signal_toggled().connect(sigc::mem_fun(this, &TrainPanel::ui_reverse_changed));
 
        Gtk::HBox *func_box = new Gtk::HBox(false, 5);