Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / man / man3 / Tk::ColorEditor.3

.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  | will give a
.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "COLOREDITOR 1"
.TH COLOREDITOR 1 "2000-12-30" "perl v5.8.0" "User Contributed Perl Documentation"
.SH "NAME"
Tk::ColorEditor \- a general purpose Tk widget Color Editor 
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&   use Tk::ColorEditor;
.Ve
.PP
.Vb 1
\&   $cref = $mw->ColorEditor(-title => $title, -cursor => @cursor);
.Ve
.PP
.Vb 1
\&   $cref->Show;
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
ColorEditor is implemented as an object with various methods, described
below.  First, create your ColorEditor object during program initialization
(one should be sufficient), and then configure it by specifying a list of Tk
widgets to colorize. When it's time to use the editor, invoke the \fIShow()\fR
method.
.PP
ColorEditor allows some customization: you may alter the color attribute
menu by adding and/or deleting menu items and/or separators, turn the status
window on or off, alter the configurator's list of color widgets, or even
supply your own custom color configurator callback.
.IP "1." 4
Call the constructor to create the editor object, which in turn returns a
blessed reference to the new object:
.Sp
.Vb 1
\&   use Tk::ColorEditor;
.Ve
.Sp
.Vb 4
\&   $cref = $mw->ColorEditor(
\&       -title  => $title,
\&       -cursor => @cursor,
\&   );
.Ve
.Sp
.Vb 10
\&      mw     - a window reference, usually the result of a MainWindow->new
\&               call.  As the default root of a widget tree, $mw and all
\&               descendant widgets at object-creation-time are configured
\&               by the default color configurator procedure.  (You probably
\&               want to change this though or you might end up colorizing
\&               ColorEditor!)
\&      title  - Toplevel title, default = ' '.
\&      cursor - a valid Tk '-cursor' specification (default is
\&               'top_left_arrow').  This cursor is used over all ColorEditor
\&               "hot spots".
.Ve
.IP "2." 4
Invoke the \fIconfigure()\fR method to change editor characteristics:
.Sp
.Vb 1
\&   $cref->configure(-option => value, ..., -option-n => value-n);
.Ve
.Sp
.Vb 9
\&      options:
\&        -command             : a callback to a  `set_colors' replacement.
\&        -widgets             : a reference to a list of widget references
\&                               for the color configurator.
\&        -display_status      : TRUE IFF display the ColorEditor status
\&                               window when applying colors.
\&        -add_menu_item       : 'SEP', or a color attribute menu item.
\&        -delete_menu_item    : 'SEP', a color attribute menu item, or color
\&                               attribute menu ordinal.
.Ve
.Sp
.Vb 1
\&   For example:
.Ve
.Sp
.Vb 8
\&      $cref->configure(-delete_menu_item   => 3,
\&          -delete_menu_item   => 'disabledforeground',
\&          -add_menu_item      => 'SEP',
\&          -add_menu_item      => 'New color attribute',
\&          -widgets            => [$ce, $qu, $f2b2],
\&          -widgets            => [$f2->Descendants],
\&          -command            => [\e&my_special_configurator, some, args ]
\&      );
.Ve
.IP "3." 4
Invoke the \fIShow()\fR method on the editor object, say, by a button or menu press:
.Sp
.Vb 1
\&   $cref->Show;
.Ve
.IP "4." 4
The cget(\-widgets) method returns a reference to a list of widgets that
are colorized by the configurator.  Typically, you add new widgets to
this list and then use it in a subsequent \fIconfigure()\fR call to expand your
color list.
.Sp
.Vb 5
\&   $cref->configure(
\&       -widgets => [
\&           @{$Filesystem_ref->cget(-widgets)}, @{$cref->cget(-widgets)},
\&       ]
\&   );
.Ve
.IP "5." 4
The \fIdelete_widgets()\fR method expects a reference to a list of widgets which are
then removed from the current color list.
.Sp
.Vb 1
\&   $cref->delete_widgets($OBJTABLE{$objname}->{'-widgets'})
.Ve
.SH "AUTHORS"
.IX Header "AUTHORS"
Stephen O. Lidie, Lehigh University Computing Center.  95/03/05
lusol@Lehigh.EDU
.PP
Many thanks to Guy Decoux (decoux@moulon.inra.fr) for doing the initial
translation of tcolor.tcl to TkPerl, from which this code has been derived.