X-Git-Url: https://main.carlh.net/gitweb/?a=blobdiff_plain;f=src%2Fwx%2Fkdm_dialog.cc;h=4334fd446ce99ae7dad7665fc4dc471072f2903c;hb=8c7a308c03e4b4196b4e2379a26d432b100ae2b1;hp=ba478f7d57d4af17c48803116ec6c22cd1a44c11;hpb=d093a5268e64af44bc55aec06d4c9b8efca6d9d6;p=dcpomatic.git

diff --git a/src/wx/kdm_dialog.cc b/src/wx/kdm_dialog.cc
index ba478f7d5..4334fd446 100644
--- a/src/wx/kdm_dialog.cc
+++ b/src/wx/kdm_dialog.cc
@@ -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
@@ -20,108 +20,274 @@
 #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 "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 *) dcp::MODIFIED_TRANSITIONAL_1));
+	if (!film->interop ()) {
+		_type->Append ("DCI Any", ((void *) dcp::DCI_ANY));
+		_type->Append ("DCI Specific", ((void *) dcp::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);
+
+	/* Make an overall sizer to get a nice border, and put some buttons in */
 
-	wxSizer* buttons = CreateSeparatedButtonSizer (wxOK);
+	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);
+	_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;
 	
-	_new_screen->Enable (selected_cinema);	
+	_edit_cinema->Enable (sc);
+	_remove_cinema->Enable (sc);
+	
+	_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
@@ -138,3 +304,257 @@ KDMDialog::add_screen (shared_ptr<Cinema> c, shared_ptr<Screen> s)
 
 	_screens[_targets->AppendItem (i->first, std_to_wx (s->name))] = s;
 }
+
+void
+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 ()
+{
+	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::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::Formulation) reinterpret_cast<intptr_t> (_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 ();
+}