use strict;
use warnings;
use Tk;
my $mw = new MainWindow(-background=>'Gray');
$mw->geometry("1400x800");
$mw ->optionAdd('*background','Gray');
my @wb;
my $file;
my $flag;
my $frame_name;
my $frme_window;
my $def_path1;

$wb[0] = $mw->Radiobutton(
    -variable => \$file,
    -command  => \&toclink,
    -text     => 'TOC LINK',
    -font => "r18",
		-width       => 17,
		-foreground  => 'black',
    -value =>  1)->pack(-side=> 'top',-anchor=>'w',)->place(-relx =>0.0,-rely =>0.20);

$wb[1] = $mw->Radiobutton(
    -variable => \$file,
    -command  => \&chapterlink,
    -text     => 'CHAPTER LINK',
    -font => "r18",
		-width       => 17,
		-foreground  => 'black',
    -value => 2)->pack(-side=> 'top',-anchor=>'w',)->place(-relx =>0.015,-rely =>0.25);

$wb[2] = $mw->Radiobutton(
    -variable => \$file,
    -command  => sub {$flag =3;},
    -text     => 'FIGURE LINK',
    -font => "r18",
		-width       => 17,
		-foreground  => 'black',
    -value    => 3)->pack(
    -side     => 'top',
    -anchor   => 'w',)->place(-relx =>0.007,
															-rely =>0.30);

MainLoop();
sub toclink()
{
		$frme_window->destroy() if defined $frme_window;
		$frme_window = $mw -> Frame(
				-background => 'DarkGray',
				-relief => 'sunken')->pack(-ipadx => 330,-ipady =>0, -side => "right", -fill => "y");
		$frme_window->Label(
				-text =>"Do You Want Give Input Styles: ",
				-font => 'Verdana 10 bold',
				-foreground  => 'dark red',
				-background => 'DarkGray',
				-height => 1,-width =>28) -> pack( )->place( -relx =>0.02, -rely =>0.08);
		$frme_window->Button(
				-foreground  => 'dark red',
				-text => "yes",
				-font => 'Verdana 8 bold', 
				-height => 1,
				-width => 10,
				-background => 'DarkGray',
				-command => \&enable) -> pack ( )->place(-relx =>0.43, -rely =>0.08);
		$frme_window->Button(
				-foreground  => 'dark red',
				-text => "No",
				-font => 'Verdana 8 bold', 
				-height => 1,
				-width => 10,
				-background => 'DarkGray',
				-command => \&disable) -> pack ( )->place( -relx =>0.57,	-rely =>0.08);
}

sub chapterlink()
{
		$frme_window->destroy() if defined $frme_window;
		$frme_window = $mw -> Frame(
				-background => 'DarkGray',
				-relief => 'sunken')->pack(-ipadx => 330,-ipady =>0, -side => "right", -fill => "y");
		my $butn =$frme_window->Label(
				-text =>'CHAPTER LINK  ',
				-font => 'Verdana 15 bold',
				-foreground  => 'dark red', 
				-background => 'DarkGray',
				-height => 1,
				-width =>23) -> pack( )->place( -relx =>0.3, -rely =>0.1);
		my $labl = $frme_window->Label(
				-text =>"Chapter Files ",
				-font => 'Verdana 10 bold',
				-foreground  => 'dark red',
				-background => 'DarkGray',
				-height => 1,
				-width =>15) -> pack( )->place(-relx =>0.01,	-rely =>0.30);
		my $path_text6 = $frme_window->Entry(
				-textvariable => \$def_path1,
				-font => 'Verdana 8 bold',
				-width => 35,
				-background =>'white')->pack(-expand => 1)->place(-relx => 0.20, -rely => 0.3);
		my $path_butn1 = $frme_window->Button(
				-foreground  => 'dark red',
				-text => "Browse",
				-font => 'Verdana 8 bold', 
				-height => 1,-width => 10,
				-command => \&browsecl) -> pack ( )->place(	-relx =>0.65,	-rely =>0.3);
		my $path_buttn2 = $frme_window->Button(
				-foreground  => 'dark red',
				-text => "Submit",
				-font => 'Verdana 8 bold', 
				-height => 1,
				-width => 10,
				-command => \&submitcl) -> pack ( )->place(-relx =>0.80,	-rely =>0.3);
}