1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!/usr/bin/perl
use strict;
use blib;
use Tk;
require Tk::MainWindow;
require Tk::HList;
require Tk::CodeText;
my $main = new MainWindow;
my $ed;
my $pl = $main->Scrolled('HList',
-scrollbars => 'osoe',
-browsecmd => sub {
my $stx = shift;
$ed->configure(-syntax => $stx);
$ed->Load("samples/$stx.test");
},
)->pack(
-side => 'left',
-fill => 'y'
);
$ed = $main->Scrolled('CodeText',
-wrap => 'none',
-syntax => 'Bash',
-scrollbars => 'se',
)->pack(
-side => 'left',
-expand => 1,
-fill => 'both',
);
my @plugs = $ed->highlightPlugList;
foreach my $p (@plugs) {
$pl->add($p,
-text => $p,
);
}
$main->configure(-menu => $ed->menu);
$main->MainLoop;
|
