--- lib/Perly/View.pm	2007/06/03 15:34:30	3
+++ lib/Perly/View.pm	2007/06/03 22:49:47	4
@@ -15,7 +15,12 @@
 		my $action = new_action( class => 'CreateCode' );
 		render_param( $action => 'source', cols => 80, rows => 25 );
 		#render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
-		form_submit( label => _("Save my code") );
+		form_submit(
+			label => _("Save my code"),
+			onclick => [
+				{ beforeclick => "CodePress.beforeSubmit();" },
+			],
+		);
 	}
 };