Re^2: Icon generation on the fly

Thanks a lot but I'm incapable of building Gtk2. It may be possible but seems not to worth the effort as of yet. I would rather put something to work with the means easily accesible. With Imager suggested by Anonymous Monk I was able to put together this code:

use Imager;

my $icon_width=128;
my $icon_height=128;
  
my $image = Imager->new(xsize => $icon_width, ysize => $icon_height);
  
$image->box(
        xmin=>0,
        ymin=>0,
        xmax=>$icon_width-1,
        ymax => $icon_height-1,
        filled => 1, color => '#ffffff'
    );
  
my $font_filename = 'C:/Windows/Fonts/arialbd.ttf';
my $font = Imager::Font->new(file=>$font_filename)  or die "Cannot loa
+d $font_filename: ", Imager->errstr;
  
print "Enter number: ";my $text=<>;chomp($text);

my $text_size = 96;
  
$font->align(
        string => $text,
        size => $text_size,
        color => '#000000',
        x => $image->getwidth/2,
        y => $image->getheight/2,
        halign => 'center',
        valign => 'center',
        image => $image
    );
  
$image->write(file=>'number.ico') or die 'Cannot save image: ', $image
+->errstr;
[download]

It is a little bit weird (my be this is not the right font for this) but it works.

Comment on Re^2: Icon generation on the fly Download Code

Replies are listed 'Best First'.
Re^3: Icon generation on the fly by Khen1950fx (Canon) on Jan 31, 2012 at 19:31 UTC
If you can't build Gtk2, then you could use SystemTray::Applet. It doesn't require Gtk2, and it doessn't require any specialized knowledge of the user's toolkit. `#!/usr/bin/perl use strict; use warnings; use SystemTray::Applet; my $num = 10; my $applet = SystemTray::Applet->new( "text" => $num, "callback" => sub { my ($self) = @_; $self->{"text"} = $num; } );` [download]	[reply] [d/l]
Re^4: Icon generation on the fly by chessgui (Scribe) on Feb 01, 2012 at 05:36 UTC
SystemTray::Applet can't be built in the legal way (it detects a circular dependency with SystemTray::Applet::Win32). If the module is built with force it prints '10' on STDOUT then freezes. If I build SystemTray::Applet::Win32 with force and use it instead of SystemTray::Applet it creates an empty icon in the system tray over which if I hover with the cursor it pops up a bubble saying '10'. I would rather like it to represent '10' in the tray permanently.	[reply]