# IUP::Text (font) example

use strict;
use warnings;

use IUP ':all';

my $l = IUP::List->new(
  DROPDOWN=>"YES",
  1 =>"HELVETICA_NORMAL_8",
  2 =>"COURIER_NORMAL_8",
  3 =>"TIMES_NORMAL_8",
  4 =>"HELVETICA_ITALIC_8",
  5 =>"COURIER_ITALIC_8",
  6 =>"TIMES_ITALIC_8",
  7 =>"HELVETICA_BOLD_8",
  8 =>"COURIER_BOLD_8",
  9 =>"TIMES_BOLD_8",
  10=>"HELVETICA_NORMAL_10",
  11=>"COURIER_NORMAL_10",
  12=>"TIMES_NORMAL_10",
  13=>"HELVETICA_ITALIC_10",
  14=>"COURIER_ITALIC_10",
  15=>"TIMES_ITALIC_10",
  16=>"HELVETICA_BOLD_10",
  17=>"COURIER_BOLD_10",
  18=>"TIMES_BOLD_10",
  19=>"HELVETICA_NORMAL_12",
  20=>"COURIER_NORMAL_12",
  21=>"TIMES_NORMAL_12",
  22=>"HELVETICA_ITALIC_12",
  23=>"COURIER_ITALIC_12",
  24=>"TIMES_ITALIC_12",
  25=>"HELVETICA_BOLD_12",
  26=>"COURIER_BOLD_12",
  27=>"TIMES_BOLD_12",
  28=>"HELVETICA_NORMAL_14",
  29=>"COURIER_NORMAL_14",
  30=>"TIMES_NORMAL_14",
  31=>"HELVETICA_ITALIC_14",
  32=>"COURIER_ITALIC_14",
  33=>"TIMES_ITALIC_14",
  34=>"HELVETICA_BOLD_14",
  35=>"COURIER_BOLD_14",
  36=>"TIMES_BOLD_14"
);

my $dg = IUP::Dialog->new( child=>$l );
$dg->TITLE("title");

my $dg2;

$l->ACTION( sub {
  my ($self, $t, $i, $v) = @_;

  $dg2->Hide if ($dg2);

  if ($v == 1) {
    my $ml = IUP::Text->new( MULTILINE=>'Yes', SIZE=>"200x200", VALUE=>"1234\nmmmmm\niiiii", FONT=>$t );
    $dg2 = IUP::Dialog->new( child=>$ml, TITLE=>$t );
    $dg2->Show();
    $self->SetFocus();
  }
} );

$dg->Show();

IUP->MainLoop;