Merge master.
[dcpomatic.git] / src / wx / kdm_dialog.cc
index 519317dcc9d07b804518585e5431822264471d88..6ef630eff39f5a29cb39a88ed7cb8952e8698d26 100644 (file)
@@ -1,5 +1,5 @@
 /*
-    Copyright (C) 2012 Carl Hetherington <cth@carlh.net>
+    Copyright (C) 2012-2014 Carl Hetherington <cth@carlh.net>
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
 #include <wx/treectrl.h>
 #include <wx/datectrl.h>
 #include <wx/timectrl.h>
+#include <wx/stdpaths.h>
+#include <wx/listctrl.h>
+#include <libcxml/cxml.h>
 #include "lib/cinema.h"
+#include "lib/config.h"
+#include "lib/film.h"
 #include "kdm_dialog.h"
-#include "new_cinema_dialog.h"
+#include "cinema_dialog.h"
+#include "screen_dialog.h"
 #include "wx_util.h"
-#ifdef __WXMSW__
+#ifdef DCPOMATIC_USE_OWN_DIR_PICKER
 #include "dir_picker_ctrl.h"
 #else
 #include <wx/filepicker.h>
 #endif
 
-using namespace std;
+using std::string;
+using std::map;
+using std::list;
+using std::pair;
+using std::cout;
+using std::vector;
+using std::make_pair;
 using boost::shared_ptr;
 
-KDMDialog::KDMDialog (wxWindow* parent)
+KDMDialog::KDMDialog (wxWindow* parent, boost::shared_ptr<const Film> film)
        : wxDialog (parent, wxID_ANY, _("Make KDMs"))
 {
+       /* Main sizer */
        wxBoxSizer* vertical = new wxBoxSizer (wxVERTICAL);
 
-       add_label_to_sizer (vertical, this, "Make KDMs for");
+       /* Font for sub-headings */
+       wxFont subheading_font (*wxNORMAL_FONT);
+       subheading_font.SetWeight (wxFONTWEIGHT_BOLD);
 
-       wxBoxSizer* targets = new wxBoxSizer (wxHORIZONTAL);
+
+       /* Sub-heading: Screens */
+       wxStaticText* h = new wxStaticText (this, wxID_ANY, _("Screens"));
+       h->SetFont (subheading_font);
+       vertical->Add (h, 0, wxALIGN_CENTER_VERTICAL);
        
+       wxBoxSizer* targets = new wxBoxSizer (wxHORIZONTAL);
        _targets = new wxTreeCtrl (this, wxID_ANY, wxDefaultPosition, wxDefaultSize, wxTR_HIDE_ROOT | wxTR_MULTIPLE | wxTR_HAS_BUTTONS);
-       targets->Add (_targets, 1, wxEXPAND | wxALL, 6);
+       targets->Add (_targets, 1, wxEXPAND | wxTOP | wxRIGHT, DCPOMATIC_SIZER_GAP);
 
        _root = _targets->AddRoot ("Foo");
-       shared_ptr<Cinema> csy (new Cinema ("City Screen York"));
-       add_cinema (csy);
-       add_screen (csy, shared_ptr<Screen> (new Screen ("Screen 1")));
-       add_screen (csy, shared_ptr<Screen> (new Screen ("Screen 2")));
-       add_screen (csy, shared_ptr<Screen> (new Screen ("Screen 3")));
+
+       list<shared_ptr<Cinema> > c = Config::instance()->cinemas ();
+       for (list<shared_ptr<Cinema> >::iterator i = c.begin(); i != c.end(); ++i) {
+               add_cinema (*i);
+       }
+
        _targets->ExpandAll ();
 
        wxBoxSizer* target_buttons = new wxBoxSizer (wxVERTICAL);
 
