]> git.tdb.fi Git - r2c2.git/blob - source/engineer/trainproperties.cpp
Add train properties dialog (unfinished)
[r2c2.git] / source / engineer / trainproperties.cpp
1 #include "trainproperties.h"
2
3 using namespace Msp;
4
5 TrainProperties::TrainProperties(GLtk::Resources &r, Train &t):
6         Panel(r),
7         train(t)
8 {
9         set_size(200, 50);
10
11         add(*(ent_name=new GLtk::Entry(res, train.get_name())));
12         ent_name->set_geometry(
13
14         GLtk::Button *btn;
15
16         add(*(btn=new GLtk::Button(res, "OK")));
17         btn->set_geometry(geom.width-45, 5, 40, 25);
18
19         add(*(btn=new GLtk::Button(res, "Cncl")));
20         btn->set_geometry(geom.width-45, 5, 40, 25);
21 }