[perl-win32-gui-hackers] Scrolling Window Demo

[Eric H. <eh...@co...>]

I had to use the Change method to get this routine to work.  Anyone know
why
You can't declare titlebar and resizeable in the MDI child when
declared?
Wont work unless you specify in change method. Does it have to do with
Inheritance from the parent preventing this?

use Win32::GUI;

$M_F =3D new Win32::GUI::Menu(
    "&File"       =3D> "File",
    " > &Exit"    =3D> "Exit",
);

$F =3D new Win32::GUI::MDIFrame (
    -title      =3D> "Scrolling Window Demo",
    -name       =3D> "Frame",
    -menu       =3D> $M_F,
    -toolwindow =3D> 1,
);

$F->AddMDIClient(-name =3D> "Client",);

$W =3D $F->{Client}->AddMDIChild(-name =3D> "Window",);

$F->Change(-top =3D> 100, -left =3D> 25, -width =3D> 950, -height =3D> =
500,
-minsize =3D> [250,150], -maxsize =3D> [950,500],);

$W->Change(-top =3D> 0, -left =3D> 0, -width =3D> 950, -height =3D> 500,
-titlebar =3D> 0, -resizable =3D> 0,);


$DT_DateOne =3D new Win32::GUI::DateTime($W,
               -name       =3D> "DT_DateOpened",
               -top        =3D> 50,=20
               -left       =3D> 100,=20
               -height     =3D> 20,
               -width      =3D> 110,
               -shownone   =3D> 1,
);=09

$DT_Date2 =3D new Win32::GUI::DateTime($W,
               -name      =3D> "DT_Date2",
               -top       =3D> 150,=20
               -left      =3D> 300,=20
               -height    =3D> 20,
               -width     =3D> 110,
               -shownone  =3D> 1,
);=09

$DT_Date3 =3D new Win32::GUI::DateTime($W,
               -name     =3D> "DT_Date3",
               -top      =3D> 250,=20
               -left     =3D> 500,=20
               -height   =3D> 20,
               -width    =3D> 110,
               -shownone =3D> 1,
);=09

$DT_Date4 =3D new Win32::GUI::DateTime($W,
               -name     =3D> "DT_Date4",
               -top      =3D> 350,=20
               -left     =3D> 700,=20
               -height   =3D> 20,
               -width    =3D> 110,
               -shownone =3D> 1,
);=09

$F->Show();
$W->Show();

#########################
#     Event Handler     #
#########################
Win32::GUI::Dialog();


################
sub Exit_Click {
################
   return -1;
}

#####################
sub Frame_Terminate {
#####################
   return -1;
}