Advanced File Manager

📍 Lokasi: /usr/share/doc/perl-Curses-UI/examples 💾 Free: 45.7 GB

✏️ Mengedit: tutorial

#!/usr/bin/perl -w
# Tutorial example
# 2003 (c) by Marcus Thiesen (marcus@cpan.org)
# This file is a part of Curses::UI and might be distributed 
# under the same terms as perl itself.

# Use the libraries from the distribution, instead of 
# system wide libraries.
use FindBin;
use lib "$FindBin::RealBin/../lib";

use strict;
use Curses::UI;
my $cui = new Curses::UI( -color_support => 1 );

my @menu = (
  { -label => 'File', 
    -submenu => [
      { -label => 'Exit      ^Q', -value => \&exit_dialog  }
    ]
  },
);
 
my $menu = $cui->add(
	'menu','Menubar', 
	-menu => \@menu,
	-fg  => "blue",
);

my $win1 = $cui->add(
		     'win1', 'Window',
		     -border => 1,
		     -y    => 1,
		     -bfg  => 'red',
		     );

sub exit_dialog()
{
	my $return = $cui->dialog(
			-message   => "Do you really want to quit?",
			-title     => "Are you sure???", 
			-buttons   => ['yes', 'no'],

);

exit(0) if $return;
}

my $texteditor = $win1->add("text", "TextEditor", -text => "Here is some text\n"
			                          . "And some more");

$cui->set_binding(sub {$menu->focus()}, "\cX");
$cui->set_binding( \&exit_dialog , "\cQ");

$texteditor->focus();
$cui->mainloop();

❌ Batal

Nama	Ukuran	Dimodifikasi	Permission	Aksi
📎 color_editor	6.2 KB	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 demo-add	2 KB	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 demo-buttonbox	875 B	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 demo-color	886 B	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 demo-cuml	857 B	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 demo-language	951 B	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 demo-notebook	2.5 KB	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 demo-widgets	25.9 KB	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 editor	5.1 KB	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 hello_world	177 B	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 mouse_focustest	1.1 KB	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 pop3_reader	6.9 KB	2011-09-01 02:07	0644	✏️ Edit ⬇
📎 tutorial	1.2 KB	2011-09-01 02:07	0644	✏️ Edit ⬇

📂 Advanced File Manager

✏️ Mengedit: tutorial

✍️ Rename: