Changeset 2165

Timestamp:

12/22/08 21:32:37 (3 years ago)

Author:

azawawi

Message:

'---' in menu_plugins_simple means add a separator

File:

• trunk/Padre/lib/Padre/Plugin.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Plugin.pm

@@ -267 +267 @@
   sub menu_plugins_simple {
       'My Plugin' => [
+          '---' => undef,    # menu separator
           About => sub { $self->show_about },
           Deep  => [
@@ -348 +349 @@
             $menu->Append( -1, $label, $submenu );
         } else {
-            Wx::Event::EVT_MENU( $win, $menu->Append( -1, $label), $value );
-        }
+            if($label =~ /^---/) {
+                $menu->AppendSeparator;
+            } else {
+                Wx::Event::EVT_MENU( $win, $menu->Append( -1, $label), $value );
+            }
+        }
     }
     return $menu;