| Tk::StyledButton - Stylized Button widget |
Tk::StyledButton - Stylized Button widget
use Tk::StyledButton;
...
$b = $MW->StyledButton(
-style => 'shiny' | 'round' | 'gel' | 'flat' | 'image',
-shape => 'rectangle' | 'oval' | 'round' | 'bevel' | 'folio' | [ @coords ],
-dispersion => fractional-number,
-angle => fractional-number,
-image => "Tk::Photo variable",
-state => 'normal' | 'disabled',
-command => [ sub {a callback} ],
-text => 'OK',
-font => $font,
-compound => 'left',
-orient => 'horizontal' | 'vertical',
-tooltip => 'Some helpful text'
)->pack();
...
MainLoop;
Tk-StyledButton-0.10.tar.gz
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Tk::StyledButton provides a shaped button with stylized shading, using a the Tk::Canvas manpage object to implement the button rendering. The usual the Tk::Button manpage options and behaviors are preserved as much as possible.
When a button is rendered, 2 versions are created:
-background value to render
the button.
-background value
to render the button.
If the GD (min. version 2.30) and the GD::Text manpage modules are installed, the button images can be rendered via GD and captured for external use.
Note that some option values (e.g., -shape => 'folio', -orient => 'vertical') are provided for use by the Tk::StyledNB manpage (derived from the Tk::DynaTabFrame manpage ), and have minimal value for general use.
Tk::StyledButton supports the following the Tk::Button manpage options:
-anchor -background -bitmap -command -compound -font -foreground -height -image -justify -padx -pady -state -text -textvariable -width -wraplength
In addition, the following additional options are supported:
=> Tk::Photo object-style => 'image' option,
specifies an image to use for the entire button when active.
=> fractional-number=> fractional-number=> Tk::Photo object-style => 'image' option,
specifies an image to use for the entire button when idle.
=> $orientation$orientation may be any of
'n', 's', 'e', 'w', 'nw', 'ne', 'sw', 'se', 'wn', 'ws', 'en', 'es'.
Default is 'ne'. Intended for use with the Tk::StyledNB manpage, may not be
useful for general purposes.
=> 'rectangle' | 'round' | 'oval' | 'bevel' | 'folio' | [ @coords ] If the -style is 'image', the application may supply its own set of
binding coordinates via an arrayref of polygon (X, Y) vertices, thereby
permitting arbitrary bounding areas for the button (e.g., triangle,
half circle, octagon, etc.) that match the appropriate edges of the
image.
=> 'shiny' | 'round' | 'gel' | 'flat' | 'image''image'
indicates that the -idleimage and -activeimage option values
should be used for the entire button, with the active area determined
by the -shape option. This option is intended to optimize rendering
for static buttons.
=> $text | [ $text, $delay ]$text and $delay. If a scalar is supplied, the default $delay
is 300 milliseconds.
=> 0 | 1capture() method.
Note that GD and the GD::Text manpage are required to support this option.
=> 'Tk' | 'GD' | undefundef, then the text is rendered horizontally using Tk
(resulting in wide side tabs).
StyledButton is a subclass of the Tk::Canvas manpage. This widget supports the configure and cget methods described in the Tk::options manpage which can be used to enquire and modify the options described above. The widget also inherits all the methods provided by the generic the Tk::Widget manpage class.
$active_image, $active_coords, $idle_image, $idle_coords) = $button->capture( %options )$active_image and $idle_image are returned as scalars as output from the GD
rendering methods. $active_coords and $idle_coords are arrayrefs of the (X, Y)
polygon vertex coordinates used to create a transparent binding area on top of the images; active
and idle coordinates are usually the same, but both are provided for completeness.
Useful for later reusing static button images with the -style => 'image' option.
%options may include:
$format-height and width values will be used to as the bounding box
for the button.
Perl/Tk font specifications are not compatible with the GD::Text manpage, which only supports TrueType fonts, or the internal GD default fonts. In addition, TrueType fonts are specified to GD::Text as filenames, rather than the X11 font formats usually supported by the Tk::Font manpage.
In order to provide some means of translating between the 2 font systems, the -gdfont option provides a means to specify a GD::Text font. If the option value is a scalar, it is passed directly to the the GD::Text manpage::set_font() method; if it is a coderef, it will be called with the -family, -weight, -slant, and -size options of the current Tk::Font in use by the StyledButton, and should return a list of (fontfile, size) that can be passed to GD::Text::set_font.
Note that the filename passed to GD::Text::set_font() must either include absolute pathnames, or any of the GD::Text font environment variables must be set (e.g., FONT_PATH).
Also note that Perl/Tk can support TrueType fonts, but may apply internal modifications to render bold or italic versions; in such cases, GD::Text may be unable render the same weight or slant.
Win32 platforms may omit this option if a TrueType font is being used and its filename can be generated via the Win32::Font::NameToFile manpage.
If the -gdfont option is not specified and the font filename cannot be resolved, then a default font is selected from the GD internal font set, based on the size, weight, and slant of the button's font.
Finally, note that Perl/Tk returns font sizes in pixels, rather than points, and that GD::Text font specifications require a point, rather than pixel, size. Therefore, this module selects the proper point size to use by iterating over point sizes and computing the button text size via GD::Text until the resulting width is the same (or neary same) as the Perl/Tk computed width. This iteration may take some time to complete.
If no $interval is specified, the behavior is the same as
Tk::Button::flash(), i.e., 3 very quick flashes.
If $interval is zero, then any current flash operation
is cancelled.
If $interval is non-zero, then the button rotates between
the bright and dark versions every $interval milliseconds,
until it is explicitly cancelled via flash(0), or any
other mouse or keyboard initiated event is applied to the button.
The following examples are in the demo directory:
Simple script to display a single button. Button traits are specified via command line parameters:
Simple script to flash a button.
A simple button ``studio'' with the ability to interactively set
various parameters for a button, and then capture the button images
to a file (e.g., for use in a website's Javascript rollover navigation
bar, or for use with the -style => 'image').
-underline not currently supported-width and -height considerationsIf width or height is explicitly set, then the rendered button shape will be constrained to those parameters, which may result in scaling the button contents to fit within the specified width or height.
Button contents are scaled as follows:
-width and/or -height have been explicitly set, and the
specified width/height is smaller than the bounding box computed from
the text, image, and bitmap, the -padx and -pady values, and
the -compound value. In this case, the button is first rendered to
the computed size, then scaled to the explicitly specified dimensions.
When -style => 'image', and the dimensions of the activeimage
and/or idleimage are smaller than the computed bounding box for
any supplied text/image/bitmap, the active/idle images are first
scaled up to fit the contents before the contents are supplied.
When -style => 'image', and -width and/or -height have been
explicitly set, the active and idle images are first scaled to fit any
text/image/bitmap contents, and then the result is scaled up or down as needed
to fit the specified dimensions,
-width, -height)-width or -height via cget(),
the returned value is the width/height of the enclosing
Canvas object, which is usually determined by the implicit
width/height computed from the defaults, or the applied
text/image values.
bind()ing to a StyledButtonbind() method
in order to assure that any key or mouse events are bound to
the transparent binding element, rather than the entire
canvas. The following events are routed to the
the Tk::Canvas manpage::CanvasBind() method:
Activate Deactivate MapRequest
Circulate Destroy Property
CirculateRequest Expose Reparent
Colormap FocusIn ResizeRequest
Configure FocusOut Unmap
ConfigureRequest Gravity Visibility
Create Map
capture() doesn't render -bitmap-bitmap
image in its rendered button.
-image and -bitmap are mutually exclusive-shape => 'round' | 'oval', a 12 sided
polygon is used instead, which leaves some small unbound
areas near the edges of the button. (oval buttons use the
polygon for the rounded endcaps).
-style => 'image'-activeimage is different than the
dimensions of the -idleimage, the bind area will be mapped to the
dimensions of the smaller image.
-style => \&callback-shape => \@vertices, this option would permit
applications to provide their gradient styling, and leave the
mechanics of responding to various Button events to Tk::StyledButton.
Since the gradient computation is relatively isolated
internally, it should be feasible to expose an interface
which permits applications to supply their own gradient
functions.
Copyright(C) 2006, Dean Arnold, Presicient Corp., USA. All rights reserved.
Dean Arnold mailto:darnold@presicient.com
This software is provided as-is...You may use this software under the same terms as Perl itself, with the following addendum:
the Tk::Button manpage, the Tk::Font manpage, GD, the GD::Text manpage, the Win32::Font::NameToFile manpage, the Tk::StyledNB manpage, the Tk::StyledDlgBox manpage, the Tk::StyledDialog manpage
2006-01-01 Coded.
| Tk::StyledButton - Stylized Button widget |