Devel-PDB
view release on metacpan or search on metacpan
lib/Devel/PDB.pm view on Meta::CPAN
my $fConfig = config_file("conf");
my @aFile = ();
my @aEdit = ();
my @aView = ();
my @aExecution = ();
my @aBreakpoint = ();
my @aSettings = ();
set_key_binding(\&ui_db_help, "Keys", "Keys help", "\cK");
set_key_binding(sub { shift->getobj('menu')->focus }, "Menu", "Main menu", KEY_F(10));
# Submenu - File
push(@aFile, set_key_binding(sub { db_view_std_files(0); $sv_win->focus; }, "ViewSTDFiles", "View STD* files", KEY_F(4)));
push(
@aFile,
set_key_binding(
sub {
if ($ui_window_focused == 2) {
$update_watch_list = 1;
lib/Devel/PDB.pm view on Meta::CPAN
set_key_binding(sub { ui_adjust_vert_parts(1) }, "VerticalPartsMin", "Vertical window(Source file) minimize", '{'));
push(@aView,
set_key_binding(sub { ui_adjust_vert_parts(-1) }, "VerticalPartsMax", "Vertical window(Source file) maximize", '}'));
push(@aView,
set_key_binding(sub { ui_adjust_hori_parts(-1) }, "HorizontalPartsMin", "Horizontal window(Stack) minimize", '['));
push(@aView,
set_key_binding(sub { ui_adjust_hori_parts(1) }, "HorizontalPartsMin", "Horizontal window(Stack) maximize", ']'));
$cui->add(
'menu',
'Menubar',
-menu => [{
-label => 'File',
-submenu => \@aFile,
},
{ -label => 'View',
-submenu => \@aView,
},
{ -label => 'Execution',
-submenu => \@aExecution,
},
lib/Devel/PDB.pm view on Meta::CPAN
Step In
=item SteOver - F8
Step Over
=item Breakpoint - F9
Toggle Breakpoint. Set or remove breakpoint on cursor position.
=item Menu - F10
Open main - top menu
=item FilesCompiled - F11
Show 'I<Compiled Files>' Dialog
=item FilesOpened - F12
Show 'I<Opened Files>' Dialog
lib/Devel/PDB.pm view on Meta::CPAN
=item -[stdout|stderr]
Output standart STD files from runned program
=item ~/.PDB.keys
Configuration files of rebinded keys.
For function keys is FX and for Cotrol keys is Control-X.
For example keys 'F10' for open Menu and keys 'Ctrl+C','Ctrl+Q','Q' for Quit.
Menu=F10
Quit=Control-C,Control-Q,Q
=item ~/.PDB.colours
Configuration of own colours as defined in Curses::UI::Color.
Each line has one definition, where frst is key and second is colour with space separattor.
For example set general foreground and background color as RED on WHITE:
-fg red
( run in 0.907 second using v1.01-cache-2.11-cpan-49f99fa48dc )