| … | |
… | |
| 38 | { |
38 | { |
| 39 | # grrr... |
39 | # grrr... |
| 40 | $frame->add(my $vbox = new Gtk2::VBox); |
40 | $frame->add(my $vbox = new Gtk2::VBox); |
| 41 | $vbox->add($self->{title} = new Gtk2::Label $title); |
41 | $vbox->add($self->{title} = new Gtk2::Label $title); |
| 42 | |
42 | |
| 43 | $self->{moveadj} = new Gtk2::Adjustment 1, 0, 1, 0.01, 0.1, 0; |
43 | $self->{moveadj} = new Gtk2::Adjustment 1, 0, 1, 0.001, 0.05, 0; |
| 44 | |
44 | |
| 45 | $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); |
45 | $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); |
| 46 | $scale->set_draw_value (0); |
46 | $scale->set_draw_value (0); |
| 47 | |
47 | |
| 48 | $self->{moveadj}->signal_connect (value_changed => sub { |
48 | $self->{moveadj}->signal_connect (value_changed => sub { |
| … | |
… | |
| 81 | $sw->add(($self->{text} = new gtk::text)->widget); |
81 | $sw->add(($self->{text} = new gtk::text)->widget); |
| 82 | |
82 | |
| 83 | $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0); |
83 | $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0); |
| 84 | $self->{entry}->signal_connect(activate => sub { |
84 | $self->{entry}->signal_connect(activate => sub { |
| 85 | my $text = $self->{entry}->get_text; |
85 | my $text = $self->{entry}->get_text; |
| 86 | # add message |
86 | $self->say($text) if $text =~ /\S/; |
| 87 | $self->{entry}->set_text(""); |
87 | $self->{entry}->set_text(""); |
| 88 | }); |
88 | }); |
| 89 | |
89 | |
| 90 | $self; |
90 | $self; |
| 91 | } |
91 | } |
| … | |
… | |
| 252 | $y -= $height * 0.5; |
252 | $y -= $height * 0.5; |
| 253 | |
253 | |
| 254 | for (@c) { |
254 | for (@c) { |
| 255 | my $w = $_->get_width * $s; |
255 | my $w = $_->get_width * $s; |
| 256 | $_->composite ($pixbuf, |
256 | $_->composite ($pixbuf, |
| 257 | $x, $y, $w+0.999, $height+0.999, $x, $y, $s, $s, |
257 | $x, $y, $w+1, $height+1, $x, $y, $s, $s, |
| 258 | $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 255); |
258 | $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 255); |
| 259 | |
259 | |
| 260 | $x += $w + $spacing; |
260 | $x += $w + $spacing; |
| 261 | } |
261 | } |
| 262 | } |
262 | } |
| … | |
… | |
| 287 | |
287 | |
| 288 | my $size = $self->{size}; |
288 | my $size = $self->{size}; |
| 289 | |
289 | |
| 290 | my $border = int ($s / ($size + 3) * 0.5); |
290 | my $border = int ($s / ($size + 3) * 0.5); |
| 291 | my $s2 = $s - $border * 2; |
291 | my $s2 = $s - $border * 2; |
| 292 | my $edge = int ($s2 / ($size + 1) * 0.95) - ($::config->{randomize} ? 3 : 0); |
292 | my $edge = int ($s2 / ($size + 1) * 0.96) - ($::config->{randomize} ? 3 : 0); |
| 293 | my $ofs = int ($edge / 2); |
293 | my $ofs = int ($edge / 2); |
| 294 | |
294 | |
| 295 | my @k = map int ($s2 * $_ / ($size+1) + $border + 0.5), 0 .. $size; |
295 | my @k = map int ($s2 * $_ / ($size+1) + $border + 0.5), 0 .. $size; |
| 296 | |
296 | |
| 297 | my $pixbuf; |
297 | my $pixbuf; |
