The following code demonstrates the slider problem - pos does not seem to set the position anymore

---------------------------------------------------------------------------------------
#!perl
use Win32::GUI;

$Window = new GUI::Window(
   -title    => "Win32::GUI::Slider test",
   -left     => 100,
   -top      => 100,
   -width    => 300,
   -height   => 100,
   -name     => "Window",
);

$Window->AddSlider(
   -left   => 10,
   -top    => 10,
   -height => 150,
   -width  => 150,
   -name   => "Slider",
);

$Window->Slider->Min(0);
$Window->Slider->Max(10);
#The following line should set the slider position to the 3rd tick from the left but it does not.
$Window->Slider->Pos(3);
$Window->Show;
Win32::GUI::Dialog();

sub Window_Terminate {
   return -1;
}

---------------------------------------------------------------------------------------
----- Original Message ----- From: "Glenn Linderman" <[EMAIL PROTECTED]>
To: "Steven Lloyd" <[EMAIL PROTECTED]>
Cc: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, December 29, 2004 1:08 PM
Subject: Re: [perl-win32-gui-users] Slider Position


On approximately 12/29/2004 7:40 AM, came the following characters from the keyboard of Steven Lloyd:

looks like setting a slider position using $Window->Slider->Pos(4) no longer works in version 1.0.
Any workarounds?

Not something I've used... can you make a short script demonstrating the problem for testing/investigation?

--
Glenn -- http://nevcal.com/
===========================
Having identified a vast realm of ignorance, Wolfram is saying that much
of this realm lies forever outside the light cone of human knowledge.
                          -- Michael Swaine, Dr Dobbs Journal, Sept 2002



Reply via email to