-       _new_cinema = new wxButton (this, wxID_ANY, _("New Cinema..."));
-       target_buttons->Add (_new_cinema, 1, wxEXPAND | wxALL, 6);
-       _new_screen = new wxButton (this, wxID_ANY, _("New Screen..."));
-       target_buttons->Add (_new_screen, 1, wxEXPAND | wxALL, 6);
+       _add_cinema = new wxButton (this, wxID_ANY, _("Add Cinema..."));
+       target_buttons->Add (_add_cinema, 1, wxEXPAND | wxALL, DCPOMATIC_BUTTON_STACK_GAP);
+       _edit_cinema = new wxButton (this, wxID_ANY, _("Edit Cinema..."));
+       target_buttons->Add (_edit_cinema, 1, wxEXPAND | wxALL, DCPOMATIC_BUTTON_STACK_GAP);
+       _remove_cinema = new wxButton (this, wxID_ANY, _("Remove Cinema"));
+       target_buttons->Add (_remove_cinema, 1, wxEXPAND | wxALL, DCPOMATIC_BUTTON_STACK_GAP);
+       
+       _add_screen = new wxButton (this, wxID_ANY, _("Add Screen..."));
+       target_buttons->Add (_add_screen, 1, wxEXPAND | wxALL, DCPOMATIC_BUTTON_STACK_GAP);
+       _edit_screen = new wxButton (this, wxID_ANY, _("Edit Screen..."));
+       target_buttons->Add (_edit_screen, 1, wxEXPAND | wxALL, DCPOMATIC_BUTTON_STACK_GAP);
+       _remove_screen = new wxButton (this, wxID_ANY, _("Remove Screen"));
+       target_buttons->Add (_remove_screen, 1, wxEXPAND | wxALL, DCPOMATIC_BUTTON_STACK_GAP);
+
+       targets->Add (target_buttons, 0, 0);
 
-       targets->Add (target_buttons, 0, wxEXPAND | wxALL, 6);
+       vertical->Add (targets, 1, wxEXPAND);
 
-       vertical->Add (targets, 0, wxEXPAND | wxALL, 6);
 
-       wxFlexGridSizer* table = new wxFlexGridSizer (3, 2, 6);
-       add_label_to_sizer (table, this, "From");
-       _from_date = new wxDatePickerCtrl (this, wxID_ANY);
+       /* Sub-heading: Timing */
+       h = new wxStaticText (this, wxID_ANY, S_("KDM|Timing"));
+       h->SetFont (subheading_font);
+       vertical->Add (h, 0, wxALIGN_CENTER_VERTICAL | wxTOP, DCPOMATIC_SIZER_Y_GAP * 2);
+       
+       wxFlexGridSizer* table = new wxFlexGridSizer (3, DCPOMATIC_SIZER_X_GAP, DCPOMATIC_SIZER_Y_GAP);
+       add_label_to_sizer (table, this, _("From"), true);
+       wxDateTime from;
+       from.SetToCurrent ();
+       _from_date = new wxDatePickerCtrl (this, wxID_ANY, from);
        table->Add (_from_date, 1, wxEXPAND);
-       _from_time = new wxTimePickerCtrl (this, wxID_ANY);
+       _from_time = new wxTimePickerCtrl (this, wxID_ANY, from);
        table->Add (_from_time, 1, wxEXPAND);
+
+       add_label_to_sizer (table, this, _("Until"), true);
+       wxDateTime to = from;
+       /* 1 week from now */
+       to.Add (wxDateSpan (0, 0, 1, 0));
+       _until_date = new wxDatePickerCtrl (this, wxID_ANY, to);
+       table->Add (_until_date, 1, wxEXPAND);
+       _until_time = new wxTimePickerCtrl (this, wxID_ANY, to);
+       table->Add (_until_time, 1, wxEXPAND);
+
+       vertical->Add (table, 0, wxEXPAND | wxTOP, DCPOMATIC_SIZER_GAP);
+
+
+       /* Sub-heading: CPL */
+       h = new wxStaticText (this, wxID_ANY, _("CPL"));
+       h->SetFont (subheading_font);
+       vertical->Add (h, 0, wxALIGN_CENTER_VERTICAL | wxTOP, DCPOMATIC_SIZER_Y_GAP * 2);
+       
+       /* CPL choice */
+       wxBoxSizer* s = new wxBoxSizer (wxHORIZONTAL);
+       add_label_to_sizer (s, this, _("CPL"), true);
+       _cpl = new wxChoice (this, wxID_ANY);
+       s->Add (_cpl, 1, wxEXPAND);
+       _cpl_browse = new wxButton (this, wxID_ANY, _("Browse..."));
+       s->Add (_cpl_browse, 0);
+       vertical->Add (s, 0, wxEXPAND | wxTOP, DCPOMATIC_SIZER_GAP + 2);
+
+       /* CPL details */
+       table = new wxFlexGridSizer (2, DCPOMATIC_SIZER_X_GAP, DCPOMATIC_SIZER_Y_GAP);
+       add_label_to_sizer (table, this, _("DCP directory"), true);
+       _dcp_directory = new wxStaticText (this, wxID_ANY, "");
+       table->Add (_dcp_directory);
+       add_label_to_sizer (table, this, _("CPL ID"), true);
+       _cpl_id = new wxStaticText (this, wxID_ANY, "");
+       table->Add (_cpl_id);
+       add_label_to_sizer (table, this, _("CPL annotation text"), true);
+       _cpl_annotation_text = new wxStaticText (this, wxID_ANY, "");
+       table->Add (_cpl_annotation_text);
+       vertical->Add (table, 0, wxEXPAND | wxTOP, DCPOMATIC_SIZER_GAP + 2);
+       
+       _cpls = film->cpls ();
+       update_cpl_choice ();
        
