summaryrefslogtreecommitdiffstats
path: root/perl-install/pixmaps
Commit message (Expand)AuthorAgeFilesLines
* new banner iconsThierry Vignaud2004-02-131-0/+0
* more locale fixes; and changed images for Uzbek to default to cyrillicPablo Saratxaga2004-02-042-0/+0
* UpdateDavid Baudens2004-01-284-0/+0
* changed the Serbian cyrillic image to display using cyrillic.Pablo Saratxaga2004-01-121-0/+0
* readded with binary flagPablo Saratxaga2003-09-171-0/+0
* removed binary filePablo Saratxaga2003-09-171-0/+0
* Added "English (Ireland)" choice;Pablo Saratxaga2003-09-171-0/+0
* UpdateDavid Baudens2003-09-0510-0/+0
* - much cleanup in test_mouse()Pascal Rigaux2003-09-0320-1596/+0
* Re-uploaded binary files added with "cvs add -kb ...".Till Kamppeter2003-08-3013-0/+0
* Binary files uploaded without "cvs add -kb ...", removed for re-upload.Till Kamppeter2003-08-3013-0/+0
* New GTK2-based main window for printerdrake (only after installation).Till Kamppeter2003-08-2913-0/+0
* Updated icon for printerdrake's dialog windows.Till Kamppeter2003-08-261-0/+0
* make them transparentGuillaume Cottenceau2003-08-2016-0/+0
* re-adding with -kbPascal Rigaux2003-08-0114-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* removing for re-adding with -kbPascal Rigaux2003-08-011-0/+0
* New/updated images with language namesPablo Saratxaga2003-08-0117-0/+0
* re-adding with -kbPascal Rigaux2003-06-061-0/+0
* removing for re-adding with -kbPascal Rigaux2003-06-061-0/+0
* Renamed Serbian po files to follow standard (sr -> cyrillic, sr@Latn -> latin).Pablo Saratxaga2003-05-062-0/+0
* put new pablo's images (less large, add missing ones)Guillaume Cottenceau2003-02-2881-0/+0
* - make it the same range as colors.png and colors8.pngPascal Rigaux2003-02-211-0/+0
* move some images from standalone to pixmaps to have them both during install ...Pascal Rigaux2003-02-192-0/+0
* add it back (used by XFdrake)Pascal Rigaux2003-02-191-0/+0
* honour 9.1 theme title of windows: no icon, text to the leftGuillaume Cottenceau2003-02-1415-0/+0
* - update steps window to 9.1 theme (blue/white bullets)Guillaume Cottenceau2003-02-142-0/+0
* invert video the images since the new theme will be printing black text on wh...Guillaume Cottenceau2003-02-1375-0/+0
* language/country selection change:Guillaume Cottenceau2003-02-0875-0/+0
* UpdateDavid Baudens2002-09-0520-0/+0
* re-adding with -kbdamien2002-09-035-0/+475
* removing for re-adding with -kbdamien2002-09-031-68/+0
* removing for re-adding with -kbdamien2002-09-031-77/+0
* removing for re-adding with -kbdamien2002-09-031-70/+0
* removing for re-adding with -kbdamien2002-09-031-167/+0
* removing for re-adding with -kbdamien2002-09-031-93/+0
* icons for ok/cancel/back/previou/next iconsdamien2002-09-035-0/+475
* re-adding with -kbPascal Rigaux2002-08-291-0/+0
/span> @_; mkdir_p(dirname($file)); } sub theme_set_image_for_resolution { my ($name, $res, $source_image) = @_; my $dest_image = theme_get_image_for_resolution($name, $res); create_path($dest_image); #- Append an exclamation point to the geometry to force the image size to exactly the size you specify. system('convert', '-geometry', $res . '!', $source_image, $dest_image); system($bootsplash_scripts . '/rewritejpeg', $dest_image); } sub theme_read_config_for_resolution { my ($theme, $res) = @_; my $file = theme_get_config_for_resolution($theme, $res); my $contents = cat_($file); my ($pb_x1, $pb_y1, $pb_x2, $pb_y2) = $contents =~ /^box\s+silent\s+noover\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/m; my ($pc) = $contents =~ /^box\s+silent\s+inter\s+\d+\s+\d+\s+\d+\s+\d+\s+(#\w+)/m; { pc => $pc, px => $pb_x1, pw => $pb_x2 - $pb_x1, py => $pb_y1, ph => $pb_y2 - $pb_y1, getVarsFromSh($file) }; } sub theme_write_config_for_resolution { my ($name, $res, $conf) = @_; my $config = theme_get_config_for_resolution($name, $res); create_path($config); my $jpeg = theme_get_image_for_resolution($name, $res); # progress/text rectangles border/inter coordinates my ($pb_x1, $pb_x2, $pb_y1, $pb_y2) = ($conf->{px}, $conf->{px} + $conf->{pw}, $conf->{py}, $conf->{py} + $conf->{ph}); my ($pi_x1, $pi_x2, $pi_y1, $pi_y2) = ($pb_x1 + 1, $pb_x2 - 1, $pb_y1 + 1, $pb_y2 - 1); my ($tb_x1, $tb_x2, $tb_y1, $tb_y2) = ($conf->{tx}, $conf->{tx} + $conf->{tw}, $conf->{ty}, $conf->{ty} + $conf->{th}); my ($ti_x1, $ti_x2, $ti_y1, $ti_y2) = ($tb_x1 + 1, $tb_x2 - 1, $tb_y1 + 1, $tb_y2 - 1); my $pc = $conf->{pc}; output($config, qq(# This is the configuration file for the $res bootsplash picture # this file is necessary to specify the coordinates of the text box on the # splash screen. # config file version version=3 # should the picture be displayed? state=1 # fgcolor is the text forground color. # bgcolor is the text background (i.e. transparent) color. fgcolor=7 bgcolor=0 # (tx, ty) are the (x, y) coordinates of the text window in pixels. # tw/th is the width/height of the text window in pixels. tx=$conf->{tx} ty=$conf->{ty} tw=$conf->{tw} th=$conf->{th} # ttf message output parameters text_x=20 text_y=550 text_size=20 text_color=0xeef4ff # name of the picture file (full path recommended) jpeg=$jpeg silentjpeg=$jpeg progress_enable=1 # background # b(order) or i(nter) box silent noover $pb_x1 $pb_y1 $pb_x2 $pb_y2 #040454 # progress bar box silent inter $pi_x1 $pi_y1 $pi_x1 $pi_y2 $pc $pc $pc $pc box silent $pi_x1 $pi_y1 $pi_x2 $pi_y2 $pc $pc $pc $pc # black border (top, bottom, left, right) box silent $pb_x1 $pb_y1 $pb_x2 $pb_y1 #313234 box silent $pb_x1 $pb_y2 $pb_x2 $pb_y2 #889499 box silent $pb_x1 $pb_y1 $pb_x1 $pb_y2 #313234 box silent $pb_x2 $pb_y1 $pb_x2 $pb_y2 #889499 # text box box noover $ti_x1 $ti_y1 $ti_x2 $ti_y2 #011763 # black border (top, bottom, left, right) box $tb_x1 $tb_y1 $tb_x2 $tb_y1 #313234 box $tb_x1 $tb_y2 $tb_x2 $tb_y2 #889499 box $tb_x1 $tb_y1 $tb_x1 $tb_y2 #313234 box $tb_x2 $tb_y1 $tb_x2 $tb_y2 #889499 overpaintok=1 LOGO_CONSOLE=$conf->{LOGO_CONSOLE} )); } sub rectangle2xywh { my ($rect) = @_; my $x = min($rect->[0]{X} , $rect->[1]{X}); my $y = min($rect->[0]{Y} , $rect->[1]{Y}); my $w = abs($rect->[0]{X} - $rect->[1]{X}); my $h = abs($rect->[0]{Y} - $rect->[1]{Y}); ($x, $y, $w, $h); } sub xywh2rectangle { my ($x, $y, $w, $h) = @_; [ { X => $x, Y => $y }, { X => $x+$w, Y => $y+$h } ]; } sub distance { my ($p1, $p2) = @_; sqr($p1->{X} - $p2->{X}) + sqr($p1->{Y} - $p2->{Y}); } sub farthest { my ($point, @others) = @_; my $dist = 0; my $farthest; foreach (@others) { my $d = distance($point, $_); if ($d >= $dist) { $dist = $d; $farthest = $_; } } $farthest; } sub nearest { my ($point, @others) = @_; my $dist; my $nearest; foreach (@others) { my $d = distance($point, $_); if (! defined $dist || $d < $dist) { $dist = $d; $nearest = $_; } } $nearest; } 1;