Help for this page

Select Code to Download


  1. or download this
    sub ButtonFactory { 
  my ($custom_options, $shape, $text) = @_;
...
  return %{ merge( \%button_skeleton, $custom_options) };
}
# merge is Hash::Merge
  2. or download this
    my %BUTTON = ButtonFactory(..);
for (1..20) {
  $BUTTON{option} = 'value';
  buildZincItem(.., .., $BUTTON);
}
  3. or download this
    # $BW = Button Width
# $BH = Button Height
...
     } 
   },
  );
  4. or download this
    #!/usr/bin/perl

...
  $$custom_options{-items}{text}   = $text;
  return %{ merge( \%button_skeleton, $custom_options) };
}