--- Curses-UI-0.95/lib/Curses/UI/Buttonbox.pm.pix	2006-10-17 10:02:31.000000000 +0200
+++ Curses-UI-0.95/lib/Curses/UI/Buttonbox.pm	2006-10-17 10:04:48.000000000 +0200
@@ -240,6 +240,17 @@
     }
 }
 
+sub set_label
+{
+    my $this = shift;
+    my $id = shift;
+    my $label = shift;
+    my $button = $this->{-buttons}[$id];
+    $button->{-label} = $label;
+    $this->intellidraw;
+    return $this;
+}
+
 sub next_button()
 {
     my $this = shift;
@@ -673,6 +684,10 @@
 B<-value> option, see B<-buttons> above), that value will be 
 returned.
 
+=item * B<set_label> ( INDEX, TEXT )
+
+Modifies the label of button at index
+
 =back