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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
use Gtk;
#TITLE: Simple #6
#REQUIRES: Gtk
init Gtk;
{
my($window,$vbox,$hbox,$tty,$nled,$cled,$sled);
sub pixel {
my($context, $color) = @_;
my($pixel, $failed);
$color &= 0x00FFFFFF;
$pixel = $context->get_pixel( (($color & 0xff0000) >> 8) + (($color & 0xff0000) >> 16),
(($color & 0x00ff00) >> 0) + (($color & 0x00ff00) >> 8),
(($color & 0x0000ff) << 0) + (($color & 0x0000ff) << 8));
if (not defined $pixel) {
die "unable to allocate color";
}
$pixel;
}
sub do_color_queue {
my($tty) = @_;
if (not $tty or not $tty->realized) {
return;
}
if (not defined $tty->{color_context}) {
$tty->{color_context} = new Gtk::Gdk::ColorContext ($tty->window->get_visual, $tty->window->get_colormap);
}
local($_);
while($_ = pop @{$tty->{col_queue}}) {
$tty->set_color($_->[0],
pixel($tty->{color_context}, $_->[1][0]),
pixel($tty->{color_context}, $_->[1][1]),
pixel($tty->{color_context}, $_->[1][2]),
pixel($tty->{color_context}, $_->[1][3]));
}
}
sub set_color {
my($tty, $index, $col) = @_;
push @{$tty->{col_queue}}, [$index, $col];
do_color_queue($tty);
}
$window = new Gtk::Widget "GtkWindow",
type => -toplevel,
title => "hello world",
# allow_grow => 0,
# allow_shrink => 0,
border_width => 10;
$vbox = new Gtk::VBox 0, 1;
show $vbox;
$window->add($vbox);
$tty = new Gtk::Tty 80, 24, 100;
$tty->signal_connect_after(realize => \&do_color_queue);
set_color($tty, 0, [0x000000, 0x000000, 0x000000, 0x000000]);
set_color($tty, 1, [0xd00000, 0xd00000, 0x880000, 0xff0000]);
set_color($tty, 2, [0x00d000, 0x00d000, 0x008800, 0x00ff00]);
set_color($tty, 3, [0x00d000, 0xd0d000, 0x888888, 0xffff00]);
set_color($tty, 4, [0x0000d0, 0x0000d0, 0x000088, 0x0000ff]);
set_color($tty, 5, [0xd000d0, 0xd000d0, 0x880088, 0xff00ff]);
set_color($tty, 6, [0x00d0d0, 0x00d0d0, 0x008888, 0x00ffff]);
set_color($tty, 7, [0xd0d0d0, 0xd0d0d0, 0x888888, 0xffffff]);
show $tty;
$tty->put_out("Hello, world!");
$tty->test_exec;
$vbox->pack_start($tty, 1, 1, 1);
$hbox = new Gtk::HBox 0, 1;
$vbox->pack_start($hbox, 0, 0, 1);
show $hbox;
$nled = new Gtk::Led;
$hbox->pack_start($nled, 1, 1, 1);
show $nled;
$cled = new Gtk::Led;
$hbox->pack_start($cled, 1, 1, 1);
show $cled;
$sled = new Gtk::Led;
$hbox->pack_start($sled, 1, 1, 1);
show $sled;
add_update_led $tty $nled, -num_lock;
add_update_led $tty $cled, -caps_lock;
add_update_led $tty $sled, -scroll_lock;
show $window;
$tty->grab_focus;
}
main Gtk;
|