-       add_label_to_sizer (table, this, "To");
-       _to_date = new wxDatePickerCtrl (this, wxID_ANY);
-       table->Add (_to_date, 1, wxEXPAND);
-       _to_time = new wxTimePickerCtrl (this, wxID_ANY);
-       table->Add (_to_time, 1, wxEXPAND);
 
-       add_label_to_sizer (table, this, "Write to");
+       /* Sub-heading: Output */
+       h = new wxStaticText (this, wxID_ANY, _("Output"));
+       h->SetFont (subheading_font);
+       vertical->Add (h, 0, wxALIGN_CENTER_VERTICAL | wxTOP, DCPOMATIC_SIZER_Y_GAP * 2);
+       
+       table = new wxFlexGridSizer (2, DCPOMATIC_SIZER_X_GAP, 0);
 
-#ifdef __WXMSW__
-       _folder = new DirPickerCtrl (this);
+       add_label_to_sizer (table, this, _("KDM type"), true);
+       _type = new wxChoice (this, wxID_ANY);
+       _type->Append ("Modified Transitional 1", ((void *) libdcp::KDM::MODIFIED_TRANSITIONAL_1));
+       if (!film->interop ()) {
+               _type->Append ("DCI Any", ((void *) libdcp::KDM::DCI_ANY));
+               _type->Append ("DCI Specific", ((void *) libdcp::KDM::DCI_SPECIFIC));
+       }
+       table->Add (_type, 1, wxEXPAND);
+       _type->SetSelection (0);
+
+       _write_to = new wxRadioButton (this, wxID_ANY, _("Write to"));
+       table->Add (_write_to, 1, wxEXPAND);
+
+#ifdef DCPOMATIC_USE_OWN_DIR_PICKER
+       _folder = new DirPickerCtrl (this); 
 #else  
-       _folder = new wxDirPickerCtrl (this, wxDD_DIR_MUST_EXIST);
+       _folder = new wxDirPickerCtrl (this, wxID_ANY, wxEmptyString, wxDirSelectorPromptStr, wxDefaultPosition, wxSize (300, -1));
 #endif
 
+       _folder->SetPath (wxStandardPaths::Get().GetDocumentsDir());
+       
        table->Add (_folder, 1, wxEXPAND);
+
+       _email = new wxRadioButton (this, wxID_ANY, _("Send by email"));
+       table->Add (_email, 1, wxEXPAND);
+       table->AddSpacer (0);
        
-       vertical->Add (table, 1, wxEXPAND | wxALL, 6);
+       vertical->Add (table, 0, wxEXPAND | wxTOP, DCPOMATIC_SIZER_GAP);
 
-       wxSizer* buttons = CreateSeparatedButtonSizer (wxOK);
+       /* Make an overall sizer to get a nice border, and put some buttons in */
+
+       wxBoxSizer* overall_sizer = new wxBoxSizer (wxVERTICAL);
+       overall_sizer->Add (vertical, 0, wxEXPAND | wxTOP | wxLEFT | wxRIGHT, DCPOMATIC_DIALOG_BORDER);
+
+       wxSizer* buttons = CreateSeparatedButtonSizer (wxOK | wxCANCEL);
        if (buttons) {
-               vertical->Add (buttons, wxSizerFlags().Expand().DoubleBorder());
+               overall_sizer->Add (buttons, 0, wxEXPAND | wxTOP, DCPOMATIC_SIZER_Y_GAP);
        }
 
-       _targets->Connect (wxID_ANY, wxEVT_COMMAND_TREE_SEL_CHANGED, wxCommandEventHandler (KDMDialog::targets_selection_changed), 0, this);
-       _new_cinema->Connect (wxID_ANY, wxEVT_COMMAND_BUTTON_CLICKED, wxCommandEventHandler (KDMDialog::new_cinema_clicked), 0, this);
-       _new_screen->Connect (wxID_ANY, wxEVT_COMMAND_BUTTON_CLICKED, wxCommandEventHandler (KDMDialog::new_screen_clicked), 0, this);
+       _write_to->SetValue (true);
 
