--- Newt-1.08/Newt.xs.fix	Fri Nov  6 18:34:52 1998
+++ Newt-1.08/Newt.xs	Mon Dec 17 16:13:22 2001
@@ -412,6 +412,12 @@
 #else
 	    goto not_there;
 #endif
+	if (strEQ(name, "NEWT_KEY_ESCAPE"))
+#ifdef NEWT_KEY_ESCAPE
+	    return NEWT_KEY_ESCAPE;
+#else
+	    goto not_there;
+#endif
 	if (strEQ(name, "NEWT_KEY_EXTRA_BASE"))
 #ifdef NEWT_KEY_EXTRA_BASE
 	    return NEWT_KEY_EXTRA_BASE;
--- Newt-1.08/Newt.pm.fix	Tue Jun 12 14:42:39 2001
+++ Newt-1.08/Newt.pm	Tue Jun 12 17:26:57 2001
@@ -68,6 +68,7 @@
 	NEWT_KEY_DOWN
 	NEWT_KEY_END
 	NEWT_KEY_ENTER
+	NEWT_KEY_ESCAPE
 	NEWT_KEY_EXTRA_BASE
 	NEWT_KEY_F1
 	NEWT_KEY_F10
@@ -117,6 +118,7 @@
 			    NEWT_KEY_DOWN
 			    NEWT_KEY_END
 			    NEWT_KEY_ENTER
+			    NEWT_KEY_ESCAPE
 			    NEWT_KEY_EXTRA_BASE
 			    NEWT_KEY_F1
 			    NEWT_KEY_F10
@@ -454,7 +456,7 @@
 sub Newt::Component::TakesFocus {
   my ($self, $yesorno) = @_;
 
-  Newt::newtComponentTakesFocus(self->{co}, $yesorno);
+  Newt::newtComponentTakesFocus($self->{co}, $yesorno);
   $self;
 }
 
@@ -514,12 +516,25 @@
   $self;
 }
 
+sub Newt::Form::Focus {
+  my ($self, $comp) = @_;
+
+  Newt::newtFormSetCurrent($self->{co}, $comp->{co});
+  $self;
+}
+
 sub Newt::Form::Run {
   my $self = shift;
 
   return Newt::newtFormRun($self->{co});
 }
 
+sub Newt::Form::GetCurrent {
+  my $self = shift;
+
+  return Newt::newtFormGetCurrent($self->{co});
+}
+
 sub Newt::Form::DESTROY {
   my $self = shift;
   
@@ -593,7 +608,7 @@
 
 ########################### Newt::Listbox
 
-sub Newt::Listbox::Add {
+sub Newt::Listbox::Append {
   my $self = shift;
 
   foreach (@_) {