/usr/local/CPAN/vptk_w/vptk_w/VPTK_Widget/Checkbutton.pm

• package vptk_w::VPTK_Widget::Checkbutton
  • HaveGeometry
  • DefaultParams
  • TkClassName
  • PrintTitle
  • AssociatedIcon
  • EditorProperties
  • JustDraw
• EOF

package vptk_w::VPTK_Widget::Checkbutton;

use strict;
use base qw(vptk_w::VPTK_Widget);

sub HaveGeometry  { 1 }
sub DefaultParams { [-relief=>'flat',-indicatoron=>1] }
sub TkClassName   { 'Tk::Checkbutton' }
sub PrintTitle    { 'Checkbutton' }
sub AssociatedIcon{ 'checkbutton' }
sub EditorProperties {
  return {
    -background=>'color',-foreground=>'color',-width=>'int+',-onvalue=>'text',
    -justify=>'justify',-padx=>'int+',-pady=>'int+',-offvalue=>'text',-command=>'callback',
    -activebackground=>'color',-highlightthickness=>'int+',-takefocus=>'menu(0|1)',
    -activeforeground=>'color',-disabledforeground=>'color',-highlightbackground=>'color',
    -highlightcolor=>'color',-wraplength=>'int+',-borderwidth=>'int+',
    -height=>'int+',-offrelief=>'relief',-overrelief=>'relief',-selectimage=>'variable',
    -relief=>'relief',-text=>'text',-underline=>'int+',-variable=>'variable',
    -anchor=>'anchor',-indicatoron=>'menu(0|1)',-selectcolor=>'color',
    -bitmap=>'bitmap',-image=>'variable',-state=>'menu(normal|active|disabled)'
  }
}

sub JustDraw {
  my ($this,$parent,@args) = @_;
  return $parent->Checkbutton(@args);
}

1;#)