samples/Notepad.pl

46-    " > &Delete"           => { -name => "Delete",
47:                                -onClick => sub { my $self = shift; $self->Edit->Clear(); 0; }
48-                              },