-       _new_screen->Enable (false);
-       
-       SetSizer (vertical);
-       vertical->Layout ();
-       vertical->SetSizeHints (this);
+       /* Bind */
+
+       _targets->Bind       (wxEVT_COMMAND_TREE_SEL_CHANGED, boost::bind (&KDMDialog::setup_sensitivity, this));
+
+       _add_cinema->Bind    (wxEVT_COMMAND_BUTTON_CLICKED, boost::bind (&KDMDialog::add_cinema_clicked, this));
+       _edit_cinema->Bind   (wxEVT_COMMAND_BUTTON_CLICKED, boost::bind (&KDMDialog::edit_cinema_clicked, this));
+       _remove_cinema->Bind (wxEVT_COMMAND_BUTTON_CLICKED, boost::bind (&KDMDialog::remove_cinema_clicked, this));
+
+       _add_screen->Bind    (wxEVT_COMMAND_BUTTON_CLICKED, boost::bind (&KDMDialog::add_screen_clicked, this));
+       _edit_screen->Bind   (wxEVT_COMMAND_BUTTON_CLICKED, boost::bind (&KDMDialog::edit_screen_clicked, this));
+       _remove_screen->Bind (wxEVT_COMMAND_BUTTON_CLICKED, boost::bind (&KDMDialog::remove_screen_clicked, this));
+
+       _cpl->Bind           (wxEVT_COMMAND_CHOICE_SELECTED, boost::bind (&KDMDialog::update_cpl_summary, this));
+       _cpl_browse->Bind    (wxEVT_COMMAND_BUTTON_CLICKED,  boost::bind (&KDMDialog::cpl_browse_clicked, this));
+
+       _write_to->Bind      (wxEVT_COMMAND_RADIOBUTTON_SELECTED, boost::bind (&KDMDialog::setup_sensitivity, this));
+       _email->Bind         (wxEVT_COMMAND_RADIOBUTTON_SELECTED, boost::bind (&KDMDialog::setup_sensitivity, this));
+
+       setup_sensitivity ();
+
+       SetSizer (overall_sizer);
+       overall_sizer->Layout ();
+       overall_sizer->SetSizeHints (this);
 }
 
-void
-KDMDialog::targets_selection_changed (wxCommandEvent &)
+list<pair<wxTreeItemId, shared_ptr<Cinema> > >
+KDMDialog::selected_cinemas () const
+{
+       wxArrayTreeItemIds s;
+       _targets->GetSelections (s);
+
+       list<pair<wxTreeItemId, shared_ptr<Cinema> > > c;
+       for (size_t i = 0; i < s.GetCount(); ++i) {
+               map<wxTreeItemId, shared_ptr<Cinema> >::const_iterator j = _cinemas.find (s[i]);
+               if (j != _cinemas.end ()) {
+                       c.push_back (make_pair (j->first, j->second));
+               }
+       }
+
+       return c;
+}
+
+list<pair<wxTreeItemId, shared_ptr<Screen> > >
+KDMDialog::selected_screens () const
 {
        wxArrayTreeItemIds s;
        _targets->GetSelections (s);
 
-       bool selected_cinema = false;
+       list<pair<wxTreeItemId, shared_ptr<Screen> > > c;
        for (size_t i = 0; i < s.GetCount(); ++i) {
-               if (_cinemas.find (s[i]) != _cinemas.end()) {
-                       selected_cinema = true;
+               map<wxTreeItemId, shared_ptr<Screen> >::const_iterator j = _screens.find (s[i]);
+               if (j != _screens.end ()) {
+                       c.push_back (make_pair (j->first, j->second));
                }
        }
+
+       return c;
+}
+
+void
+KDMDialog::setup_sensitivity ()
+{
+       bool const sc = selected_cinemas().size() == 1;
+       bool const ss = selected_screens().size() == 1;
+       bool const sd = _cpl->GetSelection() != -1;
+       
+       _edit_cinema->Enable (sc);
+       _remove_cinema->Enable (sc);
        
-       _new_screen->Enable (selected_cinema);  
+       _add_screen->Enable (sc);
+       _edit_screen->Enable (ss);
+       _remove_screen->Enable (ss);
+
+       wxButton* ok = dynamic_cast<wxButton *> (FindWindowById (wxID_OK));
+       ok->Enable ((selected_cinemas().size() > 0 || selected_screens().size() > 0) && sd);
+
+       _folder->Enable (_write_to->GetValue ());
 }
 
 void
 KDMDialog::add_cinema (shared_ptr<Cinema> c)
 {
        _cinemas[_targets->AppendItem (_root, std_to_wx (c->name))] = c;
+
+       list<shared_ptr<Screen> > sc = c->screens ();
+       for (list<shared_ptr<Screen> >::iterator i = sc.begin(); i != sc.end(); ++i) {
+               add_screen (c, *i);
+       }
 }
 
 void
@@ -143,15 +306,255 @@ KDMDialog::add_screen (shared_ptr<Cinema> c, shared_ptr<Screen> s)
 }
 
 void
