Changeset 829

Timestamp:

11/09/08 00:50:31 (3 years ago)

Author:

szabgab

Message:

move upper/lower case in submenu

File:

• trunk/lib/Padre/Wx/Menu.pm (modified) (1 diff)

trunk/lib/Padre/Wx/Menu.pm

@@ -236 +236 @@
         sub { $_[0]->on_delete_leading_space() },
     );
-    $menu->{edit}->AppendSeparator;
 
     # Upper and Lower Case
-    Wx::Event::EVT_MENU( $win,
-        $menu->{edit}->Append( -1, gettext("Upper All") ),
+    $menu->{edit_case} = Wx::Menu->new;
+    $menu->{edit}->Append( -1, gettext("Upper/Lower Case"), $menu->{edit_case} );
+    Wx::Event::EVT_MENU( $win,
+        $menu->{edit_case}->Append( -1, gettext("Upper All") ),
         sub { $_[0]->on_upper_and_lower('Upper_All') },
     );
     Wx::Event::EVT_MENU( $win,
-        $menu->{edit}->Append( -1, gettext("Lower All") ),
+        $menu->{edit_case}->Append( -1, gettext("Lower All") ),
         sub { $_[0]->on_upper_and_lower('Lower_All') },
     );
     Wx::Event::EVT_MENU( $win,
-        $menu->{edit}->Append( -1, gettext("Upper First") ),
+        $menu->{edit_case}->Append( -1, gettext("Upper First") ),
         sub { $_[0]->on_upper_and_lower('Upper_First') },
     );
     Wx::Event::EVT_MENU( $win,
-        $menu->{edit}->Append( -1, gettext("Lower First") ),
+        $menu->{edit_case}->Append( -1, gettext("Lower First") ),
         sub { $_[0]->on_upper_and_lower('Lower_First') },
     );