[perl-win32-gui-users] Scrolling Window Demo (Have to use Change method like this...Why?)

[Eric Hansen]

In order to get this Scrolling Window demo to work,
I had to use the Change method To set most properties of the MDI Frame
and Child Window.  The properties just would not activate during normal
widget creation. Is this a bug, or to be expected?
I almost gave up before I thought to try the Change method.  
     -Eric-


use Win32::GUI;

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

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

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

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

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

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


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

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

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

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

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

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


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

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