function[] = set_plot_trial_slider(e)

plotwindow_id = get_plotwindow_id(gcf);

subj_pop = findobj('Tag', ['subj_pop.' plotwindow_id]);
sess_pop = findobj('Tag', ['sess_pop.' plotwindow_id]);
trial_slider = findobj('Tag', ['trial_slider.' plotwindow_id]);
trial_edit = findobj('Tag', ['trial_edit.' plotwindow_id]);

ts_val = get(trial_slider, 'Value');
if iscell(ts_val)
    trial=round(ts_val{1});
else
    trial=round(ts_val);
end

set(trial_edit, 'String', trial);


sess = get(sess_pop, 'Value');
subj = get(subj_pop, 'Value');

plot(e.subjects(subj).sessions(sess).trials(trial));