Changeset 828

Timestamp:

11/09/08 00:48:13 (3 years ago)

Author:

szabgab

Message:

move tabs and spaces in submenu

File:

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

trunk/lib/Padre/Wx/Menu.pm

@@ -218 +218 @@
 
     # Tab And Space
-    Wx::Event::EVT_MENU( $win,
-        $menu->{edit}->Append( -1, gettext("Tab to Space") ),
+    $menu->{edit_tab} = Wx::Menu->new;
+    $menu->{edit}->Append( -1, gettext("Tab and Space"), $menu->{edit_tab} );
+    Wx::Event::EVT_MENU( $win,
+        $menu->{edit_tab}->Append( -1, gettext("Tab to Space") ),
         sub { $_[0]->on_tab_and_space('Tab_to_Space') },
     );
     Wx::Event::EVT_MENU( $win,
-        $menu->{edit}->Append( -1, gettext("Space to Tab") ),
+        $menu->{edit_tab}->Append( -1, gettext("Space to Tab") ),
         sub { $_[0]->on_tab_and_space('Space_to_Tab') },
     );
     Wx::Event::EVT_MENU( $win,
-        $menu->{edit}->Append( -1, gettext("Delete Ending Space") ),
+        $menu->{edit_tab}->Append( -1, gettext("Delete Ending Space") ),
         sub { $_[0]->on_delete_ending_space() },
     );
     Wx::Event::EVT_MENU( $win,
-        $menu->{edit}->Append( -1, gettext("Delete Leading Space") ),
+        $menu->{edit_tab}->Append( -1, gettext("Delete Leading Space") ),
         sub { $_[0]->on_delete_leading_space() },
     );