-KDMDialog::new_cinema_clicked (wxCommandEvent &)
+KDMDialog::add_cinema_clicked ()
+{
+       CinemaDialog* d = new CinemaDialog (this, "Add Cinema");
+       d->ShowModal ();
+
+       shared_ptr<Cinema> c (new Cinema (d->name(), d->email()));
+       Config::instance()->add_cinema (c);
+       add_cinema (c);
+
+       d->Destroy ();
+}
+
+void
+KDMDialog::edit_cinema_clicked ()
+{
+       if (selected_cinemas().size() != 1) {
+               return;
+       }
+
+       pair<wxTreeItemId, shared_ptr<Cinema> > c = selected_cinemas().front();
+       
+       CinemaDialog* d = new CinemaDialog (this, "Edit cinema", c.second->name, c.second->email);
+       d->ShowModal ();
+
+       c.second->name = d->name ();
+       c.second->email = d->email ();
+       _targets->SetItemText (c.first, std_to_wx (d->name()));
+
+       Config::instance()->changed ();
+
+       d->Destroy ();  
+}
+
+void
+KDMDialog::remove_cinema_clicked ()
+{
+       if (selected_cinemas().size() != 1) {
+               return;
+       }
+
+       pair<wxTreeItemId, shared_ptr<Cinema> > c = selected_cinemas().front();
+
+       Config::instance()->remove_cinema (c.second);
+       _targets->Delete (c.first);
+}
+
+void
+KDMDialog::add_screen_clicked ()
+{
+       if (selected_cinemas().size() != 1) {
+               return;
+       }
+
+       shared_ptr<Cinema> c = selected_cinemas().front().second;
+       
+       ScreenDialog* d = new ScreenDialog (this, "Add Screen");
+       if (d->ShowModal () != wxID_OK) {
+               return;
+       }
+
+       shared_ptr<Screen> s (new Screen (d->name(), d->certificate()));
+       c->add_screen (s);
+       add_screen (c, s);
+
+       Config::instance()->changed ();
+
+       d->Destroy ();
+}
+
+void
+KDMDialog::edit_screen_clicked ()
 {
-       NewCinemaDialog* d = new NewCinemaDialog (this);
+       if (selected_screens().size() != 1) {
+               return;
+       }
+
+       pair<wxTreeItemId, shared_ptr<Screen> > s = selected_screens().front();
+       
+       ScreenDialog* d = new ScreenDialog (this, "Edit screen", s.second->name, s.second->certificate);
        d->ShowModal ();
+
+       s.second->name = d->name ();
+       s.second->certificate = d->certificate ();
+       _targets->SetItemText (s.first, std_to_wx (d->name()));
+
+       Config::instance()->changed ();
+
        d->Destroy ();
 }
 
 void
