1. Herbert Breunung
  2. Kephra

Commits

Herbert Breunung  committed fd780e3

moved help menu entries into help module

  • Participants
  • Parent commits f68a8f0
  • Branches default

Comments (0)

Files changed (2)

File lib/Kephra/App/Util.pm

View file
 use strict;
 use warnings;
+use Exporter;
+use Wx;
 
 package Kephra::App::Util;
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw(is_widget is_panel is_sizer is_color is_font create_color lounch_browser);
+use Scalar::Util qw(blessed looks_like_number);
 
-use Scalar::Util qw(blessed looks_like_number);
-use Kephra::API;
-use Kephra::CommandList;
-
-Kephra::CommandList::register_cmd({
- 'util-lounch-url'=>{ label=>'Perl Forum', sub=>'Kephra::App::Util::lounch_browser'},
-});
 
 # export a helper function into a coderef
 sub get {
 
 sub lounch_browser { Wx::LaunchDefaultBrowser($_[0]) }
 
+
 1;
 
 __END__

File lib/Kephra/Help.pm

View file
+use strict;
+use warnings;
+
+use Kephra::API;
+use Kephra::App::Util;
+
+package Kephra::Help;
+
+Kephra::CommandList::register_cmd_namespace('help');
+Kephra::CommandList::register_cmd({
+ '+-documentation'=>{sub=>'Kephra::App::Dialog::documentation',label=>'Documentation',keys=> 'F1'},
+ '+-about'        =>{sub=>'Kephra::App::Dialog::about',        label=>'About...',     keys=> 'ctrl+alt+a'},
+ '+-homepage'     =>{sub=>'lounch_url',                        label=>'Homepage',     parameter => 'http://kephra.sourceforge.net/site/en/home_news.shtml'},
+ '+-bugreport'    =>{sub=>'lounch_url',                        label=>'Send a Wish',  parameter => 'http://sourceforge.net/tracker/?func=add&group_id=169747&atid=851593'},
+ '+-forum'        =>{sub=>'lounch_url',                        label=>'Perl Forum',   parameter => 'http://www.perl-community.de/bat/poard/latest/24h'},
+});
+
+
+sub lounch_url { Kephra::App::Util::lounch_browser($_[0]) }
+
+
+1;