+
+### SUBMITTING ###
+
+my $subwin;
+
+sub end_submit($) {
+ my ($close) = @_;
+ # $subwin->signal_emit("delete-event");
+}
+
+sub submit() {
+ ## FIXME: Stop the status timer?
+ $subwin = Gtk2::Window->new('toplevel');
+ $subwin->set_modal(1);
+ $subwin->set_transient_for($window);
+ $subwin->set_destroy_with_parent(1);
+ $subwin->set_title("Submit task $selected_task");
+ $subwin->set_wmclass("submitter", "Submitter");
+ $subwin->signal_connect("delete-event" => sub { end_submit(0) });
+
+ my $bb_submit = Gtk2::Button->new('Submit');
+ $bb_submit->signal_connect(clicked => sub { end_submit(1) });
+ #$bb_submit->set_sensitive(0);
+
+ my $bb_cancel = Gtk2::Button->new('Cancel');
+ $bb_cancel->signal_connect(clicked => sub { end_submit(1) });
+
+ my $bbutton_box = Gtk2::HBox->new;
+ $bbutton_box->pack_start_defaults($bb_submit);
+ $bbutton_box->pack_start_defaults($bb_cancel);
+ $bbutton_box->set_border_width(5);
+
+ $subwin->add($bbutton_box);
+ $subwin->show_all;
+
+ #my $dialog = Gtk2::MessageDialog->new($window, [qw/modal destroy-with-parent/], 'question', 'ok-cancel', "So what?");
+ #$dialog->set_default_response("ok");
+ #$dialog->signal_connect (response => sub { $_[0]->destroy });
+ #$dialog->show_all;
+}
+
+### MAIN ###
+
+Glib::Timeout->add(5000, \&timed_refresh);
+Gtk2->main;
+exit 0;