-KDMDialog::new_screen_clicked (wxCommandEvent &)
+KDMDialog::remove_screen_clicked ()
+{
+       if (selected_screens().size() != 1) {
+               return;
+       }
+
+       pair<wxTreeItemId, shared_ptr<Screen> > s = selected_screens().front();
+
+       map<wxTreeItemId, shared_ptr<Cinema> >::iterator i = _cinemas.begin ();
+       while (i != _cinemas.end ()) {
+               list<shared_ptr<Screen> > sc = i->second->screens ();
+               if (find (sc.begin(), sc.end(), s.second) != sc.end ()) {
+                       break;
+               }
+       }
+
+       if (i == _cinemas.end()) {
+               return;
+       }
+
+       i->second->remove_screen (s.second);
+       _targets->Delete (s.first);
+
+       Config::instance()->changed ();
+}
+
+list<shared_ptr<Screen> >
+KDMDialog::screens () const
+{
+       list<shared_ptr<Screen> > s;
+
+       list<pair<wxTreeItemId, shared_ptr<Cinema> > > cinemas = selected_cinemas ();
+       for (list<pair<wxTreeItemId, shared_ptr<Cinema> > >::iterator i = cinemas.begin(); i != cinemas.end(); ++i) {
+               list<shared_ptr<Screen> > sc = i->second->screens ();
+               for (list<shared_ptr<Screen> >::const_iterator j = sc.begin(); j != sc.end(); ++j) {
+                       s.push_back (*j);
+               }
+       }
+
+       list<pair<wxTreeItemId, shared_ptr<Screen> > > screens = selected_screens ();
+       for (list<pair<wxTreeItemId, shared_ptr<Screen> > >::iterator i = screens.begin(); i != screens.end(); ++i) {
+               s.push_back (i->second);
+       }
+
+       s.sort ();
+       s.unique ();
+
+       return s;
+}
+
+boost::posix_time::ptime
+KDMDialog::from () const
+{
+       return posix_time (_from_date, _from_time);
+}
+
+boost::posix_time::ptime
+KDMDialog::posix_time (wxDatePickerCtrl* date_picker, wxTimePickerCtrl* time_picker)
+{
+       wxDateTime const date = date_picker->GetValue ();
+       wxDateTime const time = time_picker->GetValue ();
+       return boost::posix_time::ptime (
+               boost::gregorian::date (date.GetYear(), date.GetMonth() + 1, date.GetDay()),
+               boost::posix_time::time_duration (time.GetHour(), time.GetMinute(), time.GetSecond())
+               );
+}
+
+boost::posix_time::ptime
+KDMDialog::until () const
+{
+       return posix_time (_until_date, _until_time);
+}
+
+boost::filesystem::path
+KDMDialog::cpl () const
+{
+       int const item = _cpl->GetSelection ();
+       assert (item >= 0);
+       return _cpls[item].cpl_file;
+}
+
+boost::filesystem::path
+KDMDialog::directory () const
+{
+       return wx_to_std (_folder->GetPath ());
+}
+
+bool
+KDMDialog::write_to () const
+{
+       return _write_to->GetValue ();
+}
+
+dcp::Formulation
+KDMDialog::formulation () const
+{
+       return (dcp::KDM::Formulation) reinterpret_cast<long int> (_type->GetClientData (_type->GetSelection()));
+}
+
+void
+KDMDialog::update_cpl_choice ()
 {
+       _cpl->Clear ();
+       
+       for (vector<CPLSummary>::const_iterator i = _cpls.begin(); i != _cpls.end(); ++i) {
+               _cpl->Append (std_to_wx (i->cpl_id));
 
+               if (_cpls.size() > 0) {
+                       _cpl->SetSelection (0);
+               }
+       }
+
+       update_cpl_summary ();
+}
+
+void
+KDMDialog::update_cpl_summary ()
+{
+       int const n = _cpl->GetSelection();
+       if (n == wxNOT_FOUND) {
+               return;
+       }
+
+       _dcp_directory->SetLabel (std_to_wx (_cpls[n].dcp_directory));
+       _cpl_id->SetLabel (std_to_wx (_cpls[n].cpl_id));
+       _cpl_annotation_text->SetLabel (std_to_wx (_cpls[n].cpl_annotation_text));
+}
+
+void
+KDMDialog::cpl_browse_clicked ()
+{
+       wxFileDialog d (this, _("Select CPL XML file"), wxEmptyString, wxEmptyString, "*.xml");
+       if (d.ShowModal() == wxID_CANCEL) {
+               return;
+       }
+
+       boost::filesystem::path cpl_file (wx_to_std (d.GetPath ()));
+       boost::filesystem::path dcp_dir = cpl_file.parent_path ();
+
+       /* XXX: hack alert */
+       cxml::Document cpl_document ("CompositionPlaylist");
+       cpl_document.read_file (cpl_file);
+
+       try {
+               _cpls.push_back (
+                       CPLSummary (
+                               dcp_dir.filename().string(),
+                               cpl_document.string_child("Id").substr (9),
+                               cpl_document.string_child ("ContentTitleText"),
+                               cpl_file
+                               )
+                       );
+       } catch (cxml::Error) {
+               error_dialog (this, _("This is not a valid CPL file"));
+               return;
+       }
+       
+       update_cpl_choice ();
+       _cpl->SetSelection (_cpls.size() - 1);
+       update_cpl_summary ();
 }