#!C:\Perl\bin\perl.exe
## ctk: description Test composite based on DialogBox
## ctk: title Extended DialogBox
## ctk: application '' ''
## ctk: strict  1
## ctk: code  3
## ctk: subroutineName thisDialog
## ctk: autoExtractVariables  1
## ctk: autoExtract2Local  1
## ctk: modal 0
## ctk: baseClass  Tk::DialogBox
## ctk: isolGeom 0
## ctk: version 3.099
## ctk: onDeleteWindow  sub{exit(0)}
## ctk: Toplevel  1
## ctk: argList  
## ctk: 2007 11 20 - 00:09:30

## ctk: uselib start

## ctk: uselib end

use strict;
use Tk;
use Tk::Button;
use Tk::Listbox;
my  $mw=MainWindow->new(-title=>'Extended DialogBox');


package DialogBoxX;
use vars qw($VERSION);
$VERSION = '1.01';
require Tk::DialogBox;
require Tk::Derived;
@DialogBoxX::ISA = qw(Tk::Derived Tk::DialogBox);
Construct Tk::Widget 'DialogBoxX';
## ctk: Globalvars

my ($xyz);

## ctk: Globalvars end
sub ClassInit {
	my $self = shift;
##
## 	init class
##
	$self->SUPER::ClassInit(@_);

}
sub Populate {
	my ($self,$args) = @_;
##
## ctk: Localvars
## ctk: Localvars end
## 	move args to local variables)
##
	$self->SUPER::Populate($args);
##
## 	 set up ConfigSpecs 	(optional)
##
	my $mw = $self;
## ctk: code generated by ctk_w version '3.099' 
## ctk: lexically scoped variables for widgets 

my (
$wr_001,
$wr_002
);
## ctk: instantiate and display widgets 

$wr_001 = $mw -> Listbox ( -background , '#ffffff' , -selectmode , 'single' , -relief , 'sunken'  ) -> pack(-side=>'top', -anchor=>'nw', -pady=>5, -fill=>'x', -expand=>1, -padx=>5);


$wr_002 = $mw -> Button ( -background , '#ffffff' , -command , sub{1} , -state , 'normal' , -text , 'Test'  ) -> pack(-side=>'top', -anchor=>'nw', -pady=>5, -fill=>'x', -expand=>1, -padx=>5);


## ctk: end of gened Tk-code

## ctk: public subwidgets
$self->Advertise('List'=>$wr_001);
$self->Advertise('Test'=>$wr_002);
## ctk: public subwidgets end
	return $self;
}
## ctk: methods
sub _show {
	my $rv = shift->Show();
	return $rv
}
## ctk: methods end

## ctk: testCode
# -----------------------------------------------
##
package main;
&main::init();
my (%args) =();
my $instance = $mw->DialogBoxX(%args);
$mw->protocol('WM_DELETE_WINDOW',sub{exit(0)});
&main::test_01($instance);
MainLoop;

##
## ctk: testCode

## ctk: callbacks
sub init { 1 }
sub test_01 {
	shift->_show()
}
## ctk: other code
## ctk: eof 2007 11 20 - 00:09:30
1;	## make perl compiler happy...

